Latihan Praktikum Listview Pembayaran Tagihan PDAM (Tak ada Link)
Berikut Jawaban Program :
Public Class Form2Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jml Pemakaian", 80, HorizontalAlignment.Left)
LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
Kode_pelanggan.Items.Add("001")
Kode_pelanggan.Items.Add("002")
Kode_pelanggan.Items.Add("003")
Tipe.Items.Add("Toko")
Tipe.Items.Add("Rumah")
Tipe.Items.Add("Swalayan")
Tipe.Items.Add("Pabrik")
End Sub
Private Sub Kode_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
Select Case Kode_pelanggan.Text
Case "001"
Nama.Text = "Jhon"
Case "002"
Nama.Text = "Eko"
Case " 003"
Nama.Text = "Dian"
End Select
End Sub
Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
Select Case Tipe.Text
Case "Toko"
Biaya_beban.Text = " 25000"
Harga.Text = "300"
Case "Rumah"
Biaya_beban.Text = " 15000"
Harga.Text = "100"
Case "Swalayan"
Biaya_beban.Text = " 10000"
Harga.Text = "200"
Case "Pabrik"
Biaya_beban.Text = " 25000"
Harga.Text = "500"
Case ""
Biaya_beban.Text = ""
Harga.Text = ""
End Select
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Total_tagihan.Text = Val(Biaya_beban.Text) + Val(Harga.Text * Jumlah_pemakaian.Text)
pajak.Text = 0.01 * Total_tagihan.Text
Pembayaran.Text = Val(Total_tagihan.Text) + Val(pajak.Text)
Dim lst As New ListViewItem
lst.Text = Kode_pelanggan.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(Biaya_beban.Text)
lst.SubItems.Add(Jumlah_pemakaian.Text)
lst.SubItems.Add(Total_tagihan.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(Pembayaran.Text)
lst.SubItems.Add(Harga.Text)
LV.Items.Add(lst)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
LV.Items.Clear()
End Sub
Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
======================================================================
Tampilan Hasil:
==================================================================
Demikilahlah postingan saya
Nama : Etty Diana Manurung
NPM : 14110306