Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add("G001")
Kode.Items.Add("G002")
Kode.Items.Add("G003")
Kode.Items.Add("G004")
Kode.Items.Add("G005")
Kode.Items.Add("G006")
For i = 1 To 100
Jumlah.Items.Add(i)
Next
LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nama Barang", 150, HorizontalAlignment.Center)
LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Stok", 50, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah", 100, HorizontalAlignment.Center)
LV.Columns.Add("tHarga", 100, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Select Case Kode.Text
Case "G001"
Nama.Text = "Laptop"
Harga.Text = 6000000
Stok.Text = 6
Case "G002"
Nama.Text = "VCD"
Harga.Text = 450000
Stok.Text = 8
Case "G003"
Nama.Text = "KULKAS"
Harga.Text = 4500000
Stok.Text = 5
Case "G004"
Nama.Text = "MODEM XL"
Harga.Text = 250000
Stok.Text = 9
Case "G005"
Nama.Text = "FLASDISK"
Harga.Text = 80000
Stok.Text = 10
Case "G005"
Nama.Text = "KIPAS ANGIN"
Harga.Text = 350000
Stok.Text = 4
Case "G006"
Nama.Text = "SPEAKER"
Harga.Text = 250000
Stok.Text = 7
Case Else
Nama.Text = "CARGER"
Harga.Text = 60000
Stok.Text = 10
End Select
End Sub
Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
If Val(Jumlah.Text) > Val(Stok.Text) Then
MsgBox("stok Tidak Cukup")
Else
Tharga.Text = Val(Jumlah.Text)
End If
End If
End Sub
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim simpan As New ListViewItem
simpan.Text = Kode.Text
simpan.SubItems.Add(Nama.Text)
simpan.SubItems.Add(Harga.Text)
simpan.SubItems.Add(Stok.Text)
simpan.SubItems.Add(Jumlah.Text)
simpan.SubItems.Add(Tharga.Text)
LV.Items.Add(simpan)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'LV.Items.Remove(LV.SelectedItems(0))
Kode.Text = ""
Nama.Text = ""
Harga.Text = ""
Stok.Text = ""
Jumlah.Text = ""
Tharga.Text = ""
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LV.Items.Clear()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Tharga.Text = Val(Harga.Text * Jumlah.Text)
End Sub
End Class
Hasil Outputnya :
