Option ExplicitFunction actionDim objTag,valSet objTag=HMIRuntime.Tags("QSB1.AUTO")//QSB1.AUTO是二进制变量，默认为0.If objtag.Read = 0 ThenHMIRuntime.Tags("QSB1.AUTO").Write 1MsgBox objTag.Read End IfEnd Function这个是我的脚本内容，弹窗一直是“0”，脚本的Write写入变量内容失效，不知道是什么原因？
最佳答案
Dim tag1
Set tag1 = HMIRuntime.Tags("test1")
If tag1.Read = 0 Then
tag1.Write 1
Else
tag1.Write 0
End If
Msgbox tag1.Value
你改成这样试一试，你这个问题应该是前面已经定义objTag=HMIRuntime.Tags("QSB1.AUTO")
但是你后面又用HMIRuntime.Tags("QSB1.AUTO").Write 1的写法，还有就是msgbox要在IF语句结束后写，因为你希望弹出的是语句执行后的值。
提问者对于答案的评价：
感谢您的回答。
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc354496.html
微信扫一扫 
支付宝扫一扫 