1 Dim objTag
2 Set objTag = HMIRuntime.Tags(“Tag1”)
3 objTag. Write 9
4 If 0◇objTag.LastError Then
5 HMIRuntime.Trace "Error: " & objTag.LastError & vbCrLf & “ErrorDescription: " & objTag.ErrorDescription & vbCrLf
6 Else
7 objTag.Read
8 If &H80◇objTag. QualityCode Then
9 HMIRuntime.Trace "QualityCode: 0x" & Hex(objTag.QualityCode) & vbCrLf
10 End If
11 End If
最佳答案
4：如果上次读变量出错的话
5：显示错误信息
6：否则
7：读变量
8：如果变量的质量代码为正常值
9：显示变量正确信息
10：结束条件语句
11：结束条件语句
提问者对于答案的评价：
谢谢
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc360179.html
微信扫一扫 
支付宝扫一扫 