ListView Pembayaran Gaji

Public Class Form1

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiBersih.TextChanged

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        LV.Items.Clear()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        NIK.Items.Add("1")
        NIK.Items.Add("2")
        NIK.Items.Add("3")

        GOL.Items.Add("1")
        GOL.Items.Add("2")
        GOL.Items.Add("3")


    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "1"
                NamaPegawai.Text = "hendro"
            Case "2"
                NamaPegawai.Text = "Dian"
            Case "3"
                NamaPegawai.Text = "Jhoni"
        End Select
    End Sub

    Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged
        Select Case GOL.Text
            Case "1"
                GajiPokok.Text = 1500000
            Case "2"
                GajiPokok.Text = 2500000
            Case "3"
                GajiPokok.Text = 3500000

        End Select
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Pajak.Text = 0.05 * GajiPokok.Text
        GajiBersih.Text = Val(GajiPokok.Text)
        Val(Pajak.Text)

        Dim lst As New ListViewItem
        lst.Text = NIK.Text
        lst.SubItems.Add(NamaPegawai.Text)
        lst.SubItems.Add(GOL.Text)
        lst.SubItems.Add(GajiPokok.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(GajiBersih.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
        NIK.Text = ""
        NamaPegawai.Text = ""
        GOL.Text = ""
        GajiPokok.Text = ""
        GajiBersih.Text = ""
        Pajak.Text = ""


    End Sub
End Class