mechatroniker2011
Level-1
- Beiträge
- 4
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo, ich habe ein VBSkript geschrieben. Das Skript dreht ein Polygon (das funktioniert bereits). Nun soll das Skript so erweitert werden, dass sich das Polygon nur dann dreht, wenn das 0-te Bit der Variable DrehenBeginnen gesetzt ist. DrehenBeginnen ist eine interne Variable. Leider funktioniert dieser Teil noch nicht. Findet jemand den Fehler?
mit "And &h00" möchte ich das erste Bit Maskieren (das habe ich auf einem anderen Forumseintrag gelesen). Wenn ich die Maskierung weglasse, funktioniert es auch nicht.
Vielen Dank im Vorraus für die Hilfe
Function Left_Trigger(Byval Item)
Dim angle, txt
Set txt = HMIRuntime.ActiveScreen.ScreenItems("Polygon1")
angle = txt.RotationAngle
Dim DrehenBeginnen0
Set DrehenBeginnen0 = HMIRuntime.Tags("DrehenBeginnen")
If (DrehenBeginnen0 And &h00) = 1 Then
txt.RotationAngle = angle + 30
End If
End Function
Hinweise:Dim angle, txt
Set txt = HMIRuntime.ActiveScreen.ScreenItems("Polygon1")
angle = txt.RotationAngle
Dim DrehenBeginnen0
Set DrehenBeginnen0 = HMIRuntime.Tags("DrehenBeginnen")
If (DrehenBeginnen0 And &h00) = 1 Then
txt.RotationAngle = angle + 30
End If
End Function
mit "And &h00" möchte ich das erste Bit Maskieren (das habe ich auf einem anderen Forumseintrag gelesen). Wenn ich die Maskierung weglasse, funktioniert es auch nicht.
Vielen Dank im Vorraus für die Hilfe