Materi Tentang Procedure pada VB.net

Procedure

Procedur merupakan bagian dari pemrograman terstruktur, tetapi prosedur masih diperlukan dalam pemrograman berorientasi objek untuk mempermudah pengembangan suatu program dengan membentuk blok program menjadi bagian dan fungsi tersendiri.

Fungsi Procedure digunakan untuk penerapan tugas yang diulang-ulang, seperti perhitungan yang sering digunakan.

Sub Procedure intinya merupakan kumpulan code yang diawali dengan Sub dan diakhiri dengan End Sub.

Syntax :   [accessibility] Sub nama_prosedur ( parameter )

                 statement

                 End Sub

Keterangan:

-Accessibility bisa berupa Public, Protected, Friend, Protected Friend, atau Private yang
menentukan dari bagian mana saja sub tersebut dapat diakses.

-Nama_prosedur merupakan nama sub procedure yang penamaan nya harus sesuai dengan aturan penamaan dalam Visual Basic dan harus diawali dengan huruf atau underscore ( _ ).

-Parameter dideklarasikan sebagaimana kita mendeklarasikan variable. Sebuah sub procedure bisa memiliki parameter ataupun tidak. Parameter sub prosedur ada dua jenis yaitu ByVal dan ByRef. Pada parameter ByVal nilai hanya berubah pada prosedur tersebut sedangkan diluar prosedur nilai tersebut tidak akan berubah. Sebaliknya nilai ByRef akan ikut berubah di luar sub procedure.

ByRef dan ByVal :

1. ByRef = Parameter yang dikirimkan adalah object sehingga perubahan Nilai dari object tersebut yang diolah/diubah pada sub/function akan berakibat mengubah juga nilai dari object tersebut secara langsung.
2. ByVal = Parameter yang dikirimkan adalah Nilai dari sebuah object sehingga anda tidak dapat mengubah Nilai Object tersebut, anda hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai object di sub/function tidak akan mengubah nilai object yang sebenarnya.

Contoh Procedure :

Berikut Source Codenya :

Public Class proc1

    'nadiahtami 2017230007

    Private Sub gantitext(ByVal teksbaru As String)

        TextBox1.Text = teksbaru

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'btn pilih

        gantitext("unsada")

    End Sub

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

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class