my first script

[bird42 1]

hi to all,

this is my first script...

CODE

#include <Date.au3>

#include <GuiConstants.au3>

#include <Constants.au3>

#include<sound.au3>

#NoTrayIcon

FileInstall("C:\aero_busy.ani",@scriptdir&"\alarmico.ani")

$gui = GuiCreate("Alarm", 200,160, -1, -1)

$font="Arial"

GUISetFont(9, 400, 0, $font)

$timelabel = GuiCtrlCreatelabel("Time : " & _NowTime(), 20, 20, 150, 20)

$datelabel = GuiCtrlCreatelabel("Date : " & _NowDate(), 20, 40, 150, 20)

GUICtrlCreateGroup("Clock ", 10, 5, 160, 55)

GUICtrlCreateGroup("Alarm ", 10, 60, 180, 75)

$1=GUICtrlCreateInput("hour",20,75,40,20,$ES_NUMBER)

GuiCtrlCreatelabel(".", 67, 80,5, 20)

$2=GUICtrlCreateInput("min",75,75,40,20,$ES_NUMBER)

$3=GUICtrlCreateInput("message here",20,105,150,20)

GuiCtrlCreatelabel("Activate :", 20,140,60,20)

$c=GUICtrlCreateCheckbox("",80,140,20,20)

GUICtrlCreateIcon(@ScriptDir & "\alarmico.ani",-1,150,20,32,32)

GuiSetState(@SW_SHOW)

Opt("TrayOnEventMode",1)

Opt("TrayMenuMode",1)

Opt("GUIOnEventMode", 1)

GUISetOnEvent($GUI_EVENT_CLOSE, "ExitScript")

GUISetOnEvent($GUI_EVENT_MINIMIZE, "_MinTray")

$aboutitem = TrayCreateItem("About")

TrayItemSetOnEvent(-1,"aboutmsg")

$restoreitem = TrayCreateItem("Restore")

TrayItemSetOnEvent(-1,"RestoreTray")

TrayCreateItem("")

$exititem = TrayCreateItem("Exit")

TrayItemSetOnEvent(-1,"ExitScript")

TraySetState(2)

While 1

$m=GUIGetMsg()

$a=GUICtrlRead($1)

$b=GUICtrlRead($2)

$mex=GUICtrlRead($3)

sleep(1000)

GuiCtrlSetData($timelabel, "Time : " & _NowTime())

if GUICtrlRead($c)=1 Then

if $a =@HOUR And $b =@MIN Then

Beep(500,100)

SoundPlay("c:\track.wav")

MsgBox(0,"Alarm",$mex)

Exit

Else

EndIf

Else

EndIf

WEnd

Func aboutmsg()

MsgBox(0,"About","############")

EndFunc

Func _MinTray()

GuiSetState(@SW_HIDE)

TraySetState(1)

EndFunc

Func RestoreTray()

GuiSetState(@SW_SHOW)

GuiSetState(@SW_RESTORE)

TraySetState(2)

EndFunc

Func ExitScript()

Exit

EndFunc

Edited June 14, 2008 by zentral

[d4rk 0]

Nice first step ...

[gseller 1]

Nice first script... Keep up the good work...

[bird42 1]

Thanks !