contoh penggajian karyawan dengan menggunakan Listview pada VB 2008

Ciontoh Program Listview Penggajian Karyawan.

Desainlah Gambar seperti di bawah ini :

dan ketik koding berikukt

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cmbnik.Items.Add("14110114")

        cmbnik.Items.Add("14110115")

        cmbnik.Items.Add("14110116")

        cmbjabatan.Items.Add("Manajer")

        cmbjabatan.Items.Add("Dosen")

        cmbjabatan.Items.Add("Staf")

        cmbstatus.Items.Add("Menikah")

        cmbstatus.Items.Add("Tidak Menikah")

        For i = 1 To 10

            cmbjumlahanak.Items.Add(i)

        Next i

        For i = 1 To 10

            cmblembur.Items.Add(i)

        Next i

        buattable()

    End Sub

    Private Sub cmbnik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbnik.SelectedIndexChanged

        If cmbnik.Text = "14110114" Then

            txtnama.Text = "EDISOKHI WARUWU"

        End If

        If cmbnik.Text = "14110115" Then

            cmbnik.Text = "DAFITRIUS LOMBU"

        End If

        If cmbnik.Text = "14110116" Then

            cmbnik.Text = "DASARIUS GULO"

        End If

    End Sub

    Private Sub cmbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjabatan.SelectedIndexChanged

        If cmbjabatan.Text = "Manajer" Then

            txtgaji.Text = "4000000"

        End If

        If cmbjabatan.Text = "Dosen" Then

            txtgaji.Text = "3000000"

        End If

        If cmbjabatan.Text = "Staf" Then

            txtgaji.Text = "2000000"

        End If

        txtpajak.Text = 0.015 * txtgaji.Text

    End Sub

    Private Sub cmbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbstatus.SelectedIndexChanged

        If cmbstatus.Text = "Menikah" Then

            txttunjistri.Text = 0.09 * txtgaji.Text

        End If

        If cmbstatus.Text = "Tidak Menikah" Then

            txttunjistri.Text = 0

        End If

    End Sub

    Private Sub cmbjumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjumlahanak.SelectedIndexChanged

        If cmbjumlahanak.Text >= "2" And cmbstatus.Text = "Menikah" Then

            txttunjanak.Text = 0.07 * txtgaji.Text

        ElseIf cmbjumlahanak.Text = "1" And cmbstatus.Text = "Tidak Menikah" Then

            txttunjanak.Text = 0.03 * txtgaji.Text

        Else

            txttunjanak.Text = 0

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If cmbjabatan.Text = "Manajer" Then

            cmblembur.Text = cmblembur.Text * 7500

        ElseIf cmbjabatan.Text = "Dosen" Then

            cmblembur.Text = cmblembur.Text * 8000

        ElseIf cmblembur.Text = "Staff" Then

            cmblembur.Text = cmblembur.Text * 5000

        Else

            cmblembur.Text = 0

        End If

        txttotal.Text = Val(cmblembur.Text) + Val(txtgaji.Text) + Val(txttunjistri.Text) + Val(txttunjanak.Text) - Val(txtpajak.Text)

        txthonor.Text = Val(cmblembur.Text) + Val(txtgaji.Text) + Val(txttunjistri.Text) + Val(txttunjanak.Text) - Val(txtpajak.Text)

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Sub buattable()

        LV.Columns.Add("NIK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JABATAN", 100, HorizontalAlignment.Center)

        LV.Columns.Add("GAJI", 100, HorizontalAlignment.Center)

        LV.Columns.Add("STATUS", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TUNJANGAN ISTRI", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JUMLAH ANAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TUNJANGAN ANAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JAM LEMBUR", 100, HorizontalAlignment.Center)

        LV.Columns.Add("HONOR LEMBUR", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL GAJI", 100, HorizontalAlignment.Center)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitable()

        Dim isi As New ListViewItem

        isi.Text = cmbnik.Text

        isi.SubItems.Add(txtnama.Text)

        isi.SubItems.Add(cmbjabatan.Text)

        isi.SubItems.Add(txtgaji.Text)

        isi.SubItems.Add(cmbstatus.Text)

        isi.SubItems.Add(txttunjistri.Text)

        isi.SubItems.Add(cmbjumlahanak.Text)

        isi.SubItems.Add(txttunjanak.Text)

        isi.SubItems.Add(txtpajak.Text)

        isi.SubItems.Add(cmblembur.Text)

        isi.SubItems.Add(txthonor.Text)

        isi.SubItems.Add(txttotal.Text)

        LV.Items.Add(isi)

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call isitable()

        cmbnik.Text = ""

        txtnama.Text = ""

        cmbjabatan.Text = ""

        txtgaji.Text = ""

        cmbstatus.Text = ""

        txttunjistri.Text = ""

        cmbjumlahanak.Text = ""

        txttunjanak.Text = ""

        txtpajak.Text = ""

        cmblembur.Text = ""

        txthonor.Text = ""

        txttotal.Text = ""

    End Sub

End Class

hasil yaitu

 Selamat belajar ea???