Global $Alarm
Global $Alarmset
Global $Alarmhour
Global $Alarmset
Global $Quit
Global $time
Global $GUI_CHECKED



Local $sFont = "Consolas"

GUICreate("Alarm clock", 800, 600)
GUISetState(@SW_SHOW)

;-------------------Exit-------------------

$Quit = GUICtrlCreateButton("Exit", 740, 0, 60, 20)

;-------------------Time--------------------

GUICtrlCreateLabel ("Actual time:", 570,5,80,15)
GUISetFont(9, 400, 0, $sFont)
GUISetFont (15)
$time = GUICtrlCreateLabel ("", 640,0,80,20)

Timeshowfrequency ()

Func Timeshowfrequency ()
AdlibRegister("Timeshowfrequency")
GUICtrlSetData ($time,""& @HOUR &":"& @MIN &":"& @SEC &"")
EndFunc

;-------------------Alarm--------------------

GUISetFont(8.5,400,0)
$Alarmhour = GUICtrlCreateInput("0", 120, 30, 40, 20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 23)
GUICtrlSetState(1, $GUI_CHECKED)
$Alarmminutes = GUICtrlCreateInput("0", 200, 30, 40, 20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 60)
$Alarm = GUICtrlCreateCheckbox("Alarm off", 10, 30, 110, 20)
GUICtrlSetState(1, $GUI_CHECKED)
GUICtrlSetBkColor($Alarm, 0xCCCCCC)
GUICtrlCreateLabel("hours", 170, 34, 30, 20)
GUICtrlCreateLabel("minutes", 250, 34, 40, 20)



While 1

Switch GUIGetMsg()

Case $Alarm
If $Alarmset = 0 Then
$Alarmset = 1
GUICtrlSetBkColor($Alarm, 0x00FF00)
GUICtrlSetData ($Alarm,"Alarm set on " & $Alarmhour &":" & $Alarmminutes & "")
Else
$Alarmset = 0
GUICtrlSetBkColor($Alarm, 0xCCCCCC)
GUICtrlSetData ($Alarm,"Alarm off")
EndIf

If $Alarmset = 1 And @HOUR = $Alarmhour And @MIN = $Alarmminutes Then
MsgBox(0, "Works", "Works")
EndIf


Case $Quit
Exit


EndSwitch
WEnd