Wie kann man ein einzelnes bit aus einer Integer Variable lesen?

Hallo zusammen

Hätte mal zwei Fragen bezüglich Scripting:

[snip]

2.) Wie kann ich ein einzelnes bit aus einer Integer Variable lesen. Maskieren habe ich Probiert. Vielleicht mache ich dort ein Fehler?

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

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

------------------------------------------------------------------------------------------
Gesplittet von WinCC Professional - VB Scripting - Variablen Abfrage und Maskieren.