Pemutar Musik Dengan Delphi

Oke sobatku semua kali ini mari kita belajar membuat sebuah program pemutar music kecil – kecilan dengan menggunakan program Delphi, biasanya kita Cuma bisa memutarkan music melalui apalikasi buatan orang lain seperti Winamp, Jet Audio, Kmp Player, dll. Kali ini mari kita putarkan music melalui program pemutar music yang akan kita buat sekarang ini. Tak usah panjang lebar langsung saja buka Delphi sobat kemudian tambahkan beberapa komponen seperti pada table dibawah ini:

komponen	Tab pada Component Pallate
TDriveComboBox1	Win 3.1
TDirectoryListBox1	Win 3.1
TFileListBox1	Win 3.1
TMediaPlayer1	System
TTimer1,TTimer2	System
TTrackBar1	Win 3.2
Button1,2,3	Standard
Label1,2	Standard

Aturlah komponen – komponen tersebut seperti pada gambar dibawah ini:




Setelah sobat mengatur semua komponen seperti pada gambar diatas sekarang aturlah property -property komponen tersebut seperti pada table dibawah ini:

Komponen	Property	Nilai
TDriveComboBox1	DirList	DirectoryListBox1
TDirectoryListBox1	FileList	FileListBox1
TFileListBox1	Mask	*.bmp;*.jpg
TFileListBox1	ShowGlyphs	True
TMediaPlayer1	Visible	False
TTimer1	Enabled	False
TTimer1	Interval	1000
TTimer2	Enabled	False
TTimer2	Intervasl	100
TButton1	Caption	Play
TButton1	Caption	Pause
TButton1	Caption	Stop
TLabel1	Caption	Label1
TLabel2	Caption	0:0
TForm1	Caption	Multimedia
TForm1	BorderStyle	bsDialog

Kemudian baru kita memulai membari perintah – perintah pada masing – masing komponen. Double klik pada Timer1 dan ketikkan listing berikut ini

procedure TForm1.Timer1Timer(Sender: TObject);
var waktu : integer;
    menit, detik : string;
begin
    waktu:=(mediaplayer1.Length div 1000) - (mediaplayer1.Position div 1000);
    menit:=inttostr(waktu div 60);
    detik:=inttostr(waktu mod 60);
    if length(menit)=1 then menit:='0'+menit;
    if length(detik)=1 then detik:='0'+detik;
    label2.Caption:=menit+':'+detik;
    trackbar1.Position := mediaplayer1.Position div 10;
    if trackbar1.Dragging = true then
        mediaplayer1.Position := trackbar1.Position;
end;

Double klik pada Timer2 dan ketikkan listing berikut ini

procedure TForm1.Timer2Timer(Sender: TObject);
begin
    label1.Left := label1.Left - 8;
    if label1.Left = 8 then
        label1.Left := 248;
end;

Double klik pada Button1 dan ketikkan listing berikut ini

procedure TForm1.Button1Click(Sender: TObject);
begin
    mediaplayer1.FileName := filelistbox1.FileName;
    mediaplayer1.Open;
    mediaplayer1.Play;
    timer1.Enabled := true;
    timer2.Enabled := true;
    trackbar1.Max := mediaplayer1.Length div 10;
    label1.caption:=filelistbox1.items.strings[filelistbox1.itemindex];
end;

Double klik pada Button1 dan ketikkan listing berikut ini

procedure TForm1.Button2Click(Sender: TObject);
begin
    mediaplayer1.Pause;
end;

Double klik pada Button1 dan ketikkan listing berikut ini

procedure TForm1.Button3Click(Sender: TObject);
begin
    mediaplayer1.Stop;
    timer1.Enabled := false;
    timer2.Enabled := false;
end;

Selesai sudah program pemutar music kecil - kecilan kita ini, sekarang tinggal dijalankan programnya dengan menekan tombol F9. Tampilan program ketika dijalankan :
:-)

Tweet