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:

Pemrograman Visual Function

Function

            Function hamper memiliki kesamaa dengan procedure, hanya saja jika pada procedur tidak ada nilai kembalian (return value) maka di function terdapat nilai kembalian. Function dapat dibuat sendiri atau dapat membawa function yang sudah disediakan oleh visual basic. Nilai kembalian ini harus ditampung pada sebuah variabel, ingat bahasa pemrograman mana pun pasti menggunakan variabel smeentara untuk menampung nilai. Letak function sama seperti pada prosedur, yaitu pada bagian dari form. Di bawah ini merupakan langkah-langkah untuk melakukan perulangan.

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	Form1 Function
2	TextBox	Text Name	(dikosongkan) txtVar1
3	TextBox	Text Name	(dikosongkan) txtVar2
4	TextBox	Text Name	(dikosongkan) txtHasil
5	GroupBox	Text	Operasi
6	RadioButton	Text Name	Akar Kuadrad rbAkar
7	RadioButton	Text Name	Pangkat rbPangkat
8	RadioButton	Text Name	Pembagian rbPembagian
9	RadioButton	Text Name	Perkalian rbPerkalian
10	RadioButton	Text Name	Penjumlahan rbPenjumlahan
11	RadioButton	Text Name	Pengurangan rbPengurangan
12	Button	Text Name	Hitung btnHitung
13	Button	Text Name	Exit btnExit

a.       Buatlah Form baru dengan nama Function.

b.      Buatlah sebuah Function yang bisa melakukan operasi perhitungan yang diinputkan oleh user.

c.       Hasil Function ini kurang lebih sebagai berikut:

d.      Properties Name adalah:

txtVar1, txtVar2, txtHasil, rbAkar, rbPangkat, rbPembagian, rbPerkalian, rbPenjumlahan, rbPengurangan, btnHitung, btnExit.

e.       Kode Program

Public Class Form1

    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

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        If rbAkar.Checked = True Then

            txtHasil.Text = Akar(txtVar1.Text)

        ElseIf rbPangkat.Checked = True Then

            txtHasil.Text = Pangkat(txtVar1.Text, txtVar2.Text)

        ElseIf rbPembagian.Checked = True Then

            txtHasil.Text = Pembagian(txtVar1.Text, txtVar2.Text)

        ElseIf rbPenjumlahan.Checked = True Then

            txtHasil.Text = Penjumlahan(txtVar1.Text, txtVar2.Text)

        ElseIf rbPengurangan.Checked = True Then

            txtHasil.Text = Pengurangan(txtVar1.Text, txtVar2.Text)

        End If

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        Dim tutup As String

        tutup = MessageBox.Show("Yakin ingin menutup form ini?", "Konfirmasi",

                MessageBoxButtons.YesNo)

        If tutup = MsgBoxResult.Yes Then

            End

        Else

            Exit Sub

        End If

    End Sub

End Class

f.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

g.      Hasil tampilan dari program.

Hasil akar kuadrad:

Hasil Pangkat:

Hasil Exit: