listing program:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T_barang.Items.Add("SMN-14")
T_barang.Items.Add("SSD-21")
T_barang.Items.Add("SBR-29")
T_barang.Items.Add("SDB-45")
rcgtbl()
End Sub
Private Sub T_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_barang.SelectedIndexChanged
Dim x As String
x = Strings.Left(T_barang.Text, 2)
Select Case x
Case "SM"
n_br.Text = "SONY MINI"
Case "SS"
n_br.Text = "SONY Sedang"
Case "SB"
n_br.Text = "SONY Besar"
Case "SD"
n_br.Text = "SONY Dobel Besar"
End Select
x = Strings.Right(T_barang.Text, 2)
Select Case x
Case "14"
u_tv.Text = "14 Inci"
harga.Text = 100000
Garansi.Text = "6 Bulan"
Case "21"
u_tv.Text = "21 Inci"
harga.Text = 1200000
Garansi.Text = "1 THUN"
Case "29"
u_tv.Text = "29 Inci"
harga.Text = 1500000
Garansi.Text = "2 THUN"
Case "45"
u_tv.Text = "45 Inci"
harga.Text = 1750000
Garansi.Text = "3 THUN"
End Select
End Sub
Private Sub t_harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t_harga.TextChanged
Select Case t_harga.Text
Case Is >= 2500000
discount.Text = 0.1 * t_harga.Text
End Select
End Sub
Private Sub jlh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh.KeyPress
If Asc(e.KeyChar) = 13 Then
t_harga.Text = Val(harga.Text) * Val(jlh.Text)
t_pembayaran.Text = Val(t_harga.Text) - Val(discount.Text)
End If
End Sub
Sub rcgtbl()
lv.Columns.Add("Nama pembeli", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tive Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Ukuran ", 70, HorizontalAlignment.Left)
lv.Columns.Add("Harga", 700, HorizontalAlignment.Left)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
lv.Columns.Add("Discount", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Bayar", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tanggal", 150, HorizontalAlignment.Left)
lv.Columns.Add("Garansi", 70, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = False
lv.View = View.Details
End Sub
Sub isitbl()
Dim isi As New ListViewItem
isi.Text = N_pembeli.Text
isi.SubItems.Add(T_barang.Text)
isi.SubItems.Add(n_br.Text)
isi.SubItems.Add(u_tv.Text)
isi.SubItems.Add(harga.Text)
isi.SubItems.Add(t_harga.Text)
isi.SubItems.Add(discount.Text)
isi.SubItems.Add(t_pembayaran.Text)
isi.SubItems.Add(tanggal.Text)
isi.SubItems.Add(Garansi.Text)
lv.Items.Add(isi)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitbl()
bersih()
End Sub
Sub bersih()
T_barang.Text = ""
n_br.Text = ""
u_tv.Text = ""
t_harga.Text = ""
harga.Text = ""
jlh.Text = ""
discount.Text = ""
t_pembayaran.Text = ""
Garansi.Text = ""
N_pembeli.Text = ""
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
bersih()
End Sub
Private Sub hapus_1_lst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_1_lst.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
lv.Items.Clear()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
hasil program
