Kuis Pak Mesran

Kuis Nomor 1

Listing Program

Public Class Form2

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = pembeli.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jmlbeli.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(totalharga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged

          Dim XKODE As String

        XKODE = Microsoft.VisualBasic.Left(kdbrg.Text, 2)

        Select Case XKODE

            Case "TS"

                merk.Text = "TOSHIBA"

            Case "VG"

                merk.Text = "VGEN"

        End Select

        XKODE = Microsoft.VisualBasic.Right(kdbrg.Text, 3)

        Select Case XKODE

            Case "001"

                nmbrg.Text = "FLASHDISK 4GG"

                harga.Text = 105000

            Case "002"

                nmbrg.Text = "FLASHDISK 2GG"

                harga.Text = 75000

        End Select

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        kdbrg.Items.Add("TS001")

        kdbrg.Items.Add("TS002")

        kdbrg.Items.Add("VG001")

        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click

        End

    End Sub

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

        isitabel()

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

        totalharga.Text = Val(harga.Text) * Val(jmlbeli.Text)

    End Sub

    Private Sub jmlbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jmlbeli.KeyPress

        totalharga.Text = Val(harga.Text) * Val(jmlbeli.Text)

    End Sub

    Private Sub jmlbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlbeli.TextChanged

    End Sub

End Class

 Kuis Nomor 2

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NAMA.Text = ""

        HARGA.Text = ""

        JUMLAHJUAL.Text = ""

        TOTAL.Text = ""

        DISCOUNT.Text = ""

        TOTALPEMBAYARAN.Text = ""

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        If TOTAL.Text > 2500000 Then

            DISCOUNT.Text = 0.1 * TOTAL.Text

            DISCOUNT = 0

        End If

        TOTAL.Text = HARGA.Text * JUMLAHJUAL.Text

        TOTALPEMBAYARAN.Text = TOTAL.Text - DISCOUNT.Text

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        Me.Close()

    End Sub

    Private Sub NOPEMBELIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class