A
Anonymous
Guest
-> Hier kostenlos registrieren
Hallo zusammen
Hoff das mir hier jemand weiterhelfen kann.
Ich benütze folgendes Skript
Sub OnClick(Byval Item)
Dim tag, msg
tag = HMIRuntime.Tags("8-bit").Read
msg = MsgBox ("Regelung einschalten ?",36,"Vorwärmeregelung")
If msg = 6 Then
HMIRuntime.Tags("8-bit").Write &H20
End If
Set tag = Nothing
Set msg =Nothing
End Sub
Soweit geht das ganze auch.. Das richtige Bit wird gesetzt in diese Variable.... Nur habe ich das Problem das gleichzeitig auch andere Bit die bereits gesetzt sind abgelöscht werden... Was mache ich da falsch?
Wär super wenn mir jemand weiter helfen könnte.
Danke
Hoff das mir hier jemand weiterhelfen kann.
Ich benütze folgendes Skript
Sub OnClick(Byval Item)
Dim tag, msg
tag = HMIRuntime.Tags("8-bit").Read
msg = MsgBox ("Regelung einschalten ?",36,"Vorwärmeregelung")
If msg = 6 Then
HMIRuntime.Tags("8-bit").Write &H20
End If
Set tag = Nothing
Set msg =Nothing
End Sub
Soweit geht das ganze auch.. Das richtige Bit wird gesetzt in diese Variable.... Nur habe ich das Problem das gleichzeitig auch andere Bit die bereits gesetzt sind abgelöscht werden... Was mache ich da falsch?
Wär super wenn mir jemand weiter helfen könnte.
Danke