Membuat Winamp Dengan Delphi

Langkah-langkah kerja:

1.    Perhatikan komponen yang dibutuhkan

Gambar 10.2 Komponen Program Aplikasi Winamp

2.    Ubahlah property setiap komponen seperti tabel di bawah ini.

Tabel 10.1 Komponen Program Aplikasi Winamp

Komponen	Tab	Properties	Events	Nama/Keterangan
Form	-	Caption	-	Media Player
Label1	Standard			Dikosongkan  (Jam)
Label2				Media Player (Kedap Kedip)
Label3				Dikosongkan  (Waktu)
Label4				Dikosongkan  (Total Waktu)
Timer1	System	-	-	Hubungkan dgn Label1
Timer2				Hubungkan dgn Label2
Timer3				Hubungkan dgn Label3
Timer4				Hubungkan dgn Label4
Image1	Additional	-	-	-
Image2		-	-	Sebagai tombol keluar
Image3		-	-	-
MediaPlayer1	System	-	-	-
ProgressBar1	Win32	-	-	-
DriveComboBox1	Win31	-	-	-
DirectoryListBox1		-	-	-
FileListBox1		-	-	-
DateTimePicker1	Win32	-	-	-

3.    Pada Mediaplayer1. Tab Properties: Setiap icon pada ColoredButtons dan EnabledButtons ubah dari False menjadi True. Pada Display pilih FileListbox1. Pada Hint tuliskan “Pilih Tombol Start,Stop,Pause,Next”. Pada ShowHint ubah dari False menjadi True. Tab Events: Pada Display pilih FileListBox1, Pada OnClick pilih MediaPlayer1Click, Pada OnEnter pilih FileListBox1Change.

4.    Pada DriveComboBox1. Tab Properties: Pada DirList pilih DirectoryListbox1. Pada Hint tuliskan “Pilih Drive”. Pada ShowHint ubah dari False menjadi True. Tab Events: Pada DirList pilih DirectoryListBox1, Pada OnChange pilih DriveComboBox1Change.

5.    Pada DirectoryListBox1. Tab Properties: Pada FileList pilih FileListbox1. Pada Hint tuliskan “Pilih Folder Musik”. Pada ShowHint ubah dari False menjadi True.

Tab Events: Pada FileList pilih FileListBox1, Pada OnChange pilih DirectoryListBox1Change. Pada OnDbClick pilih FileListBox1Change. Pada OnEnter pilih FileListBox1Change.

6.    Pada FileListBox1. Tab Properties: Pada Hint tuliskan “Pilih Lagu”. Pada ShowHint ubah dari False menjadi True. Pada Mask ketikkan ” *.wav;*.mid;*.mp3 ”. Pada MultiSelect pilih True. Tab Events: Pada OnChange pilih FileListBox1Change. Pada OnDbClick pilih FileListBox1Change. Pada OnDbClick pilih FileListBox1Change. Pada OnEnter pilih FileListBox1Change.

7.    Double klik pada Form1. Pilih tab Events, kilk ganda pada OnCreate, ketikkan kode berikut ini.

procedure TForm1.FormCreate(Sender: TObject);

var

busur:HRGN;

oke:HBRUSH;

setengah:HDC;

begin

busur:=createellipticrgn(10,50,400,700);

setwindowrgn(handle,busur,true);

deleteobject(busur);

end;

8.    Klik pada Image1. Klik tab Events, lalu klik ganda pada OnMouseDown dan tuliskan kode berikut ini.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

const

sc_dragmove=$F012;

begin

releasecapture;

form1.Perform(wm_syscommand,sc_dragmove,0);

end;

9.    Double klik pada FileLisbox1, kemudian ketikkan kode berikut ini.

var

  Panjang: longint;

begin

  if (FileListBox1.FileName <> '') then

  begin

    // Membuka file baru

    MediaPlayer1.FileName := FileListBox1.FileName;

    MediaPlayer1.Open;

    // Menuliskan lamanya lagu pada Label4

    MediaPlayer1.TimeFormat := tfMilliseconds;

    Panjang := MediaPlayer1.Length div 1000;

    Label4.Caption := Format ('%2.2d:%2.2d',

            [Panjang div 60, Panjang mod 60]);

  end;

10. Double klik pada Mediaplayer1, kemudian ketikkan kode berikut ini.

begin

  case Button of

    // Pengguna mengklik tombol Play

    btPlay:

    begin

      if (MediaPlayer1.Mode <> mpPaused) then

      begin

        Timer4.Interval := 250;

        ProgressBar1.Min := 0;

        ProgressBar1.Max := MediaPlayer1.Length;

        ProgressBar1.Position := 0;

      end;

      Timer4.Enabled  := true;

      ProgressBar1.Enabled  := true;

    end;

    // Pengguna mengklik tombol Pause

    btPause:

    begin

      if (MediaPlayer1.Mode = mpPaused) then

      begin

        Timer4.Enabled  := true;

        ProgressBar1.Enabled  := true;

      end

      else

      begin

        Timer4.Enabled  := false;

        ProgressBar1.Enabled  := false;

      end;

    end;

    // Pengguna mengklik tombol Stop

    btStop:

    begin

      MediaPlayer1.Position := 0;

      Timer4.Enabled  := false;

      ProgressBar1.Enabled  := false;

    end;

  end;

11. Double klik pada Timer1, kemudian ketikkan kode berikut ini

begin

label1.Caption:=timetostr(time);

end;

12. Double klik pada Timer2, kemudian ketikkan kode berikut ini

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label2.Visible=false then

label2.Visible:=true

else

label2.Visible:=false;

end;

13. Double klik pada Timer3, kemudian ketikkan kode berikut ini

var

  Posisi      : longint;

begin

  // Menuliskan posisi pada Label3

  Posisi := MediaPlayer1.Position div 1000;

  Label3.Caption := Format ('%2.2d:%2.2d',

            [Posisi div 60, Posisi mod 60]);

  ProgressBar1.Position := MediaPlayer1.Position;

end;

14. Double klik pada Image2, kemudian ketikkan kode berikut ini

SHOWMESSAGE('Syaharuddin Al Musthafa');

IF MESSAGEDLG('SYAHARUDDIN: 151074002: III/A', MTCONFIRMATION,[MBYES]+[MBNO]+[MBCANCEL], 0)= MRYES THEN

APPLICATION.TERMINATE;

end;

15.  Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi X-a”, klik OK.