Public Class Form1
Sub buat_tabel()
LV.Columns.Add("Kode_Pelanggang", 80, HorizontalAlignment.Center)
LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
LV.Columns.Add("Biaya_Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
LV.Columns.Add("HargaperKWH", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jlh_Pemakaian", 100, HorizontalAlignment.Left)
LV.Columns.Add("Tot_Tagihan", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pemabayaran", 100, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isi_tabel()
Dim lst As New ListViewItem
lst.Text = Kode_Pelanggang.Text
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Biaya_Beban.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(HargaperKWH.Text)
lst.SubItems.Add(Jlh_Pemakaian.Text)
lst.SubItems.Add(Tot_Tagihan.Text)
lst.SubItems.Add(Pemabayaran.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buat_tabel()
Kode_Pelanggang.Items.Add("PAB-MED-100")
Kode_Pelanggang.Items.Add("TOK-BL-101")
Kode_Pelanggang.Items.Add("SWA-TEM-102")
Kode_Pelanggang.Items.Add("RUM-MAR-103")
End Sub
Private Sub Kode_Pelanggang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Pelanggang.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(Kode_Pelanggang.Text, 3)
Select Case x
Case "100" : Nama.Text = "Yhannu Lahagu"
Case "101" : Nama.Text = "Firman Gea"
Case "102" : Nama.Text = "Agustiman Zega"
Case "103" : Nama.Text = "Citra"
End Select
x = Microsoft.VisualBasic.Left(Kode_Pelanggang.Text, 3)
Select Case x
Case " TOK"
HargaperKWH.Text = 500
Biaya_Beban.Text = 150000
Tipe.Text = "Toko"
Daerah.Text = "AKSARA"
Case "RUM"
HargaperKWH.Text = 200
Biaya_Beban.Text = 50000
Tipe.Text = "Rumah"
Daerah.Text = "BELAWAN"
Case "PAB"
HargaperKWH.Text = 10000
Biaya_Beban.Text = 1000000
Tipe.Text = "Pabrik"
Daerah.Text = "MEDAN"
Case "SWA"
HargaperKWH.Text = 1500
Biaya_Beban.Text = 400000
Tipe.Text = "Swalayan"
Daerah.Text = "MARENDAL"
Case Else
Kode_Pelanggang.Text = "-"
x = Microsoft.VisualBasic.Mid(Kode_Pelanggang.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"
Case Else : Daerah.Text = "-"
End Select
End Select
End Sub
Private Sub Jlh_Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jlh_Pemakaian.KeyPress
If Asc(e.KeyChar) = 13 Then
Tot_Tagihan.Text = Val(Biaya_Beban.Text) + (HargaperKWH.Text * Jlh_Pemakaian.Text)
Pajak.Text = 0.15 * Tot_Tagihan.Text
Pemabayaran.Text = Val(Tot_Tagihan.Text) + Val(Pajak.Text)
End If
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
BersihForm(Me)
End Sub
Sub BersihForm(ByVal f As Form)
Dim i As Object
For Each i In f.Controls
If TypeOf i Is TextBox Then i.text = ""
If TypeOf i Is ComboBox Then i.text = ""
Next
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
isi_tabel()
Kode_Pelanggang.Text = ""
Daerah.Text = ""
Nama.Text = ""
Biaya_Beban.Text = ""
Tipe.Text = ""
Pajak.Text = ""
HargaperKWH.Text = ""
Jlh_Pemakaian.Text = ""
Tot_Tagihan.Text = ""
Pemabayaran.Text = ""
End Sub
End Class
