Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nik.Items.Add("001")
nik.Items.Add("002")
nik.Items.Add("003")
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IIIC")
status.Items.Add("Menikah")
status.Items.Add("Belom Menikah")
rancangtabel()
Me.BackColor
= Color.BlanchedAlmond
End Sub
Sub
rancangtabel()
With LV
.Columns.Add("Nik", 50)
.Columns.Add("Nama", 200)
.Columns.Add("Golongan", 50)
.Columns.Add("Gaji Pokok", 100)
.Columns.Add("status", 200)
.Columns.Add("Tunjangan Istri", 100)
.Columns.Add("Tunjangan Anak", 100)
.Columns.Add("Total Gaji", 100)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End With
End Sub
Sub
isi_tabel()
Dim x As New ListViewItem
With x
.Text = (nik.Text)
.SubItems.Add(nama.Text)
.SubItems.Add(golongan.Text)
.SubItems.Add(gaji_pokok.Text)
.SubItems.Add(status.Text)
.SubItems.Add(tunjangan_istri.Text)
.SubItems.Add(tunjangan_anak.Text)
.SubItems.Add(total_gaji.Text)
End With
LV.Items.Add(x)
End Sub
Private Sub gol_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If
golongan.Text = "IIIA" Then
gaji_pokok.Text = "1800000"
ElseIf
golongan.Text = "IIIB" Then
gaji_pokok.Text = "2000000"
Else
gaji_pokok.Text = "350000"
End If
End Sub
Private Sub nik_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
nik.SelectedIndexChanged
If
nik.Text = "001" Then
nama.Text = "Vanrio Andryan Sinaga"
ElseIf
nik.Text = "002" Then
nama.Text = "Esra Handayani Silaban"
Else
nama.Text = "Andryan Sinaga"
End If
End Sub
Private Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
Close()
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
jumlah_anak.Text <= 2 Then
tunjangan_anak.Text =
jumlah_anak.Text * gaji_pokok.Text * 0.1
ElseIf
jumlah_anak.Text > 2 Then
tunjangan_anak.Text = 2 *
gaji_pokok.Text * 0.1
End If
total_gaji.Text =
Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_pokok.Text)
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
status.SelectedIndexChanged
If
status.Text = "Menikah" Then
tunjangan_istri.Text = "5000000"
ElseIf
status.Text = "Belom Menikah" Then
jumlah_anak.Enabled = False
tunjangan_istri.Enabled = False
tunjangan_anak.Enabled = False
total_gaji.Text = gaji_pokok.Text
End If
End Sub
Private Sub Btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnsimpan.Click
isi_tabel()
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
nik.Text = "
"
nama.Text = "
"
golongan.Text = " "
gaji_pokok.Text = " "
status.Text = "
"
tunjangan_istri.Text = " "
tunjangan_anak.Text = "
"
jumlah_anak.Text = " "
total_gaji.Text = " "
End Sub
End Class
sumber : esra hamdayani
Tidak ada komentar:
Posting Komentar