timer.ahk

; Generated by AutoGUI 2.6.2
#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SetBatchLines -1

Gui Add, Progress, x10 y20 w200 h50 cbFF0000 vBut, 100
Gui Add, Button, w200 gBut1, 1 min
Gui Add, Button, w200 gBut5, 5 min
Gui Add, Button, w200 gBut10, 10 min
Gui Add, Button, w200 gBut20, 20 min
Gui Add, Button, w200 gBut25, 25 min
Gui Add, Button, w200 gBut30, 30 min
Gui Add, Button, w200 gBut50, 50 min
Gui Add, Button, w200 gBut60, 1 hour
Gui Add, Text, w200 vLabel1
Gui Show, w220 h420, Window
SoundBeep, 2000, 20
SoundBeep, 3000, 20
Return

But1:
	timer(60)
Return

But5:
	timer(5*60)
Return

But10:
	timer(10*60)
Return

But20:
	timer(20*60)
Return

But25:
	timer(25*60)
Return

But30:
	timer(30*60)
Return

But50:
	timer(50*60)
Return

But60:
	timer(60*60)
Return

beepIt(){
	SoundBeep, 3000, 100
	Sleep, 500
	SoundBeep, 2990, 100
	Sleep, 500
	SoundBeep, 3000, 100
	Sleep, 500
	SoundBeep, 2950, 100
	Sleep, 500
	SoundBeep, 3000, 1000
}

timer(sec){
	step := sec/100
	GuiControl, , But, 0
	Loop, 100 {
		Sleep, sec*10
		GuiControl, , But, +1
		GuiControlGet, But
		GuiControl, , Label1, %But%
	}
	beepIt()
	MsgBox, TimeOut
}

GuiEscape:
GuiClose:
    ExitApp