参照抖音视频学习的实例 - 一个画面分页显示上百个IO状态

winzhi

HMI 模拟效果

文件下载
my_project2 怎样在一个画面上，查看上千个IO状态.7z (6.99 MB, 下载次数: 0)

2025-6-21 09:57 上传

点击文件名下载附件

演示视频
2025-06-20 19-47-46.mkv (120.7 KB, 下载次数: 0)

2025-6-21 09:59 上传

点击文件名下载附件
演示视频

winzhi

HMI VB 脚本：

loading


Sub loading()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：

Dim i
SmartTags("Index")= 0                         '指针化索引变里初始化
SmartTags("Page_Current")= 1         '当前页初始化
SmartTags("Page_Max")= 5                 '总页数初始化


For i=0 To 7
         SmartTags("Di_Text_No")(i)= i
         SmartTags("Do_Text_No")(i)= i
Next

End Sub




下一页：

Sub next_page()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：

Dim i                                                                                                        '定义循环体变量i

SmartTags("Index")= SmartTags("Index")+1                                '下一页
If SmartTags("Index") = SmartTags("Page_Max") Then                '循环翻页
        SmartTags("Index") = 0
End If

SmartTags("Page_Current") = SmartTags("Index") + 1                 '当前页号

For i=0 To 7                                                                                        '文本列表索引
        SmartTags("Di_Text_No")(i)= SmartTags("Index")*8+i
        SmartTags("Do_Text_No")(i)= SmartTags("Index")*8+i
        
Next

End Sub



上一页：

Sub Previous_page()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：

Dim i                                                                                                        '定义循环体变量i
SmartTags("Index")= SmartTags("Index")-1                                '上一页
If SmartTags("Index") = -1 Then                '循环翻页
        SmartTags("Index") = SmartTags("Page_Max") - 1
End If

SmartTags("Page_Current") = SmartTags("Index") + 1                 '当前页号

For i=0 To 7                                                                                        '文本列表索引
        SmartTags("Di_Text_No")(i)= SmartTags("Index")*8+i
        SmartTags("Do_Text_No")(i)= SmartTags("Index")*8+i
        
Next

End Sub

HMI脚本目录

winzhi

HMI VB功能调用

上一页按钮

下一页按钮

画面加载

winzhi

文本的属性设置及变量

winzhi

状态显示图形的属性 及 链接 变量