Cara membuat Audio player menggunakan Delphi 7

Satu bulan yang lalu saya mencoba untuk membuat sebuah program Media player dengan tutorial yng...yahh..bisa di bilang alakadarnya lah..

lalu saya mencoba untuk mengkreasikan program tersebut dan akhirnya jadu juga...

sekarang saya ingin membaginya dngan anda... okey..here we go >> 

langkah-langkahnya sebagai berikut :

1. Jalankan Borland Delphi. Kemudian klik File | New | VCL Form

Application.

2. Klik tab Properties pada Object Inspetor. Ubah Caption “Form1” menjadi

Wahyu Audio Player”. Lalu pindah ke tab Events, kilk ganda pada Event

OnCreate sehingga tampil Code Editor dan ketikkan kode:

procedure TForm1.FormCreate(Sender: TObject);

var

busur:HRGN;

oke:HBRUSH;

setengah:HDC;

begin

busur:=createellipticrgn(5,25,495,590);

setwindowrgn(handle,busur,true);

deleteobject(busur);

end;

3. Tambahkan komponen TImage1 yang tedapat pada Component Pallete ke

dalam Form Designer. Tambahkan gambar pemandangan dengan

mengklik ganda property Picture. Ubah property Stretch menjadi true dan

visible menjadi true. Klik tab Events, lalu klik ganda pada OnMouseDown

dan tuliskan kode program:

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;

4. Tambahkan 2 buah TButton. Ubah property Captionnya menjadi “Buka”

dan “Tutup”. Klik ganda tombol “Buka”, tuliskan kode:

procedure TForm1.Button1Click(Sender: TObject);

begin

if opendialog1.Execute then

begin

mediaplayer1.filename:=opendialog1.filename;

mediaplayer1.open;

mediaplayer1.play;

mediaplayer1.stop;

end

end;

Klik ganda tombol “Berhenti” lalu tuliskan kode:

procedure TForm1.Button2Click(Sender: TObject);

begin

mediaplayer1.Close;

end;

5. Tambahkan 1 buah TSpeedButton, ubah property Caption menjadi “-“ dan

1 buah TPanel ubah menjadi “Keluar”. Klik ganda “Keluar”, tulis kode:

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

if Application.MessageBox(‘Terimakasih Telah Menggunakan Software ini’,

‘informasi’,mb_okcancel or mb_iconquestion)=mrok then

Application.Terminate;

end;

6. Tambahkan 2 buah Tlabel. Caption “Label 1” dikosongkan dan “Label 2”

ubah menjadi “Fauyan Audio Player”

7. Tambahkan 2 buah komponen TTimer.Atur property timer 1 dengan

interval 700 dan timer 2 dengan interval 1000. Pada tab Events, klik ganda

OnTimer lalu tuliskan kode program pada timer 1:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label2.visible = true then

label2.visible := false

else

label2.visible := true;

end;

Dan tuliskan kode untuk timer 2:

procedure TForm1.Timer2Timer(Sender: TObject);

begin

label1.Caption:=timetostr(time);

end;

8. Letakkkan komponen TOpenDialog lalu atur property Filter ketikkan type

*.mp3, *.wav dan *.avi. pada form.

9. Klik komponen TMediaPlayer yang ada di Commponen pallete untuk

ditambahkan pada Form.

10. Untuk membuat pesan teks cursor berada di atas tombol, tuliskan pesan teks pada property hint dan atur property showhint menjadi true.

11. Atur property cursors untuk memberikan efek pada bentuk cursor.

12. Jalankan Program yang telah dibuat dengan menekan run. Apabila program yang ditulis benar, maka akan menghasilkan tampilan program seperti yang terlihat di bawah:

13. Agar program di atas bisa dijalankan tanpa harus membuka Borland Delphi, maka program WAPlayer yang telah dibuat harus diubah ekstensinya menjadi .exe dengan cara klik Menu Project kemudian klik Compile…

Oo iyya, anda juga bisa menambahkan xp manifest untuk mempercantik tampilan..

Win 32 - XP Manifest (tempatkan di sembarang)

Lalu Compile...