Pages

Tuesday, April 3, 2012

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 :
:-)

3 comments:

  1. waw cantek na...
    trackbarnya bisa gak di klik dimana aja...

    ReplyDelete
  2. itu bsa lagsung pakek khan....
    g da error lg ntar..

    ReplyDelete