program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik
Kemudian Masuk kan Listing Program Berikut:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tabel()
Kodepelanggan.Items.Add("MED")
Kodepelanggan.Items.Add("BEL")
Kodepelanggan.Items.Add("TEM")
Kodepelanggan.Items.Add("MAR")
Kodepelanggan.Items.Add("BIN")
Kodepelanggan.Items.Add("PAK")
Tipepelanggan.Items.Add("TOK")
Tipepelanggan.Items.Add("RUM")
Tipepelanggan.Items.Add("SWA")
Tipepelanggan.Items.Add("PAB")
End Sub
Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
Select Case Kodepelanggan.Text
Case ("MED")
daerah.Text = "MEDAN"
pajak.Text = "0.015"
Case ("BEL")
daerah.Text = "BELAWAN"
pajak.Text = "0.015"
Case ("TEM")
daerah.Text = "AKSARA"
pajak.Text = "0.015"
Case ("MAR")
daerah.Text = "MARINDAL"
pajak.Text = "0.015"
Case ("BIN")
daerah.Text = "BINJAI"
pajak.Text = "0.015"
Case ("PAK")
daerah.Text = "LUBUK PAKAM"
pajak.Text = "0.015"
End Select
End Sub
Private Sub Tipepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipepelanggan.SelectedIndexChanged
Select Case Tipepelanggan.Text
Case ("TOK")
Tipetoko.Text = "TOKO"
biayabeban.Text = 150000
hargaperkwh.Text = 500
Case ("RUM")
Tipetoko.Text = "RUMAH"
biayabeban.Text = 500000
hargaperkwh.Text = 1500
Case ("SWA")
Tipetoko.Text = "SWALAYAN"
biayabeban.Text = 400000
hargaperkwh.Text = 1500
Case ("PAB")
Tipetoko.Text = "PABRIK"
biayabeban.Text = 1000000
hargaperkwh.Text = 10000
End Select
End Sub
Sub tabel()
ListView1.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Tipe toko", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Tipe pelanggan", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Biaya beban", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Meteran bulan lalu", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Meteran bulan sekarang", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga per KwH", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Besar pemakaian", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Tagihan", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Total bayar", 80, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim x As New ListViewItem
With x
.text = Kodepelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(Tipepelanggan.Text)
.SubItems.Add(Tipetoko.Text)
.SubItems.Add(biayabeban.Text)
.SubItems.Add(meteranbulanlalu.Text)
.SubItems.Add(meteranbulansekarang.Text)
.SubItems.Add(hargaperkwh.Text)
.SubItems.Add(besarpemakaian.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(tagihan.Text)
.SubItems.Add(totalbayar.Text)
ListView1.Items.Add(x)
End With
End Sub
Private Sub totalbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles totalbayar.KeyPress
If Asc(e.KeyChar) = 13 Then
totalbayar.Text = Val(biayabeban.Text) + Val(hargaperkwh.Text) + Val(besarpemakaian.Text)
End If
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
besarpemakaian.Text = meteranbulanlalu.Text - meteranbulansekarang.Text
tagihan.Text = biayabeban.Text + (hargaperkwh.Text * besarpemakaian.Text)
totalbayar.Text = tagihan.Text * pajak.Text
End Sub
Private Sub Btnsimpandata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpandata.Click
isitabel()
BERSIH()
End Sub
Sub bersih()
Kodepelanggan.Text = ""
Tipepelanggan.Text = ""
Tipetoko.Text = ""
pajak.Text = ""
meteranbulanlalu.Text = ""
meteranbulansekarang.Text = ""
totalbayar.Text = ""
daerah.Text = ""
hargaperkwh.Text = ""
biayabeban.Text = ""
tagihan.Text = ""
besarpemakaian.Text = ""
End Sub
Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
bersih()
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class
