Pertemuan 8: 30 Maret 2015 Aplikasi Perhitungan Menggunakan Procedure pada VB .NET

Aplikasi perhitungan dengan Procedure pada VB.NET

Sebelumnya, saya akan menjelaskan sedikit tentang Procedure dan Sub Procedure. Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu. Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang dilakukan secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa perlu menuliskan kode yang sama lagi.

Sebuah Sub Procedure merupakan sebuah blok kode yang dieksekusi untuk merespon sebuah event atau prosedur yang tidak dapat mengembalikan nilai, biasanya digunakan untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses tersebut.

Nah, itu sedikit penjelasan mengenai Procedure dan Sub Procedure. Sekarang kita akan membuat sebuah program atau aplikasi perhitungan sebuah bilangan dengan Procedure, seperti biasa akan menggunakan VB 2010. Langkah-langkahnya seperti berikut:

Pertama buka VB 2010, kemudian klik menu File kemudian pilih New Project dan kemudian pilih Windows Form Application. Ganti nama projectnya sesuai dengan project yang dibuat.

Saya akan memberi nama Project saya dengan nama Hitung Bilangan. Kemudian akan ada form kosong seperti berikut. Sebenarnya, form saya buat merupakan kelanjutan dari postingan sebelumnya yang berkaitan dengan Looping. Hanya tinggal diubah desain formnya sedikit dan source codenya juga ada tambahan sedikit.

Hanya tinggal ditambah GroupBox dan diganti dengan Textnya yaitu Perhitungan. Dan tambahkan Label Bilangan 1 dan Bilangan 2 dan juga Hasil. Kemudian juga tambahkan TextBox sesuai dengan label yang ada di GroupBox tersebut.

Masukan source codenya seperti berikut.

</ br>

Public Class btnHitung

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

        Me.Close()

    End Sub

    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

    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

    Private Sub btnHitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Dan hasilnya setelah di Run.

Sekian dan terima kasih.