Player music and playlist

xan · June 7, 2013

hello guys, I made a music player to view it

Player

https://www.dropbox.com/s/dlj9w5tnteilbhl/Autoit%20Player.rar

video

Edited June 7, 2013 by xan

wakillon · June 7, 2013

Welcome Xan to the AutoIt Forums

If i place a mp3 right to the script i can read it, but only one time...

Try to add a menu or button for load mp3 files/Dir.

A good start but some improvements are needed.

xan · August 18, 2013

new version of this player with some enhancements like click and run

#include <File.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

If FileExists("Lista.ini") Then                            ;if the list exists is displayed
    $lista = IniRead("Lista.ini", "Lista" , "Caminho","")
    $var = $lista
Else                                                       ;if not, it created a false mp3 directory script
    FileOpen("No-Music.mp3",1)
    Sleep(300)
    $var = @ScriptDir
EndIf

Local $FileList = _FileListToArray($var, "*.mp3*", 1)
Global $tocando = False, $music = 1, $voll = "Volume", $vol = 30, $max = $FileList[0], $title = $FileList[1]

#region ### START Koda GUI section ###
    $Form1_1 = GUICreate("Autoit Sound Play", 500, 313, 192, 124)
    GUISetBkColor(0x393952)
    $List1 = GUICtrlCreateListView("", 200, 8, 261, 220)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    GUISetState()
    _GUICtrlListView_InsertColumn($List1, 0,"                 " & $FileList[0] & " - músicas ", 257)

For $i = 1 To $max Step 1
    _GUICtrlListView_AddItem($List1, $FileList[$i], $i)            ;generating items according to the number of songs
Next

    $Prev = GUICtrlCreateButton("Prev", 104, 2, 81, 41)
    GUICtrlSetBkColor(-1, 0xff6633)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $Next = GUICtrlCreateButton("Next", 104, 51, 81, 49)
    GUICtrlSetBkColor(-1, 0xff6633)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $Play = GUICtrlCreateButton("Play", 8, 2, 89, 97)
    GUICtrlSetBkColor(-1, 0xbdc6c6)
    GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
    $Stop = GUICtrlCreateButton("Stop", 8, 110, 177, 33)
    GUICtrlSetBkColor(-1, 0xbdc6c6)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $List = GUICtrlCreateButton("List", 136, 147, 49, 73)
    GUICtrlSetBkColor(-1, 0x999999)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $VolUP = GUICtrlCreateButton("VolUP", 72, 147, 57, 73)
    GUICtrlSetBkColor(-1, 0xbdc6c6)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $AutoSound = GUICtrlCreateLabel("A" & @CR & "U" & @CR & "T" & @CR & "O" & _
    @CR & @CR & @CR & "S" & @CR & "O" & @CR & "U" & @CR & "N" & @CR & "D", 478, 10, 257, 217)
    $VolDown = GUICtrlCreateButton("VolDown", 8, 147, 57, 73)
    GUICtrlSetBkColor(-1, 0xbdc6c6)
    $Volume = GUICtrlCreateLabel("Volume " & $vol, 15, 230, 400, 45)
    GUICtrlSetFont(-1, 30, 500, 0, "MS Sans Serif")
    $List2 = GUICtrlCreateList($title & " *********************************", 0, 280, 500, 50,3)
    GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1,0xbdc6c6)
    GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

SoundPlay($var & "\" & $music, 0)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Play
            $title = $FileList[$music]
            SoundPlay($var & "\" & $FileList[$music], 0)
            GUICtrlSetData($List2, $title & " *********************************")
            ;
            $tocando = True
        Case $Prev
            If $tocando And $music > 1 Then
                $music -= 1
                $title = $FileList[$music]
                SoundPlay($var & "\" & $FileList[$music], 0)
                GUICtrlSetData($List2, $title & " *********************************")
            EndIf
            If $tocando And $music < 2 Then
                SoundPlay($var & "\" & $FileList[$music], 0)
            EndIf
        Case $Next
            If $tocando And $music < $max Then
                $music += 1
                $title = $FileList[$music]
                GUICtrlSetData($List2,"")
                GUICtrlSetData($List2, $title & " *********************************")
                SoundPlay($var & "\" & $FileList[$music], 0)
            EndIf
        Case $Stop
            SoundPlay("nosound", 0)
            $tocando = False
        Case $VolDown
            If $tocando And $vol >= 5 Then
                $vol -= 5
                GUICtrlSetData($Volume, $voll & " " & $vol)
            EndIf
        Case $VolUP
            If $tocando And $vol < 100 Then
                $vol += 5
                GUICtrlSetData($Volume, $voll & " " & $vol)
            EndIf
        Case $List

            $openwin = FileSelectFolder("Escolha um pasta.", "")
            $var = $openwin                                       ; var equal to the Open Directory
            Local $FileList = _FileListToArray($var, "*.mp3", 0)  ; mp3 transforms into arrays
            $max   = $FileList[0]                                   ;[0] number of mp3 is the limit max
            $open  = FileOpen("Lista.ini", 2)
            $lista = IniWrite("Lista.ini", "Lista", "Caminho", $var)
            GUICtrlDelete($List1)
            $List1 = GUICtrlCreateListView("", 200, 8, 261, 220)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
            GUISetState()
            _GUICtrlListView_InsertColumn($List1, 0,"                 " & $FileList[0] & " - músicas ", 256)

For $i = 1 To $max Step 1
    _GUICtrlListView_AddItem($List1, $FileList[$i], $i)         ;regenerates items after new directory
Next

        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    SoundSetWaveVolume($vol)
    Sleep(10)
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)              ;recognizes the item double-clicked and executed

    Local $iCode, $tNMHDR, $hWndListView, $tInfo, $aItem, $hWndListView = $List1, _
          $tNMHDR = DllStructCreate($tagNMHDR, $ilParam), $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $iCode
        Case $NM_DBLCLK
            $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
            $aItem = _GUICtrlListView_GetItem($hWndListView, DllStructGetData($tInfo, "Index"))
            GUICtrlSetData($List2, "")
            GUICtrlSetData($List2, $aItem[3] & " *********************************")
            SoundPlay($var & "\" & $aItem[3], 0)
            $tocando = True                        ;music playing
    EndSwitch
EndFunc

mesale0077 · June 26, 2014

how ? play mp3 auto select listbox show

xan · October 10, 2014

how ? play mp3 auto select listbox show

Some modifications, continued track, time etc.

Edited October 14, 2014 by xan

xan · October 14, 2014

Some modifications, continued track, time etc.

#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Sound.au3>

If FileExists("Lista.ini") Then                          ;Se a lista existe é exibida
    $lista = IniRead("Lista.ini", "Lista" , "Caminho","")
    $var = $lista
Else                                                     ;Se não é criado um falso mp3 no diretório do Script
    FileOpen("No-Music.mp3",1)
    Sleep(300)
    $var = @ScriptDir
EndIf
Local $asteriscos = " ****************************  "
Local $FileList = _FileListToArray($var, "*.mp3*", 1), $dir,$ntime,$slength
Global $tocando, $music = 1, $vol = 30, $max = $FileList[0], $title = $FileList[1],$sound, $List2

         GUICreate("Autoit Sound Play", 500, 313, 192, 124, -1, 16)
$List1 = GUICtrlCreateListView("", 200, 4, 295, 215, 0x00800000)
         GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
         GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
         GUISetBkColor(0x393952)
         GUISetState()
        _GUICtrlListView_InsertColumn($List1, 0," " & $FileList[0] & " - músicas ", 257,0)
GUICtrlSetState ( - 1 , $GUI_DROPACCEPTED )
For $i = 1 To $max Step 1
        _GUICtrlListView_AddItem($List1, $FileList[$i], $i) ;gera itens de acordo com o nº de músicas
Next

$Prev = GUICtrlCreateButton("Prev", 104, 2, 81, 41)
        GUICtrlSetBkColor(-1, 0xff6633)
        GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Next = GUICtrlCreateButton("Next", 104, 51, 81, 49)
        GUICtrlSetBkColor(-1, 0xff6633)
        GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Play = GUICtrlCreateButton("Play", 8, 2, 89, 97)
        GUICtrlSetBkColor(-1, 0xbdc6c6)
        GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Stop = GUICtrlCreateButton("Stop", 8, 110, 177, 33)
        GUICtrlSetBkColor(-1, 0xbdc6c6)
        GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$List = GUICtrlCreateButton("List", 136, 147, 49, 73)
        GUICtrlSetBkColor(-1, 0x999999)
        GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$VolUP= GUICtrlCreateButton("VolUP", 72, 147, 57, 73)
        GUICtrlSetBkColor(-1, 0xbdc6c6)
        GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$time = GUICtrlCreateLabel("Autosom", 420, 240, 80, 30)
        GUICtrlSetColor(-1, 0xffffff)
$VDown= GUICtrlCreateButton("VolDown", 8, 147, 57, 73)
        GUICtrlSetBkColor(-1, 0xbdc6c6)
$Volume=GUICtrlCreateLabel("Volume " & $vol, 15, 230, 340, 45)
        GUICtrlSetFont(-1, 30, 500, 0, "MS Sans Serif")
$List2 =GUICtrlCreateList($title & " *********************************", 0, 280, 500, 50,3)
        GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
        GUICtrlSetBkColor(-1,0xbdc6c6)
        GUISetState(@SW_SHOW)
While 1
    If $ntime <> _SoundPos($sound, 1) Then
        GUICtrlSetData($time,"Time " & _SoundLength($sound, 1) & @cr & " |>     "& _SoundPos($sound, 1))
        $ntime = _SoundPos($sound, 1)
    EndIf
    $nMsg = GUIGetMsg()
    If _SoundPos($sound) >= _SoundLength($sound, 1) And $tocando And $music < $max Then
        Sleep(1500)
        SoundControl(1)
    EndIf
    Switch $nMsg
        Case $GUI_EVENT_DROPPED
            $File = @GUI_DragFile
            $str  = StringSplit($File, "\", 1)
            ConsoleWrite($max&@CR)
            _GUICtrlListView_AddItem($List1, $str[$str[0]], $max)
        Case $Play
            SoundControl(0)
        Case $Next
            If $music < $max And $tocando Then SoundControl(1)
        Case $Prev
            If $music > 1 And $tocando Then SoundControl(2)
        Case $Stop
            _SoundStop($sound)
            GUICtrlSetData($Play, "Play")
            $tocando = False
        Case $VDown
            If $tocando And $vol >= 5 Then
                $vol -= 5
                GUICtrlSetData($Volume, "Volume " & $vol)
            EndIf
        Case $VolUP
            If $tocando And $vol < 100 Then
                $vol += 5
                GUICtrlSetData($Volume, "Volume " & $vol)
            EndIf
        Case $List
            $openwin = FileSelectFolder("Escolha um pasta.", $dir )

            Local $FileList = _FileListToArray($openwin, "*.mp3", 0) ; transforma os mp3 em arrays
            If @error = 1 Or Not $openwin Then
                 $FileList = _FileListToArray($var, "*.mp3", 0)     ; transforma os mp3 em arrays
             Else
                 $var = $openwin
            EndIf
            $max = $FileList[0]                                     ; [0] número de mp3 é o limite max
            $open = FileOpen("Lista.ini", 2)
            $lista = IniWrite("Lista.ini", "Lista", "Caminho", $var)
            GUICtrlDelete($List1)
            $List1 = GUICtrlCreateListView("", 200, 4, 285, 215)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
            GUISetState()
            _GUICtrlListView_InsertColumn($List1, 0," " & $FileList[0] & " - músicas ", 256)
            GUICtrlSetState ( - 1 , $GUI_DROPACCEPTED )
            For $i = 1 To $max Step 1
            _GUICtrlListView_AddItem($List1, $FileList[$i], $i)   ;gera novamente itens após novo diretório
            Next
        Case -3
            Exit
    EndSwitch
    SoundSetWaveVolume($vol)
    Sleep(10)
WEnd

Func SoundControl($mode)
    If $mode = 0 Then
        If $tocando = 2 Then
            GUICtrlSetData($Play, "||")
            _SoundResume($sound)
            $tocando = 1
        ElseIf $tocando Then
            GUICtrlSetData($Play, "Play")
            _SoundPause($sound)
            $tocando = 2
        Else
            GUICtrlSetData($Play, "||")
            $sound = _SoundOpen($var & "\" & $FileList[$music])
            _SoundPlay($sound)
            $tocando = 1
        EndIf
    ElseIf $mode = 1 Then
        $tocando = 1
        _SoundClose($sound)
        $music += 1
        $sound = _SoundOpen($var & "\" & $FileList[$music])
        _SoundPlay($sound)
    ElseIf $mode = 2 Then
        $tocando = 1
        _SoundClose($sound)
        $music -= 1
        $sound = _SoundOpen($var & "\" & $FileList[$music])
        _SoundPlay($sound)
    ElseIf $mode = 3 Then
        GUICtrlSetData($Play, "||")
        $tocando = 1
        _SoundClose($sound)
        $sound = _SoundOpen($var & "\" & $FileList[$music])
        _SoundPlay($sound)
    EndIf
        $title = $FileList[$music]
        $star = $asteriscos
        For $i = 0 To StringLen($star)
            $starr = StringTrimLeft($star,$i)
            GUICtrlSetData($List2, "")
            GUICtrlSetData($List2, $starr & $title & $asteriscos); & $asteriscos)
            Sleep(30)
        Next
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)                 ;reconhece o ítem clicado duas vezes e executa
    Local $iCode, $tNMHDR, $hWndListView, $tInfo, $aItem, $hWndListView = $List1, _
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam), $iCode = DllStructGetData($tNMHDR, "Code")
    If $iCode = $NM_DBLCLK Then
        $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
        $aItem = _GUICtrlListView_GetItem($hWndListView, DllStructGetData($tInfo, "Index"))
        $music =  $aItem[4]
         SoundControl(3)
    EndIf
EndFunc

Sign In

Player music and playlist

Recommended Posts

xan

Link to comment

Share on other sites

wakillon

Link to comment

Share on other sites

xan

Link to comment

Share on other sites

mesale0077

Link to comment

Share on other sites

xan

Link to comment

Share on other sites

xan

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta