DarkMusikPlay UPDATE

    N kleines script von mir, (ja ich weiß, ihr denkt jetzt "toll eh n 2 minuten script, das kann ich auch" kann sein, das ihr das auch könnt, aber für mich war das eben n haufen arbeit ^^)
    Gerade in der version 0.5BETA (UPDATED 10.8.2010 um 13:26 ohne bass.dll)
    Ein Musik Player, mit folgenden funktionen:

    • Musik Datei auswählen
    • Musik Abspielen
    • Musik Pausieren
    • Pausierte Musik wieder abspielen (Fortsetzen)
    • Hintergrund Anpassend
    • Langeweile Game
    • Mini-Mode
    • Uhrzeit Anzeigen


    Bugs:
    Lautstärke regler(dank autobert :))
    Blinkendes Gui
    ___________________________________________
    ToDo

    • Visualisieren
    • Lautsärke regler
    • Laufzeit/Zur einer bestimmten stelle springen
    • Musik History
    • Hintergrund Anpassend

    ____________________________________________

    • Bugs:
    • Uhr setzt alles aus der kraft

    Script:

    Spoiler anzeigen
    [autoit]


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

    [/autoit] [autoit][/autoit] [autoit]

    AdlibRegister("CheckMouse")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Global $File
    $Form1_1 = GUICreate("Musik Player v0.5 BETA", 257, 332, 224, 183, $WS_EX_TRANSPARENT, $DS_SETFOREGROUND)
    $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)
    $Menu3 = GUICtrlCreateMenu("Mini-Mode")
    $Menu = GUICtrlCreateMenu("Langeweile")
    $Menu1E = GUICtrlCreateMenuItem("Zahlenraten", $Menu)
    $Menu2 = GUICtrlCreateMenu("Verschiedenes")
    $Menu2E = GUICtrlCreateMenuItem("Morse", $Menu2)
    $Menu3E= GUICtrlCreateMenuItem("Starten", $Menu3)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    FileOpen( ""& $Last )

    [/autoit] [autoit][/autoit] [autoit]

    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")
    Endif
    Case $Button2
    If $Button1 = False Then
    $File = FileOpenDialog( "Musik Datei Wählen", @ScriptDir & "\", "Musik (*.mp3;*.mp4;*.avi*)", 1 + 2)
    EndIf
    _ClipBoard_RegisterFormat("History.txt")
    _SoundOpen( $File )
    ClipPut ( ""& GuiCtrlRead($File))
    _SoundPlay( $File )
    _SoundClose( $File )
    MsgBox(0,"",""& ClipGet())
    Case $Button3
    _SoundPause ( $File )

    [/autoit] [autoit][/autoit] [autoit]

    Case $Button4
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    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()
    EndIf
    Case $Menu2E
    If $Menu2E = True Then
    Morse()
    EndIf
    Case $Menu3E
    AdlibUnRegister("CheckMouse")
    Start_End()

    ;#############################################################
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func CheckMouse()
    Local Static $mouseout=0
    $aMpos = MouseGetPos()
    $aWpos = WinGetPos("Musik Player v0.5 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.5 BETA", "", $i)
    sleep(50)
    Next
    WinSetTrans("Musik Player v0.5 BETA", "", 255)
    $mouseout=0
    EndIf
    Else
    If $mouseout=0 Then
    For $i=255 to 30 Step -30
    WinSetTrans("Musik Player v0.5 BETA", "", $i)
    sleep(50)
    Next
    $mouseout=1
    EndIf
    EndIf
    EndFunc
    ;#######################################################################
    Func Game1()
    $9 = Random(1,10,1)
    $Form1 = GUICreate("Bitte wählen sie...!", 263, 141, 258, 143)
    $Label11 = GUICtrlCreateLabel("Bitte wählen sie einen schwierigkeitsgrad!", 56, 8, 200, 17)
    $Buttona = GUICtrlCreateButton("Leicht(von 1 bis 9)", 48, 32, 129, 17, 0)
    $Buttonb = GUICtrlCreateButton("Normal(von 1 Bis 50)", 48, 64, 129, 17, 0)
    $Buttonc = GUICtrlCreateButton("Schwer(von 1 bis 100)", 48, 96, 129, 17, 0)
    GUISetState(@SW_SHOW)
    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $Buttona
    MsgBox(0, "Die zahl liegt zwischen...!", "Die Zahl liegt zwischen 1und 10" )
    $1 = InputBox( "Zahlenraten", "Bitte geben sie eine Zahl ein!" )
    If $1 < $9 Then MsgBox(0, "Größer ", "Die Zahl ist größer" )
    If $1 > $9 Then MsgBox(0, "Kleiner", "Die Zahl ist Tiefer" )
    If $1 = $9 Then ExitLoop

    Case $GUI_EVENT_CLOSE
    ExitLoop

    EndSwitch
    WEnd
    If $1 = $9 Then MsgBox(0, "Richtig!", "Richtig!" )
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ;##########################################################################

    [/autoit] [autoit][/autoit] [autoit]

    ;##############################################################################################
    Func Morse()
    $Sfreg = 100
    $freq = 100
    $efreg = 800
    For $freg = $sfreg To $efreg
    _WinAPI_Beep($freq, 100)
    If $Button4 = True Then
    ExitLoop
    EndIf

    Next
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Start_End()
    #NoTrayIcon
    GUIDelete()
    AdlibRegister("CheckMouse2")
    $Form2 = GUICreate("Mini-Mode Musik", 222, 120, 252, 147)
    $Buttond = GUICtrlCreateButton("Abspielen", 8, 16, 105, 17, 0)
    $Buttone = GUICtrlCreateButton("Pause", 8, 32, 105, 17, 0)
    $Buttonf = GUICtrlCreateButton("Fortsetzen", 112, 32, 105, 17, 0)
    $Buttong = GUICtrlCreateButton("Beenden", 112, 16, 105, 17, 0)
    $Menu5 = GUICtrlCreateMenu("Datei Öffnen")
    $Menu5E = GUICtrlCreateMenuItem("Datei Öffnen", $Menu5)
    $Menu4 = GUICtrlCreateMenu("Mini-Mode")
    $Menu4E = GUICtrlCreateMenuItem("Uhr Anzeigen", $Menu4)
    $Menu4EEE = GUICtrlCreatemenuItem("UhrBeenden", $Menu4)
    $Menu4EE = GUICtrlCreateMenuItem("Mini-Mode Beenden", $Menu4)
    $Slider2 = GUICtrlCreateSlider(24, 64, 150, 21)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Buttond
    _SoundOpen( $File )
    _SoundPlay( $File )
    _SoundClose( $File )
    Case $Buttone
    _SoundPause( $File )
    Case $Buttonf
    _SoundResume( $File )
    Case $Buttong
    Exit
    Case $Menu4E
    $message = ""
    SplashTextOn("Uhrzeit", $message, 222, 120, 32, "", 18)
    While 1
    $message = _NowTime()
    ControlSetText("Uhrzeit", "", "Static1", $message)
    sleep(100)
    WEnd
    Case $Menu4EE
    Normal_Mode()
    Case $Menu4EEE
    SplashOff()
    SplashOff()
    If $Menu4EEE = True Then ExitLoop
    If $GUI_EVENT_CLOSE = True Then Exit
    Case $Menu5E
    $File = FileOpenDialog( "Musik Datei Wählen", @ScriptDir & "\", "Musik (*.mp3;*.mp4;*.avi*)", 1 + 2)
    Case $Slider2
    SoundSetWaveVolume(GuiCtrlRead($Slider2))
    EndSwitch
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func CheckMouse2()
    Local Static $mouseout=0
    $aMpos = MouseGetPos()
    $aWpos = WinGetPos("Mini-Mode Musik")
    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("Mini-Mode Musik", "", $i)
    sleep(50)
    Next
    WinSetTrans("Mini-Mode Musik", "", 255)
    $mouseout=0
    EndIf
    Else
    If $mouseout=0 Then
    For $i=255 to 30 Step -30
    WinSetTrans("Mini-Mode Musik", "", $i)
    sleep(50)
    Next
    $mouseout=1
    EndIf
    EndIf
    EndFunc
    Func Normal_Mode()
    GUIDelete()
    AdlibUnRegister("CheckMouse2")
    AdlibRegister("CheckMouse")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Global $File
    $Form1_1 = GUICreate("Musik Player v0.5 BETA", 257, 332, 224, 183, $WS_EX_TRANSPARENT, $DS_SETFOREGROUND)
    $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)
    $Menu3 = GUICtrlCreateMenu("Mini-Mode")
    $Menu = GUICtrlCreateMenu("Langeweile")
    $Menu1E = GUICtrlCreateMenuItem("Zahlenraten", $Menu)
    $Menu2 = GUICtrlCreateMenu("Verschiedenes")
    $Menu2E = GUICtrlCreateMenuItem("Morse", $Menu2)
    $Menu3E= GUICtrlCreateMenuItem("Starten", $Menu3)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    FileOpen( ""& $Last )

    [/autoit] [autoit][/autoit] [autoit]

    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")
    Endif
    Case $Button2
    If $Button1 = False Then
    $File = FileOpenDialog( "Musik Datei Wählen", @ScriptDir & "\", "Musik (*.mp3;*.mp4;*.avi*)", 1 + 2)
    EndIf
    _SoundOpen( $File )
    _SoundPlay( $File )
    _SoundClose( $File )
    Case $Button3
    _SoundPause ( $File )

    [/autoit] [autoit][/autoit] [autoit]

    Case $Button4
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    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()
    EndIf
    Case $Menu2E
    If $Menu2E = True Then
    Morse()
    EndIf
    Case $Menu3E
    AdlibUnRegister("CheckMouse")
    Start_End()

    ;#############################################################
    EndSwitch
    WEnd
    EndFunc

    [/autoit]


    Feedback ausdrücklich erwünscht
    (Lösungen für die ToDo liste (und BUGS)könnte ich auch gebrauchen)

    Die visualisierung soll dann einfach it den standart zeichen sein: ein pfeil fürs abspielen, ein rechteck für stopp uswusf

    kannst mir die lösung bitte per pn senden ? sonst wird sprenger noch eifersüchtig :D:D :rofl:

    alizame, wenns mir nicht gefällt, mach ich selbst nochdas einzelne ^^ schick mir einfach mal ein beispiel per PN, und wenns mir nicht gefällt,bau ich es kurz um,und du kriegst ein THX eintrag im ersten post :)

    Zitat von darksider3

    Bugs:
    bestimmt welche, aber ich hab noch keine gefunden


    Dann hast du in "deinem" Skript ja nicht einmal alle Funktionen getestet, denn der Slider für die Lautstärke macht es nur ganz leise, auch kein Wunder da du ja das

    [autoit]

    GuiCtrlRead

    [/autoit]

    vergessen hast.
    Auch dass man immer nur 1 Lied abspielen kann ist sehr bescheiden,

    mfg (Auto)Bert

    Doch natürlich hab ich die Einzelnen Funktionen getestet AutoBert, nur eben auf meinem Laptop, weil nur darauf der SoundChip Funktioniert.
    Mir fielen grade nur nicht die bugs ein. Wenn du eine Lösung zu diesem Problem hast, bitte schreib sie mir via PN :)
    Und was soll das heißen

    Zitat

    "deinem"

    Das habe ICH selbst geschrieben, falls du es mir nicht glaubst, dann kuck doch einfach mal: Wenn ich es iwo geklaut hätte, wären dann da so dumme bugs drin ( ja ich weiß, ich hab GuiCtrlRead vergessen, aber ich weiß eben nicht(noch nicht) wie man das im Script benutzt.

    LOL...ich hab nur ka WIE man das benutzt, wenn mir das nur mal jmd sagen würde, dann würd ichs auch verstehen ... und sowas wie grundlagen sind eher nur msgbox label und die gui dinger, aber es wird niwo beschrieben wie man das benuttz ^^

    Zitat von darksider3

    ja ich weiß, ich hab GuiCtrlRead vergessen, aber ich weiß eben nicht(noch nicht) wie man das im Script benutzt

    [autoit]

    SoundSetWaveVolume(GuiCtrlRead($Slider1))

    [/autoit]


    Hier kannst du dir die Hilfe herunterladen.

    Zitat von darksider3

    Das habe ICH selbst geschrieben,


    Ich habe deinen Hilfeschrei in der SB heute 12:56 gesehen, daher. Aber du hast recht

    Zitat von darksider3

    Wenn ich es iwo geklaut hätte, wären dann da so dumme bugs drin

    ich dachte aber eher an geholfen,

    Nachtrag:

    Zitat von darksider3 in SB 14:18

    https://autoit.de/index.php?page…action=firstNew

    Zitat von AutoBert in SB 14:24

    @darksider3 da gibt es aber deutlich bessere und Werbung (noch dazu für <Mittelmass) ist in der SB auch nicht gern gesehen

    Zitat von darksider in SB 16:39

    https://autoit.de/index.php?page…1021#post181021 is updatet :)

    wie gesagt ist in der ShoutBox Werbung/Thread pushen nicht gerne gesehen. Mit <Mittelmass meine ich dass der Player im derzeitigen Stadium noch nicht einmal ein Thread im Bereich Skripte wert ist,

    mfg (Auto)Bert

    2 Mal editiert, zuletzt von AutoBert (7. August 2010 um 19:21)

    AutoBert deswegen heißt es ja auch "BETA" wenns in der alpha phase ist, ist es mehr als <"<würdig">