QUIZ

Pembayaran Gaji Pegawai.

Listing Programnya:
Public Class Form2

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

        Spegawai.Items.Add("menikah")
        Spegawai.Items.Add("Belum menikah")


    End Sub

    Private Sub Gpegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gpegawai.SelectedIndexChanged
        Select Case Gpegawai.Text
            Case "A"
                Npegawai.Text = "Elprina Simarmata"
                Gapok.Text = "2500000"
            Case "B"
                Npegawai.Text = "Devie Puspita"
                Gapok.Text = "3500000"
            Case "C"
                Npegawai.Text = "Anggi Yoga Pratama"
                Gapok.Text = "4500000"
        End Select
        pajak.Text = 0.1 * Gapok.Text

    End Sub

    Private Sub Spegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spegawai.SelectedIndexChanged
        Select Case Spegawai.Text
            Case "menikah"
                Tkeluarga.Text = 0.05 * Gapok.Text
            Case "Belum menikah"
                Tkeluarga.Text = "0"

        End Select
        Tgaji.Text = Gapok.Text - pajak.Text + Tkeluarga.Text

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Npegawai.Text = ""
        Gpegawai.Text = ""
        Gapok.Text = ""
        pajak.Text = ""
        Spegawai.Text = ""
        Tkeluarga.Text = ""
        Tgaji.Text = ""

    End Sub

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

Hasilnya: