wincc vbs 按钮置反功能如何实现?
问:我用VBS 实现按钮置反功能,好像不行。
我的程序是
Sub OnClick(Byval Item)
Dim tag1
Set tag1=HMIRuntime.Tags("Q02")
If tag1=1 Then
tag1.write 0
Else
tag1.Write 1
End If
End Sub
请问问题出在哪儿?
答:修改后的脚本应该是:
Sub OnClick(Byval Item)
Dim tag1
Set tag1=HMIRuntime.Tags("Q02")
tag1.read
If tag1.Value=1 Then
tag1.write 0
Else
tag1.Write 1
End If
End Sub
新闻详情