Form Pembayaran Gaji Pegawai

Public Class Form1

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
        Select Case Gol.Text
            Case "A"
                Gajipokok.Text = "2500000"
            Case "B"
                Gajipokok.Text = "3500000"
            Case "C"
                Gajipokok.Text = "4500000"

        End Select
    End Sub

    Private Sub Statuspegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Statuspegawai.SelectedIndexChanged
        Select Case Statuspegawai.Text
            Case "Menikah"
                TunjanganKeluarga.Text = 0.05 * Gajipokok.Text
            Case "Tidak Menikah"
                TunjanganKeluarga.Text = "0"
        End Select
        Pajak.Text = 0.1 * Gajipokok.Text
        TotalGaji.Text = Gajipokok.Text - Pajak.Text + TunjanganKeluarga.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Gol.Items.Add("A")
        Gol.Items.Add("B")
        Gol.Items.Add("C")

        Statuspegawai.Items.Add("Menikah")
        Statuspegawai.Items.Add("Tidak Menikah")
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Nama.Text = ""
        Gol.Text = ""
        Gajipokok.Text = ""
        Pajak.Text = ""
        Statuspegawai.Text = ""
        TunjanganKeluarga.Text = ""
        TotalGaji.Text = ""
    End Sub
End Class