Gibt es da eine andere Lösung, bzw. kann man das geschickter machen, sodaß das Programm nicht mehr abstürzt, nur weil ich ein anderes Fenster öffne?
Vielleicht kann mir jemand einen guten Tip geben. Vielen Dank schon mal im voraus
Hier ist die Procedure, wie ich es halt programmiert habe:
Code: Alles auswählen
;- UHR AKTIVIEREN
Procedure UHR_LAUFEN_LASSEN()
Protected SEKUNDE.s, MINUTE.s, STUNDE.s, TAG.s, MONAT.s, JAHR.s, DATUM.s, WOCHENTAG.b
;UTCdifferenz ist eine globale Variable
; 0 : Sonntag
; 1 : Montag
; 2 : Dienstag
; 3 : Mittwoch
; 4 : Donnerstag
; 5 : Freitag
; 6 : Sonnabend
;
Repeat
STUNDE=FormatDate("%hh",Date())
MINUTE=FormatDate("%ii",Date())
SEKUNDE=FormatDate("%ss",Date())
DATUM=FormatDate("%dd.%mm.%yyyy",Date())
WOCHENTAG = DayOfWeek(Date())
CreateImage(#Image_UHR,300,135)
UseImage(#Image_UHR)
StartDrawing(ImageOutput())
DrawingMode(1)
DrawingFont(FontID73)
Box(0,0,300,135,RGB(255,255,255))
FrontColor(0,0,0)
textlaenge=TextLength(STUNDE+" : "+MINUTE)
Locate((150-(textlaenge/2)),60)
DrawText(STUNDE+":"+MINUTE)
StopDrawing()
SetGadgetState(#IMGadget_UHR,UseImage(#Image_UHR))
ForEver
EndProcedure
Code-Tags hinzugefügt
29.11.2018
RSBasic