EDIT //////
Ok hab soweit alles hinbekommen =)
Aber nun hab ich ein Anderes Problem.
iwie Funtzt des nicht mehr mit dem Fileopendialog...
Hier mein Code
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <Sound.au3>
#include <Guislider.au3>
#include <GuiListBox.au3>
#include <_Transinput.au3>
#include <GUIEnhance.au3>
;Angaben zur Fenster Animation
Opt("GUIOnEventMode", 1)
$iWinHeight = 400
$iGUI = GUICreate("", 300, $iWinHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, "EventHandler")
;Ende Angaben zur Fenster Animation
;Löschen der Dateien
FileDelete( @TempDir & "\iflowbg.jpg")
FileDelete( @TempDir & "\iflowplay.jpg")
FileDelete( @TempDir & "\iflowpause.jpg")
FileDelete( @TempDir & "\iflowstop.jpg")
FileDelete( @TempDir & "\iflowopen.jpg")
FileDelete( @TempDir & "\iflowsplash.jpg")
;Ende Löschen der Dateien
;Dateien Installieren
FileInstall("D:\iFlow Media Player\Player\data\iflowbg.jpg", @TempDir & "\iflowbg.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowplay.jpg", @TempDir & "\iflowplay.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowpause.jpg", @TempDir & "\iflowpause.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowstop.jpg", @TempDir & "\iflowstop.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowopen.jpg", @TempDir & "\iflowopen.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowsplash.jpg", @TempDir & "\iflowsplash.jpg")
;Ende Dateien Installieren
;Splash Bild
$destination = @TempDir & "\iflowsplash.jpg"
SplashImageOn ( "iFlow Music Player", $destination, 300, 100, -1, -1)
Sleep(3000)
SplashOff()
;Ende Splash Bild
;Globale Variablen
Global $hSound, $iLength, $bSlider = True
Global $old_slider_value = 50
;Ende Globale Variablen
;Fenster Hintergrund
GUISetBkColor(0x000000)
GUICtrlCreatePic ( @TempDir & "\iflowbg.jpg", 0, 300 , 300 , 100)
GuiCtrlSetState(-1,$GUI_DISABLE)
;Ende Fenster Hintergrund
;Song wo gerade gespielt wird
$CurrentSong = GUICtrlCreateInput("", 10, 10, 220, 20)
_TransInput_Create($CurrentSong,12)
;Ende Song wo gerade gespielt wird
;Playlist
$playlist = GUICtrlCreateList("", 0, 50, 300, 214)
;Ende Playlist
;Button zum Öffnen von Music
$Open = GUICtrlCreatePic ( @TempDir & "\iflowopen.jpg", 240, 355 , 42 , 42)
;Ende Button zum Öffnen von Music
;Button zum Abspielen von Music
$Play = GUICtrlCreatePic ( @TempDir & "\iflowplay.jpg", 125, 355 , 42 , 42)
;Ende Button zum Abspielen von Music
;Button zum Pausieren der Music
$Pause = GUICtrlCreatePic ( @TempDir & "\iflowpause.jpg", 75, 355 , 42 , 42)
;Ende Button zum Pausieren der Music
;Button zum Stoppen der Music
$Stop = GUICtrlCreatePic ( @TempDir & "\iflowstop.jpg", 175, 355 , 42 , 42)
;Ende Button zum Stoppen der Music
;Slider für Lautstärke
$slider = GUICtrlCreateSlider(5, 355, 50, 40, BitOR($TBS_VERT, $TBS_AUTOTICKS))
GUICtrlSetBkColor(-1,-2)
GUICtrlSetLimit($slider, 100, 0)
GUICtrlSetData($slider, 50)
;Ende Slider für Lautstärke
;Slider für Position der Music ändern
$idSldrPos = GUICtrlCreateSlider(15, 270, 270, 25, $TBS_TOOLTIPS)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetLimit($idSldrPos,100, 1)
;Ende Slider für Position der Music ändern
;Anzeige der Vergangenen Abspielzeit
$Label1 = GUICtrlCreateLabel("00:00", 50, 310, 100, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Anzeige der Vergangenen Abspielzeit
;Anzeige der Gesamten Abspielzeit
$Label2 = GUICtrlCreateLabel("00:00", 160, 310, 100, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Anzeige der Gesamten Abspielzeit
;Trenn Symbol zwischen den Abspielzeiten
$Label3 = GUICtrlCreateLabel("/", 150, 310, 12, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Trenn Symbol zwischen den Abspielzeiten
GuiSetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];Haupt Fenster
_GUIEnhanceAnimateWin ($iGUI, 400, $GUI_EN_ANI_FADEIN)
GuiCtrlSetState(-1,$GUI_DISABLE)
_GUIEnhanceAnimateTitle ($iGUI, "iFlow Music Player", $GUI_EN_TITLE_DROP)
Sleep(1000)
_GUIEnhanceAnimateTitle ($iGUI, "iFlow Music Player", $GUI_EN_TITLE_SLIDE)
Sleep(1000)
GuiCtrlSetState(-1,$GUI_DISABLE)
;Ende Haupt Fenster
;Registrieren der Abspiel Position
AdlibRegister("_GetPos", 1000)
;Ende Registrieren der Abspiel Funktion
;Anfang Aller Funktionen
While 1
$slider_value = GUICtrlRead($slider)
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Öffnen der Music Datei
Case $Open
$Opened_File = FileOpenDialog("Open Music File","C:\Documents and Settings\Windows\My Documents\My Music","Music Files(*.mp3;*.wav;*.wma;*.cda)",3)
$hSound = _SoundOpen($Opened_File)
;Ende Öffnen der Music Datei
;Schreibe Informationen in das GUI
GUICtrlSetData($Label2, _SoundLength($hSound))
GUICtrlSetData($CurrentSong, $Opened_File)
GUICtrlSetData($playlist, $Opened_File)
;Ende Schreibe Informationen in das GUI
;Gibt die Länge der Music Datei an
$iLength = _SoundLength($hSound, 2) / 1000
GUICtrlSetLimit($idSldrPos,$iLength, 1)
_SoundPlay($hSound)
;Ende Gibt die Länge der Music Datei an
;Funktionen für Positions Slider
Case $GUI_EVENT_PRIMARYDOWN
$bSlider = False
Case $GUI_EVENT_PRIMARYUP
$bSlider = True
;Ende Funktionen für Positions Slider
;Ausgabe der Position in der Console
Case $idSldrPos
$bSlider =False
$iSS = GUICtrlRead($idSldrPos)
consolewrite("Neue Pos in Seknden:" & $iSS & @CRLF)
Local $iHH = Int($iSS / 3600)
$iSS = Mod($iSS, 3600)
Local $iMM = Int($iSS / 60)
$iSS = Mod($iSS, 60)
consolewrite($iHH & ":" & $iMM & ":" & $iSS & @CRLF)
_SoundSeek($hSound, $iHH, $iMM, $iSS)
_SoundPlay($hSound)
$bSlider =True
;Ende Ausgabe der Position in der Console
;Media Buttons
Case $Stop
_SoundStop($hSound)
Case $Play
_SoundPlay($hSound)
Case $Pause
_SoundPause($hSound)
;Ende Media Buttons
;Funktion für Lautstärke Slider
Case $old_slider_value <> $slider_value
SoundSetWaveVolume(100 - $slider_value)
$old_slider_value = $slider_value
;Ende Funktion für Lautstärke Slider
EndSwitch
WEnd
;Funktion für Positions Angabe
Func _GetPos()
$iPos = _SoundPos($hSound, 2) / 1000
GUICtrlSetData($Label1, _SoundPos($hSound));Zeigt die wie weite das Lied schon ist
if $bSlider Then GUICtrlSetData($idSldrPos, $iPos)
EndFunc
;Ende Funktion für Positions Angabe
;Funktion für Animiertes GUI
Func EventHandler()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
_GUIEnhanceAnimateWin ($iGUI, 400, $GUI_EN_ANI_FADEOUT)
Exit
EndSwitch
EndFunc
;Ende Funktion für Animiertes Gui
;Ende Aller Funktionen
Hoffe um Antwort
