Ngày đăng: 07:46:49 25-04-2016
Không có gì quan trọng cả, chỉ là ghi chú lại 1 vài câu lệnh VB set tag thường dùng trong WinCC... chẳng là lâu dùng nên ghi chú lại sợ quên
Dim tag
Set tag=HMIRuntime.Tags(Tag name")
tag.write(1)
tag.write(0)
'==========================================================
Dim obj,tag
Set tag=HMIRuntime.Tags("Tag Name")
obj=MsgBox("Are You Sure?", vbYesNo+ vbCritical, "Question")
If obj=6 Then
tag.Write(1)
Else
tag.Write(0)
End If
'==========================================================
Dim a,b
b=MsgBox("Are you Sure?", vbYesNo, "Question")
If b=6 Then
Set a=HMIRuntime.Tags("8 unsign bit name")
a.Write(4)
End If
'==========================================================
Dim testword
Set testword = HMIRuntime.Tags("testword")
testword.Write(testword.Read() Xor (2 ^ 4)) '<-- To invert
testword.Write(testword.Read() Or (2 ^ 4)) '<-- To set
testword.Write(testword.Read() And Not (2 ^ 4)) '<-- To reset