Sabtu, 09 Maret 2013

Membuat Pemutar Musik MP3 dengan Delphi


Tutorial ini menggunakan Delphi XE, dan penggunaan di Delphi 7 atau versi lainnya seharusnya tidak ada masalah, karena tidak ada menggunakan komponen diluar bawaaan delphi.
Buat design aplikasi pemutar musik seperti gambar dibawah ini
design pemutar musik delphi
Komponen yang digunakan
1 Mediaplayer
1 Tedit
1 Progressbar
1 timer
1 timage
1 timer
1 listbox
1 Opendialog
1 TLabel
setelah selesai mendesign, sekarang waktunya untuk menulis script agar aplikasi pemutar lagu tersebut dapat berjalan.
Klik dua kali pada tombol pilih mp3 dan ketik script dibawah ini

if OpenDialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
ListBox1.Items:=OpenDialog1.Files;
ProgressBar1.Max:=0;
MediaPlayer1.Close;
MediaPlayer1.FileName:=edit1.Text;
MediaPlayer1.Open;
ProgressBar1.Max:=MediaPlayer1.Length;
end;
Listbox berada di bawah tulisan Klik untuk memutar lagu : klik dua kali pada listbox dan tambahkan script
MediaPlayer1.Play;
lanjutkan dengan mengklik pada timer, tambahkan script dibawah ini
if ProgressBar1.Max<>0 then
ProgressBar1.Position:=MediaPlayer1.Position;
end;
untuk menyembunyikan Mediaplayer, klik dua kali pada form lalu tambahkan script
MediaPlayer1.Enabled:=False;
Jalankan program dengan menekan tombol F9 di keyboard. Tampilannya seperti gambar dibawah ini
tampilan pemutar lagu mp3
Contoh tampilan aplikasi sewaktu memutar MP3
tampilan pemutar lagu mp3
Download source code :http://www.mediafire.com/download.php?i4p317u5v7d67jh

0 komentar:

 
Design by http://eksperimen007.blogspot.com/ | Bloggerized by Yoksin Yonathan