Latihan ListView Perhitungan Penjualan Barang
Desain form VB 2008
Ketentuan :
- Kode barang menentukan nama barang dan merk
- 2 digit karakter dari sebelah kiri menentukan merk barang.
- 3 digit karakter dari sebelah kanan adalah menentukan nama barang.
- Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
- Total Harga = Harga * Jumlah Beli
Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.
Ketentuan Harga :
Kode Barang
|
001
|
002
|
TS
|
105000
|
75000
|
VG
|
90000
|
60000
|
Listing Program sebagai Berikut:
Public Class Form1
Sub BuatTabel()
LV.Columns.Add("No Pembelian", 50, HorizontalAlignment.Left)
LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
LV.Columns.Add("Merk", 120, HorizontalAlignment.Left)
LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Pembelian", 120, HorizontalAlignment.Left)
LV.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub IsiTabel()
Dim lst As New ListViewItem
lst.Text = No_Pembelian.Text()
lst.SubItems.Add(Kode_Barang.Text)
lst.SubItems.Add(Nama_Barang.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jumlah_Beli.Text)
lst.SubItems.Add(Total_Harga.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()
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 x As String
x = Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
Select Case x
Case "TS"
Merk.Text = "Toshiba"
Case "VG"
Merk.Text = "V-GEN"
End Select
x = Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)
Select Case x
Case "001"
Nama_Barang.Text = "FlashDisk 4GB"
Case "002"
Nama_Barang.Text = "Flashdisk 2GB"
End Select
Select Case Kode_Barang.Text
Case "TS001"
Harga.Text = "105000"
Case "TS002"
Harga.Text = "75000"
Case "VG001"
Harga.Text = "90000"
Case "VG002"
Harga.Text = "60000"
End Select
End Sub
Private Sub Jumlah_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Total_Harga.Text = Val(Harga.Text) * Val(Jumlah_Beli.Text)
End If
End Sub
Private Sub Jumlah_Beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah_Beli.TextChanged
End Sub
Private Sub BtnSimpan_ke_Listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan_ke_Listview.Click
IsiTabel()
End Sub
Sub bersih()
No_Pembelian.Text = ""
Kode_Barang.Text = ""
Nama_Barang.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah_Beli.Text = ""
Total_Harga.Text = ""
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
bersih()
End Sub
Private Sub BtnHapus_Semua_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_Semua_Data.Click
LV.Items.Clear()
End Sub
Private Sub BtnHapus_Data_Yang_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_Data_Yang_Dipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Demikianlah postingan saya Nama: Suratmi NPM: 12110447
Selamat mencoba Pemrograman VB NET
Tidak ada komentar:
Posting Komentar