Jawabab Quis

 Demikian Postingan Saya, Nama: Erpina Simatupang / NPM: 14110671

Tampilan Sebelum Di Input

 

Tampilan Sesudah Di input dan DiProses hingga hasil nya

Coding Program Pembayaran Gaji Pegawai.

 

Public Class Form1

    Sub buattabel()

        LV.Columns.Add("nama pegawai", 80, HorizontalAlignment.Center)

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

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

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

        LV.Columns.Add("gaji pokok", 80, HorizontalAlignment.Center)

        LV.Columns.Add("gaji bersih", 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("nama pegawai")

        LV.Columns.Add("golonga")

        LV.Columns.Add("gaji")

        LV.Columns.Add("pajak")

        LV.Columns.Add("gaji pokok")

        LV.Columns.Add("gaji bersih")

    End Sub

    Private Sub Btngolongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "IIIA" Then

            namapegawai.Text = "hendro"

            gajibersih.Text = "1500000"

        ElseIf golongan.Text = "IIIB" Then

            namapegawai.Text = "dian"

            gajibersih.Text = "2500000"

        Else : golongan.Text = "IIIC"

            namapegawai.Text = "jhoni"

            gajibersih.Text = "3500000"

        End If

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        gajibersih.Text = gajipokok.Text - pajak.Text

        pajak.Text = 0.05 * gajipokok.Text

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Me.Close()

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

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Dim lst As New ListViewItem

        lst.Text = namapegawai.Text

        lst.SubItems.Add(golongan.Text)

        lst.SubItems.Add(gajibersih.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(gajipokok.Text)

        lst.SubItems.Add(gajibersih.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub BtnhapusLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnhapusLV.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnkeluarLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnkeluarLV.Click

        Me.Close()

    End Sub

End Class