Perbedaan Procedure & Function

Procedure Function
Definisi Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
Parameter Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional). Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
Deklarasi Menggunakan keyword “Sub”. Menggunakan keyword “Function”,
untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.

Contoh Sintak di VB.Net
Sintak Procedure

Tanpa Parameter
[Access Modifier] Sub NamaProcedure()
'Statement
End Sub
Ket. Access modifier = Private, Public, dan Friend.
Contoh:
Private sub phi ()
Dim xVar as Double = 3.14
MsgBox (“Nilai phi =” & xVar)
End Sub
Menggunakan Parameter
[Access Modifier] Sub NamaProcedure(Parameter As TipeData, Parameter2 As TipeData)
'Statement
End Sub
Contoh:
Private sub pesan(ByVal xVar as String)
MsgBox (“Pesan =” & xVar)
End Sub
Sintak Function
Tanpa Parameter
[Access Modifier] Function NamaFunction() as TipeDataUntukNilaiBalik
'Statement
End Function
Contoh:
Private Function hitung() as Integer
Dim xVar as Integer = 10
Dim xVar2 as Integer = 20 Return (xVar * xVar2)
'Atau hitung = (xVar * xVar2)
End Sub
Menggunakan Parameter
[Access Modifier] Function NamaFunction(Parameter As TipeData, Parameter2 As TipeData) as TipeDataUntukNilaiBalik
'Statement
End Function
Contoh:
Private function hitung(ByVal xVar as integer, ByVal xVar2 as integer) as integer
Return (xVar * xVar2)
End function
Cara pemanggilan procedure & Function
Pemanggilan untuk procedure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Pemanggilan tanpa parameter
phi()
'Pemanggilan dengan parameter
pesan("Hello World.")
End Sub
Pemanggilan untuk function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Pemanggilan tanpa parameter
MsgBox( hitung() )
'Pemanggilan dengan parameter
MsgBox( hitung (10,20) )
End Sub