Visual Basic WinCC

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