Kasus Pemrograman Pemakaian Listrik
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kdelanggan.Items.Add("PAB-MAR-100")
kdelanggan.Items.Add("TOK-BEL-101")
kdelanggan.Items.Add("RUM-BIN-102")
kdelanggan.Items.Add("SWA-MED-103")
lv.Columns.Add("nama pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 100, HorizontalAlignment.Center)
lv.Columns.Add("daerah", 100, HorizontalAlignment.Center)
lv.Columns.Add("biaya beban", 100, HorizontalAlignment.Center)
lv.Columns.Add("harga kwh", 100, HorizontalAlignment.Center)
lv.Columns.Add("pemakaiaan", 100, HorizontalAlignment.Center)
lv.Columns.Add("total tagihan", 100, HorizontalAlignment.Center)
lv.Columns.Add("pajak", 100, HorizontalAlignment.Center)
lv.Columns.Add("pembayaran", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub kdelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdelanggan.SelectedIndexChanged
Dim x As String
x = Mid(kdelanggan.Text, 1, 3)
Select Case x
Case "TOK"
tipe.Text = "toko"
biayabeban.Text = 150000
harga.Text = 500
nama.Text = "tony"
Case "RUM"
tipe.Text = "Rumah"
biayabeban.Text = 50000
harga.Text = 200
nama.Text = "satria"
Case "SWA"
tipe.Text = "swalayan"
biayabeban.Text = 400000
harga.Text = 1500
nama.Text = "putri"
Case "PAB"
tipe.Text = "Pabrik"
biayabeban.Text = 1000000
harga.Text = 10000
nama.Text = "dewi"
End Select
x = Mid(kdelanggan.Text, 5, 3)
Select Case x
Case "MED" : daerah.Text = "Medan"
Case "BEL" : daerah.Text = "Belawan"
Case "TEM" : daerah.Text = "Aksara"
Case "MAR" : daerah.Text = "Marendal"
Case "BIN" : daerah.Text = "Binjai"
Case " PAK" : daerah.Text = "Lubuk pakam"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
totagihan.Text = (harga.Text * pemakaiaan.Text) + biayabeban.Text
pajak.Text = 0.015 * totagihan.Text
bayar.Text = Val(totagihan.Text) + Val(pajak.Text)
End Sub
Private Sub btnisilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisilist.Click
Dim lst As New ListViewItem
lst.Text = kdelanggan.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(biayabeban.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(pemakaiaan.Text)
lst.SubItems.Add(totagihan.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(bayar.Text)
lv.Items.Add(lst)
End Sub
End Class
