Berikut ini PerintahNYA
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 Devisi")
Jabatan.Items.Add("Staff")
Jabatan.Items.Add("Wakil Kepala")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
jumlah_anak.Items.Add("0")
jumlah_anak.Items.Add("1")
jumlah_anak.Items.Add("2")
End Sub
Private Sub Nik_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nik.SelectedIndexChanged
Dim x As String
x =
Microsoft.VisualBasic.Left(Nik.Text, 2)
If x = "PM" Then
bg.Text = "Pemasaran"
ElseIf
x = "PS" Then
bg.Text = "Personalia"
ElseIf
x = "KU" Then
bg.Text = "Keuangan"
ElseIf
x = "GD" Then
bg.Text = "Gudang"
End If
If
Nik.Text = "PM010" Then
Nama.Text = "Luis"
ElseIf
Nik.Text = "PS111" Then
Nama.Text = "Steven"
ElseIf
Nik.Text = "KU101" Then
Nama.Text = "lioni"
ElseIf
Nik.Text = "GD100" Then
Nama.Text = "Diamon"
ElseIf
Nik.Text = "PM011" Then
Nama.Text = "Joe"
End If
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Jabatan.SelectedIndexChanged
Select
Jabatan.Text
Case
"Kepala Devisi"
gp.Text = "5000000"
Case
"Staff"
gp.Text = "2000000"
Case
"Wakil Kepala"
gp.Text = "3500000"
End Select
Pajak.Text = gp.Text * 0.1
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Status.SelectedIndexChanged
tk.Text = gp.Text * 0.15
If
Status.Text = "Menikah" Then
tk.Text = 0.15 * gp.Text
ElseIf
Status.Text = "Tidak Menikah" Then
tk.Text = 0
End If
End Sub
Private Sub jumlah_anak_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlah_anak.KeyPress
If
e.KeyChar = Chr(13) Then
Select
Case jumlah_anak.Text
Case
"0"
ta.Text = 0
Case
"1"
ta.Text = gp.Text * 0.05
Case
"2"
ta.Text = gp.Text * 0.1
Case
Else
ta.Text = gp.Text * 0.5
End
Select
End If
tg.Text = (gp.Text) + Val(ta.Text) +
Val(tk.Text) - Pajak.Text
tg.Enabled = False
End Sub
Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jumlah_anak.SelectedIndexChanged
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
Nik.Text = ""
Nama.Text = ""
bg.Text = ""
Jabatan.Text = ""
gp.Text = ""
Pajak.Text = ""
Status.Text = ""
jumlah_anak.Text = ""
tk.Text = ""
ta.Text = ""
tg.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
SEMOGA Bermanfaat
Kunjungi Belajar Bahasa Pemograman
