Public Class Form1
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
status.SelectedIndexChanged
If
status.Text = "MENIKAH" Then tunjangan_keluarga.Text = "0.2" * Val(gaji_pokok.Text)
If
status.Text = "TIDAK MENIKAH" Then tunjangan_keluarga.Text = "0"
End Sub
Private Sub NIP_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NIP.SelectedIndexChanged
If
NIP.Text = "0123" Then nama.Text = "mutia"
If
NIP.Text = "0124" Then nama.Text = "karolina"
If
NIP.Text = "0125" Then nama.Text = "tiara"
If
NIP.Text = "0126" Then nama.Text = "dori"
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NIP.Items.Add("0123")
NIP.Items.Add("0124")
NIP.Items.Add("0125")
NIP.Items.Add("0126")
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IVA")
golongan.Items.Add("IVB")
status.Items.Add("MENIKAH")
status.Items.Add("TIDAK MENIKAH")
jumlah_anak.Items.Add("0")
jumlah_anak.Items.Add("1")
jumlah_anak.Items.Add("2")
jumlah_anak.Items.Add("3")
jumlah_anak.Items.Add("4")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If
golongan.Text = "IIIA" Then gaji_pokok.Text = 2000000
If
golongan.Text = "IIIB" Then gaji_pokok.Text = 2500000
If
golongan.Text = "IVA" Then gaji_pokok.Text = 3000000
If
golongan.Text = "IVB" Then gaji_pokok.Text = 3500000
End Sub
Private Sub tunjangan_anak_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
tunjangan_anak.TextChanged
End Sub
Private Sub tunjangan_keluarga_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
tunjangan_keluarga.TextChanged
End Sub
Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jumlah_anak.SelectedIndexChanged
If
jumlah_anak.Text = "0" Then tunjangan_anak.Text = "0"
If
jumlah_anak.Text = "1" Then tunjangan_anak.Text = "0.1"
* Val(tunjangan_keluarga.Text)
If
jumlah_anak.Text = "2" Then tunjangan_anak.Text = "0.1"
* Val(tunjangan_keluarga.Text)
If
jumlah_anak.Text = "3" Then tunjangan_anak.Text = "0.5"
* Val(tunjangan_keluarga.Text)
If
jumlah_anak.Text = "4" Then tunjangan_anak.Text = "0.5"
* Val(tunjangan_keluarga.Text)
End Sub
Private Sub proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles proses.Click
total_gaji.Text = Val(gaji_pokok.Text)
+ Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text)
End Sub
Private Sub bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bersih.Click
NIP.Text = ""
nama.Text = ""
golongan.Text = ""
gaji_pokok.Text = ""
tunjangan_keluarga.Text = ""
tunjangan_anak.Text = ""
total_gaji.Text = ""
status.Text = ""
jumlah_anak.Text = ""
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
End
End Sub
End Class
MARI KITA LIHAT PROSESNYA
*Jika di klik salah satu NIPnya
*Maka nama akan terisi sesuai dengan NIP tersebut
*Jika di pilih Golongan nya salah satu maka Gaji pokok akan terisi
*Jika di pilih salah satu Status maka yang terisi adalah Tunjangan Keluarga
*Jika di pilih salah satu jumlah anak, Maka yang akan terisi adalah Tunjangan Anak
JIKA DI KLIK TOMBOL PROSES, MAKA TOTAL GAJI AKAN TERISI
JIKA DI KLIK TOMBOL BERSIH, MAKA DATA SEMUA AKAN TERHAPUS
JIKA DI KLIK TOMBOL KELUAR,maka akan keluar dan kembali ke FORM
Sekian dulu ya latihan singkat dari saya
jika ada yang kurang mohon maaf. SELAMAT MENCOBAA....
jika ada yang kurang mohon maaf. SELAMAT MENCOBAA....
No comments:
Post a Comment