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
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
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
Contoh tampilan aplikasi sewaktu memutar MP3
Download source code :
http://www.mediafire.com/download.php?i4p317u5v7d67jh
0 komentar:
Posting Komentar