Jawaban SOAL 2 (Diky Suhendri)

Listing Program

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add(“TS001?)
kode.Items.Add(“TS002?)
kode.Items.Add(“VG001?)
kode.Items.Add(“VG002?)

Call diky()

End Sub
Sub suhendri()
ListView1.Columns.Add(“Pembelian”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Merk”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Harga”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jumlah Beli”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Total Harga”, 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True

End Sub

Sub suhendri()
Dim isi As New ListViewItem
isi.Text = pembelian.Text
isi.SubItems.Add(kode.Text)
isi.SubItems.Add(nama.Text)
isi.SubItems.Add(merk.Text)
isi.SubItems.Add(harga.Text)
isi.SubItems.Add(beli.Text)
isi.SubItems.Add(Tharga.Text)
ListView1.Items.Add(isi)

End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim X As String
X = Microsoft.VisualBasic.Left(kode.Text, 2)
If X = “TS” Then
merk.Text = “Toshiba”
ElseIf X = “VG” Then
merk.Text = “V-Gen”
End If
X = Microsoft.VisualBasic.Right(kode.Text, 3)
If X = “001? Then
nama.Text = “FlashDisk 4GB”
ElseIf X = “002? Then
nama.Text = “FlashDisk 2GB”
End If

If kode.Text = “TS001? Then
harga.Text = “105000?
ElseIf kode.Text = “TS002? Then
harga.Text = “75000?
ElseIf kode.Text = “VG001? Then
harga.Text = “90000?
ElseIf kode.Text = “VG002? Then
harga.Text = “60000?
End If
End Sub

Private Sub beli_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles beli.KeyDown
If e.KeyCode = Keys.Enter Then
Tharga.Text = harga.Text * beli.Text
End If
End Sub

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

End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Clear()
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
pembelian.Text = “”
kode.Text = “”
nama.Text = “”
merk.Text = “”
harga.Text = “”
beli.Text = “”
Tharga.Text = “”
End Sub

Private Sub hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuspilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub

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