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

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-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
        buattable()
    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)



        If x = "100" Then
            Nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            Nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            Nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            Nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            BBeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            BBeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            BBeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            BBeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)
            Pajak.Text = 0.01 * TTagihan.Text
            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)
        End If
    End Sub

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

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        TTagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        BBeban.Text = ""
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

    End Sub
    Sub buattable()
        lv.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Harga M3", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Biaya Beban", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Pemakaian Air", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Total Tagihan", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Pembayaran", 120, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = kp.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(HargaM3.Text)
        lst.SubItems.Add(BBeban.Text)
        lst.SubItems.Add(Pemakaian.Text)
        lst.SubItems.Add(TTagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lv.Items.Add(lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitable()
    End Sub
End Class