"Ilmu yang bermanfaat" adalah salah satu kunci naungan Allah kepada kita di padang Masyar.

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.












No comments:

Post a Comment