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:
