Cara Membuat Aplikasi Gaji Karyawan Dengan VISUAL BASIC

Baik kali ini saya mendapatkan permintaan dari teman saya yaitu membuat aplikasi gaji karyawan dengan visual basic :

1 . Buat Form dengan isi berikut :

2. Setelah itu isikan codingan berikut :

Private Sub Command1_Click()

If (Text1 = "") Then
    MsgBox "Isi NIP Anda!"
    Text1.SetFocus
    Exit Sub
    End If
    If (Text2 = "") Then
    MsgBox "Isi Nama Anda!"
    Text2.SetFocus
    Exit Sub
    End If
    If (Text3 = "") Then
    MsgBox "Isi Jam Lembur Anda!"
    Text3.SetFocus
    Exit Sub
    End If
    If (Text4 = "") Then
    MsgBox "Isi Jumlah Anak Anda!"
    Text4.SetFocus
    Exit Sub
    End If

Dim nip, nm As String
nip = Text1
nama = Text2
Dim gol, jl, ja As Integer
gol = Combo1
jl = Text3
ja = Text4


If ja > 3 Then ja = 3
Select Case Combo1
Case "1"
jbt = "Direktur"
gk = Val(9000000) + Val(jl * 100000) + Val(ja * 200000)
gb = Val(gk) - Val(gk * 5 / 100)
Case "2"
jbt = "Manager"
gk = Val(7000000) + Val(jl * 80000) + Val(ja * 200000)
gb = Val(gk) - Val(gk * 5 / 100)
Case "3"
jbt = "Supervisor"
gk = Val(5000000) + Val(jl * 60000) + Val(ja * 200000)
gb = Val(gk) - Val(gk * 5 / 100)
Case "4"
jbt = "Operator"
gk = Val(3000000) + Val(jl * 40000) + Val(ja * 200000)
gb = Val(gk) - Val(gk * 5 / 100)
Case "5"
jbt = "Staff"
gk = Val(1500000) + Val(jl * 20000) + Val(ja * 200000)
gb = Val(gk) - Val(gk * 5 / 100)
End Select
Text5.Text = jbt
Text6.Text = gk
Text7.Text = gb


End Sub



Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Combo1 = "Pilih Salah Satu"
Text1.SetFocus

End Sub

Private Sub Command3_Click()
If MsgBox("Yakin ingin keluar?", 32 + 4, "Perhitungan Gaji Karyawan") = 6 Then
End
End If

End Sub























3. Maka Akan Menghasilkan hasil output seperti berikut :