Judul Soal :
Penjualan Barang
Public Class Form1
Sub
RancangTabel()
ListView1.Columns.Add("No Pembelian", 100,
HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Barang", 100,
HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Barang", 150,
HorizontalAlignment.Center)
ListView1.Columns.Add("Merek", 150,
HorizontalAlignment.Center)
ListView1.Columns.Add("Jumlah Beli", 100,
HorizontalAlignment.Center)
ListView1.Columns.Add("Total Harga", 100,
HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.FullRowSelect = True
ListView1.GridLines = True
End Sub
Sub
IsiTabel()
Dim
list As New
ListViewItem
list.Text = no_pembelian.Text
list.SubItems.Add(kode_barang.Text)
list.SubItems.Add(nama_barang.Text)
list.SubItems.Add(merek.Text)
list.SubItems.Add(harga.Text)
list.SubItems.Add(jumlah_beli.Text)
list.SubItems.Add(total_harga.Text)
ListView1.Items.Add(list)
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
kode_barang.Items.Add("KP001")
kode_barang.Items.Add("KP002")
kode_barang.Items.Add("PS001")
kode_barang.Items.Add("PS002")
RancangTabel()
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
"KP"
merek.Text = "LG"
Case
"PS"
merek.Text = "Toshiba"
End Select
Dim j As String
j =
Microsoft.VisualBasic.Right(kode_barang.Text, 3)
Select Case j
Case
"001"
nama_barang.Text = "Flashdisk 8 GB"
Case
"002"
nama_barang.Text = "Flashdisk 4 GB"
End Select
Select Case x & j
Case
"KP" & "001"
harga.Text = 95000
Case
"KP" & "002"
harga.Text = 75000
Case
"PS" & "001"
harga.Text = 90000
Case
"PS" & "002"
harga.Text = 70000
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 x As Integer =
Asc(e.KeyChar)
If x =
13 Then
total_harga.Text = harga.Text *
jumlah_beli.Text
End If
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
IsiTabel()
End Sub
Private Sub bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bersih.Click
no_pembelian.Text = ""
kode_barang.Text = ""
nama_barang.Text = ""
merek.Text = ""
harga.Text = ""
jumlah_beli.Text = ""
total_harga.Text = ""
End Sub
Private Sub hapus_semua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_semua.Click
ListView1.Items.Clear()
End Sub
Private Sub hapus_data_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_data.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
Demikilahlah postingan saya Nama : KHOIRUL PAHOTAN SITORUS NPM : 13110745
Selamat Belajar
Pemrograman VB NET
