找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
{{itemCategory}}
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
那就主屏固定显示一个文本,用脚本编程vbs:
Sub VBFunction_3()
'提示:
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例:HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码:
Dim myalarm(100)'定义报警变量
Dim myalarmdisplay'定义显示文本
Dim ii'循环变量
myalarm(0)=HmiRuntime.SmartTags("alarm1")'读取报警变量
myalarm(1)=HmiRuntime.SmartTags("alarm2")
myalarm(2)=HmiRuntime.SmartTags("alarm3")
myalarm(3)=HmiRuntime.SmartTags("alarm4")
myalarm(4)=HmiRuntime.SmartTags("alarm5")
myalarm(5)=HmiRuntime.SmartTags("alarm6")
myalarmdisplay="报警"'定义报警显示的初始文本
For ii=0 To 5 Do
If myalarm(ii) Then
myalarmdisplay=ii+1&"线,"&myalarmdisplay'如果当前变量有报警则报警文本显示为:报警的序号(1~6)加字符“,线”+原来的报警文本
Next
HmiRuntime.Screens("画面_1_主界面").ScreenItems("文本域_15").Text=myalarmdisplay'报警文本在画面上的静态文本中显示
End Sub
设置脚本触发周期就可以了。
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!