Delphi – Penggunaan Procedure

Assalamualaikum Temen Temen Semua, Salam Semangat untuk Pagi hari ini d(^.^”) nyok kita kembali berbagi tips tips materi pembelajaran Delphi.

Nah untuk pagi hari ini saya mau membahas mengenai pembuatan dan penggunaan procedure pada source code Delphi. Hmmm apa sih yang disebut procedure ?, bagaimana penggunaannya ? yuk kita bahas di pertemuan kita kali ini, siapa tau bisa menambah pengetahuan mengenai pemrograman Delphi untuk saya pribadi serta temen temen semua.

Procedure adalah suatu program yang terpisah dan berdiri sendiri dalam suatu blok program yang memiliki fungsi sebagai sebuah sub program ( bagian program ). Penulisan Procedure  akan diawali dengan kata Procedure pada Bagian Deklarasi Program dan kita hanya tinggal menuliskan nama procedure yang akan kita buat sebagai bagian pelaksanaannya.

Kita bisa menggunakan procedure untk program yang akan dilakukan berulang ulang sehingga tidak perlu menuliskan code program yang berulang ulang pada proses prose yang  membutuhkan code tersebut. Dan dengan adanya procedure kita bisa memecah mecah program menjadi bagian bagian modul sehingga listing program menjadi lebih sederhana.

Ada beberapa syarat dalam penulisan nama procedure nich :

1. Harusi dawali dengan karakter.
2. Jika mau menggunakan 2 kata tidak boleh dipisah menggunakan spasi jadi dihubungkan dengan underscore ( _ ).
3. Tidak mengenal tanda baca.

Nah langsung aja kita praktekkan nich /(^.^”).

• Untuk awal design lah form sebagai berikut :

 

• Atur Properties namnya sebagai berikut :

 

Nah berikut ini adalah alur programnya :

• Jika button Tampil di klik maka akan menampilkan biodata kita.
• Jika button bersih di klik maka akan membersihkan / menghapus data biodata kita.
• Penggunaan 2 procedure yakni untuk tampil dan bersih.
• Jika button keluar di klik maka aka nada message box konfirmasi untuk meyakinkan apakan akan keluar dari program.

Berikut ini adalah source codenya :

Buatlah Nama Procedure tampil dan Bersih, di bawah decklarasi Public dengan format ” procedure ( spasi ) nama_procedure. note : perhatikan gambar diatas.

procedure Tform_materi19.tampil;
begin

  edit_nama.Text:='Eko Wardoyo';
  memo_alamat.Text:='Jln Pertanian Selatan RT 014 RW 03 No 12 Klender';
  radio_laki.Checked:=true;
  edit_hoby.Text:='Nonton Korea Movie';
  edit_notelp.Text:='085718564733';

end;

Buat code prosedure tampil diatas dengan posisi di bawah implementation, temen temen bisa menggantinya dengan biodata temen temen sendiri.

procedure Tform_materi19.bersih;
begin

  edit_nama.Text:='';
  memo_alamat.Text:='';
  radio_laki.Checked:=false;
  edit_hoby.Text:='';
  edit_notelp.Text:='';

end;

 buat procedure bersih sepert diatas penempatan dibawah implementation.

procedure Tform_materi19.button_tampilClick(Sender: TObject);
begin

  form_materi19.tampil;

end;

 untuk pemanggilan procedure kita tinggal menuliskan nama form kemudian nama procedure yang ingin dijalankan.

procedure Tform_materi19.button_bersihClick(Sender: TObject);
begin

  form_materi19.bersih;

end;

 sama halnya dengan pemanggilan procedure bersih. procedure ini bisa dipanggil tanpa harus menuliskan source code yang sudah kita buat di procedur sehingga menyederhanakan listing codenya. d(^.^”)

procedure Tform_materi19.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then
    begin
      close;
    end;

end;

untuk button keluar muncul messagebox yang menyatakan bahwa apakah anda yakin akan keluar dari program.

Dan untuk tampilan hasilnya sebagai berikut :

   

Nah itulah sedikit materi yang kita bahas untuk pagi hari ini yakni pembuatan dan penggunaan procedure pada Delphi. Gampang kan mudah mudahan temen temen semua bisa menanampakan dalam pikiran bahwa belajar Delphi itu mudah dan menyenangkan /(^o^”). Untuk temen temen yang mau mendownload materi hari berupa aplikasi source Delphi bisa didownload di link dibawah ini.

Download – Materi 19 Penggunaan Procedure

Tetep Simak Terus Catatan Eko ya Temen temen semua, kita akan tetap kembali dengan tips tips menari materi pembelajara computer, dan tentunya pemrograman Delphi.. Sampai Jumpa lagi Di Materi Berikutnya. Salam Semangat

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Looping Input Box

–          Delphi – Menggunakan Input Box

–          Delphi – Membuat Message Box

_______________________________________________________________________________