Uhrzeit in Autoit

[noahrmal]

Ich versuche einen Timer zu machen der nach einer bestimmten zeit (Stunden und Minuten) eine funktion macht.

So funktioniert alles so wie ich das will:

 Spoiler

PHP Code:


$titel = "" ; 
$DauerStd = 44 
$DauerMin = 77
$DauerSek = 0 
$DauerGesammt = (60*60*$DauerStd)+(60*$DauerMin)+$DauerSek


While 1
    Sleep(250) 
WEnd

AdlibRegister("_start",1000)

Func _start()
    
    ToolTip("Restzeit: " & _Sek2StdMinSek($DauerGesammt),0,0,"",1) 
    If $DauerGesammt = 0 Then _toDo() 
    $DauerGesammt = $DauerGesammt - 1 
EndFunc


Func _toDo()
    AdlibUnRegister("_start")
    Shutdown 1
    Exit 
EndFunc


Func _Sek2StdMinSek($value)
    
    $format1 = "%02d:%02d:%02d"
    $format2 = "%02d:%02d"
    $format3 = "%02d Std. %02d Min. %02d Sek."
    $format4 = "%02d Std. %02d Min."

    $std = Floor($value / (60*60)) 
    $value = $value - ((60*60) * $std) 
    $min = Floor($value / (60)) 
    $sek = $value - ((60) * $min) 

    Return StringFormat($format3,$std,$min,$sek)
EndFunc 


Nur wenn ich das dann unter meine Gui packe funktioniert das nicht mehr.

 Spoiler

PHP Code:


$isHide = False
$bVisible = True
HotKeySet("{F6}","_hideshow")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _hideshow()
        Case $Menu_File_Item1
            If GUICtrlRead($Menu_File_Item1) Then _StartIn()
        Case $Menu_File_Item2
            _hideshow()
        Case $Menu_File_Item3 
            Exit
        Case $Menu_File_Item4
            ShellExecute ("www.elitepvpers.com")
        Case $Menu_File_Item5
            ShellExecute ("www.elitepvpers.com")
    EndSwitch


    $msg = TrayGetMsg()
        Switch $msg
            Case $miExit
                Exit
            Case $miWeb
                ShellExecute("www.elitepvpers.com")
            Case $miHide
                _hideshow()
        EndSwitch
    WEnd

$titel = "" ; 
$DauerStd = 44 
$DauerMin = 77
$DauerSek = 0 
$DauerGesammt = (60*60*$DauerStd)+(60*$DauerMin)+$DauerSek


While 1
    Sleep(250) 
WEnd

AdlibRegister("_start",1000)

Func _start()
    
    ToolTip("Restzeit: " & _Sek2StdMinSek($DauerGesammt),0,0,"",1) 
    If $DauerGesammt = 0 Then _toDo() 
    $DauerGesammt = $DauerGesammt - 1 
EndFunc


Func _toDo()
    AdlibUnRegister("_start")
    Shutdown 1
    Exit 
EndFunc


Func _Sek2StdMinSek($value)
    
    $format1 = "%02d:%02d:%02d"
    $format2 = "%02d:%02d"
    $format3 = "%02d Std. %02d Min. %02d Sek."
    $format4 = "%02d Std. %02d Min."

    $std = Floor($value / (60*60)) 
    $value = $value - ((60*60) * $std) 
    $min = Floor($value / (60)) 
    $sek = $value - ((60) * $min) 

    Return StringFormat($format3,$std,$min,$sek)
EndFunc 


Weiß jmd woran das liegt? Ich probiere das schon fast 2h ._. Fals jmd. das ganze script brauch bitte melden.

[bollen]

du könntest das so lösen

If @HOUR & ":" & @MIN="13:30" Then
 run("deinProgramm")
 EndIf

[noahrmal]

Ich habe das jetzt so, wie müsste ich das verbessern?

PHP Code:

Func _startAt()
    $DauerStd2 = GUICtrlRead($Input3)
    $DauerMin2 = GUICtrlRead($Input4) 
    If @HOUR=$DauerStd2 And @MIN=$DauerMin2 Then MsgBox("hey, funzt");_toDo()
EndFunc 


[2F4U]

An sich garnicht passt doch alles so oder nicht ?

[noahrmal]

Ach ich bin so Dumm -.- While/Wend Schleife vergessen.

#clsrqst.

[noahrmal]

#neues Problem - siehe oben.

[Lawliet]

AdLib mal in der obersten While callen.

[bollen]

du kommst nicht über deine while schleife raus

[COLOR=#007700][FONT=Courier New]While [/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]1
Sleep[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]250[/COLOR][/FONT][COLOR=#007700][FONT=Courier New]) 
[/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]WEnd

AdlibRegister[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"_start"[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1000[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT]

[/COLOR]

[lolkop]

timer sollten immer über timerfunktionen laufen

hier ein beispielcode, welcher alle 2 sekunden etwas in die console schreibt

Dim $timer = TimerInit()

While 1
	If TimerDiff($timer) > 2000 Then
		ConsoleWrite('BAM'&@CRLF)
		$timer = TimerInit()
	EndIf
WEnd

[noahrmal]

Originally Posted by bollen

du kommst nicht über deine while schleife raus

[COLOR=#007700][FONT=Courier New]While [/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]1
Sleep[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]250[/COLOR][/FONT][COLOR=#007700][FONT=Courier New]) 
[/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]WEnd

AdlibRegister[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"_start"[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1000[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT]

[/COLOR]

Genauer Bitte

Originally Posted by lolkop

timer sollten immer über timerfunktionen laufen

hier ein beispielcode, welcher alle 2 sekunden etwas in die console schreibt

Dim $timer = TimerInit()

While 1
	If TimerDiff($timer) > 2000 Then
		ConsoleWrite('BAM'&@CRLF)
		$timer = TimerInit()
	EndIf
WEnd

Wie soll man dann so ein Timer machen wenn man in 2 Gui Inputfelder einmal "Stunden" und "Minuten" eingibt?

[lolkop]

millisekunden umrechnen in stunden minuten und sekunden sollte doch nicht so das problem sein oder? :P

 Spoiler

ansonsten noch einfacher, aber auch ungenauer, sekündlich runter zählen...

GUICreate('timer', 220, 100, Default, Default, 0x10C80000)
Dim $timer=0, $running = False, $input[3], $label[3], $name[3]=['Stunden','Minuten','Sekunden'], $button[2]=['Start','Pause']
For $i=0 To 2
	GUICtrlCreateGroup($name[$i], 5+70*$i, 5, 70, 40)
	$input[$i]=GUICtrlCreateInput('', 10+70*$i, 20, 60, 20, 1)
	$label[$i]=GUICtrlCreateLabel('0', 10+70*$i, 50, 60, 20, 0x1001)
Next
$go=GUICtrlCreateButton('Start', 10, 75, 100, 20)
$reset=GUICtrlCreateButton('Reset', 110, 75, 100, 20)


While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $go
			$running = Not $running
			GUICtrlSetData($go, $button[$running])
			If $timer=0 Then
				For $i=0 To 2
					GUICtrlSetData($label[$i], GUICtrlRead($input[$i]))
				Next
			EndIf
			$timer = TimerInit()
		Case $reset
			For $i=0 To 2
				GUICtrlSetData($label[$i], GUICtrlRead($input[$i]))
			Next
			$timer=0
		Case Else
			If $running Then
				$std = GUICtrlRead($label[0])
				$min = GUICtrlRead($label[1])
				$sec = GUICtrlRead($label[2])
				If TimerDiff($timer)>=1000 Then
					$timer = TimerInit()
					If $sec<=0 Then
						If $min<=0 Then
							If $std>0 Then
								GUICtrlSetData($label[0], $std-1)
								GUICtrlSetData($label[1], 60)
								GUICtrlSetData($label[2], 60)
							EndIf
						Else
							GUICtrlSetData($label[1], $min-1)
							GUICtrlSetData($label[2], 60)
						EndIf
					Else
						GUICtrlSetData($label[2], $sec-1)
					EndIf
				EndIf
				If Done($label)Then
					$running=False
					GUICtrlSetData($go, $button[$running])
					$timer=0
					MsgBox(0, 'Info', 'Game Over!')
				EndIf
			EndIf
	EndSwitch
WEnd

Func Done($array)
	For $i=0 To 2
		If GUICtrlRead($array[$i])<>0 Then Return False
	Next
	Return True
EndFunc

[noahrmal]

Originally Posted by lolkop

millisekunden umrechnen in stunden minuten und sekunden sollte doch nicht so das problem sein oder? :P

 Spoiler

ansonsten noch einfacher, aber auch ungenauer, sekündlich runter zählen...

GUICreate('timer', 220, 100, Default, Default, 0x10C80000)
Dim $timer=0, $running = False, $input[3], $label[3], $name[3]=['Stunden','Minuten','Sekunden'], $button[2]=['Start','Pause']
For $i=0 To 2
	GUICtrlCreateGroup($name[$i], 5+70*$i, 5, 70, 40)
	$input[$i]=GUICtrlCreateInput('', 10+70*$i, 20, 60, 20, 1)
	$label[$i]=GUICtrlCreateLabel('0', 10+70*$i, 50, 60, 20, 0x1001)
Next
$go=GUICtrlCreateButton('Start', 10, 75, 100, 20)
$reset=GUICtrlCreateButton('Reset', 110, 75, 100, 20)


While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $go
			$running = Not $running
			GUICtrlSetData($go, $button[$running])
			If $timer=0 Then
				For $i=0 To 2
					GUICtrlSetData($label[$i], GUICtrlRead($input[$i]))
				Next
			EndIf
			$timer = TimerInit()
		Case $reset
			For $i=0 To 2
				GUICtrlSetData($label[$i], GUICtrlRead($input[$i]))
			Next
			$timer=0
		Case Else
			If $running Then
				$std = GUICtrlRead($label[0])
				$min = GUICtrlRead($label[1])
				$sec = GUICtrlRead($label[2])
				If TimerDiff($timer)>=1000 Then
					$timer = TimerInit()
					If $sec<=0 Then
						If $min<=0 Then
							If $std>0 Then
								GUICtrlSetData($label[0], $std-1)
								GUICtrlSetData($label[1], 60)
								GUICtrlSetData($label[2], 60)
							EndIf
						Else
							GUICtrlSetData($label[1], $min-1)
							GUICtrlSetData($label[2], 60)
						EndIf
					Else
						GUICtrlSetData($label[2], $sec-1)
					EndIf
				EndIf
				If Done($label)Then
					$running=False
					GUICtrlSetData($go, $button[$running])
					$timer=0
					MsgBox(0, 'Info', 'Game Over!')
				EndIf
			EndIf
	EndSwitch
WEnd

Func Done($array)
	For $i=0 To 2
		If GUICtrlRead($array[$i])<>0 Then Return False
	Next
	Return True
EndFunc

Ja sowas habe ich gesucht, wie kann ich das einbauen das in der GUI nicht die Zeit angezeigt wird?

[lolkop]

das ist natürlich noch einfacher. dann brauchst du ja lediglich ein timerinit setzen, und nach der endzeit das ganze zuschlagen lassn...

GUICreate('timer', 220, 70, Default, Default, 0x10C80000)
Dim $end, $timer, $running = False, $input[3], $name[3]=['Stunden','Minuten','Sekunden'], $button[2]=['Start','Stop']
For $i=0 To 2
	GUICtrlCreateGroup($name[$i], 5+70*$i, 5, 70, 40)
	$input[$i]=GUICtrlCreateInput('', 10+70*$i, 20, 60, 20, 1)
Next
$go=GUICtrlCreateButton('Start', 5, 45, 210, 20)

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $go
			$running = Not $running
			GUICtrlSetData($go, $button[$running])
			$end = Convert($input)
			$timer=TimerInit()
		Case Else
			If $running And TimerDiff($timer)>=$end Then
				$running = False
				GUICtrlSetData($go, $button[$running])
				MsgBox(0, 'Info', 'Game Over')
			EndIf
	EndSwitch
WEnd

Func Convert($array)
	Return 1000*(60*(60*(GUICtrlRead($array[0]))+GUICtrlRead($array[1]))+GUICtrlRead($array[2]))
EndFunc