[Source] Początki w AutoIT - Odtwarzacz Muzyki

[Panth]

Witam.

 

Niedawno zacząłem przygodę z językiem AutoIT - Są to dopiero początki.

Chciałbym zaprezentować skromny odtwarzacz muzyki.

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\user\desktop\autoit\odtwarzacz_mp3.kxf
$Odtwarzacz = GUICreate("Odtwarzacz Muzyki", 276, 216, 364, 241)
$Start = GUICtrlCreateButton("Start", 8, 184, 81, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Wyjscie = GUICtrlCreateButton("Wyjście", 184, 184, 81, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Przegladaj = GUICtrlCreateButton("Przeglądaj", 96, 184, 81, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $Przegladaj
           $piosenka = FileOpenDialog("Wybierz Utwór", @DesktopDir & "", "Muzyka (*.mp3;*.wav)", 1)
       Case $Start
           SoundPlay($piosenka)
       Case $Wyjscie
           Exit
   EndSwitch
WEnd

 

Liczę na cenzurowaną krytykę .

[KingSP1MPC]

przydało by sie coś więcej. pauzowanie, stopowanie ,wznawianie utworu,importowanie wielu piosenek, katalogów i wyświetlanie czasu ich trwania.

[Phoenix_PL]

Że tak ci pomogę, @topic:

Użyj biblioteki Sound.au3, tam jest sporo funkcji do obsługi mptrójek :P

I spróbuj jakoś zintegrować odtwarzanie z np. progressbarem (jak chcesz lecieć na hardkora, to zrób suwak w którym będziesz mógł swobodnie zmieniać pozycję utworu ), nie będzie to zbyt trudne (GUICtrlSetData + AdlibRegister dla funkcji odtwarzającej :P)

[EdzioSkarpeta]

Aleś zaszalał =D 3 gudziki i 27 linijek z kodu, z czego ~19 zostało wygenerowanych przez KODA No ale początkującego wszystko cieszy :P Ahh pamietętam jak ten MsgBox to była potenga