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