Untukmembuat program WAPlayer dapat kita gunakan program Delphi. Program Delphi yang penulis gunakan adalah Delphi versi 6..
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
Audio Player”. Lalu pindah ke tab Events, kilk ganda pada Event
OnCreate sehingga tampil Code Editor dan ketikkankode :
procedure TForm1.FormCreate(Sender: TObject);
var
busur:HRGN;
oke:HBRUSH;
setengah:HDC;
begin
busur:=createellipticrgn(200,200,500,500);
setwindowrgn(handle,busur,true);
deleteobject(busur);
end;
3. Tambahkan komponen TImage1 yang tedapat pada Component Pallete kedalam Form Designer.Tambahkan gambar pemandangan dengan mengklik ganda property Picture.Ubah property Stretch menjadi true dan visible menjadi true. Klik tab Events, laluklik 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 buahTButton.Ubah property Captionnya menjadi “Buka” dan “Tutup”.Klik ganda tombol “Buka”, dan 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 “Tutup” 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 ” , tuliskan kode :
procedure TForm1.Panel1Click(Sender: TObject);
begin
Application.Terminate;
end;
6. Tambahkan 2 buahTlabel.Caption “Label 1” dikosongkan dan “Label 2” dan ubah menjadi “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 tuliskankodeuntuk timer 2:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;
8. Letakkan 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 danatur property showh int menjadi true.
11. Atur property cursors untuk memberikan efek pada bentuk cursor.
12. Jalankan Program yang telah dibuat dengan menekan run
0 komentar:
Posting Komentar