Pemrograman Visual Module

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: