DESAIN PROGRAM
LISTENING PROGRAM
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
np.Items.Add("Rikyy")
np.Items.Add("Riko")
np.Items.Add("Bobi")
gol.Items.Add("a")
gol.Items.Add("b")
gol.Items.Add("c")
st.Items.Add("menikah")
st.Items.Add("lajang")
Call
BuatTable()
End Sub
Private Sub gol_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
gol.SelectedIndexChanged
Select Case gol.Text
Case
"a"
gp.Text = 2500000
pj.Text = 0.01 * gp.Text
Case
"b"
gp.Text = 3500000
pj.Text = 0.01 * gp.Text
Case "c"
gp.Text = 4500000
pj.Text = 0.01 * gp.Text
End Select
End Sub
Private Sub st_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
st.SelectedIndexChanged
Select Case st.Text
Case
"menikah"
tk.Text = 0.05 * gp.Text
Case
"lajang"
tk.Text = 0
End Select
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
ttl.Text = gp.Text - pj.Text + tk.Text
End Sub
Sub
BuatTable()
lV.View = View.Details
lV.GridLines = True
lV.FullRowSelect = True
lV.Columns.Add("Nama
Pegawai", 80, HorizontalAlignment.Center)
lV.Columns.Add("Golongan",
80, HorizontalAlignment.Center)
lV.Columns.Add("Gaji
Pokok", 80, HorizontalAlignment.Center)
lV.Columns.Add("Pajak",
80, HorizontalAlignment.Center)
lV.Columns.Add("Status",
80, HorizontalAlignment.Center)
lV.Columns.Add("Tunjangan",
80, HorizontalAlignment.Center)
lV.Columns.Add("Total",
80, HorizontalAlignment.Center)
End Sub
Sub
isitable()
Dim Lst
As New
ListViewItem
Lst.Text = np.Text
Lst.SubItems.Add(gol.Text)
Lst.SubItems.Add(gp.Text)
Lst.SubItems.Add(pj.Text)
Lst.SubItems.Add(st.Text)
Lst.SubItems.Add(tk.Text)
Lst.SubItems.Add(ttl.Text)
lV.Items.Add(Lst)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
isitable()
End Sub
End Class
