Selasa, 22 Juni 2010
di
21.14
|
Awal ceritanya seh aku lagi nyari tugas membuat data base dengan delphi di mbah google,tepatnya seh setahun yang lalu dan tidak sengaja dapet tutorial buat Audio player dari mas "NurWahyu H". dan secara tidak sengaja juga, aku baca artikelnya.(baca artikel kok gak sengaja??????????) dari situlah aku mulai tertarik, dan langsung aku praktekkin (gak jadi ngerjain tugas tapi malah main-main,,, wkwkwkwkwk). Jika anda tertarik juga silahkan baca tutorial dibawah ini, atau download program yang sudah saya praktekin disini .
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.
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.
Diposting oleh
Borland7
0 komentar:
Posting Komentar