WinCC Professional - VB Scripting - Variablen Abfrage und Maskieren

Hallo zusammen

Hätte mal zwei Fragen bezüglich Scripting:

            1.) Soll man mit Opjektreferenz oder direkt mit den Smarttags arbeiten?

[snip]

Beide Punkte sind unten im Code!

Danke & Gruss

Rainer

Sub Auftrag_Frg()

'****************************************
'Objekt Referenz
'****************************************

Dim oStatus
Set oStatus = HMIRuntime.Tags ("Test_Status_1")

Dim oFrg
Set oFrg = HMIRuntime.Tags ("Frg_Auftrag_Anforderung")

'Freigabe Taste Anforderung Auftrag
oStatus.Read
oFrg.Read

If ((oStatus.Value) And (2^1)) Then
oFrg.Value = True
Else
oFrg.Value = False
End If
'****************************************

'****************************************
'Objekt Referenz
'****************************************

If SmartTags("Test_Status_1") And (2^1) Then
SetTag "Test_Status_1", 3
Else
SetTag "Test_Status_1", 0
End If

'****************************************

Neue Frage von zobs01 wurde in ein separates Thema mit dem Titel Wie kann man ein einzelnes bit aus einer Integer Variable lesen? gesplittet.

Gruß
Jen_Moderator