Jumat, 27 September 2019

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:


Tidak ada komentar:

Posting Komentar

Koneksi Database Buku

1.       Aktifkan aplikasi xampp terlebih dahulu. 2.       Masuklah pada browser lalu ke localhost/phpmyadmin , kemudian buat lah sebua...