Arsip: Memainkan Lagu secara urut (otomatis) pada Media Player

 
user image
more 18 years ago

naren

Saya membuat aplikasi mediaplayer untuk karaoke, menggunakan komponen windows media player, yang saya ingin tanyakan adalah, bagaimana membuat media player ini bisa memainkan lagu secara urut dan otomatis seperti pada winamp? Jadi kalo lagu yang sedang diputar habis, maka secara otomatis akan memainkan lagu berikutnya. Atas pencerahannya, makasih banyak
user image
more 18 years ago

mas_kofa

1. Untuk membuat otomatis coba manfaatkan property posisition dan property length....... 2. urutkan playlist (order by) dengan memanfaatkan table sementara...... S'Moga memberi kecerahan..............
user image
more 18 years ago

irosyidi

masukin aja daftar lagu di list box...ntar listbox di hiden... mo di random ato di urutin tinggal ngolah isi list box..media player tinggal play
user image
more 18 years ago

pebbie

pasang variabel indeks lagu saat ini (playlist bisa disimpan di listbox atau ListView) gunakan event handler OnNotify, jadi setiap Media Player selesai (mode Stopped) update indeks playlist ke lagu berikutnya lalu load lagu tsb ke media player.
Note: before running this example, initialize the Notify property of TMediaPlayer1 to true. const ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open'); procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin with Sender as TMediaPlayer do begin Form1.Caption := ModeStr[Mode]; { Note we must reset the Notify property to True } { so that we are notified the next time the } { mode changes } Notify := True; end; end;
user image
more 17 years ago

kabuki_enemy

Q prnh nyoba pake procedure TForm1.MediaPlayer1Notify.... Q pake 2 button Play and Stop... Ketika Q play Form1.Caption mang berubah jadi "playing"....trus Q biarin lagu smpe berhenti... tp koq Form1.Caption tidak berubah... tp klo Q klik button Stop baru deh Form1.Caption jadi "Stopped"; ne procedure buat button procedure TForm1.Button1Click(Sender: TObject); begin mediaplayer1.Open; mediaPlayer1.Play; end; procedure TForm1.Button2Click(Sender: TObject); begin mediaPlayer1.Stop; end; so kesimpulannx procedure onNotify ga bisa otomatis jalan ketika ada prubahan mode dari Play trus Stop.... bener ga???? coz Q lgi mo bikin mp3 player yg bisa muter smua lagu dalam playlist, logikax C ..ketika lagu berhenti buka file kedua trus Play... Masak iya Q harus pake timer buat ngecek keadaan media player lagi play or stop... gmn ne....tlng pencerahanx... Thanx bro... :?:
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com