Kuis Online 1

KODE PROGRAMNYA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("TOK-MED-001")
        kp.Items.Add("RUM-BEL-002")
        kp.Items.Add("SWA-TEM-003")
        kp.Items.Add("PAB-MAR-004")
        kp.Items.Add("TOK-BIN-005")
        kp.Items.Add("PAB-PAK-006")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Select Case kp.Text
            Case "TOK-MED-001"
                nama.Text = "SUKIRMAN"
            Case "RUM-BEL-002"
                nama.Text = "LEO GUDAFON"
            Case "SWA-TEM-003"
                nama.Text = "SINTA DIANA"
            Case "PAB-MAR-004"
                nama.Text = "GUNAWAN"
            Case "TOK-BIN-005"
                nama.Text = "GITA SURYANI"
            Case "PAB-PAK-006"
                nama.Text = "BONITA DANI"
        End Select
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "TOKO"
                beban.Text = 150000
                harga.Text = 500
            Case "RUM"
                tipe.Text = "RUMAH"
                beban.Text = 50000
                harga.Text = 200
            Case "SWA"
                tipe.Text = "SWALAYAN"
                beban.Text = 400000
                harga.Text = 1500
            Case "PAB"
                tipe.Text = "PABRIK"
                beban.Text = 1000000
                harga.Text = 10000
        End Select
        y = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        Select Case y
            Case "MED"
                daerah.Text = "MEDAN"
            Case "BEL"
                daerah.Text = "BELAWAN"
            Case "TEM"
                daerah.Text = "TEMBUNG"
            Case "MAR"
                daerah.Text = "MARINDAL"
            Case "BIN"
                daerah.Text = "BINJAI"
            Case "PAK"
                daerah.Text = "LUBUK PAKAM"
        End Select
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ttagihan.Text = Val(beban.Text) + Val(harga.Text * jumlah.Text)
        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub

    Private Sub ttagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttagihan.TextChanged
        pajak.Text = 0.15 * ttagihan.Text
    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
        Pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)
    End Sub

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

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        kp.Text = ""
        nama.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        beban.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        ttagihan.Text = ""
        pajak.Text = ""
        Pembayaran.Text = ""
    End Sub
End Class

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("IIIA")
        golongan.Items.Add("IIIB")
        golongan.Items.Add("IIIC")
    End Sub
    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
        Select Case golongan.Text
            Case "IIIA"
                gaji.Text = 1500000
            Case "IIIB"
                gaji.Text = 2500000
            Case "IIIC"
                gaji.Text = 3500000
        End Select
        pajak.Text = 0.15 * gaji.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 = ""
        pinjaman.Text = ""
        gaji_bersih.Text = ""
    End Sub

    Private Sub pinjaman_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pinjaman.KeyPress
        If Asc(e.KeyChar) = 13 Then
            gaji_bersih.Text = Val(gaji.Text) - Val(pinjaman.Text)
        End If
    End Sub

    Private Sub pinjaman_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pinjaman.TextChanged

    End Sub

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