Pengajian Karyawan

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