Jumat, 03 Agustus 2018
Assalamualaikum, disini saya memberitahu apa itu Prosedur, Function dan Modul pada visual basic.
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.
Bentuk
Umum :
[Private|Public] Sub subname [(argumentlist)]
Statements
End sub
Sub Procedure dapat dipanggil dengan perintah :
[call] subname [(argumentlist)]
Keterangan :
Sub procedure (Procedure)
sebaiknya menggunakan kata kerja (verb)Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me.
Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference). Jika menggunakan by value, nilai pada 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 kunci ByVal dan ByRef untuk By Reference.
Syntaks
argument :
[ByVal|ByRef] variabelname as type
Contoh :
1.
Procedure
dengan argument di passing sebagai value
Sub
HitungVal(byVal as Decimal)
A+=1
textAkhir.text=a
end
sub
2.
Procedure
dengan argument di passing sebagai value
Sub
HitungRef(byRef as Decimal)
A+=1
textAkhir.text=a
end
sub
3.
pemanggilan
procedure
HitungVal(textAwal.Text)
2.
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.
Contoh :
Private Function cekData() as Boolean
if IsNumeric(TextAwal.text) then
return true
else
return false
endif
end function
if IsNumeric(TextAwal.text) then
return true
else
return false
endif
end function
Pemanggilan
fungsi
if cekData()=true then
HitungRef(textAwal.text)
else
messageBox.Show(“Data yang dimasukkan bukan angka”,”Kesalahan data”, MessageBoxButtons.OK,
MessageBoxIcons.Error)
endif
HitungRef(textAwal.text)
else
messageBox.Show(“Data yang dimasukkan bukan angka”,”Kesalahan data”, MessageBoxButtons.OK,
MessageBoxIcons.Error)
endif
|
Procedure
|
Function
|
|
|
Definisi
|
Sebuah
kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap
pemanggilnya
|
Sebuah
kumpulan Statement yang akan mengembalikan sebuah nilai balik pada
pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
|
|
Parameter
|
Bisa
menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
|
Bisa
menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
|
|
Deklarasi
|
Menggunakan
keyword “Sub”.
|
Menggunakan
keyword “Function”,
untuk
mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau
menggunakan nama dari function tersebut.
|
Keuntungan menggunakan procedure dan function adalah:
1. Mengurangi duplikasi
kode program
2. Mengatasi masalah yang
kompleks menjadi potongan-potongan yang lebih sederhana
3. Meningkatkan kejelasan
kode
4. Kode yang mudah dibaca
5. Informasi kode
bersembunyi
6. Dapat dipakai berulang
kali
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 satu argumentasi 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
Latihan
1. Procedure
1.
Buat
project baru, dengan nama Prak10.
Desain
Tampilan form seperti gambar berikut ini :
1.
Tambahkan
kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel
berikut:
|
Object
|
Properties
|
Nilai
|
|
Form1
|
Name
Text
|
Form1
Barang
|
|
Label1
|
Text
|
Kode
Barang
|
|
Label2
|
Text
|
Nama
Barang
|
|
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.
Klik
ganda pada Form, kemudian buatlah sub procedure Bersih berikut ini :
Sub
Bersih()
TxtKodeBrg.Text = ""
TxtNamaBrg.Text = ""
TxtSatuan.Text = ""
TxtJumlah.Text = ""
TxtHrgSatuan.Text = ""
TxtTot.Text = ""
TxtKodeBrg.Focus()
TxtTot.Enabled = False
End Sub
3.
Panggil
procedure yang anda buat diatas dengan cara, klik ganda pada form load ketikkan
kode program berikut ini :
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, berikut ini :
Private Function
Hitung()
Dim Jumlah, HrgSatuan, Total As
Integer
Jumlah = TxtJumlah.Text
HrgSatuan =
TxtHrgSatuan.Text
Total = Jumlah
* HrgSatuan
TxtTot.Text =
Total
Return Total
End Function
7.
Buatlah
Procedure CekDataKosong dan
sekaligus memanggil function Hitung,
berikut ini :
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()
End If
End Sub
8.
Memanggil
procedure CekDataKosong 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 berikut ini :
Dim
Tutup As String
Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
MessageBoxButtons.YesNo,MessageBoxIcon.Question)
MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If
TUTUP = MsgBoxResult.Yes Then
End
Else
Exit
Sub
End If
11.
Jalankan
aplikasi dengan menekan tombol F5
(di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
Simpan
aplikasi Anda.
