Program Listview Penggajian Karyawan

Rabu, 15 Mei 2013 | 12:58 WIB | Dibaca : 3452 kali | Kategori : Prog Visual Basic
Program Listview Penggajian Karyawan

Sebelumnya kita pernah membahas program visual basic penggajian karyawan. Pada pembahasan lanjutan ini program penggajian karyawan akan dibahas dengan menyertakan komponen listview, sebagai menampung data.

Berikut design program listview penggajian karyawan


Program Listview Penggajian Karyawan

Adapun dibawah ini merupkan listing program penggajian karyawan.

Dim lst As ListItem
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()
    Set lst = ListView1.ListItems.Add(, , NIK.Text)
    lst.SubItems(1) = Nama.Text
    lst.SubItems(2) = Jabatan.Text
    lst.SubItems(3) = Gaji.Text
    lst.SubItems(4) = Status.Text
    lst.SubItems(5) = JAnak.Text
    lst.SubItems(6) = TunjIstri.Text
    lst.SubItems(7) = TunjAnak.Text
    lst.SubItems(8) = Pajak.Text
    lst.SubItems(9) = JLembur.Text
    lst.SubItems(10) = Honor.Text
    lst.SubItems(11) = Total.Text
    Call cmdBaru_Click
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
    
    ListView1.ColumnHeaders.Add , , "NIK", 1000
    ListView1.ColumnHeaders.Add , , "Nama", 3000
    ListView1.ColumnHeaders.Add , , "Jabatan", 1500
    ListView1.ColumnHeaders.Add , , "Gaji", 1000
    ListView1.ColumnHeaders.Add , , "Status", 1000
    ListView1.ColumnHeaders.Add , , "Anak", 1000
    ListView1.ColumnHeaders.Add , , "T. Istri", 1500
    ListView1.ColumnHeaders.Add , , "T. Anak", 1500
    ListView1.ColumnHeaders.Add , , "Pajak", 1000
    ListView1.ColumnHeaders.Add , , "Jam Lembur", 1000
    ListView1.ColumnHeaders.Add , , "Honor Lembur", 1000
    ListView1.ColumnHeaders.Add , , "Total Gaji", 1500
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport
    
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
    Total.Text = Val(Gaji.Text) + Val(TunjIstri.Text) + Val(TunjAnak.Text) + Val(Honor.Text) - Val(Pajak.Text)
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 hasil output dari program listview penggajian karyawan menggunakan visual basic dapat dilihat pada gambar dibawah ini.

Program Listview Penggajian Karyawan

Selamat belajar bahasa pemrograman.

Tag : Program Listview Penggajian Karyawan, belajar bahasa pemrograman, program penggajian karyawan, program vb, program visual basic


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

Berikan Komentar Anda Pada Berita Program Listview Penggajian Karyawan

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