5. Membuat program yang menggunakan Prosedur Sub

Membuat Program untuk Menentukan Bilangan ( Ganjil, Genap, Prima, dan Fibonacci) dan Menghitung Penjumlahan

·         Langkah pertama adalah buka program microsoft visual studio 2010 dengan cara klik Start >> All Program >> Microsoft Visual Studio 2010

·         Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File >> New Project. Seperti pada gambar di atas.

·         Langkah ketiga buatlah desain form seperti gambar di bawah ini. Masukkan 2 groupbox, 1 combobox, 1 listbox, 3 label, 3 textbox dan 3 command button. Lalu ubahlah propertiesnya  seperti pada tabel berikut:

Objek	Text	Name
GroupBox1	Jenis Bilangan	GroupBox1
GroupBox2	Contoh Bilangan	GroupBox2
GroupBox3	Hitung	GroupBox3
ListBox1	-	lstContohBilangan
ComboBox1	Pilih Jenis Bilangan	cboJenisBilangan
Label1	Bilangan 1	Label1
Label2	Bilangan 2	Label2
Label3	Hasil	Label3
TextBox1	-	txtBil1
TextBox2	-	txtBil2
TextBox3	-	txtHasil
Button1	Lihat Bilangan	btnLihat
Button2	Hitung	btnHitung
Button3	Exit	btnExit

·         Langkah keempat masukan koding.

-          pada tombol “Lihat Bilangan” :

Public Class macamMacamBilangan
    Dim awal, akhir, hasil As String

    Private Sub btnLihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihat.Click
        ProsesBilangan(cboJenisBilangan.SelectedItem)
    End Sub

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

    Sub ProsesBilangan(ByVal strJenisBilangan As String)
        If strJenisBilangan = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()

        ElseIf strJenisBilangan = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()

        ElseIf strJenisBilangan = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()

        ElseIf strJenisBilangan = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

    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

    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

    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

    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

-          Pada tombol “Hitung”

Private Sub btnHitung_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        ShowSum(txtBil1.Text, txtBil2.Text)
        txtBil1.Clear()
        txtBil2.Clear()
    End Sub
End Class

-          Pada tombol “Exit”

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

·         Langkah kelima bila koding sudah dimasukan running programnya dan coba isi sesuai keinginan.

·         Tampilan setelah di running :

-          Tampilan awal pilih jenis bilangan, contoh : “Ganjil”

-          Lalu masukan batas angka awalnya, Contoh : “1”

-          Lalu masukan batas angka awalnya, Contoh : “10”

-          Maka akan tampil bilangan ganjil di list contoh bilangan ganjil dari 1 – 10

-          Isi bilangan 1 dan bilangan 2 sesuai keinginan

-          Lalu klik “Hitung” untuk melihat hasilnya

Terimakasih segitu dulu pembahasan materi visual basic 2010 dari saya semoga bermanfaat bila ada kesalahan mohon dimaafkan terimakasih :)