Ton im Wecker einbauen ?

[Hackerfreak1]

Moin Moin e*PvP

Ich bin ja dabei einen Wecker zu Scripten ,
und nach unzähligen versuchen , habe ich endlich etwas zu stande gebracht
Auch wen mit etwas hilfe ...

Also

Hier der Source Code

PHP Code:

MsgBox(1,"Alpha Phase","Der Wecker ist noch in der Testphase ! Es könnte also zu Problemen kommen ! Danke ")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Wecker = GUICreate("Wecker Version 1.0", 376, 222, 192, 124)
$Label1 = GUICtrlCreateLabel("Hier bitte die Zeit eingeben ", 0, 16, 134, 17)
$Label2 = GUICtrlCreateLabel("Weckzeit", 8, 40, 85, 30)
GUICtrlSetFont(-1, 15, 400, 0, "@Arial Unicode MS")
GUICtrlSetColor(-1, 0xFF0000)
$Stunden = GUICtrlCreateInput("", 96, 40, 73, 21)
$Minuten = GUICtrlCreateInput("", 184, 40, 81, 21)
$Label3 = GUICtrlCreateLabel(":", 176, 40, 7, 17)
$Button1 = GUICtrlCreateButton("Wecker Starten", 0, 168, 91, 49)
$Button2 = GUICtrlCreateButton("Wecker Aus", 96, 168, 91, 49)
$Button3 = GUICtrlCreateButton("Credits", 192, 168, 91, 49)
$Label4 = GUICtrlCreateLabel("Erinnerung", 0, 80, 55, 17)
$Erinerung = GUICtrlCreateInput("", 56, 80, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Start()
        Case $Button2
            _Stop()
        Case $Button3
            _Credits()

    EndSwitch
WEnd

Func _Stop()
    Exit 0
EndFunc

Func _Credits()
    MsgBox(1,"Credits","Made By Hackerfreack1")
EndFunc

Func _Start()
    While 1
        WinSetState($Wecker,"",2)

    If  @HOUR = GUICtrlRead($Stunden) And @MIN = GUICtrlRead($Minuten) Then
        $msg = MsgBox(1, "ACHTUNG", GUICtrlRead($Erinerung))
    EndIf
    If $msg = 1 Then ExitLoop
    WEnd
EndFunc 


Und hier die Frage:

Wie schafe ich es , das wen die "Weckzeit" ist , das er dan einen Ton macht.?
Und das man sich dan etwas auswählen kann
mit einem Pfad zu einem Lied z.B.
das man aber den Pfad sehen kann

Hoffe ihr habt meine Frage verstanden [ konnte sie gerade net sooo gut Formulieren <.< ]
und hoffe auf eine Meeeenge Antworten , und hoffentlich auch die Richtige

Mfg Hackerfreack1

[BlackHybrid]

Versuchs mal mit _SoundPlay und FileOpenDialog

[Hackerfreak1]

Okay

[omer36]

hier ein bsp, wie du es machen kannst... :

PHP Code:

MsgBox(1,"Alpha Phase","Der Wecker ist noch in der Testphase ! Es könnte also zu Problemen kommen ! Danke ")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Wecker = GUICreate("Wecker Version 1.0", 385, 222, 192, 124)
$Label1 = GUICtrlCreateLabel("Hier bitte die Zeit eingeben ", 0, 16, 134, 17)
$Label2 = GUICtrlCreateLabel("Weckzeit", 8, 40, 85, 30)
GUICtrlSetFont(-1, 15, 400, 0, "@Arial Unicode MS")
GUICtrlSetColor(-1, 0xFF0000)
$Stunden = GUICtrlCreateInput("", 96, 40, 73, 21)
$Minuten = GUICtrlCreateInput("", 184, 40, 81, 21)
$Label3 = GUICtrlCreateLabel(":", 176, 40, 7, 17)
$Button1 = GUICtrlCreateButton("Wecker Starten", 0, 168, 91, 49)
$Button2 = GUICtrlCreateButton("Wecker Aus", 96, 168, 91, 49)
$Button3 = GUICtrlCreateButton("Credits", 192, 168, 91, 49)
$tonbutton = GUICtrlCreateButton("Ton auswählen", 288, 168, 91, 49)
$Label4 = GUICtrlCreateLabel("Erinnerung", 0, 80, 55, 17)
$Erinerung = GUICtrlCreateInput("", 56, 80, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Start()
        Case $Button2
            _Stop()
        Case $Button3
            _Credits()
        Case $tonbutton
            $sound = FileOpenDialog("Bitte eine .mp3 datei auswählen", @MyDocumentsDir, "(*.mp3)", 1)
    EndSwitch
WEnd

Func _Stop()
    Exit 0
EndFunc

Func _Credits()
    MsgBox(1,"Credits","Made By Hackerfreack1")
EndFunc

Func _Start()
    Local $msg
    While 1
        WinSetState($Wecker,"",2)

    If  @HOUR = GUICtrlRead($Stunden) And @MIN = GUICtrlRead($Minuten) Then
        SoundPlay($sound)
        $msg = MsgBox(1, "ACHTUNG", GUICtrlRead($Erinerung))
    EndIf
    If $msg = 1 Then ExitLoop
    WEnd
EndFunc