Greetings!
Komme bei einen Problem nicht weiter und mir gehen die Ideen aus
Habe eine GUI in der ich die gewünschte Startzeit für das zu startente Prog eingeben kann.
Funktioniert auch alles, aber beim Idiotensicher machen komme ich bei der überprüfung der Uhrzeit nicht weiter.
Mein Problem ist eben das Zeitformat, es soll zB ein Hinweis kommen wenn die eingegebene Startzeit 23Uhr ist, es jetzt aber schon 2Uhr ist. In diesem Fall wäre 2Uhr größer als 23Uhr obwohl der Wert von 2Uhr (2) kleiner ist als 23 Uhr (23).
Hier mal der(lauffähige) GUI Teil meines Scriptes:
(Problem beginnt ab ca Zeile 61)
Spoiler anzeigen
#include
#include
#Include
Opt("TrayAutoPause",0) ;0=no pause, 1=Pause
Opt("TrayIconDebug",1) ;0=no info, 1=debug line info
Opt("TrayOnEventMode",1) ;0=disable, 1=enable
$DowKeys = GUICreate("Startzeit", 260, 160)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Stunde : Minute" , 20, 20, 180, 30)
GUICtrlSetFont (-1, 12,400)
$S = 23
$M = 55
$j = 0
$Input1 = GUICtrlCreateInput($S, 20, 45, 40, 30)
GUICtrlSetFont (-1, 15,400)
GUICtrlCreateLabel(":", 70, 40, 20, 40)
GUICtrlSetFont (-1, 25,400)
$Input2 = GUICtrlCreateInput($M, 90, 45, 40, 30)
GUICtrlSetFont (-1, 15,400)
$Button7 = GUICtrlCreateButton("Jetzt Zeit", 150, 44, 90, 30, 0)
GUICtrlSetFont (-1, 15,400,"","Comic Sans MS")
$Button8 = GUICtrlCreateButton("Starten!", 20, 90, 220, 50, 0)
GUICtrlSetFont (-1, 25,400,"","Comic Sans MS")
$Button9 = GUICtrlCreateButton("Log Datei", 180, 10, 60, 20, 0)
GUICtrlSetFont (-1, 8,400,"","Comic Sans MS")
GUISetState(@SW_SHOW,$DowKeys)
[/autoit] [autoit][/autoit] [autoit]$loger = (@ScriptDir&"\LogBuch.ini")
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button9
ShellExecute ($loger)
Case $msg = $Button7
$S = @HOUR
$M = @MIN
$j = 1
GUICtrlSetData ( $Input1, $S )
GUICtrlSetData ( $Input2, $M )
Case $msg = $Button8
GUISetState(@SW_HIDE)
$S = GUICtrlRead ( $Input1 )
$M = GUICtrlRead ( $Input2 )
$S2 = @HOUR +24
If $S > 23 OR $M > 59 Then
MsgBox(16, "Fehler", "Falsche Zeitwert!")
GUISetState(@SW_SHOW,$DowKeys)
ElseIf $S < $S2 Then
If $S = $S2 Then
If $M > @MIN Then
ExitLoop
EndIf
EndIf
If MsgBox(292, "Achtung!", "Komischer Zeitwert!" & @CRLF &"Soll "&$S&":"&$M&" Uhr übernommen werden?"& @CRLF & _
"Jetzt ist es "&@HOUR&":"&@MIN&" Uhr!" ) = 7 Then
GUISetState(@SW_SHOW,$DowKeys)
Else
ExitLoop
EndIf
Else
ExitLoop
EndIf
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
;MsgBox(0,$j &" Startzeit = ",$S &" : "& $M ,3 )
$TI1 = TrayCreateItem("NextRun = " &$S &":"&$M&" Uhr")
Das ist der Stand wo ich nicht weiterkomme, scheinbar habe ich mich in eine Sackgasse verrant und die Lösung ist auf anderem Weg einfacher zu erreichen
(Auf Wunsch kann ich noch Kommentare einfügen, um meine Gedanken und Schritte verständlicher zu machen)