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
