Module
Module merupakan bagian yang sengaja
dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure
dan fungsi dan kemudian digunakan oleh beberapa form.
a.
Umumnya module dideklarasikan secara publik agar
dapat digunakan di dalam kode dimanapun.
b. Module dapat diisi dengan main procedure yang
akan dijalankan pertama kali saat program dimulai.
c. Module merupakan salah satu argumentasi kode
reuse yang bertujuan agar progtam lebih efisien.
Buatlah terlebih dahulu form1 terlebih dahulu, setelah itu buatlah form
module, dibawah ini yaitu langkah-langkah membuat form1:
Ikuti sesuai dengan tabel berikut:
|
No
|
Object
|
Property
|
Nilai
|
|
1
|
Form
|
Name
Text
|
Form1
Form1
|
|
2
|
Label
|
Text
|
Alas
|
|
3
|
TextBox
|
Text
Name
|
(dikosongkan)
txtAlas
|
|
4
|
Label
|
Text
|
Tinggi
|
|
5
|
TextBox
|
Text
Name
|
(dikosongkan)
txtTinggi
|
|
6
|
Label
|
Text
|
Hasil
|
|
7
|
TextBox
|
Text
Name
|
(dikosongkan)
txtHasil
|
|
8
|
Button
|
Text
Name
|
Hitung
btnHitung
|
|
9
|
Button
|
Text
Name
|
Exit
btnExit
|
a.
Buatlah Form baru dengan nama Form1.
b.
Buatlah sebuah Form1 yang bisa melakukan operasi
perhitungan luas segitiga yang diinputkan oleh user.
c.
Hasil Form1 ini kurang lebih sebagai berikut:
d.
Properties Name adalah:
txtAlas, txtTinggi, txtHasil,
btnHitung, btnExit.
e.
Kode Program Form1:
Public Class Form1
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
Try
alas = Me.txtAlas.Text
tinggi = Me.txtTinggi.Text
Me.txtHasil.Text = luas_segitiga(alas,
tinggi)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("Error dalam
menghitung, Harap masukan nilai", vbInformation)
End Try
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Dim tutup As String
tutup = MessageBox.Show("Yakin ingin
tutup Form ini?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If tutup = MsgBoxResult.Yes Then
End
Else
Exit Sub
End If
End Sub
End Class
f.
Lalu buatlah Form Module, lihatlah sebagai
berikut:
Klik Project pada menu
toolbar, kemudian pilih lah Add Module…
g.
Kode program Form Module
Module Module_LuasSegitiga
Public alas As Integer
Public tinggi As Integer
Public Function luas_segitiga(ByVal a As Integer, ByVal b As Integer)
Return (alas * tinggi) / 2
End Function
End Module
h.
Jalankan program dengan menekan tombol F5 atau klik
ikon Start pada toolbar.
i.
Hasil tampilan dari program.
Hasil Hitung:
Exit:
