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