Quantcast
Channel: eliztupang
Viewing all articles
Browse latest Browse all 10

Jawaban quiz no.3

0
0

listing program…!

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
jabatan.Items.Add(“Mandor”)
jabatan.Items.Add(“Kabag”)
jabatan.Items.Add(“Staff”)
status.Items.Add(“Menikah”)
status.Items.Add(“Tidak Menikah”)

End Sub
Sub BuatTabel()
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Jabatan”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Gaji”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Status”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Jumlah anak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Tunjangan anak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Tunjangan istri”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Lembur”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“Upah lembur”, 90, HorizontalAlignment.Left)
LV.Columns.Add(“Pajak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Total gaji”, 80, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = nama.Text
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(j_anak.Text)
Lst.SubItems.Add(t_anak.Text)
Lst.SubItems.Add(t_istri.Text)
Lst.SubItems.Add(lembur.Text)
Lst.SubItems.Add(u_lembur.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(t_gaji.Text)
LV.Items.Add(Lst)
End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = “Mandor” Then
gaji.Text = 175000
ElseIf jabatan.Text = “Kabag” Then
gaji.Text = 2500000
ElseIf jabatan.Text = “Staff” Then
gaji.Text = 1250000
Else
gaji.Text = ” “
End If
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = “Menikah” Then
t_istri.Text = 9 * gaji.Text / 100
pajak.Text = 1.5 * gaji.Text / 100
ElseIf status.Text = “Tidak Menikah” Then
t_anak.Text = 0
t_istri.Text = 0
pajak.Text = 1.5 * gaji.Text / 100
Else
status.Text = ” “
End If
t_gaji.Text = Val(gaji.Text) + Val(t_istri.Text) + Val(t_anak.Text) + Val(lembur.Text) – Val(pajak.Text)
End Sub

Private Sub j_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles j_anak.TextChanged
If Val(j_anak.Text) = 1 Then
t_anak.Text = 3 * gaji.Text / 100
ElseIf Val(j_anak.Text) >= 2 Then
t_anak.Text = 7 * gaji.Text / 100
End If
End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
IsiTabel()
nama.Text = “”
jabatan.Text = “”
status.Text = “”
gaji.Text = “”
j_anak.Text = “”
t_anak.Text = “”
t_istri.Text = “”
lembur.Text = “”
u_lembur.Text = “”
pajak.Text = “”
t_gaji.Text = “”

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 BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

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

Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
LV.Items.Clear()
End Sub

Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
If jabatan.Text = “Mandor” Then
u_lembur.Text = Val(lembur.Text) * 7500
ElseIf jabatan.Text = “Kabag” Then
u_lembur.Text = Val(lembur.Text) * 10000
ElseIf jabatan.Text = “Staff” Then
u_lembur.Text = Val(lembur.Text) * 5000
End If
End Sub
End Class

hasil program…!!!



Viewing all articles
Browse latest Browse all 10

Latest Images

Trending Articles





Latest Images