- Kemudian ketikkan listing seperti dibawah ini.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kd_pembelian.Items.Add("A001")
kd_pembelian.Items.Add("A002")
rancang_table()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isi_tabel()
End Sub
Private Sub kd_pembelian_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_pembelian.SelectedIndexChanged
Select Case kd_pembelian.Text
Case "A001"
kd_barang.Items.Add("A001")
kd_barang.Items.Add("A002")
Case "A002"
kd_barang.Items.Add("A003")
kd_barang.Items.Add("A004")
End Select
End Sub
Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged
Select Case kd_barang.Text
Case "A001"
nm_barang.Items.Add("Handphone")
nm_barang.Items.Add("Televisi")
Case "A002"
nm_barang.Items.Add("DVD")
nm_barang.Items.Add("Kulkas")
End Select
End Sub
Private Sub nm_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm_barang.SelectedIndexChanged
Select Case nm_barang.Text
Case "Handphone"
merk_barang.Items.Add("Nokia")
merk_barang.Items.Add("LG")
Case "Televisi"
merk_barang.Items.Add("Samsung")
merk_barang.Items.Add("Puji")
End Select
End Sub
Private Sub merk_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk_barang.SelectedIndexChanged
Select Case merk_barang.Text
Case "Nokia"
harga.Text = "300000"
harga.Text = "1000000"
Case "LG"
harga.Text = "250000"
harga.Text = "800000"
End Select
End Sub
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
total_harga.Text = harga.Text * jumlah.Text
diskon.Text = 10 / 100 * Val(total_harga.Text)
total_bayar.Text = Val(total_harga.Text) - Val(diskon.Text)
End Sub
Private Sub pembayaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pembayaran.KeyPress
If e.KeyChar = Chr(13) Then
sisa_pembayaran.Text = Val(pembayaran.Text - total_bayar.Text)
End If
End Sub
Sub rancang_table()
With ListView1
.Columns.Add("kd_pembelian", 80, HorizontalAlignment.Center)
.Columns.Add("kd_barang", 80, HorizontalAlignment.Center)
.Columns.Add("nm_barang", 80, HorizontalAlignment.Center)
.Columns.Add("merk_barang", 80, HorizontalAlignment.Center)
.Columns.Add("harga", 80, HorizontalAlignment.Center)
.Columns.Add("jumlah", 80, HorizontalAlignment.Center)
.Columns.Add("total_harga", 80, HorizontalAlignment.Center)
.Columns.Add("diskon", 80, HorizontalAlignment.Center)
.Columns.Add("total_bayar", 80, HorizontalAlignment.Center)
.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
.Columns.Add("sisa_pembayaran", 150, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Private Sub btn_hapus_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus_list.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Sub isi_tabel()
Dim lst As New ListViewItem
With lst
.text = kd_pembelian.text
.subitems.add(kd_barang.text)
.subitems.add(nm_barang.text)
.subitems.add(merk_barang.text)
.subitems.add(harga.text)
.subitems.add(jumlah.text)
.SubItems.Add(total_harga.Text)
.subitems.add(diskon.text)
.subitems.add(total_bayar.text)
.subitems.add(pembayaran.text)
.SubItems.Add(sisa_pembayaran.Text)
End With
ListView1.Items.Add(lst)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
- Hasilnya seperti ini.
Tidak ada komentar:
Posting Komentar