Code : Tout sélectionner
#include <sound.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Lecteur mp3", 200, 60, 192, 124)
GUISetBkColor(0x004090)
Global $Button1 = GUICtrlCreateButton("Play", 0, 22, 45, 20, $BS_CENTER)
GUICtrlSetBkColor(-1,0x0020df)
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Button5 = GUICtrlCreateButton("Stop", 50, 22, 45, 20, $BS_CENTER)
GUICtrlSetBkColor(-1,0x0020df)
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Button6 = GUICtrlCreateButton(" ... ",100,22,45,20,$BS_CENTER)
GUICtrlSetBkColor(-1,0x0020df)
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Input1 = GUICtrlCreateInput("Z:\dossier\fichier.mp3", 0, 0, 202, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1,0x000000)
Global $Slider1 = GUICtrlCreateSlider(0, 43, 200, 20,1)
GUICtrlSetBkColor(-1,0x1040)
GUICtrlSetData(-1,90)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_LOCK,$Button1)
SoundSetWaveVolume(GUICtrlRead($Slider1))
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If FileExists(GUICtrlRead($Input1)) Then
SoundPlay(GUICtrlRead($Input1))
Else
play()
SoundPlay(GUICtrlRead($Input1))
EndIf
Case $Button6
play()
Case $Button5
SoundPlay("")
Case $Slider1
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndSwitch
WEnd
Func play()
GUICtrlSetData($Input1,FileOpenDialog("Ouvrir un son", @ScriptDir & '\', "Tous les sons (*.mp3;*.wma)|Sons MP3 (*.mp3)|Sons wave (*.wma)|Autre formats pris en charge (*.mpg)|Tous (*.*)",9))
EndFunc
Ce code reste à ameliorer, c'est l'un des premiers codes que j'ai fais en entier tout seul.