Gambar Form :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Private Sub No_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles No.TextChanged
Dim x As String
No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)
x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)
If x = "MED" Then
Daerah.Text = "MEDAN"
pjk.Text = 0.015
ElseIf x = "BEL" Then
Daerah.Text = "BELAWAN"
pjk.Text = 0.015
ElseIf x = "TEM" Then
Daerah.Text = "AKSARA"
pjk.Text = 0.015
ElseIf x = "MAR" Then
Daerah.Text = "MARENDAL"
pjk.Text = 0.015
ElseIf x = "BIN" Then
Daerah.Text = "BINJAI"
pjk.Text = 0.015
ElseIf x = "PAK" Then
Daerah.Text = "LUBUK PAKAM"
pjk.Text = 0.015
End If
x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)
If x = "TOK" Then
Tipe.Text = "TOKO"
harga.Text = "500"
biaya.Text = "150000"
ElseIf x = "RUM" Then
Tipe.Text = "RUMAH"
harga.Text = "200"
biaya.Text = "50000"
ElseIf x = "SWA" Then
Tipe.Text = "SWALAYAN"
harga.Text = "1500"
biaya.Text = "400000"
ElseIf x = "PAB" Then
Tipe.Text = "PABRIK"
biaya.Text = "1000000"
harga.Text = "10000"
End If
End Sub
Sub buattabel()
Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)
Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)
Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)
Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)
Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)
Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = tgl.Text
lst.SubItems.Add(No.Text)
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(meterlalu.Text)
lst.SubItems.Add(metersekarang.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(besar.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(tagihan.Text)
lst.SubItems.Add(total.Text)
Lv.Items.Add(lst)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
isitabel()
kode.Text = ""
Daerah.Text = ""
biaya.Text = ""
Tipe.Text = ""
meterlalu.Text = ""
harga.Text = ""
total.Text = ""
metersekarang.Text = ""
No.Text = ""
tagihan.Text = ""
besar.Text = ""
pjk.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
kode.Text = ""
Daerah.Text = ""
biaya.Text = ""
Tipe.Text = ""
meterlalu.Text = ""
harga.Text = ""
total.Text = ""
metersekarang.Text = ""
No.Text = ""
tagihan.Text = ""
besar.Text = ""
pjk.Text = ""
End Sub
Private Sub No_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles No.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Proses_Click(sender, e)
End If
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Proses.Click
besar.Text = metersekarang.Text - meterlalu.Text
tagihan.Text = biaya.Text + (harga.Text * besar.Text)
total.Text = tagihan.Text * 0.015
End Sub
End Class
Tidak ada komentar:
Posting Komentar