Pertemuan 6, 23 Maret 2015 : FUNCTION AND PROCEDURES VB 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.
1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

 2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

 3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

• 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
• 2 Buah Button
  • Button 1 : (name) : btnInputBil | Text : Input Bilangan
  • Button 2 : (name) : btnExit | Text : Exit

4. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :
   

Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click

        Dim strGanjil, strGenap, strPrima, strFibo As Integer

        proses(strGanjil, strGenap, strPrima, strFibo)

        ShowSum(txtbilsatu.Text, txtbildua.Text)

    End Sub

5. Lalu tambahkan koding koding ini di bagian halaman kodingnya, (dibawah koding no.4)

    Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)

        Dim intSum As Integer

        intSum = intNum1 + intNum2

        txthasil.Text = intSum

    End Sub

    Sub proses(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibo As String)

        If (ComboBox1.SelectedIndex.Equals(0)) Then

            BilGanjil()

        ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then

            BilGenap()

        ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then

            BilPrima()

        ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then

            BilFibo()

        End If

    End Sub

    Sub BilGanjil()

        Dim ganjil As Integer

        bilangan.Items.Clear()

        ganjil = 1

        Do While ganjil <= 20

            bilangan.Items.Add(ganjil)

            ganjil = ganjil + 2

        Loop

    End Sub

    Sub BilGenap()

        Dim genap As Integer

        bilangan.Items.Clear()

        genap = 0

        Do While genap <= 20

            bilangan.Items.Add(genap)

            genap = genap + 2

        Loop

    End Sub

    Sub BilPrima()

        Dim prima As Integer

        bilangan.Items.Clear()

        Dim x As Integer

        Dim y As Integer

        Dim z As Integer

        For x = 2 To 100

            z = 0

            For y = 2 To x

                prima = x Mod y

                If prima = 0 Then

                    z = z + 1

                End If

            Next y

            If z <= 1 Then

                bilangan.Items.Add(x)

            End If

        Next x

    End Sub

    Sub BilFibo()

        bilangan.Items.Clear()

        Dim a As Integer = 0

        Dim b As Integer = 1

        Dim fib As Integer = 0

        bilangan.Items.Add(“1″)

        Do

            fib = a + b

            a = b

            b = fib

            bilangan.Items.Add(fib.ToString)

        Loop While fib <= 100

    End Sub

6. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

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

Me.Close()

End Sub

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar. Maka hasilnya jika kita menekan tombol “Input Bilangan” maka hasilnya akan jalan 2 2 nya.
Hasilnya :

Seperti itulah contoh fungsi dan prosedur dalam VB 2010