Prosedur (subprosedur) pada pemrograman VB .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

Kali ini kita akan membahas tentang Prosedur pada pemrograman VB .NET

Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang akan dilakukan

secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa

perlu menuliskan kode yang sama lagi.

Procedure dibagi menjadi 2 jenis yaitu Subrutin dan Fungsi, dimana Subprosedur tidak dapat

mengembalikan suatu nilai sedangkan Fungsi dapat mengembalikan suatu nilai pada dirinya.

Subprosedur adalah procedure yang tidak dapat mengembalikan nilai, biasanya digunakan

untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses

tersebut.

Berikut ini adalah keterangan dari bagian-bagian subprosedur.

Sebagai contoh penggunaan argumen dan prosedur, lebih baik kita langsung mencobanya pada aplikasi pencarian bilangan dan kalkulator penjumlahan menggunakan VB .NET

Untuk program, kita masih menggunakan program yang sebelumnya, namun kita akan melakukan sedikit modifikasi dan tambahan sintaks dengan penerapan sub prosedur.

Langkah pertama edit program yang kemarin dan lakukan beberapa penambahan pada form utama seperti contoh dibawah ini lengkap dengan penamaan yang benar.

Selanjutnya kita akan memodifikasi sintaks yang sebelumnya dan menggati dengan beberapa penerapan prosedur beserta argumennya.

Berikut ini adalah contoh sintaks penggunaan prosedur pada sub ShowBilangan

Untuk memanggil prosedur di atas gunakan sintaks berikut ini :

Untuk selengkapnya berikut ini adalah sintaks keseluruhan dan sub-subprosedur dari program ini.

Public Class macamMacamBilangan
    Dim strAwal, strAkhir As String
    Dim IntAwal, IntAkhir As Integer

    Private Sub btnLihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihat.Click
        IntAwal = strAwal
        IntAkhir = strAkhir

        ShowBilangan(cboJenisBilangan.SelectedItem)
       
    End Sub

    Sub ShowBilangan(ByVal strBilangan As String)
        If strBilangan = "Ganjil" Then
            BilanganGanjil()
        End If

        If strBilangan = "Genap" Then
            BilanganGenap()
        End If

        If strBilangan = "Prima" Then
            BilanganPrima()
        End If

        If strBilangan = "Fibonacci" Then
            BilanganFibonacci()
        End If
    End Sub

    Sub BilanganGanjil()
        strAwal = Val(InputBox("Masukan Batas Angka Awal :", "Perhatian !", ""))
        strAkhir = Val(InputBox("Masukan Batas Angka Akhir :", "Perhatian !", ""))
        IntAwal = strAwal
        IntAkhir = strAkhir

        Dim intGanjil As Integer
        lstContohBilangan.Items.Clear()
        For intGanjil = IntAwal To IntAkhir
            If (intGanjil Mod 2 = 1) Then
                lstContohBilangan.Items.Add(intGanjil)
            End If
        Next

    End Sub

    Sub BilanganGenap()
        strAwal = Val(InputBox("Masukan Batas Angka Awal :", "Perhatian !", ""))
        strAkhir = Val(InputBox("Masukan Batas Angka Akhir :", "Perhatian !", ""))
        IntAwal = strAwal
        IntAkhir = strAkhir

        Dim intGenap As Integer
        lstContohBilangan.Items.Clear()
        For intGenap = IntAwal To IntAkhir
            If (intGenap Mod 2 = 0) Then
                lstContohBilangan.Items.Add(intGenap)
            End If
        Next
    End Sub

    Sub BilanganPrima()
        Dim prima, x, y, z As Integer
        strAkhir = Val(InputBox("Masukan Batas Angka Akhir :", "Perhatian !", ""))
        IntAkhir = strAkhir

        lstContohBilangan.Items.Clear()
        If IntAkhir >= 2 Then
            For x = 2 To IntAkhir
                z = 0
                For y = 2 To x
                    prima = x Mod y
                    If prima = 0 Then
                        z = z + 1
                    End If
                Next
                If z <= 1 Then
                    lstContohBilangan.Items.Add(x)
                End If
            Next
        End If
    End Sub

    Sub BilanganFibonacci()
        Dim fibonacci, x, y, z As Integer
        lstContohBilangan.Items.Clear()
        strAkhir = Val(InputBox("Masukan Batas Angka Akhir :", "Perhatian !", ""))
        IntAkhir = strAkhir
        y = 0
        z = 1
        lstContohBilangan.Items.Add(y)
        lstContohBilangan.Items.Add(z)
        For fibonacci = 0 To IntAkhir
            x = y + z
            y = z
            z = x
            If x > IntAkhir Then Exit For
            lstContohBilangan.Items.Add(x)
        Next

    End Sub

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

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

    End Sub

    Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click
        Hasil(IntAwal, IntAkhir)
    End Sub
    Sub Hasil(ByVal intAwal As Integer, ByVal intAkhir As Integer)
        Dim IntHasil As Integer
        intAwal = txtBilangnSatu.Text
        intAkhir = txtBilanganDua.Text
        IntHasil = intAwal + intAkhir
        txtHasil.Text = IntHasil
        MessageBox.Show("Hasilnya adalah " & IntHasil.ToString)
    End Sub
End Class

Seperti itulah sedikit tutorial yang dapat saya bagikan, semoga dapat bermanfaat bagi yang membutuhkan Aamiin.