Pertemuan 9, 20 April 2015 : Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2010

Assalamu’alaikum wr. wb, kali ini saya akan membuat sebuah program dengan menggunakan Prosedur dan Fungsi menggunakan Visual Basic 2010. Prosedur dan fungsi merupkana blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut. Dengan prosedur penulisan program menjadi lebih modular dan terstruktur. Prosedur tidak mengembalikan nilai sedangkan fungsi mengembalikan nilai. Secara garis besar ada tiga jenis prosedur yaitu : Sub prosedur, Function prosedur dan event prosedur.

Pada Sub prosedur dapat memiliki parameter ataupun tidak. Parameter tersebut bisa berjumlah lebih dari satu. Pernyataan yang ada didalam prosedur akan dieksekusi ketika prosedur tersbut dipanggil. Sebuah prosedur didefinisikan dengan kata kunci Sub dan End Sub.

ByVal merupakan sebuah cara melewatkan nilai dari sebuah argumen ke sebuah prosedur pengganti dari melewatkan alamatnya. Hal ini mengizinkan prosedur untuk mengakses sebuah salinan dari variabel. Sebagai sebuah hasil, nilai variabel sebenarnya tidak dapat diganti oleh prosedur yang melewatkannya.
pertama buatlah desain seperti ini .

terdiri dari :
3 Buah GroupBox
GroupBox1 : Text : Jenis Bilangan
GroupBox2 : Text : Hasil
GroupBox3 : Text : Perhitungan
1 Buah ComboBox
Items :
Ganjil
Genap
Prima
Fibonaci
1 Buah ListBox : (name) : bilangan
3 Buah Text Box
TextBox1 : (name) : txtbilsatu
TextBox2 : (name) : txtbildua
TextBox3 :(name) : txthasil
3 Buah Button
Button 1 : (name) : btnInputBil | Text : Input Bilangan
Button 2 : (name) : btnExit | Text : Exit
Buttom 3 : (name) : btnhitung2 | Text : Hitung

Dengan koding seperti dibawah ini: Deklarasikan variabel berikut di public class.

Public Class Bilangan
    Dim awal, akhir, hasil As String
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnLihatBil.Click
        Dim strGanjil, strGenap, strPrima, strfibonaci As Integer
        prosesbilangan(strGanjil, strGenap, strPrima, strfibonaci)
        showSum(txtbil1.Text, txtbil2.Text)
    End Sub

Buat prosedure showSum.

Sub showSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
        Dim intSum As Integer
        intSum = intNum1 + intNum2
        txthasil.Text = intSum
    End Sub

Buat prosedure prosesbilangan.

Sub prosesbilangan(ByVal strGanjil As String, ByVal strGenap AsString, ByVal strPrima As String, ByVal strFibonaci As String)
        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()
        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()
        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()
        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

Buat prosedure Ganjil.

Sub Ganjil()
        Dim i As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        For i = awal To akhir
            i = i + 0
            If (i Mod 2 = 1) Then
                lstBilangan.Items.Add(i)
            End If
        Next
    End Sub

Buat prosedure Genap.

Sub Genap()
        Dim i As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        For i = awal To akhir
            i = i + 0
            If (i Mod 2 = 0) Then
                lstBilangan.Items.Add(i)
            End If
        Next
    End Sub

Buat prosedure Prima.

Sub Prima()
        Dim x, y, z As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        If awal >= 2 Then
            For x = awal To akhir
                z = 0
                For y = 2 To x
                    hasil = x Mod y
                    If hasil = 0 Then
                        z = z + 1
                    End If
                Next
                If z <= 1 Then
                    lstBilangan.Items.Add(x)
                End If
            Next
        Else
            MsgBox("Bilangan Prima dimulai dari 2")
        End If
    End Sub

Buat prosedure Fibonacci.

Sub Fibonacci()
        Dim i, x, y, z As Integer
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        y = 0
        z = 1
        lstBilangan.Items.Add(y)
        lstBilangan.Items.Add(z)
        For i = 0 To akhir
            x = y + z
            y = z
            z = x
            If x > akhir Then Exit For
            lstBilangan.Items.Add(x)
        Next
    End Sub

Kode untuk button Exit.

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

Kode untuk button hitung.

Private Sub btnHitung2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung2.Click
        Dim sngTotal As Single
        sngTotal = Sum(txtbilsatu.Text, txtbildua.Text)
    End Sub

Buat function dengan nama sum.

Function sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) AsSingle
        Dim sngHasil
        sngHasil = sngNum1 + sngNum2
        txthasil.Text = sngHasil
        Return sngHasil
    End Function
End Class

setelah itu coba run programnya ...
Sekian dan Terimakasih semoga bermanfaat !!!