Design Form seperti gambar di bawah
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
|
NB : Agar tampilan program diatas lebih keren bisa anda memasukkan image ke button pada vb net.
Created By : Tutorial Program VB Net
Berikut Listing Programnya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode_brg.Items.Add("TS001")
kode_brg.Items.Add("TS002")
kode_brg.Items.Add("VG001")
kode_brg.Items.Add("VG002")
ListView1.Columns.Add("No", 30, HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Merk", 50, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = View.Details
End Sub
Private Sub kode_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_brg.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kode_brg.Text, 2)
If x = "TS" Then
merk.Text = "Toshiba"
ElseIf x = "VG" Then
merk.Text = "V-Gen"
End If
x = Microsoft.VisualBasic.Right(kode_brg.Text, 3)
If x = "001" Then
nama_brg.Text = "Flashdisk 4GB"
ElseIf x = "002" Then
nama_brg.Text = "Flashdisk 2GB"
End If
If kode_brg.Text = "TS001" Then
harga.Text = "105000"
ElseIf kode_brg.Text = "TS002" Then
harga.Text = "75000"
ElseIf kode_brg.Text = "VG001" Then
harga.Text = "90000"
ElseIf kode_brg.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
If e.KeyChar = Chr(13) Then
total_hrg.Text = jumlah_beli.Text * harga.Text
End If
End Sub
Private Sub btn_hps_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hps_pilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Dim simpan As New ListViewItem
simpan.Text = no_pembelian.Text
simpan.SubItems.Add(kode_brg.Text)
simpan.SubItems.Add(nama_brg.Text)
simpan.SubItems.Add(merk.Text)
simpan.SubItems.Add(harga.Text)
simpan.SubItems.Add(jumlah_beli.Text)
simpan.SubItems.Add(total_hrg.Text)
ListView1.Items.Add(simpan)
End Sub
Private Sub btn_hps_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hps_semua.Click
ListView1.Items.Clear()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
no_pembelian.Text = ""
kode_brg.Text = ""
nama_brg.Text = ""
merk.Text = ""
harga.Text = ""
jumlah_beli.Text = ""
total_hrg.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
