有2组变量共4个其中一组种的一个为1是背景闪烁红白，另一个为1是背景闪烁黄白，
同理第二组种的一个为1背景闪烁红白，另一个为1背景闪烁黄白
最佳答案
“输入/输出域”对象属性“FlashBackColor”控制闪烁是否激活，属性“BackFlashColorOff”指定闪烁关时颜色，属性“BackFlashColorOn”指定闪烁开时颜色。
用VBS脚本，激活闪烁前先设置好闪烁关时、开时颜色。
如在“输入/输出域”对象属性“FlashBackColor”添加vbs脚本，使用变量触发：
变量tag1、tag2是一组，变量tag3、tag4是一组
vbs示例脚本：
Dim tag1
Set tag1 = HMIRuntime.Tags("tag1")
Dim tag2
Set tag2 = HMIRuntime.Tags("tag2")
Dim tag3
Set tag3 = HMIRuntime.Tags("tag3")
Dim tag4
Set tag4 = HMIRuntime.Tags("tag4")
Dim objIO
Set objIO= ScreenItems("输入/输出域1")
tag1.Read
tag2.Read
tag3.Read
tag4.Read
If tag1.Value=1 Or tag3.Value=1 Then
objIO.BackFlashColorOff=vbRed
objIO.BackFlashColorOn=vbWhite
End if
If tag2.Value=1 Or tag4.Value=1 Then
objIO.BackFlashColorOff=vbYellow
objIO.BackFlashColorOn=vbWhite
End if
If tag1.Value=1 Or tag2.Value=1 Or tag3.Value=1 Or tag4.Value=1 Then
FlashBackColor_Trigger=TrUE
Else
FlashBackColor_Trigger=FALSE
End if
图片说明：
提问者对于答案的评价：
完全可以 谢谢大神
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc311560.html
微信扫一扫 
支付宝扫一扫