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 dapat dipanggil dengan perintah:
[call] subname[(argumentlist)]
￫ Syntaksargument:
[ByVal|ByRef] variabelname as type
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
Keuntungan menggunakan procedure dan function adalah:
1. Mengurangiduplikasikode program
2. Mengatasimasalah yang kompleksmenjadipotongan-potongan yang lebihsederhana
3. Meningkatkankejelasankode
4. Kode yang mudahdibaca
5. Informasikodebersembunyi
6. Dapatdipakaiberulang 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.
- Umumnyamoduldideklarasikansecara public (public) agar dapatdigunakan di dalamkodedimanapun
- Moduldapatdiisidengan main procedure yang akandijalankanpertama kali saat program dimulai
- Modulmerupakansalahsatuargumentasicode reuse yang bertujuan agar program lebihefesien.
￫ Sintaks pembuatan modul sebagai berikut :
Module moduleName
Statement
End module
🔘 CONTOH:
1. Procedure (Prosedur)
1. Buatproject baru, dengan nama Prak10.
2. DesainTampilan form seperti gambar berikut ini:
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
4. 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
EndSub
5. Panggil procedure yang anda buat diatas dengan cara, klik ganda pada form load ketikkan kode program berikut ini:
Call Bersih()
6. Panggil procedure yang anda buat diatas pada BtnClear dengan cara, klik ganda pada BtnClear kemudian ketikkan kode program berikut ini:
Call Bersih()
7. Jalankan aplikasi dengan menekantombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
8. 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
9. Buatlah Procedure CekDataKosong 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
10. Memanggil procedure CekDataKosong dengan cara, klik ganda pada tombol BtnHitung:
Call CekDataKosong()
11. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
12. 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
13. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
14. Simpan aplikasi Anda.
2. Function (Fungsi)
1. TambahkanForm baru, dengannamaForm2.
2. DesainTampilan form sepertigambarberikutini :
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
4. Klik kanan pada form, kemudian pilih menu view, kemudian ketik deklarasi masing-masing fungsi sebagai berikut ini:
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 Pemjumlahan(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
5. Klik ganda pada TombolHitung, kemudian ketik kode program berikutini:
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 = Pemjumlahan(TxtVar1.Text, TxtVar2.Text)
ElseIf RdbPengurangan.Checked = True Then
TxtHasil.Text = Pengurangan(TxtVar1.Text, TxtVar2.Text)
End If
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi Anda
3. Module (Modul)
1. Menambahkan module kedalam project
 |
| Beri nama module tersebut sesuai dengan yang diinginkan. |
2. Mengisi module dengan variable ataufungsi
3. Tambahkan form dan desain seperti contoh berikut ini
4. Tambahkan kode pada button “HITUNG”
5. Jalankan aplikasi dengan menekan tombolF5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan aplikasi Anda
0 komentar:
Posting Komentar