Jawaban QuiZ No.2 (DYA SAHARANI)

Listing Program

Public Class FormDYA

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

kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
End Sub
Sub buattabel()
LV.Columns.Add("nopeg", 80, HorizontalAlignment.Left)
LV.Columns.Add("kode", 80, HorizontalAlignment.Left)
LV.Columns.Add("nama", 100, HorizontalAlignment.Left)
LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
LV.Columns.Add("jumlah", 80, HorizontalAlignment.Left)
LV.Columns.Add("total", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True

End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nopeg.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 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 4GB"
harga.Text = 105000
ElseIf kode.Text = "TS002" Then
merk.Text = "TOSHIBA"
nama.Text = "Fleshdisk 2GB"
harga.Text = 75000
ElseIf kode.Text = "VG001" Then
merk.Text = "V-Gen"
nama.Text = "Fleshdisk 4GB"
harga.Text = 9000
ElseIf kode.Text = "VG002" Then
merk.Text = "V-Gen"
nama.Text = "Fleshdisk 2GB"
harga.Text = 60000
Else : kode.Text = 0
merk.Text = 0
nama.Text = 0
harga.Text = 0
End If
End Sub


Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
total.Text = Val(jumlah.Text) * Val(harga.Text)

isitabel()
nopeg.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub

Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
nopeg.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
nopeg.Focus()

End Sub

Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
LV.Items.Clear()

End Sub

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

End Sub
End Class

Hasil Program