ManAtWork!
Level-1
- Beiträge
- 89
- Reaktionspunkte
- 1
-> Hier kostenlos registrieren
Hallo Leute,
ich bin gerade dabei eine "Reinigungsmaske" für meine Visualisierung zu basteln.
Sprich, der Bediener öffnet über die Menüseite die "Reinigungsmaske", diese enthält keine Funktionen oder ähnliches und der Bediener kann eine einstellbare Zeit lang das Display des Panels reinigen. nach einer Zeit erfolgt wieder ein automatisch Bildwechsel zurück zur Menüseite.
Das habe ich über ein VB-Skript wie folgt gelöst:
Dim wartezeit
Dim screen_number_menu
wartezeit = DateAdd("s",10,Time) 'Wartezeit = Aktuelle Zeit + 10s
screen_number_menu = 10
'warten bis aktuelle Zeit >= wartezeit ist
Do Until DateDiff("s",Time, wartezeit) <= 0
Loop
ActivateScreenByNumber screen_number_menu, 0
(man muss dazu sagen, dass ich noch nicht lange programmiere und mir das einfach mal zusammengebastelt habe und froh bin, dass es sogar funktioniert)
Mein Problem ist nun, dass ich gerne die restliche Wartezeit auf der Reinigungsmaske anzeigen lassen möchte. Also als ablaufende Zeit.
Vorgestellt habe ich es mir so:
'warten bis aktuelle Zeit >= wartezeit ist
Do Until DateDiff("s",Time, wartezeit) <= 0
test_variable_typ_datetime = DateDiff("s",Time, wartezeit)
Loop
Nun funktioniert das leider nicht aber ich habe leider keine Ahnung was ich falsch mache?
Grüße
ich bin gerade dabei eine "Reinigungsmaske" für meine Visualisierung zu basteln.
Sprich, der Bediener öffnet über die Menüseite die "Reinigungsmaske", diese enthält keine Funktionen oder ähnliches und der Bediener kann eine einstellbare Zeit lang das Display des Panels reinigen. nach einer Zeit erfolgt wieder ein automatisch Bildwechsel zurück zur Menüseite.
Das habe ich über ein VB-Skript wie folgt gelöst:
Dim wartezeit
Dim screen_number_menu
wartezeit = DateAdd("s",10,Time) 'Wartezeit = Aktuelle Zeit + 10s
screen_number_menu = 10
'warten bis aktuelle Zeit >= wartezeit ist
Do Until DateDiff("s",Time, wartezeit) <= 0
Loop
ActivateScreenByNumber screen_number_menu, 0
(man muss dazu sagen, dass ich noch nicht lange programmiere und mir das einfach mal zusammengebastelt habe und froh bin, dass es sogar funktioniert)
Mein Problem ist nun, dass ich gerne die restliche Wartezeit auf der Reinigungsmaske anzeigen lassen möchte. Also als ablaufende Zeit.
Vorgestellt habe ich es mir so:
'warten bis aktuelle Zeit >= wartezeit ist
Do Until DateDiff("s",Time, wartezeit) <= 0
test_variable_typ_datetime = DateDiff("s",Time, wartezeit)
Loop
Nun funktioniert das leider nicht aber ich habe leider keine Ahnung was ich falsch mache?
Grüße