[Ex] Un petit lecteur wav/mp3

[Max5]

Salut a tous, tout est dans le titre...
Un petit exemple de ce qu'on peut faire.

edit : je met un lien vers la source car la syntax ne s'affiche pas bien sur le forum

-> Mp3 Player <-

Toutes les fonction marche relativement bien.

Les fonction de save et load playlist ne sont pas codé.

Points noir, en barre des taches (donc mode minimizé), les checkbox "Shuffle" et "Repeat" ne sont pas pris en compte.

EDIT :

J'edite mon post principal pour y mettre une mise à jour, car ce post ainsi que mon script à plus d'un an...

Dans cette version, que j'ai intitulé "MPau3" mélange entre MP3 et le format .au3
On peut le minimiser dans le tray, on peut bouger dans la chanson grâce a un slider, le mode aléatoire marche bien, de même que en boucle... enfin a priori. ^^

Les boutons suivant ">>" et précédent "<<" ne sont pas codé.

A amélioré pour ceux qui veulent.

Voici le code :

► Afficher le texteCode de MPau3

Code : Tout sélectionner

;~ Version d'Autoit : 3.2.12.1
;~ Auteur : Max5
;~ Programme : MPau3
;~ Version : 1.1

#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#Include <Date.au3>
#include <String.au3>
#Include <GuiTab.au3>
#include <File.au3>
#Include <Array.au3>
#Include <GuiEdit.au3>
#Include <GuiComboBox.au3>
#Include <GuiListBox.au3>
#include <Sound.au3>
#include <Constants.au3>
#Include <GuiSlider.au3>


$Form2 = GUICreate("MPau3", 597, 348, 340, 194)
GUISetBkColor(0x99B4D1)
$MoveBarre = GUICtrlCreateSlider(151, 43, 284, 20, BitOR($TBS_AUTOTICKS,$TBS_TOP,$TBS_LEFT))
GUICtrlSetCursor (-1, 0)
$MusicList = GUICtrlCreateList("", 50, 84, 545, 240)
$PlayButon = GUICtrlCreateButton("Play", 224, 0, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("Liste de musique :", 50, 67, 107, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Volume", 4, 85, 45, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$StopButon = GUICtrlCreateButton("Stop", 312, 0, 75, 25, 0)
$BackButon = GUICtrlCreateButton("<<<", 136, 0, 75, 25, 0)
$ForwardButon = GUICtrlCreateButton(">>>", 400, 0, 75, 25, 0)
$vol100 = GUICtrlCreateRadio("100%", 0, 112, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol90 = GUICtrlCreateRadio("90%", 0, 131, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol80 = GUICtrlCreateRadio("80%", 0, 150, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol70 = GUICtrlCreateRadio("70%", 0, 169, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol60 = GUICtrlCreateRadio("60%", 0, 188, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol50 = GUICtrlCreateRadio("50%", 0, 207, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol40 = GUICtrlCreateRadio("40%", 0, 226, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol30 = GUICtrlCreateRadio("30%", 0, 245, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol20 = GUICtrlCreateRadio("20%", 0, 264, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol10 = GUICtrlCreateRadio("10%", 0, 283, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$vol0 = GUICtrlCreateRadio("Mute", 0, 301, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Shuffle = GUICtrlCreateCheckbox("Lecture aléatoire", 485, 22, 97, 13)
$Loop = GUICtrlCreateCheckbox("Lecture en boucle", 485, 3, 105, 17)
Dim $PBS_SMOOTH
$LenghBarre = GUICtrlCreateProgress(159, 66, 270, 17, $PBS_SMOOTH)
$MenuFichier = GUICtrlCreateMenu("&Fichier")
$MenuItem1 = GUICtrlCreateMenuItem("Ouvrir", $MenuFichier)
$SavePlaylist = GUICtrlCreateMenuItem("Sauver Playlist", $MenuFichier)
$HelpMenu = GUICtrlCreateMenu("&Aide")
$MenuItem2 = GUICtrlCreateMenuItem("A propos ...", $HelpMenu)
GUISetState(@SW_SHOW)

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)   

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")

While 1
    $msg = GUIGetMsg() 
    
    
    
    If $msg = $GUI_EVENT_CLOSE Then 
        If IsDeclared("qsound") Then
            _SoundClose($qsound)
        EndIf
        Exit
    EndIf
    
    
    
    If $msg = $GUI_EVENT_MINIMIZE Then 
        GuiSetState(@SW_HIDE)
        TraySetState(1)
        If IsDeclared("qsound") Then
            If _SoundStatus($qsound) = "paused" Or  _SoundStatus($qsound) = "playing" Then
                Dim $szDrive, $szDir, $szFName, $szExt
                $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
                $ToolTip = "Playing : "&$szFName
            Else
                $ToolTip = "not playing"
            EndIf
        Else    
                $ToolTip = "not playing"
        EndIf   
        TraySetToolTip ("Cliquez ici pour restaurer MPau3"&@CRLF&$ToolTip)
    EndIf
    
    
    
    
    If $msg = $GUI_EVENT_MINIMIZE Then
        Dim $szDrive, $szDir, $szFName, $szExt
        $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
        $ToolTip = "Playing : "&$szFName
    EndIf
    
    
    
    
    If $msg = $MenuItem2 Then
        MsgBox(64, "A propos...", "MPau3"&@CRLF&"Créer par Max5"&@CRLF&"Copyright 2008 ©")
    EndIf




    If $msg = $MenuItem1 Then
        $FileOpen = FileOpenDialog("Ouvrir un fichier audio...", "", "Audio (*.mp3;*.wav)", 1 + 4 )
        If $FileOpen <> "" Then
            If StringInStr($FileOpen, "|") > 0 Then
                $SelectionMultiple = StringSplit($FileOpen, "|")
                For $_zi = 2 To UBound($SelectionMultiple) - 1
                    _GUICtrlListBox_AddString($MusicList, $SelectionMultiple[1]&"\"&$SelectionMultiple[$_zi])
                Next
            Else    
                _GUICtrlListBox_AddString($MusicList, $FileOpen)
            EndIf
        EndIf
    EndIf
    
    
    
    
    
    
    
    If $msg = $PlayButon Then
        If _GUICtrlListBox_GetText($MusicList, 0) <> "" Then
            If GUICtrlRead($PlayButon) = "Play" Then 
                GUICtrlSetData($PlayButon, "Pause")
            ElseIf GUICtrlRead($PlayButon) = "Pause" Then 
                GUICtrlSetData($PlayButon, "Play")
            EndIf
        EndIf
        If IsDeclared("qsound") Then
            $IndexCompare = _GUICtrlListBox_GetCurSel($MusicList)
            If _SoundStatus($qsound) = "playing" And $IndexCompare = $IndexToPlay Then
                _SoundPause($qsound)
            ElseIf _SoundStatus($qsound) = "paused" And $IndexCompare = $IndexToPlay Then
                _SoundResume($qsound)
            Else
                _SoundClose($qsound)
                Global $IndexToPlay = _GUICtrlListBox_GetCurSel($MusicList)
                If $IndexToPlay <> -1 Then
                    $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, $IndexToPlay))
                    _SoundPlay($qsound)
                Else
                    Global $IndexToPlay = 0
                    _GUICtrlListBox_SetCurSel($MusicList, 0)
                    $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, 0))
                    _SoundPlay($qsound)
                EndIf
            EndIf       
        Else
            Global $IndexToPlay = _GUICtrlListBox_GetCurSel($MusicList)
            If $IndexToPlay <> -1 Then
                $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, $IndexToPlay))
                _SoundPlay($qsound)
            Else
                Global $IndexToPlay = 0
                _GUICtrlListBox_SetCurSel($MusicList, 0)
                $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, 0))
                _SoundPlay($qsound)
            EndIf
        EndIf
    EndIf
    
    
    
    
    
    If $msg = $StopButon And IsDeclared("qsound") Then
        If _SoundStatus($qsound) = "paused" Or  _SoundStatus($qsound) = "playing" Then
            GUICtrlSetData($PlayButon, "Play")
            GUICtrlSetData($LenghBarre, 0)
            _SoundClose($qsound)
        EndIf
    EndIf
    
    
    
    
    
    If GUICtrlRead($vol100) = 1 Then
        SoundSetWaveVolume(100)
    ElseIf GUICtrlRead($vol90) = 1 Then
        SoundSetWaveVolume(90)
    ElseIf GUICtrlRead($vol80) = 1 Then
        SoundSetWaveVolume(80)
    ElseIf GUICtrlRead($vol70) = 1 Then
        SoundSetWaveVolume(70)
    ElseIf GUICtrlRead($vol60) = 1 Then
        SoundSetWaveVolume(60)
    ElseIf GUICtrlRead($vol50) = 1 Then
        SoundSetWaveVolume(50)
    ElseIf GUICtrlRead($vol40) = 1 Then
        SoundSetWaveVolume(40)
    ElseIf GUICtrlRead($vol30) = 1 Then
        SoundSetWaveVolume(30)
    ElseIf GUICtrlRead($vol20) = 1 Then
        SoundSetWaveVolume(20)
    ElseIf GUICtrlRead($vol10) = 1 Then
        SoundSetWaveVolume(10)
    ElseIf GUICtrlRead($vol0) = 1 Then
        SoundSetWaveVolume(0)
    EndIf
    
    
    

    
    If $msg = $MoveBarre Then
        If IsDeclared("qsound") Then
            If _SoundStatus($qsound) = "playing" Then
                $SongLengh = _SoundLength($qsound, 2)
                $SongAvancement = GUICtrlRead($MoveBarre)
                $TicksAvancement = ($SongAvancement * $SongLengh) / 100
                Dim $Secs, $Mins, $Hour
                $TicksAvancementH24 = _TicksToTime($TicksAvancement, $Hour, $Mins, $Secs )
                _SoundSeek($qsound, $Hour, $Mins, $Secs)
                _SoundPlay($qsound)
            EndIf
        EndIf
    EndIf
    
    


    
    If IsDeclared("qsound") Then
        If _SoundStatus($qsound) = "playing" Then
            $TotalLengh = _SoundLength($qsound, 2)
            $CurrentLengh = _SoundPos($qsound, 2)
            $PercentLengh = ($CurrentLengh * 100) / $TotalLengh
            GUICtrlSetData($LenghBarre, $PercentLengh)
            If $CurrentLengh >= ($TotalLengh - 500) Then
                _SoundClose($qsound)
                GUICtrlSetData($LenghBarre, 0)
                GUICtrlSetData($PlayButon, "Play")
                If $IndexToPlay <> (_GUICtrlListBox_GetCount($MusicList) - 1) Then
                    If GUICtrlRead($Shuffle) <> 1 Then
                        _SoundClose($qsound)
                        $OldIndex = $IndexToPlay 
                        Global $IndexToPlay = ($OldIndex + 1)
                        _GUICtrlListBox_SetCurSel($MusicList, $IndexToPlay)
                        $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, $IndexToPlay))
                        _SoundPlay($qsound)
                        GUICtrlSetData($PlayButon, "Pause")
                            Dim $szDrive, $szDir, $szFName, $szExt
                            $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
                            $ToolTip = "Playing : "&$szFName
                            TraySetToolTip ("Cliquez ici pour restaurer MPau3"&@CRLF&$ToolTip)
                    EndIf
                EndIf
                If $IndexToPlay <> (_GUICtrlListBox_GetCount($MusicList) - 1) And GUICtrlRead($Shuffle) = 1 Then
                    _SoundClose($qsound)
                    $OldIndex = $IndexToPlay
                    Do
                        Global $IndexToPlay = Random(0,(_GUICtrlListBox_GetCount($MusicList) - 1),1)
                    Until $IndexToPlay <> $OldIndex
                    _GUICtrlListBox_SetCurSel($MusicList, $IndexToPlay)
                    $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, $IndexToPlay))
                    _SoundPlay($qsound)
                    GUICtrlSetData($PlayButon, "Pause")
                        Dim $szDrive, $szDir, $szFName, $szExt
                        $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
                        $ToolTip = "Playing : "&$szFName
                        TraySetToolTip ("Cliquez ici pour restaurer MPau3"&@CRLF&$ToolTip)
                EndIf
                If $IndexToPlay = (_GUICtrlListBox_GetCount($MusicList) - 1) Then
                    If GUICtrlRead($Loop) = 1 Then
                        _SoundClose($qsound)
                        Global $IndexToPlay = 0
                        _GUICtrlListBox_SetCurSel($MusicList, 0)
                        $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, 0))
                        _SoundPlay($qsound)
                        GUICtrlSetData($PlayButon, "Pause")
                            Dim $szDrive, $szDir, $szFName, $szExt
                            $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
                            $ToolTip = "Playing : "&$szFName
                            TraySetToolTip ("Cliquez ici pour restaurer MPau3"&@CRLF&$ToolTip)
                    EndIf
                EndIf
                If $IndexToPlay = (_GUICtrlListBox_GetCount($MusicList) - 1) Then
                    If GUICtrlRead($Shuffle) = 1 And GUICtrlRead($Loop) = 1 Then
                        _SoundClose($qsound)
                        Global $IndexToPlay = Random(0,(_GUICtrlListBox_GetCount($MusicList) - 2),1)
                        _GUICtrlListBox_SetCurSel($MusicList, $IndexToPlay)
                        $qsound = _SoundOpen(_GUICtrlListBox_GetText($MusicList, $IndexToPlay))
                        _SoundPlay($qsound)
                        GUICtrlSetData($PlayButon, "Pause")
                            Dim $szDrive, $szDir, $szFName, $szExt
                            $TestPath = _PathSplit(_GUICtrlListBox_GetText($MusicList, $IndexToPlay), $szDrive, $szDir, $szFName, $szExt)
                            $ToolTip = "Playing : "&$szFName
                            TraySetToolTip ("Cliquez ici pour restaurer MPau3"&@CRLF&$ToolTip)
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
    
    
    
    
WEnd

Func SpecialEvent()
        GuiSetState(@SW_Show)
        TraySetState(2)
EndFunc
 

[Voodoo]

Jolie ! Mais 3 details me genent

• Il faudrait remplacer les chekbox par un slider :S
• Le programme utilise 56 % de mon processeur ( 3Ghz sur un fsb 800) c'est autant que Oblivion...
• la barre progress est sympas mais il faudrait mettre le temps ecoulé aussi...

Je suis tres exigeant

[Max5]

Il faudrait remplacer les chekbox par un slider :S

A oui pas bete !

J'y avais pas penser, faut dire que je ne m'en sert jamais...


Pour les 2 autre détail, je n'ai pas d'idée de solution...

[timmalos]

Bonjour, je serais interessé pour reprendre ce script, mais il fait appel à GuiList.au3 qui n'existe plus, je l'ai telechargée sur la toile, mais impossible d'arriver à enlever toutes les erreurs avec tout ce qui a changé depuis le temps.
Alors quelqu'un pourrait t'il me dire quelle est l'include a mettre à la place de GuiList.au3 pour que j puisse remplacer toutes les fonctions? (j'ai peur que ca soit plus rapide de recommencer à 0...)
Merci:)

[Tlem]

Voici le code mis à jour pour les nouvelle versions de AutoIt :

► Afficher le texteCode du MP3 player

Code : Tout sélectionner

#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <ListBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <Sound.au3>
#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <file.au3>
#include <array.au3>
#NoTrayIcon

$Mp3PlayerGui = GUICreate("MP3 Player (By Max5)", 379, 252, 272, 170)
GUISetBkColor(0xA6CAF0)
$Open = GUICtrlCreateButton("Ouvrir...", 3, 2, 65, 21, 0)
$Label2 = GUICtrlCreateLabel(": Volume :", 8, 32, 61, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$S100 = GUICtrlCreateRadio("100 %", 8, 56, 49, 17)
$S90 = GUICtrlCreateRadio("90 %", 8, 72, 49, 17)
$S80 = GUICtrlCreateRadio("80 %", 8, 88, 49, 17)
$S70 = GUICtrlCreateRadio("70 %", 8, 104, 49, 17)
$S60 = GUICtrlCreateRadio("60 %", 8, 121, 49, 17)
$S50 = GUICtrlCreateRadio("50 %", 8, 139, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$S40 = GUICtrlCreateRadio("40 %", 8, 156, 49, 17)
$S30 = GUICtrlCreateRadio("30 %", 8, 175, 49, 17)
$S20 = GUICtrlCreateRadio("20 %", 8, 193, 49, 17)
$S10 = GUICtrlCreateRadio("10 %", 8, 212, 49, 17)
$Mute = GUICtrlCreateRadio("Mute", 8, 231, 49, 15)
$Input1 = GUICtrlCreateInput("", 292, 7, 81, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Durée :", 246, 9, 46, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Play = GUICtrlCreateButton("Play  >", 128, 39, 57, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$PosSong = GUICtrlCreateProgress(122, 72, 238, 14, $PBS_SMOOTH)
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetData(-1, 25)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Button1 = GUICtrlCreateButton("Pause/Play", 196, 39, 73, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Stop ", 279, 39, 57, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$PlayList = GUICtrlCreateList("", 64, 87, 313, 136, BitOR($WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
GUICtrlSetData(-1, "")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0x808080)
$Label1 = GUICtrlCreateLabel("Playlist :", 64, 72, 42, 17)
$Label4 = GUICtrlCreateLabel("File :", 81, 9, 32, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 114, 7, 129, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Save Playlist", 257, 223, 67, 27, 0)
$MoveBack = GUICtrlCreateButton("<<", 106, 72, 15, 14, 0)
$MoveForward = GUICtrlCreateButton(">>", 361, 72, 15, 14, 0)
$Button4 = GUICtrlCreateButton("Effacer Liste", 64, 223, 67, 27, 0)
$Button5 = GUICtrlCreateButton("Retirer", 131, 223, 43, 27, 0)
$Button6 = GUICtrlCreateButton("Charger Playlist", 174, 223, 83, 27, 0)
$Shuffle = GUICtrlCreateCheckbox  ("Shuffle", 324, 223, 52, 12)
$Repeat = GUICtrlCreateCheckbox  ("Repeat", 324, 237, 53, 12)
GUISetState(@SW_SHOW)





GUICtrlSetData($PosSong, 0)
While 1
    $msg = GUIGetMsg()
    
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
    
    If $msg = $Open Then
        If _GUICtrlListBox_GetText($PlayList, 0) <> "" Then
            $LastItem = _GUICtrlListBox_GetCount($PlayList)
            $Local = _GUICtrlListBox_GetText($PlayList, $LastItem - 1)
        Else
            $Local = @DesktopDir
        EndIf
        $PathToMp3 = FileOpenDialog("Fichier audio à ouvrir...", $Local, "Audio (*.wav;*.mp3)", 5)
        If StringInStr($PathToMp3, "|") > 0 Then
            $MultiSelect = StringSplit($PathToMp3, "|")
            For $NbrSongs = 2 To UBound($MultiSelect) - 1
                _GUICtrlListBox_AddString($PlayList, $MultiSelect[1]&"\"&$MultiSelect[$NbrSongs])
            Next
        Else
            If $PathToMp3 <> "" Then
            _GUICtrlListBox_AddString($PlayList, $PathToMp3)
            EndIf
        EndIf
        
        If Not IsDeclared("SoundToPlay") Then
            $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
            GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
            _GUICtrlListBox_SetCurSel($PlayList, 0)
            Dim $szDrive, $szDir, $szFName, $szExt
            $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
            GUICtrlSetData($Input2, $NameSong[3])
            _SoundPlay($SoundToPlay, 0)
            GUICtrlSetData($PosSong, 0)
        ElseIf IsDeclared("SoundToPlay") Then
            If _SoundStatus($SoundToPlay) <> "playing" And _SoundStatus($SoundToPlay) <> "paused" Then
                _SoundClose($SoundToPlay)
                $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                _GUICtrlListBox_SetCurSel($PlayList, 0)
                Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
                _SoundPlay($SoundToPlay, 0)
                GUICtrlSetData($PosSong, 0)
            EndIf
        EndIf
    EndIf
    
    
    If $msg = $Play Then
        If IsDeclared("SoundToPlay") Then 
            _SoundStop($SoundToPlay)
            _SoundClose($SoundToPlay)
        EndIf
        If _GUICtrlListBox_GetCurSel($PlayList) <> $LB_ERR Then
        $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, _GUICtrlListBox_GetCurSel($PlayList)))
        GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
        _GUICtrlListBox_SetCurSel($PlayList, _GUICtrlListBox_GetCurSel($PlayList))
        Dim $szDrive, $szDir, $szFName, $szExt
            $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, _GUICtrlListBox_GetCurSel($PlayList)), $szDrive, $szDir, $szFName, $szExt)
            GUICtrlSetData($Input2, $NameSong[3])
        _SoundPlay($SoundToPlay, 0)
        GUICtrlSetData($PosSong, 0)
        Else
            $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
            GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
            _GUICtrlListBox_SetCurSel($PlayList, 0)
            Dim $szDrive, $szDir, $szFName, $szExt
            $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
            GUICtrlSetData($Input2, $NameSong[3])
            _SoundPlay($SoundToPlay, 0)
            GUICtrlSetData($PosSong, 0)
        EndIf
    EndIf


    If $msg = $Button1 And IsDeclared("SoundToPlay") Then
        If IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then 
            _SoundPause($SoundToPlay)
        ElseIf IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "paused" Then 
            _SoundResume($SoundToPlay)
        EndIf
    EndIf
    
    If $msg = $Button2 And IsDeclared("SoundToPlay") Then
        _SoundStop($SoundToPlay)
        _SoundClose($SoundToPlay)
        GUICtrlSetData($PosSong, 0)
    EndIf   
    
    If ControlCommand("", "", $Mute, "IsChecked", "") = 1 Then SoundSetWaveVolume(0)
    If ControlCommand("", "", $S10, "IsChecked", "") = 1 Then SoundSetWaveVolume(10)
    If ControlCommand("", "", $S20, "IsChecked", "") = 1 Then SoundSetWaveVolume(20)
    If ControlCommand("", "", $S30, "IsChecked", "") = 1 Then SoundSetWaveVolume(30)
    If ControlCommand("", "", $S40, "IsChecked", "") = 1 Then SoundSetWaveVolume(40)
    If ControlCommand("", "", $S50, "IsChecked", "") = 1 Then SoundSetWaveVolume(50)
    If ControlCommand("", "", $S60, "IsChecked", "") = 1 Then SoundSetWaveVolume(60)
    If ControlCommand("", "", $S70, "IsChecked", "") = 1 Then SoundSetWaveVolume(70)
    If ControlCommand("", "", $S80, "IsChecked", "") = 1 Then SoundSetWaveVolume(80)
    If ControlCommand("", "", $S90, "IsChecked", "") = 1 Then SoundSetWaveVolume(90)
    If ControlCommand("", "", $S100, "IsChecked", "") = 1 Then SoundSetWaveVolume(100)
    
    If IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then
        $TempsTotalSong = _SoundLength($SoundToPlay, 2)
        $LectureAvancement = _SoundPos($SoundToPlay, 2)
        $percent = ($LectureAvancement * 100) / $TempsTotalSong
        GUICtrlSetData($PosSong, $percent)
        If $LectureAvancement = $TempsTotalSong Then
            GUICtrlSetData($PosSong, 0)
        EndIf
    EndIf

    If $msg = $GUI_EVENT_CLOSE Then
        If IsDeclared($SoundToPlay) Then
            _SoundClose($SoundToPlay)
        EndIf
    EndIf
    
    If $msg = $Button4 Then
        _GUICtrlListBox_ResetContent($PlayList)
    EndIf
    
    
    If $msg = $Button5 Then
        If _GUICtrlListBox_GetCurSel($PlayList) <> $LB_ERR Then
            _GUICtrlListBox_DeleteString($PlayList, _GUICtrlListBox_GetCurSel($PlayList))
        EndIf
    EndIf
    
    
    If IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then
        $TempsTotalSong = _SoundLength($SoundToPlay, 2)
        $LectureAvancement = _SoundPos($SoundToPlay, 2)
        $CurrentIndexPlay = _GUICtrlListBox_GetCurSel($PlayList)
        $NbrSongsInPlayList = _GUICtrlListBox_GetCount($PlayList) - 1
        If $CurrentIndexPlay <> $NbrSongsInPlayList Then
            If $LectureAvancement = $TempsTotalSong Then
                _SoundStop($SoundToPlay)
                _SoundClose($SoundToPlay)
                Sleep(500)
            If ControlCommand("", "", $Shuffle, "IsChecked", "") = 0 Then
                $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $CurrentIndexPlay + 1))
                GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                _GUICtrlListBox_SetCurSel($PlayList, $CurrentIndexPlay + 1)
                Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $CurrentIndexPlay + 1), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
                _SoundPlay($SoundToPlay, 0)
                GUICtrlSetData($PosSong, 0)
            Else
                $IndexShuffle = Random(0, $NbrSongsInPlayList, 1)
                    If $IndexShuffle = $CurrentIndexPlay Then $IndexShuffle = $CurrentIndexPlay + 3
                $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $IndexShuffle))
                GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                _GUICtrlListBox_SetCurSel($PlayList, $IndexShuffle)
                Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $IndexShuffle), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
                _SoundPlay($SoundToPlay, 0)
                GUICtrlSetData($PosSong, 0)
            EndIf
            EndIf
        EndIf
    
        If $CurrentIndexPlay = $NbrSongsInPlayList Then
            If $LectureAvancement = $TempsTotalSong Then
                _SoundStop($SoundToPlay)
                _SoundClose($SoundToPlay)
                Sleep(500)
                If ControlCommand("", "", $Repeat, "IsChecked", "") = 1 And ControlCommand("", "", $Shuffle, "IsChecked", "") = 0 Then
                    $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                    GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                    _GUICtrlListBox_SetCurSel($PlayList,  0)
                    Dim $szDrive, $szDir, $szFName, $szExt
                    $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList,  0), $szDrive, $szDir, $szFName, $szExt)
                    GUICtrlSetData($Input2, $NameSong[3])
                    _SoundPlay($SoundToPlay, 0)
                    GUICtrlSetData($PosSong, 0)
                ElseIf ControlCommand("", "", $Repeat, "IsChecked", "") = 1 And ControlCommand("", "", $Shuffle, "IsChecked", "") = 1 Then
                    $IndexShuffle = Random(0, $NbrSongsInPlayList, 1)
                    If $IndexShuffle = $CurrentIndexPlay Then $IndexShuffle = $CurrentIndexPlay + 3
                    $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $IndexShuffle))
                    GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                    _GUICtrlListBox_SetCurSel($PlayList, $IndexShuffle)
                    Dim $szDrive, $szDir, $szFName, $szExt
                    $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $IndexShuffle), $szDrive, $szDir, $szFName, $szExt)
                    GUICtrlSetData($Input2, $NameSong[3])
                    _SoundPlay($SoundToPlay, 0)
                    GUICtrlSetData($PosSong, 0)
                EndIf
            EndIf
        EndIf
    EndIf

    
    If $msg = $MoveForward And IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then
        $LectureAvancement = _SoundPos($SoundToPlay, 2) / 1000
        _SoundSeek($SoundToPlay, 0, 0, $LectureAvancement + 5)
        _SoundPlay($SoundToPlay, 0)
    EndIf


    If $msg = $MoveBack And IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then
        $LectureAvancement = _SoundPos($SoundToPlay, 2) / 1000
        _SoundSeek($SoundToPlay, 0, 0, $LectureAvancement - 5)
        _SoundPlay($SoundToPlay, 0)
    EndIf
WEnd

[tolf]

J'ai mis le slider à la place des radio :

► Afficher le textecode avec slider

Code : Tout sélectionner

#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <ProgressConstants.au3>
#include <ListBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <Sound.au3>
#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <file.au3>
#include <array.au3>
#NoTrayIcon

$Mp3PlayerGui = GUICreate("MP3 Player (By Max5)", 379, 252, 272, 170)
GUISetBkColor(0xA6CAF0)
$Open = GUICtrlCreateButton("Ouvrir...", 3, 2, 65, 21, 0)
$Label2 = GUICtrlCreateLabel("Volume :", 8, 32, 61, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$slider = GUICtrlCreateSlider(8, 56, 49, 180, BitOR($TBS_VERT, $TBS_AUTOTICKS))
GUICtrlSetLimit($slider, 100, 0)
GUICtrlSetData($slider, 50)
$Input1 = GUICtrlCreateInput("", 292, 7, 81, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Durée :", 246, 9, 46, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Play = GUICtrlCreateButton("Play  >", 128, 39, 57, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$PosSong = GUICtrlCreateProgress(122, 72, 238, 14, $PBS_SMOOTH)
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetData(-1, 25)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Button1 = GUICtrlCreateButton("Pause/Play", 196, 39, 73, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Stop ", 279, 39, 57, 21, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$PlayList = GUICtrlCreateList("", 64, 87, 313, 136, BitOR($WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
GUICtrlSetData(-1, "")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0x808080)
$Label1 = GUICtrlCreateLabel("Playlist :", 64, 72, 42, 17)
$Label4 = GUICtrlCreateLabel("File :", 81, 9, 32, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 114, 7, 129, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBKColor(-1, 0xA6CAF0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Save Playlist", 257, 223, 67, 27, 0)
$MoveBack = GUICtrlCreateButton("<<", 106, 72, 15, 14, 0)
$MoveForward = GUICtrlCreateButton(">>", 361, 72, 15, 14, 0)
$Button4 = GUICtrlCreateButton("Effacer Liste", 64, 223, 67, 27, 0)
$Button5 = GUICtrlCreateButton("Retirer", 131, 223, 43, 27, 0)
$Button6 = GUICtrlCreateButton("Charger Playlist", 174, 223, 83, 27, 0)
$Shuffle = GUICtrlCreateCheckbox  ("Shuffle", 324, 223, 52, 12)
$Repeat = GUICtrlCreateCheckbox  ("Repeat", 324, 237, 53, 12)
GUISetState(@SW_SHOW)





GUICtrlSetData($PosSong, 0)

Global $old_slider_value = 50
While 1
    $msg = GUIGetMsg()
    $slider_value = GUICtrlRead($slider)
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            If IsDeclared($SoundToPlay) Then _SoundClose($SoundToPlay)
            ExitLoop
        Case $msg = $Open
            If _GUICtrlListBox_GetText($PlayList, 0) <> "" Then
                $LastItem = _GUICtrlListBox_GetCount($PlayList)
                $Local = _GUICtrlListBox_GetText($PlayList, $LastItem - 1)
            ElseIf FileExists(@MyDocumentsDir & "\Ma musique\iTunes\iTunes Music") Then
                $Local = @MyDocumentsDir & "\Ma musique\iTunes\iTunes Music"
            ElseIf FileExists(@MyDocumentsDir & "\Ma musique") Then
                $Local = @MyDocumentsDir & "\Ma musique"
            Else
                $Local = @DesktopDir
            EndIf
            $PathToMp3 = FileOpenDialog("Fichier audio à ouvrir...", $Local, "Audio (*.wav;*.mp3)", 5)
            If StringInStr($PathToMp3, "|") > 0 Then
                $MultiSelect = StringSplit($PathToMp3, "|")
                For $NbrSongs = 2 To UBound($MultiSelect) - 1
                    _GUICtrlListBox_AddString($PlayList, $MultiSelect[1]&"\"&$MultiSelect[$NbrSongs])
                Next
            Else
                If $PathToMp3 <> "" Then
                _GUICtrlListBox_AddString($PlayList, $PathToMp3)
                EndIf
            EndIf
            
            If Not IsDeclared("SoundToPlay") Then
                $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                _GUICtrlListBox_SetCurSel($PlayList, 0)
                Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
                _SoundPlay($SoundToPlay, 0)
                GUICtrlSetData($PosSong, 0)
            ElseIf IsDeclared("SoundToPlay") Then
                If _SoundStatus($SoundToPlay) <> "playing" And _SoundStatus($SoundToPlay) <> "paused" Then
                    _SoundClose($SoundToPlay)
                    $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                    GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                    _GUICtrlListBox_SetCurSel($PlayList, 0)
                    Dim $szDrive, $szDir, $szFName, $szExt
                    $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
                    GUICtrlSetData($Input2, $NameSong[3])
                    _SoundPlay($SoundToPlay, 0)
                    GUICtrlSetData($PosSong, 0)
                EndIf
            EndIf
        Case $msg = $Play
            If IsDeclared("SoundToPlay") Then 
                _SoundStop($SoundToPlay)
                _SoundClose($SoundToPlay)
            EndIf
            If _GUICtrlListBox_GetCurSel($PlayList) <> $LB_ERR Then
            $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, _GUICtrlListBox_GetCurSel($PlayList)))
            GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
            _GUICtrlListBox_SetCurSel($PlayList, _GUICtrlListBox_GetCurSel($PlayList))
            Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, _GUICtrlListBox_GetCurSel($PlayList)), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
            _SoundPlay($SoundToPlay, 0)
            GUICtrlSetData($PosSong, 0)
            Else
                $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                _GUICtrlListBox_SetCurSel($PlayList, 0)
                Dim $szDrive, $szDir, $szFName, $szExt
                $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, 0), $szDrive, $szDir, $szFName, $szExt)
                GUICtrlSetData($Input2, $NameSong[3])
                _SoundPlay($SoundToPlay, 0)
                GUICtrlSetData($PosSong, 0)
            EndIf
        Case $msg = $Button1 And IsDeclared("SoundToPlay")
            If IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing" Then 
                _SoundPause($SoundToPlay)
            ElseIf IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "paused" Then 
                _SoundResume($SoundToPlay)
            EndIf
        Case $msg = $Button2 And IsDeclared("SoundToPlay")
            _SoundStop($SoundToPlay)
            _SoundClose($SoundToPlay)
            GUICtrlSetData($PosSong, 0)
        Case $old_slider_value <> $slider_value
            SoundSetWaveVolume(100 - $slider_value)
            $old_slider_value = $slider_value
        Case IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing"
            $TempsTotalSong = _SoundLength($SoundToPlay, 2)
            $LectureAvancement = _SoundPos($SoundToPlay, 2)
            $percent = ($LectureAvancement * 100) / $TempsTotalSong
            GUICtrlSetData($PosSong, $percent)
            If $LectureAvancement = $TempsTotalSong Then
                GUICtrlSetData($PosSong, 0)
            EndIf
        Case $msg = $Button4
            _GUICtrlListBox_ResetContent($PlayList)
        Case $msg = $Button5 And _GUICtrlListBox_GetCurSel($PlayList) <> $LB_ERR
            _GUICtrlListBox_DeleteString($PlayList, _GUICtrlListBox_GetCurSel($PlayList))
        Case IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing"
            $TempsTotalSong = _SoundLength($SoundToPlay, 2)
            $LectureAvancement = _SoundPos($SoundToPlay, 2)
            $CurrentIndexPlay = _GUICtrlListBox_GetCurSel($PlayList)
            $NbrSongsInPlayList = _GUICtrlListBox_GetCount($PlayList) - 1
            If $CurrentIndexPlay <> $NbrSongsInPlayList Then
                If $LectureAvancement = $TempsTotalSong Then
                    _SoundStop($SoundToPlay)
                    _SoundClose($SoundToPlay)
                    Sleep(500)
                If ControlCommand("", "", $Shuffle, "IsChecked", "") = 0 Then
                    $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $CurrentIndexPlay + 1))
                    GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                    _GUICtrlListBox_SetCurSel($PlayList, $CurrentIndexPlay + 1)
                    Dim $szDrive, $szDir, $szFName, $szExt
                    $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $CurrentIndexPlay + 1), $szDrive, $szDir, $szFName, $szExt)
                    GUICtrlSetData($Input2, $NameSong[3])
                    _SoundPlay($SoundToPlay, 0)
                    GUICtrlSetData($PosSong, 0)
                Else
                    $IndexShuffle = Random(0, $NbrSongsInPlayList, 1)
                        If $IndexShuffle = $CurrentIndexPlay Then $IndexShuffle = $CurrentIndexPlay + 3
                    $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $IndexShuffle))
                    GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                    _GUICtrlListBox_SetCurSel($PlayList, $IndexShuffle)
                    Dim $szDrive, $szDir, $szFName, $szExt
                    $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $IndexShuffle), $szDrive, $szDir, $szFName, $szExt)
                    GUICtrlSetData($Input2, $NameSong[3])
                    _SoundPlay($SoundToPlay, 0)
                    GUICtrlSetData($PosSong, 0)
                EndIf
                EndIf
            EndIf
        
            If $CurrentIndexPlay = $NbrSongsInPlayList Then
                If $LectureAvancement = $TempsTotalSong Then
                    _SoundStop($SoundToPlay)
                    _SoundClose($SoundToPlay)
                    Sleep(500)
                    If ControlCommand("", "", $Repeat, "IsChecked", "") = 1 And ControlCommand("", "", $Shuffle, "IsChecked", "") = 0 Then
                        $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, 0))
                        GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                        _GUICtrlListBox_SetCurSel($PlayList,  0)
                        Dim $szDrive, $szDir, $szFName, $szExt
                        $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList,  0), $szDrive, $szDir, $szFName, $szExt)
                        GUICtrlSetData($Input2, $NameSong[3])
                        _SoundPlay($SoundToPlay, 0)
                        GUICtrlSetData($PosSong, 0)
                    ElseIf ControlCommand("", "", $Repeat, "IsChecked", "") = 1 And ControlCommand("", "", $Shuffle, "IsChecked", "") = 1 Then
                        $IndexShuffle = Random(0, $NbrSongsInPlayList, 1)
                        If $IndexShuffle = $CurrentIndexPlay Then $IndexShuffle = $CurrentIndexPlay + 3
                        $SoundToPlay = _SoundOpen(_GUICtrlListBox_GetText($PlayList, $IndexShuffle))
                        GUICtrlSetData($Input1, _SoundLength($SoundToPlay, 1))
                        _GUICtrlListBox_SetCurSel($PlayList, $IndexShuffle)
                        Dim $szDrive, $szDir, $szFName, $szExt
                        $NameSong = _PathSplit(_GUICtrlListBox_GetText($PlayList, $IndexShuffle), $szDrive, $szDir, $szFName, $szExt)
                        GUICtrlSetData($Input2, $NameSong[3])
                        _SoundPlay($SoundToPlay, 0)
                        GUICtrlSetData($PosSong, 0)
                    EndIf
                EndIf
            EndIf
        Case $msg = $MoveForward And IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing"
            $LectureAvancement = _SoundPos($SoundToPlay, 2) / 1000
            _SoundSeek($SoundToPlay, 0, 0, $LectureAvancement + 5)
            _SoundPlay($SoundToPlay, 0)
        Case $msg = $MoveBack And IsDeclared("SoundToPlay") And _SoundStatus($SoundToPlay) = "playing"
            $LectureAvancement = _SoundPos($SoundToPlay, 2) / 1000
            _SoundSeek($SoundToPlay, 0, 0, $LectureAvancement - 5)
            _SoundPlay($SoundToPlay, 0)
            
    EndSelect
WEnd

Par contre au niveau de la barre de lecture, je verrais plutôt un slider pour l'avancement dans la chanson et les flèches pour passer à la chanson suivante

[jbnh]

il est vraiment sympa ! Dommage que les Gui ne permettent pas encore de faire des trucs assez design mais ca viendra avec les GDIPlus & co

[timmalos]

Merci beaucoup Tlem

PUis je te demander si tu as tout fait à la main? dans ce cas merci d'avoir passé beaucoup de temps je pense
Sinon tu peux m'expliquer comment tu as trouvé tout ce qui fallait changer? AS tu un petit programme ou juste avec l'experience?

[achraf]

remplacer ça :

Code : Tout sélectionner

 Case $msg = $GUI_EVENT_CLOSE
            If IsDeclared($SoundToPlay) Then _SoundClose($SoundToPlay)
            ExitLoop

avec ça :

Code : Tout sélectionner

Case $msg = $GUI_EVENT_CLOSE$
            global $SoundToPlay
            If IsDeclared($SoundToPlay) Then _SoundClose($SoundToPlay)
            ExitLoop

car il y a un error lorsque tu exit sans play aucun mp3 ou wav

[Tlem]

En réalité, l'erreur est provoquée par la non déclaration de $SoundToPlay en début du script.
Comme celui-ci ce trouve dans des boucles IF, selon les conditions le compilateur estime que cette variable peut ne pas être déclarée.
un simple Dim $SoundToPlay en début du script résout le problème ...

[ethneldryt]

bonjour, votre lecteur ne marche pas,je sélectionne le mp3 mais plus rien ensuite.

[L4crymal]

Si il est type top la carotte son truc c'est toi qui a un problème...
Poste ta question sur le forum adéquat avec le + d'infos possible pour résoudre ce problème

[Max5]

Je vois que ce topic a été remonté, j'en profite pour édité mon post principal tout en haut, en y mettant une MAJ (qui a 5 ou 6 mois) pour ceux que ça intéresse.