Procedure and Function

PROCEDURE and FUNCTION

Perbedaan Procedure dan Function

Procedure
1.Prosedure tidak mengembalikan nilai balik terhadap pemanggilnya.
2.Statement akan dijalankan sampai prosedure itu berakhir sehingga tidak perlu menggunakan variabel penampung untuk menjalankan atau memanggilnya.
3.Prosedure dideklarasikan dengan sub keyword.
Function
1.Function tidak mengembalikan nilai balik terhadap pemanggilnya.
2.Function perlu menggunakan variabel untuk menampung nilai balik dari hasil function jika kita akan memanggilnya.
3.Prosedure dideklarasikan dengan function keyword.

Contoh sintax sebuah procedure :
Tanpa Prameter
Private Sub Tampil()
    MsgBox(“Hello World”,MsgBoxStyle.Information +             MsgBoxStyle.OKOnly, “Pesan”)
End Sub

Dengan Prameter
Private Sub Tampil(ByVal pesan AS String)
        MsgBox(pesan,MsgBoxStyle.Information +    
MsgBoxStyle.OKOnly, “Pesan”)
End Sub

Contoh sintax sebuah function : 
Tanpa parameter :
Private Function Genap() As Boolean
    If (2 Mod 2 1) Then
        Return True
    else
        Return False
    End If
End Function

Dengan parameter :
Private Function Genap(ByVal angka as Integer) As Boolean
    If (angka Mod 2 1) Then
        Return True
    else
        Return False
    End If
End Function

Cara pemanggilan sebuah Procedure :
Private Sub Form1_Load(ByVal sender AS System.Object, ByVal e AS System.EventArgs)Handles MyBase.Load
    Tampil() ‘ Tanpa Parameter
    Tampil(“Halo World”) ‘ Dengan Parameter
End Sub

Cara pemanggilan sebuah Function :
Private Sub Form1_Load(ByVal sender AS System.Object, ByVal e AS System.EventArgs)Handles MyBase.Load
    Dim n as Integer
    n = Genap() ‘ Tanpa Parameter
    n = Genap(2) ‘ Dengan Parameter
End Sub