tugas quiz

Listing Program :

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
kode_barang.Items.Add(“TS001″)
kode_barang.Items.Add(“TS002″)
kode_barang.Items.Add(“VG001″)
kode_barang.Items.Add(“VG002″)
End Sub

Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
Dim xmerk As String
Dim xnama As String
xmerk = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
xnama = Microsoft.VisualBasic.Right(kode_barang.Text, 3)
If xmerk = “TS” And xnama = “001″ Then
merk.Text = “Toshiba”
nama_barang.Text = “Flashdisk 4GB”
harga.Text = 105000
ElseIf xmerk = “TS” And xnama = “002″ Then
merk.Text = “Toshiba”
nama_barang.Text = “Flashdisk 2GB”
harga.Text = 75000
ElseIf xmerk = “VG” And xnama = “001″ Then
merk.Text = “V-Gen”
nama_barang.Text = “Flashdisk 4GB”
harga.Text = 90000
ElseIf xmerk = “VG” And xnama = “002″ Then
merk.Text = “V-Gen”
nama_barang.Text = “Flashdisk 2GB”
harga.Text = 60000
End If
End Sub

Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
If e.KeyChar = Chr(13) Then
total_harga.Text = harga.Text * jumlah_beli.Text
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“No. Pembelian”, 100, HorizontalAlignment.Left)
.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Left)
.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Left)
.Columns.Add(“Merk”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Beli”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Harga”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub

Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = no_pembelian.Text
.SubItems.Add(kode_barang.Text)
.SubItems.Add(nama_barang.Text)
.SubItems.Add(merk.Text)
.SubItems.Add(harga.Text)
.SubItems.Add(jumlah_beli.Text)
.SubItems.Add(total_harga.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
no_pembelian.Text = “”
kode_barang.Text = “”
nama_barang.Text = “”
merk.Text = “”
harga.Text = “”
jumlah_beli.Text = “”
total_harga.Text = “”
End Sub

Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub

Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub

Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub

Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub

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

Hasil Program :