Audio Player
Scris de bullygil
Audio Player
Va voi arata cum sa faceti un audio player simplu.
Ca de obicei, deschideti Koda.
Creeati 3 butoane
Deschidere Fisier
Pornire
Oprire
Apoi creeati un input, care va afisa lungimea melodiei.
Apoi faceti setarile:
Dupa modelul meu, ar trebui sa arate asa
Generati codul(F9), il copiati apoi il lipiti in editor.
Acum veti modifica cate ceva prin cod:
La butoane (ele sunt reprezentate prin variabile $button1, $button2 etc..), modificati:
$button1 in $deschidere_fis
$button2 in $play
$button3 in $stop
Iar $input1 in $timp
Pentru a fi mai usor de identificat:)
Acum mai adaugati o chestie benefica:
#include
Veti folosi functii de data aceasta, deoarece au mai multa flexibilitate
Pentru a studia functiile , le gasiti in Autoit3\Include\Sound.au3
Scriem
Case $deschidere_fis
_SoundClose(1)-Pentru ca atunci cand butonul Deschidere Fisier v-a fi accesat a doua oara, sunetul anterior sa fie inchis.
$hfile=FileOpenDialog(“Deschidere Melodie”,@DesktopDir,”Muzica(*.mp3)”)
De ce numim variabila $hfile asa?Daca va uitati in fisierul sound.au3, veti vedea ca, la comanda _SoundOpen(care o vom folosi un picut mai incolo), fisierul este notat cu variabila $hfile.
Tot aici scriem:
_SoundOpen($hfile,1)
_SoundOpen este functia
$hfile este calea catre melodie
1 este id-ul cu care melodia este cunoscuta in alte funcii.
In continuare:
GUICtrlSetData($timp,_SoundLength(1,1))
Aceasta comanda v-a scrie in input-ul creeat de noi, lungimea melodiei.
Incepti un nou rand:
Case $play
_SoundPlay(1)
_SoundPlay este comanda
1 este id-ul de care va spuneam
Continuati cu un nou rand:
Case $stop
_SoundStop(1)
Nu cred ca mai este nevoie de explicatie.Acelas lucru…
Cam asta este tot.E timpul pentru un test ;)
Merge :)
Enjoy!Si daca intampinati probleme, nu ezitati sa ma contactati ;)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(”AForm1″, 132, 203, 199, 121, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_GROUP,$WS_CLIPSIBLINGS))
$deschidere_fis = GUICtrlCreateButton(”Deschidere Fisier”, 7, 7, 113, 29, 0)
$play = GUICtrlCreateButton(”Pornire”, 7, 49, 113, 43, 0)
$stop = GUICtrlCreateButton(”Oprire”, 7, 98, 113, 43, 0)
$timp = GUICtrlCreateInput(”AInput1″, 7, 147, 64, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $deschidere_fis
_SoundClose(1)
$hfile=FileOpenDialog(”Deschidere Melodie”,@DesktopDir,”Muzica(*.mp3)”)
_SoundOpen($hfile,1)
GUICtrlSetData($timp,_SoundLength(1,1))
Case $play
_SoundPlay(1)
Case $stop
_SoundStop(1)
EndSwitch
WEnd
Categoria: Programare