Public Class pembayaranrekeningair
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kp.Items.Add("PAB-MED-100")
kp.Items.Add("TOK-BEL-101")
kp.Items.Add("SWA-MED-102")
rancangtbl()
End Sub
Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
If Asc(e.KeyChar) = 13 Then
tt.Text = Val(bb.Text) + (hM.Text * jp.Text)
pjk.Text = 0.01 * tt.Text
pem.Text = Val(tt.Text) + Val(pjk.Text)
End If
End Sub
Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(kp.Text, 3)
Select Case x
Case "100" : nm.Text = "muhammad syaputra"
Case "101" : nm.Text = "armak"
Case "102" : nm.Text = "waeil"
End Select
x = Microsoft.VisualBasic.Left(kp.Text, 3)
Select Case x
Case "TOK"
hM.Text = 250
bb.Text = 15000
tp.Text = "toko"
Case "RUM"
hM.Text = 150
bb.Text = 10000
tp.Text = "rumah"
Case "PAB"
hM.Text = 25000
bb.Text = 250000
tp.Text = "pabrik"
Case "SWA"
hM.Text = 20000
bb.Text = 600000
tp.Text = "swalayan"
End Select
x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
Select Case x
Case "MED" : drh.Text = "Medan"
Case "BEL" : drh.Text = "belawan"
Case Else : drh.Text = "-"
End Select
End Sub
Sub rancangtbl()
lv.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
lv.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga M3", 80, HorizontalAlignment.Left)
lv.Columns.Add("Jlh Pemakaian", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = False
lv.View = View.Details
End Sub
Sub isitabel()
Dim x As New ListViewItem
x.Text = kp.Text
x.SubItems.Add(nm.Text)
x.SubItems.Add(tp.Text)
x.SubItems.Add(drh.Text)
x.SubItems.Add(hM.Text)
x.SubItems.Add(jp.Text)
x.SubItems.Add(tt.Text)
x.SubItems.Add(pem.Text)
x.SubItems.Add(bb.Text)
x.SubItems.Add(pjk.Text)
lv.Items.Add(x)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitabel()
End Sub
End Class
