Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NamaPeg.Items.Add("maijor Josua")
NamaPeg.Items.Add("Andy Pratama")
NamaPeg.Items.Add("Maulana")
GolPeg.Items.Add("A")
GolPeg.Items.Add("B")
GolPeg.Items.Add("c")
StaPeg.Items.Add("Menikah")
StaPeg.Items.Add("Tidak Menikah")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Pajak.Text = 0.1 * GaPo.Text
TG.Text = GaPo.Text - Pajak.Text + TK.Text
End Sub
Private Sub GolPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GolPeg.SelectedIndexChanged
Select Case GolPeg.Text
Case "A"
GaPo.Text = "1500000"
Case "B"
GaPo.Text = "2500000"
Case "C"
GaPo.Text = "3500000"
End Select
End Sub
Private Sub StaPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StaPeg.SelectedIndexChanged
Select Case StaPeg.Text
Case "Menikah"
TK.Text = 0.05 * GaPo.Text
Case "Tidak Menikah"
TK.Text = GaPo.Text
End Select
End Sub
End Class
