Membuat Procedure Sendiri

Procedure diperlukan untuk mempermudah atau menyingkat dalam penulisan source code program sehingga penulisan perintah yang sama tidak terjadi berulang-ulang, karena biasanya procedure dibuat untuk keperluan pemberian perintah yang selalu sama pada beberapa tempat dalam program.

Procedure dapat dibuat terpisah dari form disebut dengan procedure level project yaitu procedure yang dapat digunakan oleh semua objek dalam project ataupun jadi satu dengan form disebut dengan procedure level form yang hanya digunakan oleh form tempat procedure dibuat.

Pembuatan Procedure Level Project dilakukan melalui cara berikut :

  1. Dari jendela project, pilihlah tab Code.
  2. Selanjutnya pilih objek Programs.
  3. Berikutnya click tombol New, sehingga jendela penulisan code program ditampilkan seperti gambar berikut:
  1. Tuliskan kode program sebagai procedure yang diinginkan.
  2. Jika penulisan kode program yang diinginkan sudah selesai, selanjutnya simpanlah kode program seperti biasa dengan menekan kombinasi tombol Ctrl + S atau click icon Save sehingga kotak dialog Save As ditampilkan.
  3. Berikan/tulislah nama file untuk kode program procedure tersebut (secara otomatis nama file akan diberi ekstensi PRG)

Pembuatan Procedure Level Form dilakukan melalui cara berikut :

  1. Buka/aktifkan form yang diinginkan
  2. Pilih menu FormNew Method… sehingga ditampilkan kotak dialog seperti berikut :
  1. Tuliskan nama procedure yang akan dibuat pada bagian Name, selanjutnya click tombol Add.
  2. Ulangi langkah ke-3 tersebut untuk membuat nama procedure yang lainnya jika diperlukan, jika sudah selesai click tombol Close
  3. Untuk menuliskan kode program pada procedure yang telah ditetapkan namanya (langkah ke-3), double click bagian form yang kosong sehingga ditampilkan jendela penulisan kode program seperti gambar berikut :
  1. Tentukan bagian Object-nya pada Form dan bagian Procedure-nya nama procedure yang diinginkan (yang telah ditetapkan pada langkah ke-3)
  2. Tuliskan kode program sebagai procedurenya dan jika sudah selesai jangan lupa simpan kembali form yang aktif tersebut dengan memberikan kombinasi perintah Ctrl + S

Pemanggilan procedure dilakukan dengan cara berikut :

– Untuk procedure level project gunakan perintah :

DO NamaProcedure [With Parameters]

– Untuk procedure level form gunakan perintah :

THISFORM.NamaProcedure atau THISFORM.NamaProcedure(Parameters)

Parameters dalam pemanggilan procedure bersifat optional, boleh disertakan atau tidak tergantung pada pembuatan procedurenya apakah mengharuskan memberikan parameter atau tidak.

Berikut Contoh Penulisan Procedure tanpa Parameter (level project maupun level form dan diberi nama Kosongkan) :

*Perintah-perintah berikut akan mengosongkan semua objek textbox yang ada dalam form
ThisForm.txtKdbrgmsbrg.Value = “”
ThisForm.txtNmbrgmsbrg.Value = “”
ThisForm.txtJenismsbrg.Value = “”
ThisForm.txtJlbrgmsbrg.Value = “”
ThisForm.txtHargamsbrg.Value = “”

Berikut Contoh Penulisan Procedure dengan Parameter (level project maupun level form dan diberi nama HitungHarga) :

*Berikut ini adalah perintah untuk menghitung Jumlah Harga
PARAMETERS nJumlah, nHarga
nJlhHarga = nJumlah * nHarga
ThisForm.txtJlhHarga.Value = nJlhHarga

Pemanggilan procedure tersebut pada level project menggunakan perintah :

DO Kosongkan
DO HitungHarga With 5, 1500

Sedangkan pemanggilan procedure tersebut pada level form menggunakan perintah :

THISFORM.Kosongkan
THISFORM.HitungHarga(5,1500)

 Demikian artikel ini semoga dapat berguna dan dapat mempermudah penulisan kode program yang kita buat.

Leave a Reply

Your email address will not be published. Required fields are marked *


Parse error: syntax error, unexpected end of file in /home/digdoyoc/public_html/b5280b7acbbf71776af1a6de8e2e5952734635ee/promo.php on line 391