Gaji Pegawai Telkom

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