Function In Visual Basic

Sama menyerupai subroutine, function merupakan sebuah daerah yang dipakai untuk menuliskan sebuah script yang akan di gunakan yang bertujuan untuk menghemat / memperpendek penulisan script, hal yang membedakanya adalah,  subroutine tidak menghasilkan sebuah nilai, sedangkan fungsi menghasilkan sebuah nilai, sehingga function sering dipakai untuk proses perhitungan / aritmatika. Penulisan function secara umum yakni :

Output = Fungsi(Input)

Di visual basic penulisan function mengikuti hukum fungsi yaitu dimana ada input niscaya ada output, sehingga bentuk penulisanya menyerupai ini :

Private Function Nama_Fungsi(Input) As Tipe_Data_Output

<script>

Nama_Fungsi = <Nilai yang keluar dari Fungsi>

End Function

sebagai misalnya kita akan menciptakan sebuah kegiatan penghitung honor karyawan, dimana akan ada nama karyawan, honor pokok, dan bonus, namun total honor yang di dapatkan yakni jumlah keseluruhan honor (Gapok dan Bonus) di kurangi PPH sebesar 10%, sepakat berikut tutorialnya :

Sama menyerupai biasanya jalankan VB dengan project standar EXE, lalu

tambahkan 4 label, 3 text box, dan 1 command button, dan atur dan ganti propertiesnya menyerupai ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Position	Center Screen
Label 1	Caption	Name
Label 2		Basic Salary
Label 3		Bonus
Label 4		Total Salary $
Command 1	Caption	COUNT
Text 1	Text	(Kosong)
Text 2		(Kosong)
Text 3		(Kosong)

Sehingga menyerupai ini :

Jika sudah, tuliskan script berikut :

Private Function tax() 'Function yang telah dibuat
tax = Val(Text2) + Val(Text3) 'Isi dari Function Tax
tax = tax - (tax * 0.1)
End Function

Private Sub Command1_Click()
If Command1.Caption = "COUNT" Then
    If Text1 = "" Or Text2 = "" Or Text3 = "" Then
    MsgBox "Please, Complete the form !", vbInformation, "Routeros Mikrotik"
    Else
    Label4.Caption = "Total Salary $ " & tax
    Command1.Caption = "TRY AGAIN"
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    End If

ElseIf Command1.Caption = "TRY AGAIN" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1 = ""
Text2 = ""
Text3 = ""
Command1.Caption = "COUNT"
Label4.Caption = "Total Salary $ "
End If
End Sub

Langkah terakhir, silahkan jalankan programnya,
itulah pembahasaan dean referensi kegiatan mengenai function, sekian tutorial kali ini
biar bermanfaat