Timer

Hallo,

ich habe mit AutoIt einen kleinen Timer programmiert, weiß nicht ob das schon jemand gemacht hat, aber egal.
GUI mit KODA, ist glaube ich selbsterklärend.

Der Code funktioniert so:
- Ich berechne die Summe aus den eingegebenen Stunden mal 3600, den Minuten mal 60 und den Sekunden und multipliziere diese mit 1000.
- Diese Zahl bildet das Argument für Sleep( milliseconds )
- Danach kommen im 200-Millisekunden-Abstand zwei kurze Piepser, in der Statuszeile die Nachricht "Status: Timeout" und anschließend eine Message-Box mit dem Inhalt "TIME OUT!!"

Gleichzeitiges MessageBox-Öffnen und Piepen habe ich noch nicht gemacht, aber das ist ja vielleicht mal etwas.
Oder etwa nicht...

MfG
Olfibits

Hallo @alpines,

Zitat von alpines

Da du das in Skripte gepostet hast nehme ich mal an das du Feedback von uns erwartest.

Sehr richtig!
Diesmal hatte ich ausnahmsweise kein Problem, haha...

Zitat von alpines

Benenne deine Variablen besser. $Label4, $Input2 sind absolut nicht aussagekräftig.

OK. Das lag an den KODA FormDesigner Standards und ich habs der Einfachheit halber dabei gelassen.

Zitat von alpines

Ich weiß nicht ob das Forum jetzt die Formatierung deines Scriptes gefressen hat, aber locker dein Code ein wenig auf und rücke immer korrekt ein.

Hat es nicht wirklich. Inline-Code ging nicht wirklich in der Vorschau und der Code-Button mit dem </> hat mich direkt auf die Startseite geschickt...
Im SciTE funktioniert alles ohne Probleme...

Also nochmal:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("Timer", 210, 89, 192, 124)
$labelSelectTime = GUICtrlCreateLabel("Select time (format: HH:MM:SS)", 8, 8, 154, 17)
$labelDelim1 = GUICtrlCreateLabel(":", 50, 44, 7, 17)
$labelDelim2 = GUICtrlCreateLabel(":", 98, 44, 7, 17)
$buttonGo = GUICtrlCreateButton("Go", 152, 39, 43, 25)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000080)
$hh = GUICtrlCreateInput("00", 8, 40, 41, 21)
$mm = GUICtrlCreateInput("00", 56, 40, 41, 21)
$ss = GUICtrlCreateInput("00", 104, 40, 41, 21)
$statusline = GUICtrlCreateLabel("Status: Ready.", 0, 72, 210, 17)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $buttonGo
	   $statusline = GUICtrlCreateLabel("Status: Timer running.", 0, 72, 210, 17)
	   GUICtrlSetBkColor(-1, 0xC0C0C0)
	   $h = Int(GUICtrlRead($hh))
	   $m = Int(GUICtrlRead($mm))
	   $s = Int(GUICtrlRead($ss))
	   Sleep(1000*($h*3600+$m*60+$s))
	   $statusline = GUICtrlCreateLabel("Status: Timeout.", 0, 72, 210, 17)
	   GUICtrlSetBkColor(-1, 0xC0C0C0)
	   Beep(500, 200)
	   Sleep(20)
	   Beep(500, 200)
	   MsgBox(0,"Timeout","TIME OUT!")
	   $statusline = GUICtrlCreateLabel("Status: Ready.", 0, 72, 210, 17)
GUICtrlSetBkColor(-1, 0xC0C0C0)
		Case -3
			Exit


	EndSwitch
WEnd

Oder?

Das mit -3 ... meinst du Case -3 anstatt $GUI_EVENT_CLOSE? Hab das mal so übernommen.

LG
Olfibits

OK