Aplikasi Musik Player Delphi7

membuat aplikasi multimedia pemutar musik sederhana menggunakan software Borland Delphi 7.0 yang nantinya bisa menjadi alternatif selain menggunakan Software Winamp. Berikut OutPut yang akan kita buat :

Langkah-Langkah Pengerjaan :

- Desain Form :

1. Sediakan satu form baru dan ganti caption-nya dengan Simple Multimedia.

2. Letakkan komponen MediaPlayer pada form. Komponennya dapat di ambil pada tab System.

Pada Object Inspector Properties, pada VisibleButtons yang bernilai True hanyabtPlay, btPause, dan btStop. Selain itu bernilai False

3. Ambil beberapa label dan letakkan pada form. Label 1, pada object inspector properties ubah Captionnya menjadi “Duration :”. Label 2, pada object inspector properties ubah Captionnya menjadi “Position :”. Selanjutnya Label 3, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbduration”. Selanjutnya Label 4, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbposition”. Selanjutnya Label 5, pada object inspector properties ubah Captionnya menjadi “ms” begitupula dengan Label 6.

4. Letakkan 2 komponen SpeedButton pada Form. Komponen tersebut dapat di ambil pada Tab Additional

SpeedButton yang pertama Pada Object Inspector Properties ubah Captionnya menjadi “Open File” dan SpeedButton yang kedua pada Object Inspector Properties ubah Captionnya menjadi “Exit”

5. Selanjutnya letakkan komponen CheckBox pada Form. Komponen tersebut dapat di ambil pada Tab Standart.


Kemudian pada Object Inspector Properties ubah Captionnya menjadi “Repeat” dan Name menjadi “cbrepeat”.

6. Selanjutnya tambahkan komponen Timer pada Form. Komponen tersebut dapat di ambil pada Tab System.

Pada Object Inspector Properties ubah Intervalnya menjadi 200.

7. Terakhir tambahkan komponen OpenDialog pada Form. Komponen tersebut dapat diambil pada Tab Dialog.
Pada Object Inspector Properties, pilih Filter dan Setting Filter Editornya seperti gambar berikut ini :
-Scripting / Penulisan Listing Program:

Double Click pada komponen MediaPlayer dan ketikkan Listing berikut :

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

var DoDefault: Boolean);

begin

case button of

btPlay:timer1.Enabled:=true;

btPause:

begin

if MediaPlayer1.Mode=mpPaused then

timer1.Enabled:=true

else

Timer1.Enabled:=false;

end;

btStop:

begin

MediaPlayer1.Position:=0;

Timer1.Enabled:=false;

lbposition.Caption:=’0';

end;

end;

Double Click komponen SpeedButton Open File dan ketikkan listing berikut:

procedure TForm1.spopenClick(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

lbduration.Caption:=inttostr(MediaPlayer1.Length);

end;

end;

Double Click komponen SpeedButton Exit dan ketikkan listing berikut:

procedure TForm1.spcloseClick(Sender: TObject);

begin

close;

end;

Double Click komponen Timer dan ketikkan listing berikut:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if strtoint(lbduration.Caption)<>strtoint(lbposition.Caption) then

lbposition.Caption:=inttostr(MediaPlayer1.Position)

else

if cbrepeat.Checked=true then

begin

MediaPlayer1.Position:=0;

lbposition.Caption:=’0';

MediaPlayer1.Play;

end

else

begin

timer1.Enabled:=false;

lbposition.Caption:=’0';

end;

end;

Gimana gampang kan? Selamat mencoba, setelah anda mengikuti langkah-langkah yang ada maka anda dapat menikmati aplikasi multimedia sederhana anda.