Musik

#include <SliderConstants.au3>
#Include <File.au3>
#include <GUIConstants.au3>
#include <Sound.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#NoTrayIcon
$last = "Last.txt"

AdlibRegister( "CheckMouse" )

Global $File
$Form1_1 = GUICreate("Musik Player v0.3 BETA", 257, 309, 224, 183)
$Label1 = GUICtrlCreateLabel("Datei Öffnen:", 16, 16, 67, 17)
$Button1 = GUICtrlCreateButton("...", 88, 16, 33, 17, 0)
$Button2 = GUICtrlCreateButton("Abspielen", 8, 200, 105, 41, 0)
$Button3 = GUICtrlCreateButton("Pausieren", 112, 200, 105, 41, 0)
$Button4 = GUICtrlCreateButton("Beenden", 112, 240, 105, 41, 0)
$Button5 = GUICtrlCreateButton("Fortsetzen", 8, 240, 105, 41, 0)
$Checkbox1 = GUICtrlCreateCheckbox("Widerholen", 16, 72, 97, 17)
$Slider1 = GUICtrlCreateSlider(16, 120, 113, 41)
$Menu = GUICtrlCreateMenu("Langeweile")
$Menu1E = GUICtrlCreateMenuItem("Zahlenraten", $Menu)

GUISetState(@SW_SHOW)
FileOpen( ""& $Last )
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

    Case $GUI_EVENT_CLOSE
            Exit
    Case $Button1
        $File = FileOpenDialog( "Musik Datei Wählen", @ScriptDir & "\", "Musik (*.mp3;*.mp4;*.avi*)", 1 + 2)
        if $File = True Then
            $M1 = MsgBox(0x1, "OK", "Du kannst nun das Lied Abspielen !")
        Else
            $M2 = MsgBox( 0x1, "Error", @error &"Sry du hast irgendetwas falsch gemacht")
        ExitLoop
        Endif
    Case $Button2
        _SoundOpen( $File )
        _SoundPlay( $File )
        _SoundClose( $File )
    Case $Button3
        _SoundPause ( $File )

    Case $Button4
        Exit

    Case $Button5
        _SoundResume( $File )

    Case $Checkbox1
        If $Checkbox1 = True Then
            While 1
                Sleep( 2000 )
                _SoundOpen( $File )
                _SoundPlay( $File )
                _SoundClose( $File )

            If $GUI_EVENT_CLOSE = True Then ExitLoop
            WEnd
        EndIf
    Case $Slider1
        SoundSetWaveVolume(GuiCtrlRead($Slider1))
    Case $Menu1E
        If $Menu1E = True Then Game1()
        ;#############################################################
EndSwitch
WEnd

;#######################################################################
Func Game1()

    MsgBox(0, "Die zahl liegt zwischen...!", "Die Zahl liegt zwischen 1und 10" ) ;<-- hinweis zwischen welchen zahlen die zahl liegt
    $9 = Random(1,10,1)
    while 1
        $1 = InputBox( "Zahelnraten", "Bitte geben sie eine Zahl ein!" )
        If $1 < $9 Then MsgBox(0,"Die Zahl ist leider Größer", "Die Zahl ist leider größer" )
        If $1 > $9 Then MsgBox(0, "Leider", "Leider ist die Zahl Tiefer" )
        If $1 = $9 Then ExitLoop
    WEnd
    MsgBox(0, "Richtig!", "Richtig!" )

EndFunc

;##########################################################################
Func CheckMouse()
$mouseout=0
$aMpos = MouseGetPos()
    $aWpos = WinGetPos("Musik Player v0.3 BETA")
    If $aMpos[0] > $aWpos[0] And $aMpos[0] < $aWpos[0] + $aWpos[2] And $aMpos[1] > $aWpos[1] And $aMpos[1] < $aWpos[1] + $aWpos[3] Then
        If $mouseout = 1 Then
            For $i=30 to 255 Step 30
                WinSetTrans("Musik Player v0.3 BETA", "", $i)
                sleep(50)
            Next
            WinSetTrans("Musik Player v0.3 BETA", "", 255)
            $mouseout=0
        EndIf
    Else
        If $mouseout=0 Then
            For $i=255 to 30 Step -30
                WinSetTrans("Musik Player v0.3 BETA", "", $i)
                sleep(50)
            Next
            $mouseout=1
        EndIf
    EndIf
EndFunc
;##############################################################################################