Ton im Wecker einbauen ?

03/30/2011 20:03 Hackerfreak1#1
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
03/30/2011 20:13 BlackHybrid#2
Versuchs mal mit _SoundPlay und FileOpenDialog
03/30/2011 22:58 Hackerfreak1#3
Okay
03/30/2011 23:21 omer36#4
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