Tugas Pak Mesran

Public Class Form1

    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("Kepala Bagian")

        jabatan.Items.Add("Staf")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        buattabel()

    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 nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        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_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : tunjkeluarga.Text = 0.15 * gaji.Text

            Case "Tidak Menikah" : tunjkeluarga.Text = 0

        End Select

    End Sub

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

        total.Text = Val(gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)

    End Sub

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

        End

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

        gaji.Text = ""

        status.Text = ""

        tunjkeluarga.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Sub buattabel()

        LV.Columns.Add("Nik", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Status", 100, HorizontalAlignment.Left)

        LV.Columns.Add("TunjKeluarga", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Total", 100, 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(tunjkeluarga.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

End Class