TUTORIAL MEMBUAT WINAMP

Asalamualaikum Wr.Wb

selamat pagi teman semua,apa kabar,,???
sehabis sahur langsung ngtik nih.Gak sabar pengen berbagi ilmu"TUTORIAL MEMBUAT WINAMP MENGGUNAKAN DELPHI"
posting ini ditunjukan untuk para calon programer yang baru belajar delphi,jika ada yang udah master jangan komplain yah,,,heheh

langsung saja tidak panjang lebar kita buat aplikasinya:
buka aplikasi delphi (kalau saya pake delphi XE2),kemudian klik file,new,vcl forms aplicatiopns

CARA MEMBUAT WINAMP MENGGUNAKAN Delphi

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 Roy Surya Santika 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="" font="" then="">

Label2.Left:=label2.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 kolomOnKlik, 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.