Public
Class
Form1
Private
Sub
Form1_Load(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
MyBase.Load
Button1.Enabled
= False
ComboBox1.Enabled
= False
ComboBox2.Enabled
= False
Me.Text
= "PENGGAJIAN
KARYAWAN"
ComboBox1.Items.Add("3A")
ComboBox1.Items.Add("3B")
ComboBox1.Items.Add("3C")
ComboBox1.Items.Add("1A")
ComboBox1.Items.Add("1B")
ComboBox1.Items.Add("1C")
ComboBox2.Items.Add("Lajang")
ComboBox2.Items.Add("Menikah")
End
Sub
Private
Sub
Button1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
Button1.Click
ComboBox1.Enabled
= False
ComboBox2.Enabled
= False
Button1.Enabled
= False
Label12.Text
= TextBox1.Text
Label13.Text
= TextBox2.Text
Label14.Text
= ComboBox1.Text
Label15.Text
= ComboBox2.Text
If
ComboBox1.Text = "3A"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 2500000
Label17.Text
= "0%"
Label18.Text
= "2.500.000"
End
If
End
If
If
ComboBox1.Text = "3A"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 3000000
Label17.Text
= "10%"
Label18.Text
= "3.300.000"
End
If
End
If
If
ComboBox1.Text = "3B"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 3000000
Label17.Text
= "0%"
Label18.Text
= "3.000.000"
End
If
End
If
If
ComboBox1.Text = "3B"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 3500000
Label17.Text
= "10%"
Label18.Text
= "3.850.000"
End
If
End
If
If
ComboBox1.Text = "3C"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 4000000
Label17.Text
= "0%"
Label18.Text
= "4.000.000"
End
If
End
If
If
ComboBox1.Text = "3C"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 4500000
Label17.Text
= "10%"
Label18.Text
= "4.950.000"
End
If
End
If
If
ComboBox1.Text = "1A"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 1500000
Label17.Text
= "0%"
Label18.Text
= "1.500.000"
End
If
End
If
If
ComboBox1.Text = "1A"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 1500000
Label17.Text
= "10%"
Label18.Text
= "1.650.000"
End
If
End
If
If
ComboBox1.Text = "1B"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 1750000
Label17.Text
= "0%"
Label18.Text
= "1.750.000"
End
If
End
If
If
ComboBox1.Text = "1B"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 1750000
Label17.Text
= "10%"
Label18.Text
= "1.925.000"
End
If
End
If
If
ComboBox1.Text = "1C"
Then
If
ComboBox2.Text = "Lajang"
Then
Label16.Text
= 1900000
Label17.Text
= "0%"
Label18.Text
= "1.900.000"
End
If
End
If
If
ComboBox1.Text = "1C"
Then
If
ComboBox2.Text = "Menikah"
Then
Label16.Text
= 1950000
Label17.Text
= "10%"
Label18.Text
= "2.145.000"
End
If
End
If
End
Sub
Private
Sub
ComboBox2_SelectedIndexChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
ComboBox2.SelectedIndexChanged
Button1.Enabled
= True
End
Sub
Private
Sub
ComboBox1_SelectedIndexChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
TextBox1.Enabled
= False
TextBox2.Enabled
= False
End
Sub
Private
Sub
Button2_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
Button2.Click
Button1.Enabled
= False
TextBox1.Enabled
= True
TextBox2.Enabled
= True
TextBox1.Text
= ""
TextBox2.Text
= ""
ComboBox1.Text
= ""
ComboBox2.Text
= ""
ComboBox1.Enabled
= False
ComboBox2.Enabled
= False
Label12.Text
= "???"
Label13.Text
= "???"
Label14.Text
= "???"
Label15.Text
= "???"
Label16.Text
= "???"
Label17.Text
= "???"
Label18.Text
= "???"
End
Sub
Private
Sub
Button3_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
Button3.Click
End
End
Sub
Private
Sub
TextBox2_TextChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
TextBox2.TextChanged
ComboBox1.Enabled
= True
ComboBox2.Enabled
= True
End
Sub
End
Class

































