-> Hier kostenlos registrieren
Hallo,
ich habe folgendes Problem:
Wir wollen ein Skript realisieren, dass nach X Minuten auf das Hauptbild zurückwechselt. Die Minuten sind dabei einstellbar, ebenso ob das Skript überhaupt aktiv sein soll oder nicht. Das funktioniert soweit auch alles. Es ist allerdings so, dass das Skript beim Bildabbau scheinbar nicht beendet wird. Das zieht das Problem nach sich, dass die Umschaltezeit im HIntergrund weiter läuft. Kommt der Bediener also wieder zurück auf das Bild, dann lief der Counter bereits schon und es bleiben nicht die eingestellten Minuten bis zum nächsten Bildwechsel. Das ganze Problem würde sich beheben lassen, wenn das Skript bei jedem Bildabbau beendet werden würde und/oder bei jedem Bildaufbau neugestartet werden würde. Leider finde ich keine Lösung dazu. Weiß jemand Rat?
ich habe folgendes Problem:
Wir wollen ein Skript realisieren, dass nach X Minuten auf das Hauptbild zurückwechselt. Die Minuten sind dabei einstellbar, ebenso ob das Skript überhaupt aktiv sein soll oder nicht. Das funktioniert soweit auch alles. Es ist allerdings so, dass das Skript beim Bildabbau scheinbar nicht beendet wird. Das zieht das Problem nach sich, dass die Umschaltezeit im HIntergrund weiter läuft. Kommt der Bediener also wieder zurück auf das Bild, dann lief der Counter bereits schon und es bleiben nicht die eingestellten Minuten bis zum nächsten Bildwechsel. Das ganze Problem würde sich beheben lassen, wenn das Skript bei jedem Bildabbau beendet werden würde und/oder bei jedem Bildaufbau neugestartet werden würde. Leider finde ich keine Lösung dazu. Weiß jemand Rat?
Code:
If ZZ_UMSCHALT_STATUS = True Then
'Lokale Variable
Dim Umschaltzeit
'Variable zur aktuellen Zeit addieren
Umschaltzeit = DateAdd ("s",ZZ_UMSCHALTZEIT,Time)
'Vergleich der beiden Zeiten bis die aktuelle Zeit > der Umschaltzeit ist
Do Until DateDiff ("s",Time,Umschaltzeit) <= 0
ZZ_UMSCHALTZEIT_AUSGABE = DateDiff("s",Time,Umschaltzeit)
Loop
'Aktiveren des Hauptbildes
ActivateScreen "ST_0001_OVERVIEW_TOTAL_GENERATOR",0
'Ende des Scripts
Else
Exit Sub
End If