Latihan Praktikum Listview Pembayaran Tagihan PDAM
Berikut jaawaban program:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
kdPelanggan.Text = ""
Nama.Text = ""
tipe.Text = ""
HargaM3.Text = ""
BEBAN.Text = ""
Jpemakaian.Text = ""
Ttagihan.Text = ""
Jpembayaran.Text = ""
Pajak.Text = ""
Daerah.Text = ""
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Lv.Columns.Add("KD Pelanggan", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Harga M3", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Jmlh Pemkaian", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Jmlh Pembayaran", 100, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 70, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
kdPelanggan.Items.Add("001")
kdPelanggan.Items.Add("002")
kdPelanggan.Items.Add("003")
tipe.Items.Add("TOKO")
tipe.Items.Add("RUMAH")
tipe.Items.Add("SWALAYAN")
tipe.Items.Add("PABRIK")
End Sub
Private Sub kdPelanggan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kdPelanggan.SelectedIndexChanged
Select Case kdPelanggan.Text
Case "001" : Nama.Text = "BUDI"
Case "002" : Nama.Text = "DIAN"
Case "003" : Nama.Text = "CINTA"
End Select
End Sub
Private Sub tipe_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tipe.SelectedIndexChanged
Select Case tipe.Text
Case "TOKO"
BEBAN.Text = 25000
HargaM3.Text = 300
Daerah.Text = "BELAWAN"
Case "RUMAH"
BEBAN.Text = 15000
HargaM3.Text = 100
Daerah.Text = "MEDAN"
Case "SWALAYAN"
BEBAN.Text = 10000
HargaM3.Text = 200
Daerah.Text = "MEDAN"
Case "PABRIK"
BEBAN.Text = 250000
HargaM3.Text = 500
Daerah.Text = "BELAWAN"
End Select
End Sub
Private Sub Jpemakaian_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Jpemakaian.KeyPress
If Jpemakaian.Text = "" Then
Jpemakaian.Focus()
ElseIf Asc(e.KeyChar) = 13 Then
Ttagihan.Text = Val(BEBAN.Text) + (HargaM3.Text * Jpemakaian.Text)
Pajak.Text = 0.01 * Ttagihan.Text
Jpembayaran.Text = Val(Ttagihan.Text) * Val(Pajak.Text)
End If
End Sub
Private Sub Jpemakaian_TextChanged(sender As Object, e As EventArgs) Handles Jpemakaian.TextChanged
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
Dim lst As New ListViewItem
lst.Text = kdPelanggan.Text
lst.SubItems.Add(Nama.Text)
Lv.Items.Add(lst)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(HargaM3.Text)
lst.SubItems.Add(BEBAN.Text)
lst.SubItems.Add(Jpemakaian.Text)
lst.SubItems.Add(Ttagihan.Text)
lst.SubItems.Add(Jpembayaran.Text)
lst.SubItems.Add(Pajak.Text)
End Sub
Private Sub Btnbatal_Click(sender As Object, e As EventArgs) Handles Btnbatal.Click
Lv.Items.Clear()
End Sub
Private Sub Btnhapuslist_Click(sender As Object, e As EventArgs) Handles Btnhapuslist.Click
Lv.Items.Clear()
End Sub
End Class
Tampilan Hasil:
Pengaturan > temukan telepon saya
