VB.NET listview menghitung gaji

Desain VB.NET listview menghitung gaji

http://mesran.blogspot.com/

Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("nik", 50, HorizontalAlignment.Left)
        LV.Columns.Add("nama", 50, HorizontalAlignment.Left)
        LV.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("status", 80, HorizontalAlignment.Left)
        LV.Columns.Add("pajak", 60, HorizontalAlignment.Left)
        LV.Columns.Add("tunjangan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("gaji", 60, HorizontalAlignment.Left)
        LV.Columns.Add("totgaji", 70, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nik.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(tunjangan.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(totgaji.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        nik.Items.Add("0012268")
        nik.Items.Add("0012269")
        nik.Items.Add("0012270")

        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staf")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "0012268" : nama.Text = "YOYON"
            Case "0012269" : nama.Text = "SINDUT"
            Case "0012270" : nama.Text = "AJO"
        End Select
    End Sub

    Private Sub btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        totgaji.Text = Val(gaji.Text) + Val(tunjangan.Text) - Val(pajak.Text)
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : gaji.Text = 1750000
            Case "Kepala Bagian" : gaji.Text = 2500000
            Case "Staf" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah" : tunjangan.Text = 0.15 * gaji.Text
            Case "Tidak Menikah" : tunjangan.Text = 0

        End Select
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        tunjangan.Text = ""
        pajak.Text = ""
        gaji.Text = ""
        totgaji.Text = ""
    End Sub


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


ini hasilnya kalau di proses

jangan lupa comen ya...