PROCEDURE, FUNCTION DAN MODULE

PRAKTIKUM

PERTEMUAN 10

PROCEDURE, FUNCTION DAN MODULE

A.     TUJUAN

-       Memahamidanmengenal Procedure, Function danModul

-       DapatmembuataplikasisederhanadenganmenggunakanProcedure, Function danModul

1.Procedure (Prosedur)

Sejauh ini,anda telah menuliskan sub procedure yang  dibuat secara otomatis pada saat menggunakan event.Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. BentukUmum :

[Private|Public] Sub subname[(argumentlist)]

      Statements

End sub

Sub Procedure dapatdipanggildenganperintah :

[call] subname[(argumentlist)]

Keterangan :

Sub procedure (Procedure) sebaiknyamenggunakan kata kerja (verb)

Pemanggilan procedure yang masih dalam satu kelas (class) ataumodul (module) dapat dilakukan dengan kata kunci Me.

Procedure dapat menerima argument melaluinilai (by value) ataujuga reference (by reference).Jika menggunakan by value, nilaipada argument tidak berubah.Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesuai dengan perintah dalam procedure.

Secara default, argument dimasukkan melalui nilai (by value) dapat menggunakan kata kunciByValdanByRefuntuk By Reference.

1.      Function (Fungsi)

Fungsi mempunyai banyak kemiripan dengan sub procedure. Bedanya, fungsi selalu mengembalikan nilai (return value)

Sintaks fungsi dituliskan sebagai berikut :

[Private|Public] function functionname[(argumentlist)] [As type]

      Statements{

      Functionname=expression | {return expression}

End function

Keterangan :

-         Perbedaan antara fungsi dengan procedure hanyalah pada pengembalian nilai saja (return value). Sebagai contoh :

Menggunakan argument berupa nilai (by value) dan reference (by reference)

-         Pengembalian nilai dapat dilakukan dengan menggunakan operator assignment “=” pada fungsi atau biasanya dengan perintah return.

3.      Module (Modul)

Modul merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman.Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form.

-         Umumnya modul dideklarasikan secara public (public) agar dapat digunakan di dalam kode dimanapun

-         Modul dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai

-         Modul merupakan salah satua rgumentasi code reuse yang bertujuan agar program lebih efesien.

Sintaks pembuatan modul sebagai berikut :

Module moduleName

      Statement

End module

Contoh :

Module Module

    Public intResponce, RoleId, Msg As Integer

    Public Username, Password, Nama As String

End Module

1.      Tambahkan control ke form seperti pada gambar di atas   dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Barang
Label1	Text	KodeBarang
Label2	Text	NamaBarang
Label3	Text	Satuan
Label4	Text	Harga
Label5	Text	Jumlah
Label6	Text	Total Harga
TexBox1	Name	TxtKodeBrg
TexBox2	Name	TxtNamaBrg
TexBox3	Name	TxtSatuan
TexBox4	Name	TxtHrgSatuan
TexBox5	Name	TxtJumlah
TexBox6	Name	TxtTot
Button1	Name Text	BtnHitung Hitung
Button2	Name Text	BtnClear Clear
Button3	Name Text	BtnExit Exit

2.      Klikgandapada Form, kemudianbuatlah sub procedure Bersihberikutini :

Sub Bersih()

         TxtKodeBrg.Text = ""

         TxtNamaBrg.Text = ""

         TxtSatuan.Text = ""

         TxtJumlah.Text = ""

         TxtHrgSatuan.Text = ""

         TxtTot.Text = ""

         TxtKodeBrg.Focus()

         TxtTot.Enabled = False

        EndSub

3.      Panggil procedure yang andabuatdiatasdengancara, klikgandapada form load ketikkankode program berikutini :

Call Bersih()

4.      Panggil  procedure  yang anda buat diatas pada BtnClear dengan cara, klik ganda pada BtnClear kemudian ketikkan kode program berikut ini :

Call Bersih()

5.    Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

6.    Buatlah Function Hitung, berikutini :

PrivateFunction Hitung()

DimJumlah, HrgSatuan, Total AsInteger

Jumlah = TxtJumlah.Text

        HrgSatuan = TxtHrgSatuan.Text

        Total = Jumlah * HrgSatuan

        TxtTot.Text = Total

Return Total

EndFunction

7.    Buatlah Procedure Cek Data Kosong dan sekaligus memanggil function Hitung, berikutini :

Sub CekDataKosong()

If TxtKodeBrg.Text = ""Then

MessageBox.Show("Kode Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtKodeBrg.Focus()

ElseIf TxtNamaBrg.Text = ""Then

MessageBox.Show("Nama Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtNamaBrg.Focus()

ElseIf TxtSatuan.Text = ""Then

MessageBox.Show("Satua Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtSatuan.Focus()

ElseIf TxtJumlah.Text = ""Then

MessageBox.Show("Harga Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtJumlah.Focus()

ElseIf TxtHrgSatuan.Text = ""Then

MessageBox.Show("Harga Satuan Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtHrgSatuan.Focus()

Else

Call Hitung()

EndIf

EndSub

8.    Memanggil  procedure Cek Data Kosong dengan cara, klik ganda pada tombol BtnHitung:

Call CekDataKosong()

9.    Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

10.Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikutini :

Dim Tutup AsString

        Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
        MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If TUTUP = MsgBoxResult.Yes Then

End

Else

ExitSub

EndIf

11.Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

12.Simpan aplikasiAnda.