1. Desain Form
Public Class Latihan2
Private Sub Latihan2_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
Dim i As String
i = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
If KodeBarang.Text = "TS001" Then
Merk.Text = "Toshiba"
NamaBarang.Text = "Flashdisk 4 GB"
Harga.Text = "105000"
ElseIf KodeBarang.Text = "TS002" Then
Merk.Text = "Toshiba"
NamaBarang.Text = "Flashdisk 2 GB"
Harga.Text = "75000"
ElseIf KodeBarang.Text = "VG001" Then
Merk.Text = "V-Gen"
NamaBarang.Text = "Flashdisk 4GB"
Harga.Text = "90000"
ElseIf KodeBarang.Text = "VG002" Then
Merk.Text = "V-Gen"
NamaBarang.Text = "Flashdisk 2GB"
Harga.Text = "60000"
End If
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TotalHarga.Text = JumlahBeli.Text * Harga.Text
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
NoPembelian.Text = ""
KodeBarang.Text = ""
NamaBarang.Text = ""
Merk.Text = ""
Harga.Text = ""
JumlahBeli.Text = ""
TotalHarga.Text = ""
End Sub
Private Sub ButnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButnKeluar.Click
End
End Sub
Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
If Asc(e.KeyChar) = 13 Then
TotalHarga.Text = Harga.Text * JumlahBeli.Text
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Sub buatTabel()
ListView1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Merk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.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)
ListView1.Items.Add(Lst)
End Sub
Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
IsiTabel()
End Sub
Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
ListView1.Items.Clear()
End Sub
Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class
3.Tampilan Hasil Program
