Pembayaran Rekening Listrik
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("No", 50, HorizontalAlignment.Center)
LV.Columns.Add("Kode", 50, HorizontalAlignment.Left)
LV.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Left)
LV.Columns.Add("Beban", 70, HorizontalAlignment.Left)
LV.Columns.Add("Pemakaian", 150, HorizontalAlignment.Left)
LV.Columns.Add("Harga KWH", 120, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 150, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
kd.Items.Add("001")
kd.Items.Add("002")
kd.Items.Add("003")
End Sub
Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
Select Case kd.Text
Case "001" : Jenis.Text = "RUMAH" : beban.Text = "25000" : Harga.Text = "3000" : No.Text = "1"
Case "002" : Jenis.Text = "TOKO" : beban.Text = "50000" : Harga.Text = "5000" : No.Text = "2"
Case "003" : Jenis.Text = "PABRIK" : beban.Text = "100000" : Harga.Text = "10000" : No.Text = "3"
Case Else
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
pembayaran.Text = Val(beban.Text) + Val(Harga.Text * pemakaian.Text)
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Dim lst As New ListViewItem
lst.Text = No.Text
lst.SubItems.Add(kd.Text)
lst.SubItems.Add(Jenis.Text)
lst.SubItems.Add(beban.Text)
lst.SubItems.Add(pemakaian.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(pembayaran.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnhpuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpuslist.Click
No.Text = ""
kd.Text = ""
Jenis.Text = ""
beban.Text = ""
pemakaian.Text = ""
Harga.Text = ""
pembayaran.Text = ""
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
LV.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
