Jawaban Quiz No 2

 HASIL PROGRAM

LISTING PROGRAM

Public Class Form1

Sub BuatTabel()

LV.Columns.Add("No.Pembelian", 90, HorizontalAlignment.Center)

LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)

LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

LV.Columns.Add("Merk ", 90, HorizontalAlignment.Center)

LV.Columns.Add("Harga", 90, HorizontalAlignment.Center)

LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub IsiTabel()

Dim lst As New ListViewItem

lst.Text = NoPembelian.Text

lst.SubItems.Add(KodeBarang.Text)

lst.SubItems.Add(NamaBarang.Text)

lst.SubItems.Add(Merk.Text)

lst.SubItems.Add(Harga.Text)

lst.SubItems.Add(JumlahBeli.Text)

lst.SubItems.Add(TotalHarga.Text)

LV.Items.Add(lst)

End Sub

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

BuatTabel()

KodeBarang.Items.Add("TS001")

KodeBarang.Items.Add("TS002")

KodeBarang.Items.Add("VG001")

KodeBarang.Items.Add("VG002")

End Sub

Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged

If Microsoft.VisualBasic.Left(KodeBarang.Text, 2) = "TS" Then

Merk.Text = "Toshiba"

If Microsoft.VisualBasic.Right(KodeBarang.Text, 3) = "001" Then

NamaBarang.Text = "Flashdisk 4GB"

Harga.Text = 105000

ElseIf Microsoft.VisualBasic.Right(KodeBarang.Text, 3) = "002" Then

NamaBarang.Text = "Flashdisk 2GB"

Harga.Text = 75000

End If

ElseIf Microsoft.VisualBasic.Left(KodeBarang.Text, 2) = "VG" Then

Merk.Text = "V-Gen"

If Microsoft.VisualBasic.Right(KodeBarang.Text, 3) = "001" Then

NamaBarang.Text = "Flashdisk 4GB"

Harga.Text = 90000

ElseIf Microsoft.VisualBasic.Right(KodeBarang.Text, 3) = "002" Then

NamaBarang.Text = "Flashdisk 2GB"

Harga.Text = 60000

End If

End If

End Sub

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

Dim x As Integer = Asc(e.KeyChar)

If x = 13 Then

JumlahBeli.Focus()

TotalHarga.Text = Harga.Text * JumlahBeli.Text

End If

End Sub

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

IsiTabel()

NoPembelian.Text = ""

KodeBarang.Text = ""

NamaBarang.Text = ""

Merk.Text = ""

Harga.Text = ""

JumlahBeli.Text = ""

TotalHarga.Text = ""

End Sub

Private Sub HapusDataYgDipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusDataYgDipilih.Click

LV.Items.Remove(LV.SelectedItems(0))

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 Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

NoPembelian.Text = ""

KodeBarang.Text = ""

NamaBarang.Text = ""

Merk.Text = ""

Harga.Text = ""

JumlahBeli.Text = ""

TotalHarga.Text = ""

NoPembelian.Focus()

End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

End

End Sub

End Class

'