Bool-Parameter in Script abfragen

Hallo,

Ich verzweifele gerade etwas.

Ich möchte einer VB-Funktion als Parameter übergebene Bool-Variablen abfragen, aber egal was ich versuche nichts funktioniert. Die Funktion sieht wie folgt aus:

Sub Login(ByVal Level_1, ByVal Level_2, ByVal Level_3, ByVal Level_4)

Dim aktuelles_Level

 

'Level 1 übertragen

If  Level_1 = 1 Then

                aktuelles_Level = 1

End If

 

'Level 2 übertragen

If  Level_2 = 1 Then

                aktuelles_Level = 2

End If

 

'Level 3 übertragen

If  Level_3 = 1 Then

                aktuelles_Level = 3

End If

 

'Level 4 übertragen

If  Level_4 = 1 Then

                aktuelles_Level = 4

End If

 

'Ausloggen

If Level_1 = 0 And Level_2 = 0 And Level_3 = 0 And Level_4 = 0 Then

                aktuelles_Level = 0

End If

 

SmartTags("aktuelles_Level") = aktuelles_Level

 

End Sub

Es macht keinen Unterschied ob ich auf 1 oder True abfrage, es tut sich nichts. Mit Integerwerten z.B. funktioniert alles wunderbar.

Hat jemand einen Lösungshinweis?

verwendete Software:

-         - WinCC V13 SP1 Upd.6

Verwendete Hardware:

-         - TP1200 FW 13.0.1.0 (MLFB: 6AV2 124-0MC01-0AX0)

Gruß

5p1k3

Edit: Dieses Script hängt jeweils am Wertänderungsereignis der Variablen, die auch als Parameter übergeben werden.

Wenn ich das selbe Script nun noch mit den selben Parameter auf einen Button lege, wird das Script bei Wertänderung korrekt ausgeführt ohne das der Button berührt wird.

Hat hierfür jemand eine Erklärung?

Hallo H0566,

zyklisch schon, allerding nur im Betrieb und das war allem Anschein nach nicht genug :D

Danke für den Hinweis, manche Fehler macht man halt doch ein zweites mal wenn sie zulange zurückliegen.

Schönes Wochenende wünsche ich.

Gruß

5p1k3