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: