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
#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"
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)
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 )
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()
EndIf
Case $Menu2E
If $Menu2E = True Then
Morse()
EndIf
Case $Menu3E
AdlibUnRegister("CheckMouse")
Start_End()
;#############################################################
EndSwitch
WEnd
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];##############################################################################################
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
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
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")
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)
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 )
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()
EndIf
Case $Menu2E
If $Menu2E = True Then
Morse()
EndIf
Case $Menu3E
AdlibUnRegister("CheckMouse")
Start_End()
;#############################################################
EndSwitch
WEnd
EndFunc
Feedback ausdrücklich erwünscht
(Lösungen für die ToDo liste (und BUGS)könnte ich auch gebrauchen)