Sub Procedure dan Function pada Visual Basic

Sub Procedure

Mari kita bahas mulai dari Sub Procedure. Sub Procedure intinya merupakan kumpulan code yang diawali dengan Sub dan diakhiri dengan End Sub.

Sintaks :
[accessibility] Sub nama_prosedur ( parameter )
    statement
End Sub

Keterangan :
Accessbility 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 penamaanya harus sesuai dengan aturan penamaan dalam Visual Basic dan harus diawali dengan Huruf atau Underscore ( _ ).

parameter dideklarasikan sebagai 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 diluar Sub Procedure.

Contoh Penulisan :
Sub Procedure dengan 1 parameter:
Private Sub GantiTeks(ByVal TeksBaru As String)
    TextBox1.Text = TeksBaru
End Sub

Sub Procedure dengan parameter opsional (boleh diisi boleh tidak tetapi memiliki nilai default):
Private Sub UbahPesan(Optional ByVal Pesan As String = "")
    If Pesan = "" Then
        MsgBox("Tidak ada pesan")
    Else
        MsgBox(Pesan)
    End If
End Sub

Contoh Pemanggilan Sub Procedure :
Sub Procedure dengan 1 parameter:
UI:

Code :
Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
    Button1.Text = "Choose..."
End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click

    GantiTeks("Rani")

End Sub

Runtime :

Sub Procedure dengan 2 parameter :
Code :
Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
    Button1.Text = "Choose..."
End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click

    TampilkanPeringatan("Isi data sesuai format.", "Peringatan")

End Sub

Runtime :

Sub Procedure dengan parameter opsional :
Call UbahPesan() 

UbahPesan("Selamat Datang!")

Function

Definisi Function adalah kumpulan code yang diawali dengan Function dan diakhiri dengan End Function. Function menjalankan kode diantaranya dan mengembalikan sebuah Nilai. Artinya sama seperti Sub Procedure tetapi Function mengembalikan Nilai.
Sintaks :
[ accessibility ] Function nama_function [ paramater ] [As tipe_nilai ]
    statement
End Function

Keterangan :
Accessibility bisa berupa Public, Protected, Fried, Protected Friend, atau Private yang menentukan dari bagian mana saja Function tersebut dapat diakses.

nama_function merupakan nama Function yang penamaannya harus sesuai dengan aturan penamaan dalam Visual Basic dan harus diawali dengan huruf atau underscore ( _ ).

parameter dideklarasikan sebagai kita mendeklarasikan variable. Sebuah Function 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 diluar Function.

Contoh Penulisan :
Function dengan 1 parameter :
Function BagiDua(ByVal sNilai As Single) As Single
    Return sNilai / 2
End Function

Funtion dengan 2 parameter :
Private Function HasilBagi(ByVal sNilai As Single, ByVal sBagi As Single) As Single
     Return sNilai / sBagi
End Function

Function dengan parameter opsional (Boleh diisi boleh tidak tetapi memiliki nilai default) :
Public Function TampilkanPesan(Optional ByVal IsiPesan As String = "") As String
    If IsiPesan = "" Then
        Return "Tidak ada pesan"
    Else
        Return "Isi Pesan adalah " & IsiPesan
   End If
End Function

Contoh Pemanggilan Function :
Function dengan 1 parameter :
Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click

    TextBox1.Text = BagiDua(5)

End Sub

Funtion dengan 2 parameter :
Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click

    TextBox1.Text = HasilBagi(7, 2)

End Sub 

Function dengan parameter opsional :

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

    TextBox1.Text = TampilkanPesan()

End Sub

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

    TextBox1.Text = TampilkanPesan("Selamat Datang!")

End Sub

Sekian dari saya tentang Sub Procedure dan Function,jika ada yang salah mohon maaf karena semua manusia punya kesalahan ya.. :) , Makasih sudah membaca Artikel ini dah semoga bermanfaat untuk kalian

Tweet

Penanti Bell Pulang

http://www.tutorialumum.com/

Subscribe to receive free email updates: