Cara Membuat Winamp Menggunakan Delphi 7

 Gambar 1

1.     Tambahkan 2 komponen panel (Panel1, Panel2) dari Tab Standart kedalam form.

2.     Komponen label (Label1, Label2) dari Tab Standart diletakkan diatas panel2.

3.     Komponen speedbutton (speedbutton1) dari Tab Additional diletakkan diatas Panel1. Desain dapat anda sesuaikan dengan gambar1 tersebut.

Gambar 2

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
Panel 1	Align = Altop Caption = kosong
Panel 2	Align = Altop Caption = kosong Name = Paudio
Label1	Caption = Audio Players
Label2	Caption = kosong
Form1	Caption = Winamp Faisal Riza_M Autosize = True
Speedbutton1	Caption = Audio Players Groupindex = 1 Down = True AllowAllUp = True

   4.      Double klik komponen Speedbutton1, Kemudian ketikkan Prosedurnya seperti dibawah ini:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Paudio.Visible:=SpeedButton1.Down;

end;

   5.     Dari aplikasi sebelumnya, tambahkan komponen MediaPlayers1 dari Tab Sistem.

   6.     Komponen Progressbar1 dari Tab Additional kedalam Panel2.

   7.     Dan kompnen Timer1 dari Tab System kedalam Panel2.

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
MediaPlayers1	Name = AudioPlayer
Progressbar1	Name = Audiobar
Timer1	Interval = 10

  8.     Tambahkan komponen Drivecombobox, Directorylistbox, filelesbox dan filtercombobok dari Tab Win 3.1.

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
Drivecombobox	Dirrlis = Directorylistbox1
Directorylistbox	Filelist = Filelisbox1
filtercombobox	Filelisbox1

  9.     Aktifkan komponen filtercombobok dan Klik tanda (…) disebelah kanan kolom Filte pada Tab Property, sehingga muncul Editor file editor seperti gambar berikut.

Gambar 3

  10.   Double klik pada komponen Timer1, kemudian ubah prosedurnnya seperti berikut:

Procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-Label2.Width then

Label2.Left:=Panel2.Width

Else

Label2.Left:=Label1.Left - 1;

AudioBar.Position:=AudioPlayer.Position;

end;

  11.   Klik komponen filelesbox1, kemudian klik Tab Even pada Objek Inspektor. Double klikpada kolom OnKlik, kemudian lengkapi Prosedurnya seperti berikut:

Procedure TForm1.FileListBox1Click(Sender: TObject);

Begin

AudioPlayer.FileName:=FileListBox1.FileName;

AudioPlayer.Open;

Label2.Caption:=FileListBox1.FileName;

AudioBar.Max:=AudioPlayer.Length;

end;

  12.    Masih dengan kompoen FileListBox1, pada Tab Even double klik pada pada kolom OnDblClick, kemudian lengkapi Prosedurnya seperti berikut:

Procedure TForm1.FileListBox1DblClick(Sender: TObject);

Begin

AudioPlayer.FileName:=FileListBox1.FileName;

AudioPlayer.Open;

Label2.Caption:=FileListBox1.FileName;

AudioBar.Max:=AudioPlayer.Length;

AudioPlayer.Play;

end;

  13.   Masukkan Prosedure dibawah ini:

Procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Penulis : vaychal_riza ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Cara Membuat Winamp Menggunakan Delphi 7 ini dipublish oleh vaychal_riza pada hari Senin, 30 April 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 2 komentar: di postingan Cara Membuat Winamp Menggunakan Delphi 7