kasus :latihan pada halaman 33

 

PROGRAM QUIZ HALAMAN 33

Public Class Form1

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

        NO.Focus()

        KODE.Items.Add("TS001")

        KODE.Items.Add("TS002")

        KODE.Items.Add("VG001")

        KODE.Items.Add("VG002")

        buattabel()

    End Sub

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

        Dim Tombol As Integer = Asc(e.KeyChar)

        If Tombol = 13 Then

            total.Text = Val(harga.Text * jumlah.Text)

        End If

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "TS001" Then

            merk.Text = "TOSHIBA"

            nama.Text = "FLASHDISK 2GB"

            harga.Text = "90000"

        ElseIf kode.Text = "TS002" Then

            merk.Text = "TOSHIBA"

            nama.Text = "FLASHDISK 4GB"

            harga.Text = "105000"

        ElseIf kode.Text = "VG001" Then

            merk.Text = "V-GEN"

            nama.Text = "FLASHDISK 2GB"

            harga.Text = "60000"

        ElseIf kode.Text = "VG002" Then

            merk.Text = "V-GEN"

            nama.Text = "FLASHDISK 4GB"

            harga.Text = "90000"

        End If

    End Sub

    Sub buattabel()

        lv.Columns.Add("NO PEMBELI", 50, HorizontalAlignment.Center)

        lv.Columns.Add("KODE BARANG", 160, HorizontalAlignment.Center)

        lv.Columns.Add("NAMA BARANG", 160, HorizontalAlignment.Center)

        lv.Columns.Add("MERK", 160, HorizontalAlignment.Center)

        lv.Columns.Add("HARGA", 170, HorizontalAlignment.Center)

        lv.Columns.Add("JUMLAH BELI", 80, HorizontalAlignment.Center)

        lv.Columns.Add("TOTAL HARGA", 190, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        no.Text = ""

        kode.Text = ""

        nama.Text = ""

        jumlah.Text = ""

        merk.Text = ""

        harga.Text = ""

        total.Text = ""

    End Sub

  

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

        isitabel()

    End Sub

   

    Private Sub hapussatudata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussatudata.Click

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

    End Sub

    Private Sub hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemuadata.Click

        lv.Items.Clear()

    End Sub

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

        Me.Close()

    End Sub

   End Class