找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 24|回复: 1

HMI画面学习借鉴,一个画面显示多组气缸控制状态

[复制链接]

351

主题

341

回帖

2433

积分

管理员

积分
2433
发表于 2025-6-26 23:18:14 | 显示全部楼层 |阅读模式

IO监视表

IO监视表



HMI模拟画面

HMI模拟画面


模拟画面运行录屏
2025-06-26 08-58-24.mp4 (349.76 KB, 下载次数: 0)


文件下载
在一个画面中,循环监控多组气缸.zip (20.87 MB, 下载次数: 0)
回复

使用道具 举报

351

主题

341

回帖

2433

积分

管理员

积分
2433
 楼主| 发表于 2025-6-26 23:26:59 | 显示全部楼层
VB脚本



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_INPUT_ARRAY")(i)= i
         SmartTags("DO_OUTPUT_ARRAY")(i)= i
         SmartTags("DI_CYLINDE_ARRAY")(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_INPUT_ARRAY")(i)= SmartTags("INDEX")*8+i
        SmartTags("DO_OUTPUT_ARRAY")(i)= SmartTags("INDEX")*8+i
        SmartTags("DI_CYLINDE_ARRAY")(i)= SmartTags("INDEX")*4+i
Next


End Sub




Sub pre_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_INPUT_ARRAY")(i)= SmartTags("INDEX")*8+i
        SmartTags("DO_OUTPUT_ARRAY")(i)= SmartTags("INDEX")*8+i
        SmartTags("DI_CYLINDE_ARRAY")(i)= SmartTags("INDEX")*4+i

Next

End Sub

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|笔记

GMT+8, 2025-7-7 04:52 , Processed in 0.044144 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表