Program Visual Basic Penggajian Karyawan

Rabu, 15 Mei 2013 | 10:42 WIB | Dibaca : 10956 kali | Kategori : Prog Visual Basic
Program Visual Basic Penggajian Karyawan

Program berikut ini latihan penggajian karyawan menggunakan bahasa pemrograman visual basic/vb 6
Program ini termasuk memiliki logika yang sedang/sedikit rumit. :) masih sedikit yah :) hehehe

Silahkan design tampilan program seperti dibawah ini :

Program Visual Basic Penggajian Karyawan


Berikut listing program penggajian karyawan.

Dim lembur As Double
Private Sub cmdBaru_Click()
    NIK.Text = ""
    Nama.Text = ""
    Status.Text = ""
    Jabatan.Text = ""
    Pajak.Text = ""
    Total.Text = ""
    Gaji.Text = ""
    TunjIstri.Text = ""
    TunjAnak.Text = ""
    JAnak.Text = ""
    Honor.Text = ""
    JLembur.Text = ""
    TunjAnak.Text = ""

End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdProses_Click()
    Total.Text = Val(Gaji.Text) + Val(TunjIstri.Text) + Val(TunjAnak.Text) + Val(Honor.Text) - Val(Pajak.Text)
End Sub

Private Sub Form_Load()
    NIK.AddItem "001"
    NIK.AddItem "002"
    NIK.AddItem "003"
    Jabatan.AddItem "Mandor"
    Jabatan.AddItem "Kepala Bagian"
    Jabatan.AddItem "Staf"
    Status.AddItem "Menikah"
    Status.AddItem "Tidak Menikah"
    
    For i = 1 To 5
        JAnak.AddItem i
    Next i
    
    For i = 1 To 15
        JLembur.AddItem i
    Next i
    
    Call cmdBaru_Click
End Sub

Private Sub Jabatan_Click()
    Select Case Jabatan.Text
    Case "Mandor":
        Gaji.Text = 1750000
        lembur = 7500
    Case "Kepala Bagian": Gaji.Text = 2500000
        lembur = 10000
    Case "Staf": Gaji.Text = 1250000
        lembur = 5000
    End Select
    Pajak.Text = 0.015 * Gaji.Text
End Sub

Private Sub JAnak_Click()
    If JAnak.Text >= 2 Then
        TunjAnak.Text = 0.07 * Gaji.Text
    ElseIf JAnak.Text = 1 Then
        TunjAnak.Text = 0.03 * Gaji.Text
    Else
        TunjAnak.Text = 0
    End If
End Sub

Private Sub JLembur_Click()
    Honor.Text = JLembur.Text * lembur
End Sub

Private Sub NIK_Click()
    Select Case NIK.Text
    Case "001": Nama.Text = "Oncom"
    Case "002": Nama.Text = "Udin"
    Case "003": Nama.Text = "Ujang"
    End Select
End Sub

Private Sub Status_Click()
    Select Case Status.Text
    Case "Menikah":
        TunjIstri.Text = 0.09 * Gaji.Text
        JAnak.Enabled = True
    Case "Tidak Menikah":
        JAnak.Text = 0
        JAnak.Enabled = False
        TunjIstri.Text = 0
        TunjAnak.Text = 0
    End Select
    
End Sub

Untuk hasilnya silahkan aja lihat tampilan berikut ini :

Program Visual Basic Penggajian Karyawan

 

Program Visual Basic Penggajian Karyawan

 

Selamat belajar bahasa pemrograman yaa

Tag : Program Visual Basic Penggajian Karyawan, bahasa pemrograman vb 6, bahasa pemrograman visual basic


Bila berita ini bermanfaat silahkan share Program Visual Basic Penggajian Karyawan ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program Visual Basic Penggajian Karyawan

Anda berada di halaman Program Visual Basic Penggajian Karyawan, dan telah membaca artikel Program Visual Basic Penggajian Karyawan. Artikel Program Visual Basic Penggajian Karyawan bisa anda peroleh pada halaman http://www.mesran.web.id/berita-635-program-visual-basic-penggajian-karyawan.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program Visual Basic Penggajian Karyawan sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id