Daftar Komponen
|
Name
|
Combobox1
|
NIK
|
Textbox1
|
Nama
|
Textbox2
|
Bagian
|
| Combobox2 |
Jabatan
|
| Textbox3 | Gaji |
Textbox4
|
Pajak
|
Combobox3
|
Status
|
Combobox4
|
Anak
|
Textbox5
|
T_Keluarga
|
Textbox6
|
T_Anak
|
Textbox7
|
Total
|
Button1
| Btn_Hapus |
Button2
| Btn_Keluar |
Public Class
Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NIK.Items.Add("PM010")
NIK.Items.Add("PS111")
NIK.Items.Add("KU101")
NIK.Items.Add("GD100")
NIK.Items.Add("PM011")
Jabatan.Items.Add("Kepala Divisi")
Jabatan.Items.Add("Staf")
Jabatan.Items.Add("Wakil Kepala")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
Dim h As Integer
For h =
1 To 4
Anak.Items.Add(h)
Next h
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NIK.SelectedIndexChanged
Select Case NIK.Text
Case
"PM010"
Nama.Text = "Budi"
Case
"PS111"
Nama.Text = "Angga"
Case
"KU101"
Nama.Text = "Mulia"
Case "GD100"
Nama.Text = "Doni"
Case
"PM011"
Nama.Text = "Karyawan"
End Select
Dim M As String
M =
Microsoft.VisualBasic.Left(NIK.Text, 2)
Select Case M
Case
"PM"
Bagian.Text = "Pemasaran"
Case
"PS"
Bagian.Text = "Personalia"
Case
"KU"
Bagian.Text = "Keuangan"
Case
"GD"
Bagian.Text = "Gudang"
End Select
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case
"Kepala Divisi"
Gaji.Text = 5000000
Pajak.Text = 0.1 * Gaji.Text
Case
"Staf"
Gaji.Text = 2000000
Pajak.Text = 0.1 * Gaji.Text
Case
"Wakil Kepala"
Gaji.Text = 3500000
Pajak.Text = 0.1 * Gaji.Text
End Select
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Status.SelectedIndexChanged
Select Case Status.Text
Case
"Menikah"
T_Keluarga.Text = 0.15 *
Gaji.Text
Case
"Belum Menikah"
T_Keluarga.Text = 0 * Gaji.Text
End Select
End Sub
Private Sub Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Anak.SelectedIndexChanged
Select Case Anak.Text
Case
"1"
T_Anak.Text = 0.5 * Gaji.Text
Case
"2"
T_Anak.Text = 0.1 * Gaji.Text
Case
"3"
T_Anak.Text = "Berlaku Untuk Dua Anak saja"
Case
"4"
T_Anak.Text = "Berlaku Untuk Dua Anak saja"
End Select
End Sub
Private Sub Total_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Total.KeyPress
Total.Text = Val(Gaji.Text) +
Val(T_Keluarga.Text) + Val(T_Anak.Text) - Pajak.Text
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
NIK.Text = ""
Nama.Text = ""
Bagian.Text = ""
Jabatan.Text = ""
Gaji.Text = ""
Pajak.Text = ""
Status.Text = ""
Anak.Text = ""
T_Anak.Text = ""
T_Keluarga.Text = ""
Total.Text = ""
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
