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.
Syntax : [ accessibility ] Function nama_function [ paramater ] [As tipe_nilai ] statement
End Function
End Function
Keterangan:
- Accessibility bisa berupa Public, Protected, Friend, Protected Friend, atau Private yang menentukan dari bagian mana saja function tersebut dapat diakses.
- Nama_function merupakan nama function 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 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 di luar function.
ByRef dan ByVal :
- 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.
- 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 Function :
Berikut Source Codenya :
Public Class Function1
'nadiahtami 2017230007'
Function bagidua(ByVal nilai As Single) As Single
Return nilai / 2
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'btn hitung
TextBox1.Text = bagidua(5)
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
Komentar
Posting Komentar