PROCEDURE, FUNCTION, DAN MODULE

A.        Procedure

Procedure merupakan sub program yang digunakan untuk melakukan proses tertentuk dan tidak mengembalikan nilai. Procedure dapat disimpan dalam database sebagai objek skema, sehingga suatu procedure bisa digunakan berulang kali tanpa harus melakukan parsing dan compile ulang. Procedure tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya.

Jenis-jenis procedure dalam visual basic sebagai berikut.

1.         Procedure Sub

Procedure yang tidak mengembalikan nilai.

2.         Procedure Function

Procedure yang mengembalikan nilai.

3.         Procedure Property

Procedure yang dapat mengembalikan dan menugaskan nilai serta dapat mengeset referensi ke objek.

4.         Procedure Event

Procedure untuk suatu event pada sebuah objek, digunakan dalam Class Module.

B.        Function

Function adalah kumpulan perintah yang terpisah yang dapat menerima argumen, mengeksekusi sekumpulan pernyataan, dan mengubah nilai argumennya. Function dapat mengembalikan nilai kepada pemanggilnya. Penulisan function beada diantara baris Function dan End Function.

Function hampir sama dengan procedure, hanya saja jika dibuat sendiri atau dapat membawa function yang sudah disediakan oleh Visual basic. Nilai kembalian ini harus ditampung pada sebuah variabel. Letak function sama seperti pada general procedure, yaitu pada bagian generla dari form.

C.        Module

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

Umumnya module dideklarasikan secara public agar dapat digunakan di dalam kode manapun. Module dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai. Module merupakan salah satu argumentasi kode reuse yang bertujuan agar program lebih efisien. 

TUTORIAL PRAKTIKUM PROCEDURE, FUNCTION, DAN MODULE

A.         Alat dan Bahan

Alat dan bahan yang perlu digunakan dalam praktikum form dan objek kontrol kedua ini adalah sebagai berukut.

1.         Laptop

2.         Software Visual Studio Community 2013

B.         Langkah-Langkah Praktikum Procedure, Function, Module

Berikut ini adalah langkah-langkah praktikum procedure, function, module :

Procedure dan Function

1.         Buat projek baru dengan nama Prak7, sama dengan praktikum sebelumnya. Maka akan tampil pada tampilan form seperti berikut.

2.         Klik Form1 untuk mengatur properti-propertinya sebagai berikut.

Object	Properties	Nilai
Form1	Nama	Form1
	Text	Barang

 

Sehingga judul pada tampilan form sebagai berikut.

3.         Selanjutnya pada Toolbox, cari Label. Kemudian double klik Label tersebut. Disini kita menggunakan 6 label.

4.         Sehingga tampilannya sebagai berikut.

5.         Atur properti-propertinya sebagai berikut.

Object	Properties	Nilai
Label1	Text	Kode Barang
Label2	Text	Nama Barang
Label3	Text	Satuan
Label4	Text	Harga
Label5	Text	Jumlah
Label6	Text	Total Harga

 

Sehingga judul pada label berubah seperti berikut.

6.         Pada Toolbox, cari TextBox. Kemudian double klik TextBox tersebut. Disini kita menggunakan 6 textbox.

7.         Sehingga tampilannya sebagai berikut.

Lalu atur properti-propertinya berikut.

Object	Properties	Nilai
TextBox1	Name	TxtKodeBrg
TextBox2	Name	TxtNamaBrg
TextBox3	Name	TxtSatuan
TextBox4	Name	TxtHrgSatuan
TextBox5	Name	TxtHarga
TextBox6	Name	TxtTot

 

8.         Pada Toolbox, cari Button. Kemudian double klik Button tersebut. Disini kita menggunakan 3 button.

9.         Sehinggan tampilannya sebagai berikut.

10.     Lalu atur properti-propertinya sebagai berikut.

Object	Properties	Nilai
Button1	Name	BtnHitung
	Text	Hitung
Button2	Name	BtnClear
	Text	Clear
Button3	Name	BtnExit
	Text	Exit

Sehingga tampilan button sebagai berikut.

11.     Selanjutnya kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat di running. Klik ganda pada Form1, masukkan kode berikut.

Sub Bersih()         TxtKodeBrg.Text = ""         TxtNamaBrg.Text = ""         TxtSatuan.Text = ""         TxtHarga.Text = ""         TxtHrgSatuan.Text = ""         TxtTot.Text = ""         TxtKodeBrg.Focus()         TxtTot.Enabled = False     End Sub

 

12.     Klik ganda lagi pada Form1, masukkan kode berikut.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Call Bersih()     End Sub

 

13.     Klik ganda pada BtnClear, masukkan kode berikut.

Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click         Call Bersih()     End Sub

 

14.     Buat Function Hitung, masukkan kode berikut :

Private Function Hitung()         Dim Harga, HrgSatuan, Total As Integer         Harga = TxtHarga.Text         HrgSatuan = TxtHrgSatuan.Text         Total = Harga * HrgSatuan         TxtTot.Text = Total         Return Total     End Function

 

15.     Buat Procedure CekDataKosong, masukkan kode berikut.

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("Satuan Barang harus diisi", "Konfirmasi",             MessageBoxButtons.OK, MessageBoxIcon.Warning)             TxtSatuan.Focus()         ElseIf TxtHarga.Text = "" Then             MessageBox.Show("Harga Barang harus diisi", "Konfirmasi",             MessageBoxButtons.OK, MessageBoxIcon.Warning)             TxtHarga.Focus()         ElseIf TxtHrgSatuan.Text = "" Then             MessageBox.Show("Harga Satuan Barang harus diisi", "Konfirmasi",             MessageBoxButtons.OK, MessageBoxIcon.Warning)             TxtHrgSatuan.Focus()         Else             Call Hitung()         End If     End Sub

 

16.     Klik ganda pada BtnHitung, masukkan kode berikut.

Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click         Call CekDataKosong()     End Sub

 

17.     Klik ganda pada BtnExit, masukkan kode berikut.

Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click         Dim Tutup As String           Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)         If Tutup = MsgBoxResult.Yes Then             End         Else             Exit Sub         End If     End Sub

 

18.     Klik Start untuk menjalankan program, dan hasilnya seperti berikut. Saat kita mengisikan data pada kolom, maka ketika kita klik button Hitung, hasilnya akan pada Total Harga.

19.     Apabila kita klik pada Exit, maka akan muncul pemberitahuan seperti dibawah.

 

Function

1.         Buat form baru sama dengan praktikum sebelumnya dengan nama Form2. Maka akan tampil pada tampilan form seperti berikut.

2.         Klik Form1 untuk mengatur properti-propertinya sebagai berikut.

Object	Properties	Nilai
Form2	Nama	Form2
	Text	Function

 

Sehingga judul pada tampilan form sebagai berikut.

3.         Selanjutnya pada Toolbox, cari TextBox. Kemudian double klik TextBox tersebut. Disini kita menggunakan 3 textbox.

4.         Sehingga tampilannya sebagai berikut.

Atur properti-propertinya sebagai berikut.

Object	Properties	Nilai
TextBox1	Name	TxtVar1
TextBox2	Name	TxtVar2
TexBox3	Name	TxtHasil

 

5.         Pada Toolbox, cari GroupBox. Kemudian double klik GroupBox tersebut.

6.         Sehingga tampilannya sebagai berikut.

7.         Lalu atur propertinya berikut.

Object	Properties	Nilai
GroupBox1	Text	Operasi

 

Sehingga tampilannya sebagai berikut.

8.         Pada Toolbox, cari RadioButton. Kemudian double klik RadioButton tersebut. Disini kita menggunakan 6 radiobutton.

9.         Sehinggan tampilannya sebagai berikut.

Lalu atur properti-propertinya berikut.

Object	Properties	Nilai
RadioButton1	Name	RdbAkar
	Text	Akar Kuadrad
RadioButton2	Name	RdbPangkat
	Text	Pangkat
RadioButton3	Name	RdbPembagian
	Text	Pembagian
RadioButton4	Name	RdbPerkalian
	Text	Perkalian
RadioButton5	Name	RdbPenjumlahan
	Text	Penjumlahan
RadioButton6	Name	RdbPengurangan
	Text	Pengurangan

Sehingga tampilan button sebagai berikut.

10.     Pada Toolbox, cari Button. Kemudian double klik Button tersebut. Disini kita menggunakan 2 button.

11.     Sehingga tampilannya sebagai berikut.

12.     Lalu atur properti-propertinya sebagai berikut.

Object	Properties	Nilai
Button1	Name	BtnHitung
	Text	Hitung
Button2	Name	BtnExit
	Text	Exit

 

Sehingga tampilan judul button sebagai berikut.

13.     Selanjutnya kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat di running. Klik kanan pada Form1, lalu pilih menu view, masukkan kode berikut.

Function Akar(ByVal a As Decimal) As String         Return Math.Sqrt(a)     End Function     Function Pangkat(ByVal a As Decimal, ByVal b As Decimal) As String         Return a ^ b     End Function     Function Pembagian(ByVal a As Decimal, ByVal b As Decimal) As String         Return a / b     End Function     Function Perkalian(ByVal a As Decimal, ByVal b As Decimal) As String         Return a * b     End Function     Function Penjumlahan(ByVal a As Decimal, ByVal b As Decimal) As String         Return a + b     End Function     Function Pengurangan(ByVal a As Decimal, ByVal b As Decimal) As String         Return a - b     End Function

 

14.     Klik ganda lagi pada tombol Hitung, masukkan kode berikut.

 

Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click         If RdbAkar.Checked = True Then             TxtHasil.Text = Akar(TxtVar1.Text)         ElseIf RdbPangkat.Checked = True Then             TxtHasil.Text = Pangkat(TxtVar1.Text, TxtVar2.Text)         ElseIf RdbPembagian.Checked = True Then             TxtHasil.Text = Pembagian(TxtVar1.Text, TxtVar2.Text)         ElseIf RdbPerkalian.Checked = True Then             TxtHasil.Text = Perkalian(TxtVar1.Text, TxtVar2.Text)         ElseIf RdbPenjumlahan.Checked = True Then             TxtHasil.Text = Penjumlahan(TxtVar1.Text, TxtVar2.Text)         ElseIf RdbPengurangan.Checked = True Then             TxtHasil.Text = Pengurangan(TxtVar1.Text, TxtVar2.Text)         End If     End Sub

 

15.     Klik ganda pada tombol Exit, masukkan kode berikut.

Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click         Dim Tutup As String           Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)         If Tutup = MsgBoxResult.Yes Then             End         Else             Exit Sub         End If     End Sub

 

16.     Setelah itu, pindahkan terlebih dahulu Signing nya ke Form2, sama seperti sebelumnya. Karena jika tidak dipindahkan maka saat di running tetap akan berfungsi di Form1. Klik kanan pada My Project terlebih dahulu. Lalu klik Open. Pada Signing ganti Form1 nya menjadi Form2.

17.     Klik Start untuk menjalankan program, dan hasilnya seperti berikut. Saat kita mengisikan data pada kolom, maka ketika kita klik radiobutton Perkalian, hasilnya akan pada TextBox3. Sama halnya dengan Penjumlahan, Pengurangan, dan lain-lain.

18.     Apabila kita klik pada Exit, maka akan muncul pemberitahuan seperti dibawah.