Perintahnya Sebagai Berikut :
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("KU010")
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("Tidak Menikah")
Dim
a As Byte
For
a = 1 To 10
JA.Items.Add(a)
Next
End
Sub
Private
Sub Nik_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Nik.SelectedIndexChanged
Select
Nik.Text
Case
"PM010"
Nama.Text = "Lidia Sunarti TAmbunan"
Case
"PS111"
Nama.Text = "Ivana Jovita Butar-Butar"
Case
"KU101"
Nama.Text = "Afrizal Syahputra"
Case
"GD100"
Nama.Text = "Rajadin"
Case
"PM011"
Nama.Text = "Hendri"
End
Select
Dim
x As String
x =
Microsoft.VisualBasic.Left(Nik.Text, 2)
If
x = "PM" Then
Bagian.Text = "Pemasaran"
ElseIf
x = "PS" Then
Bagian.Text = "Personalia"
ElseIf
x = "KU" Then
Bagian.Text = "Keuangan"
ElseIf x = "GD" Then
Bagian.Text = "Gudang"
End
If
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"
GP.Text = "5000000"
Case
"Staf"
GP.Text = "2000000"
Case
"Wakil Kepala"
GP.Text = "3500000"
End
Select
Pajak.Text = 0.1 * GP.Text
End
Sub
Private
Sub TextBox1_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Pajak.TextChanged
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"
TK.Text = 0.15 *
GP.Text
Case
"Tidak Menikah"
TK.Text = GP.Text
End
Select
End
Sub
Private
Sub JA_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
JA.SelectedIndexChanged
Select
JA.Text
Case
"1"
TA.Text = 0.05 *
GP.Text
Case
"2"
TA.Text = 0.1 *
GP.Text
Case
"3"
TA.Text = "Berlaku Untuk Dua Anak saja"
Case
"4"
TA.Text = "Berlaku Untuk Dua Anak saja"
End
Select
End
Sub
Private
Sub TG_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
TG.KeyPress
TG.Text = Val(GP.Text) +
Val(TK.Text) + Val(TA.Text) - Pajak.Text
End
Sub
End Class
Hasilnya adalah sebagai
berikut :
Tidak ada komentar:
Posting Komentar