读取变量返回值和质量戳

`Sub OnClick(Byval Item)

Dim plcVariableName, plcVariableValue, plcQualityCode
Dim tagObject

' 设置你的PLC变量名
plcVariableName = "aaaaa1"  ' 将YourPLCVariableName替换为PLC变量名

' 创建Tag对象
Set tagObject = HMIRuntime.Tags(plcVariableName)

' 读取PLC变量的值
plcVariableValue = tagObject.Read(0)  ' 参数1表示同步读取

' 读取PLC变量的质量戳
plcQualityCode = tagObject.QualityCode

' 检查读取结果
If plcQualityCode = 0 Then
    MsgBox "PLC变量值: " & plcVariableValue & vbCrLf & "质量戳: " & plcQualityCode
Else
    MsgBox "读取PLC变量失败或质量戳异常: " & plcQualityCode
End If

End Sub`