Brauche Hilfe. Wegen Timer

[slipknoter6]

Hallo
Ich bin noch anfänger. Sowie ich mein Timer gebaut habe hängt sich das programm auf also die buttons haben dann aufeinmal keine funktion mehr. Es reagiert nicht mehr.
Ich glaube deswegen:

 Spoiler

Func StartTimer()
   While 1
	  $Zeit = $Zeit + 1
	  If $Zeit >= 1000 Then
		 $Count = $Count + 1
		 If $Zeit >= 12000 Then
			$Count = 0
			ExitLoop
		 EndIf
		 $Zeit = 0
	  EndIf
	  If $Count = 60 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 59min")
	  EndIf
	  If $Count = 120 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 58min")
	  EndIf
	  If $Count = 180 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 57min")
	  EndIf
	  If $Count = 240 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 56min")
	  EndIf
	  If $Count = 300 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 55min")
	  EndIf
	  If $Count = 360 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 54min")
	  EndIf
	  If $Count = 420 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 53min")
	  EndIf
	  If $Count = 480 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 52min")
	  EndIf
	  If $Count = 540 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 51min")
	  EndIf
	  If $Count = 600 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 50min")
	  EndIf
	  If $Count = 660 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 49min")
	  EndIf
	  If $Count = 720 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 48min")
	  EndIf
	  If $Count = 780 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 47min")
	  EndIf
	  If $Count = 840 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 46min")
	  EndIf
	  If $Count = 900 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 45min")
	  EndIf
	  If $Count = 960 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 44min")
	  EndIf
	  If $Count = 1020 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 43min")
	  EndIf
	  If $Count = 1080 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 43min")
	  EndIf
	  If $Count = 1140 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 42min")
	  EndIf
	  If $Count = 1200 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 41min")
	  EndIf
	  If $Count = 1260 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 40min")
	  EndIf
	  If $Count = 1320 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 39min")
	  EndIf
	  If $Count = 1380 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 38min")
	  EndIf
	  If $Count = 1440 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 37min")
	  EndIf
	  If $Count = 1500 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 36min")
	  EndIf
	  If $Count = 1560 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 35min")
	  EndIf
	  If $Count = 1620 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 34min")
	  EndIf
	  If $Count = 1680 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 33min")
	  EndIf
	  If $Count = 1740 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 32min")
	  EndIf
	  If $Count = 1800 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 31min")
	  EndIf
	  If $Count = 1860 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 30min")
	  EndIf
	  If $Count = 1920 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 29min")
	  EndIf
	  If $Count = 1980 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 28min")
	  EndIf
	  If $Count = 2040 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 27min")
	  EndIf
	  If $Count = 2100 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 26min")
	  EndIf
	  If $Count = 2160 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 25min")
	  EndIf
	  If $Count = 2220 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 24min")
	  EndIf
	  If $Count = 2280 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 23min")
	  EndIf
	  If $Count = 2340 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 22min")
	  EndIf
	  If $Count = 2400 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 21min")
	  EndIf
	  If $Count = 2460 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 20min")
	  EndIf
	  If $Count = 2520 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 19min")
	  EndIf
	  If $Count = 2580 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 18min")
	  EndIf
	  If $Count = 2640 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 17min")
	  EndIf
	  If $Count = 2700 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 16min")
	  EndIf
	  If $Count = 2760 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 15min")
	  EndIf
	  If $Count = 2820 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 14min")
	  EndIf
	  If $Count = 2880 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 13min")
	  EndIf
	  If $Count = 2940 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 12min")
	  EndIf
	  If $Count = 3000 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 11min")
	  EndIf
	  If $Count = 3060 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 10min")
	  EndIf
	  If $Count = 3120 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 9min")
	  EndIf
	  If $Count = 3180 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 8min")
	  EndIf
	  If $Count = 3240 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 7min")
	  EndIf
	  If $Count = 3300 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 6min")
	  EndIf
	  If $Count = 3360 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 5min")
	  EndIf
	  If $Count = 3420 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 4min")
	  EndIf
	  If $Count = 3480 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 3min")
	  EndIf
	  If $Count = 3540 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 2min")
	  EndIf
	  If $Count = 3600 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 1min")
	  EndIf
	  If $Count = 3601 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 59sec")
	  EndIf
	  If $Count = 3602 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 58sec")
	  EndIf
	  If $Count = 3603 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 57sec")
	  EndIf
	  If $Count = 3604 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 56sec")
	  EndIf
	  If $Count = 3605 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 55sec")
	  EndIf
	  If $Count = 3606 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 54sec")
	  EndIf
	  If $Count = 3607 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 53sec")
	  EndIf
	  If $Count = 3608 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 52sec")
	  EndIf
	  If $Count = 3609 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 51sec")
	  EndIf
	  If $Count = 3610 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 50sec")
	  EndIf
	  If $Count = 3611 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 49sec")
	  EndIf
	  If $Count = 3612 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 48sec")
	  EndIf
	  If $Count = 3613 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 47sec")
	  EndIf
	  If $Count = 3614 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 46sec")
	  EndIf
	  If $Count = 3615 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 45sec")
	  EndIf
	  If $Count = 3616 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 44sec")
	  EndIf
	  If $Count = 3617 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 43sec")
	  EndIf
	  If $Count = 3618 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 42sec")
	  EndIf
	  If $Count = 3619 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 41sec")
	  EndIf
	  If $Count = 3620 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 40sec")
	  EndIf
	  If $Count = 3621 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 39sec")
	  EndIf
	  If $Count = 3622 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 38sec")
	  EndIf
	  If $Count = 3623 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 37sec")
	  EndIf
	  If $Count = 3624 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 36sec")
	  EndIf
	  If $Count = 3625 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 35sec")
	  EndIf
	  If $Count = 3626 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 34sec")
	  EndIf
	  If $Count = 3627 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 33sec")
	  EndIf
	  If $Count = 3628 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 32sec")
	  EndIf
	  If $Count = 3629 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 31sec")
	  EndIf
	  If $Count = 3630 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 30sec")
	  EndIf
	  If $Count = 3631 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 29sec")
	  EndIf
	  If $Count = 3632 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 28sec")
	  EndIf
	  If $Count = 3633 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 27sec")
	  EndIf
	  If $Count = 3634 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 26sec")
	  EndIf
	  If $Count = 3635 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 25sec")
	  EndIf
	  If $Count = 3636 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 24sec")
	  EndIf
	  If $Count = 3637 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 23sec")
	  EndIf
	  If $Count = 3638 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 22sec")
	  EndIf
	  If $Count = 3639 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 21sec")
	  EndIf
	  If $Count = 3640 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 20sec")
	  EndIf
	  If $Count = 3641 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 19sec")
	  EndIf
	  If $Count = 3642 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 18sec")
	  EndIf
	  If $Count = 3643 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 17sec")
	  EndIf
	  If $Count = 3644 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 16sec")
	  EndIf
	  If $Count = 3645 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 15sec")
	  EndIf
	  If $Count = 3646 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 14sec")
	  EndIf
	  If $Count = 3647 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 13sec")
	  EndIf
	  If $Count = 3648 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 12sec")
	  EndIf
	  If $Count = 3649 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 11sec")
	  EndIf
	  If $Count = 3650 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 10sec")
	  EndIf
	  If $Count = 3651 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 9sec")
	  EndIf
	  If $Count = 3652 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 8sec")
	  EndIf
	  If $Count = 3653 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 7sec")
	  EndIf
	  If $Count = 3654 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 6sec")
	  EndIf
	  If $Count = 3655 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 5sec")
	  EndIf
	  If $Count = 3656 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 4sec")
	  EndIf
	  If $Count = 3657 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 3sec")
	  EndIf
	  If $Count = 3658 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 2sec")
	  EndIf
	  If $Count = 3659 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: 1sec")
	  EndIf
	  If $Count >= 3660 Then
		 GUICtrlSetData ($Label1, "Restart from Bot in: Restart")
		 StartPokemon()
		 ExitLoop
	  EndIf
   WEnd
EndFunc

Kann man das anders lösen?


mfg

Slipknoter6

[Mikesch01]

Verwendete Sprache?

"If $Count = 60 Then" -> das schaut suspekt aus, da eine Prüfung normalerweise mit zwei Gleichzeichen stattfindet, z.B "If $Count == 60 Then". Aber da ich die Sprache nicht erkennen kann, ist das nur eine Vermutung.

[alpines]

Originally Posted by Mikesch01

Verwendete Sprache?

AutoIt, siehst du das nicht?

Deine Timer-Implementation ist schlecht, die verfängt sich in der While-Schleife und rast durch weil du nirgendwo eine Sekunde sleepst.

Deine If-Verzweigungen solltest du dringend überarbeiten, das ist sehr sehr schlecht implementiert.

Wenn du eine While-Schleife unbedingt haben willst musst du dort auch die GUI-Messages abfangen bzw. verarbeiten, ansonten musst du GUIOnEventMode nehmen.

[YatoDev]

Originally Posted by alpines

Deine Timer-Implementation ist schlecht, die verfängt sich in der While-Schleife und rast durch weil du nirgendwo eine Sekunde sleepst.

Deine If-Verzweigungen solltest du dringend überarbeiten, das ist sehr sehr schlecht implementiert.

TimerInit und TimerDiff benutzen

Rest zeit zb. 60 - TimerDiff($timer) / 60000 anstatt 1000000 if abfragen

[Devsome]

#moved…

[Universes]

Func _Sleep($time)
	$tstart = TimerInit()
	While TimerDiff($tstart) < $time
	Wend
Endfunc

Vllt hilft dir das weiter

[FacePalmMan]

Global $hTimer = False ;Put these 2 lines directly after the includes and TCP/GDIp-Startup calls, and before anything else!
AdlibRegister("Timer_Adlib", 1000)


Func TimerStart() ;Put the 2 funcs in the very bottom of your script.
	$hTimer = TimerInit()
EndFunc

Func Timer_Adlib()
	If $hTimer = False Then Return False
	GUICtrlSetData($Label1, "Restart from Bot in: " & (60 - (TimerDiff($hTimer) / 60000) & "min & " & Mod(TimerDiff($hTimer) / 1000, 60) & "sec")
	If TimerDiff($hTimer) >= 360000 Then
		GUICtrlSetData($Label1, "Restart from Bot in: Restart")
		StartPokemon()
		$hTimer = False
	EndIf
EndFunc

Theoretisch sollte es funktionieren. Hatte keine Zeit es auszuprobieren (Anspielung auf den 60-Min-Timer), aber sollte eigentlich funktionieren.