Public Class Form1

    Sub BuatTabel()

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

        LV.Columns.Add("gol", 80, HorizontalAlignment.Left)

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

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

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

        LV.Columns.Add("Gajibersih", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

        Sub isiTabel()

        Dim lst As New ListViewItem

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.Columns.Add("Npegawai")

        LV.Columns.Add("golongan")

        LV.Columns.Add("gaji")

        LV.Columns.Add("pajak")

        LV.Columns.Add("pinjaman")

        LV.Columns.Add("gajibersih")

    End Sub

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

        Golongan.Items.Add("IIIA")

        Golongan.Items.Add("IIIB")

        Golongan.Items.Add("IIIC")

        BuatTabel()

    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged

        If Golongan.Text = "IIIA" Then

            Npegawai.Text = "adinda carla farelitha"

            Gaji.Text = "1500000"

        ElseIf Golongan.Text = "IIIB" Then

            Npegawai.Text = "Fitri Girsang"

            Gaji.Text = "2500000"

        Else : Golongan.Text = "IIIC"

            Npegawai.Text = "Ramadani"

            Gaji.Text = "3500000"

        End If

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Npegawai.Text = ""

        Golongan.Text = ""

        Gaji.Text = ""

        Pajak.Text = ""

        Pinjaman.Text = ""

        GajiBersih.Text = ""

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        Dim lst As New ListViewItem

        lst.Text = Npegawai.Text

        lst.SubItems.Add(Golongan.Text)

        lst.SubItems.Add(Gaji.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(Pinjaman.Text)

        lst.SubItems.Add(GajiBersih.Text)

        LV.Items.Add(lst)

        GajiBersih.Text = Val(Gaji.Text) - Val(Pinjaman.Text)

        Pajak.Text = 0.15 * Gaji.Text

    End Sub

    Private Sub btnSimpankeliast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpankeliast.Click

        Dim lst As New ListViewItem

        lst.Text = Npegawai.Text

        lst.SubItems.Add(Golongan.Text)

        lst.SubItems.Add(Gaji.Text)

        lst.SubItems.Add(Label4.Text)

        lst.SubItems.Add(Pinjaman.Text)

        lst.SubItems.Add(GajiBersih.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub HapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusList.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub