Reminder v1

[AlmarM]

I saw the Mario Screen Mate Project and I was interested in the "Remind me" func so I made a reminder

expandcollapse popup

#include <GUIConstants.au3>
#include <Sound.au3>
Global $act

$GUI = GUICreate("Reminder v1", 200, 180, -1, -1)
$Info = GUICtrlCreateLabel("If u dont want to forget something, u" & @CRLF & "can use this program to warn u at a" & @CRLF & "giving time.", 10, 10)
$h_info = GUICtrlCreateLabel("Hour:", 10, 60)
$h_Input = GUICtrlCreateInput(@Hour, 45, 57)
$m_info = GUICtrlCreateLabel("Min:", 100, 60)
$m_Input = GUICtrlCreateInput(@Min, 125, 56, 33)
$What_info = GUICtrlCreateLabel("What sould be remembered?", 10, 90)
$What_Input = GUICtrlCreateInput("", 10, 110, 180)
$Go = GUICtrlCreateButton("Go!", 10, 140, 180, 30)
$remind = False

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $Go
                $h = GUICtrlRead($h_Input)
                $m = GUICtrlRead($m_Input)
                $remind = true
    EndSelect
    
    If $remind then 
        If (@HOUR >= $h) Then
            If (@MIN >= $m) Then
                _Remind()
                $remind = false
            EndIf
        EndIf
    EndIf
WEnd

Func _Remind()
    _SoundPlay(@ScriptDir & "\Song.mp3")
    $Warn_GUI = GUICreate("REMIND", 400, 100, -1, -1)
    $Remind_Label = GUICtrlCreateLabel("Reminding u:", 10, 10)
    $Reming_What = GUICtrlCreateLabel(GUICtrlRead($What_Input), 10, 30)
    $GotIt = GUICtrlCreateButton("Got It!", 10, 65, 380)
    GUISetState()
   
    Do
        $nMsg2 = GUIGetMsg()
    Until ($nMsg2 = $GUI_EVENT_CLOSE) Or ($nMsg2 = $GotIt)
    _SoundStop(@ScriptDir & "\Song.mp3")
    GUIDelete($Warn_GUI)
EndFunc

Hope its usefull

PS

Ill upload the song.mp3 later

Edited February 9, 2008 by AlmarM

[gseller]

Good idea, doesn't work for me tho... No matter what time I put in it alarms when I hit GO.

[AlmarM]

Im going to edit the last bugs