Aplikasi yang dikembangkan sebagai penerapan program Delphi adalah sebuah software (program) yang dapat digunakan untuk memutar video dan audio (suara). Program tersebut penulis namakan dengan Wahyu Audio Player (WAPlayer) karena progam tersebut dikembangkan oleh penulis sendiri yang berdassarkan teori-teori yang bersumber dari beberapa buku.
Dalam WAPlayer ini hanya dapat memutar video yang bertipe *.avi dan audio yang bertipe *.mp3 dan *.wav. Sebagi kelengapan program ini disertai dengan jam digital, serta gambar pemandangan yang dimodifikasi dan animasi lainnya. Adapun bentuk dari program tersebut adalah setengah lingkaran.
Untuk membuat program WAPlayer seperti yang telah disebutkan pada permasalahan di atas, dapat kita gunakan program Delphi. Program Delphi yang penulis gunakan adalah Delphi versi 6..
Adapun 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 ketikkan kode:
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 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 “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”, tulis kode:
procedure TForm1.Panel1Click(Sender: TObject);
begin
Application.Terminate;
end;
6. Tambahkan 2 buah Tlabel. Caption “Label 1” dikosongkan dan “Label 2”
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 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
Dalam WAPlayer ini hanya dapat memutar video yang bertipe *.avi dan audio yang bertipe *.mp3 dan *.wav. Sebagi kelengapan program ini disertai dengan jam digital, serta gambar pemandangan yang dimodifikasi dan animasi lainnya. Adapun bentuk dari program tersebut adalah setengah lingkaran.
Untuk membuat program WAPlayer seperti yang telah disebutkan pada permasalahan di atas, dapat kita gunakan program Delphi. Program Delphi yang penulis gunakan adalah Delphi versi 6..
Adapun 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 ketikkan kode:
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 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 “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”, tulis kode:
procedure TForm1.Panel1Click(Sender: TObject);
begin
Application.Terminate;
end;
6. Tambahkan 2 buah Tlabel. Caption “Label 1” dikosongkan dan “Label 2”
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 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
