pengajian(listview)

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("nik", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)

        lv.Columns.Add("jabatan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("gaji", 80, HorizontalAlignment.Left)

        lv.Columns.Add("status", 80, HorizontalAlignment.Left)

        lv.Columns.Add("tunjkel", 80, HorizontalAlignment.Left)

        lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)

        lv.Columns.Add("totgaji", 80, 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(gaji.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tunjkel.Text)

        lst.SubItems.Add(pajak.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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("karyawan")

        jabatan.Items.Add("staf")

        status.Items.Add("menikah")

        status.Items.Add("belum menikah")

        buattabel()

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "001" : nama.Text = "preddi"

            Case "002" : nama.Text = "tulus"

            Case "003" : nama.Text = "agung"

        End Select

    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 = "1000000"

            Case "karyawan" : gaji.Text = "1500000"

            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" : tunjkel.Text = 0.15 * gaji.Text

            Case "belum menikah" : tunjkel.Text = 0

        End Select

    End Sub

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

        totgaji.Text = Val(gaji.Text) + Val(tunjkel.Text) - (pajak.Text)

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nik.Text = ""

        nama.Text = ""

        tunjkel.Text = ""

        status.Text = ""

        gaji.Text = ""

        jabatan.Text = ""

        totgaji.Text = ""

        pajak.Text = ""

    End Sub

    Private Sub lst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst.Click

        isitabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjkel.Text = ""

        pajak.Text = ""

        totgaji.Text = ""

    End Sub

End Class