kuis online 2

KODE PROGRAMNYA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        golongan.Items.Add("A")
        golongan.Items.Add("B")
        golongan.Items.Add("C")
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
        Select Case golongan.Text
            Case "A"
                gaji.Text = 2500000
            Case "B"
                gaji.Text = 3500000
            Case "C"
                gaji.Text = 4500000
        End Select
        pajak.Text = 0.1 * gaji.Text
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangan.Text = 0.05 * gaji.Text
            Case "Belum Menikah"
                tunjangan.Text = 0
        End Select
    End Sub

    Private Sub tunjangan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan.TextChanged
        total.Text = Val(gaji.Text) - Val(pajak.Text) + Val(tunjangan.Text)
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        golongan.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        status.Text = ""
        tunjangan.Text = ""
        total.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class