Hi Leute.
Ich hab einen Media Player geschrieben
Ich weis aber nicht wie ich meine Lieder stopen oder zwischen ihnen weiterschalten kann
könnt ihr mir helfen?
Spoiler anzeigen
#include <array.au3>
#include <Guiconstants.au3>
#include <Sound.au3>
Dim $1
Dim $2
Dim $Song[6]
Dim $choose[6]
;~ GUICreate
$gui = GUICreate ("Media Player",600,400)
GUISetBkColor(0x668822)
$pic = GUICtrlCreatePic (FileOpenDialog("Whäle Hintergrundbild aus!",@DesktopDir,"(*jpg)"),0,0,600,400,@SW_HIDE)
$Song[0] = GUICtrlCreateInput("",40,20,200,20)
$choose[0] = GUICtrlCreateButton("Durchsuchen", 400,20)
$Song[1] = GUICtrlCreateInput("",40,50,200,20)
$choose[1] = GUICtrlCreateButton("Durchsuchen", 400,50)
$Song[2] = GUICtrlCreateInput("",40,80,200,20)
$choose[2] = GUICtrlCreateButton("Durchsuchen", 400,80)
$Song[3] = GUICtrlCreateInput("",40,110,200,20)
$choose[3] = GUICtrlCreateButton("Durchsuchen", 400,110)
$Song[4] = GUICtrlCreateInput("",40,140,200,20)
$choose[4] = GUICtrlCreateButton("Durchsuchen", 400,140)
$Song[5] = GUICtrlCreateInput("",40,170,200,20)
$choose[5] = GUICtrlCreateButton("Durchsuchen", 400,170)
$OK = GUICtrlCreateButton("Play", 110,220,100,40)
GUISetState()
while 16
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $choose[0]
choose($Song[0])
Case $msg = $choose[1]
choose($Song[1])
Case $msg = $choose[2]
choose($Song[2])
Case $msg = $choose[3]
choose($Song[3])
Case $msg = $choose[4]
choose($Song[4])
Case $msg = $choose[5]
choose($Song[5])
Case $msg = $OK
Play()
EndSelect
WEnd
Func choose($1)
GUICtrlSetData($1,FileOpenDialog("Whälen sie einen Song aus...",@DesktopDir,"(*mp3), (*wma)"))
EndFunc
Func play()
For $3 = 0 to 5 step 1
$read = GUICtrlRead($Song[$3])
Global $open = _SoundOpen($read)
_SoundPlay($open,1)
Next
EndFunc