Function In Visual Basic

Sama seperti subroutine, function merupakan sebuah tempat yang digunakan 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 digunakan untuk proses perhitungan / aritmatika. Penulisan function secara umum adalah :

Output = Fungsi(Input)
Di visual basic penulisan function mengikuti aturan fungsi yaitu dimana ada input pasti ada output, sehingga bentuk penulisanya seperti ini :

Private Function Nama_Fungsi(Input) As Tipe_Data_Output
<script>
Nama_Fungsi = <Nilai yang keluar dari Fungsi>
End Function

sebagai contohnya kita akan membuat sebuah program penghitung gaji karyawan, dimana akan ada nama karyawan, gaji pokok, dan bonus, namun total gaji yang di dapatkan adalah jumlah keseluruhan gaji (Gapok dan Bonus) di kurangi PPH sebesar 10%, baiklah berikut tutorialnya :

Sama seperti biasanya jalankan VB dengan project standar EXE, lalu
tambahkan 4 label, 3 text box, dan 1 command button, dan atur dan ganti propertiesnya seperti ini :

Tool BoxPropertiesKeterangan
Form 1Start Up PositionCenter Screen
Label 1CaptionName
Label 2Basic Salary
Label 3Bonus
Label 4Total Salary $
Command 1CaptionCOUNT
Text 1Text(Kosong)
Text 2(Kosong)
Text 3(Kosong)
Sehingga seperti 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, "Blues Pedia"
    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 contoh program mengenai function, sekian tutorial kali ini
semoga bermanfaat



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Function In Visual Basic"

Post a Comment