Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kodepelanggan.Items.Add("TOK-MED-100")
Kodepelanggan.Items.Add("PAB-BEL-101")
Kodepelanggan.Items.Add("SWA-BEL-102")
Kodepelanggan.Items.Add("PAB-MED-103")
Kodepelanggan.Items.Add("RUM-MED-104")
rancangtable()
End Sub
Sub rancangtable()
With Lv
.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
.Columns.Add("Nama", 100, HorizontalAlignment.Center)
.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
.Columns.Add("Harga M3", 100, HorizontalAlignment.Center)
.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
.Columns.Add("Pemakaian Air", 100, HorizontalAlignment.Center)
.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
.Columns.Add("pajak", 100, HorizontalAlignment.Center)
.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
.FullRowSelect = True
.GridLines = True
.View = View.Details
End With
End Sub
Sub isitable()
Dim i As New ListViewItem
With i
.Text = Kodepelanggan.Text
.SubItems.Add(nama.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(daerah.Text)
.SubItems.Add(harga_m3.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(pemakaian_air.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(pembayaran.Text)
Lv.Items.Add(i)
End With
End Sub
Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(Kodepelanggan.Text, 3)
If x = "100" Then
nama.Text = "Muhammad Ardianto"
ElseIf x = "101" Then
nama.Text = "Jekson Sinaga"
ElseIf x = "102" Then
nama.Text = "Triani Arista"
ElseIf x = "103" Then
nama.Text = "Aldyan"
End If
x = Microsoft.VisualBasic.Left(Kodepelanggan.Text, 3)
If x = "PAB" Then
harga_m3.Text = 500
biaya_beban.Text = 250000
tipe.Text = "Pabrik"
ElseIf x = "TOK" Then
harga_m3.Text = 500
biaya_beban.Text = 25000
tipe.Text = "Toko"
ElseIf x = "RUM" Then
harga_m3.Text = 500
biaya_beban.Text = 10000
tipe.Text = "Rumah"
ElseIf x = "SWA" Then
harga_m3.Text = 200
biaya_beban.Text = 15000
tipe.Text = "Swalayan"
End If
x = Microsoft.VisualBasic.Mid(Kodepelanggan.Text, 5, 3)
If x = "MED" Then
daerah.Text = "Medan"
ElseIf x = "BEL" Then
daerah.Text = "Belawan"
End If
End Sub
Private Sub pemakaian_air_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian_air.KeyPress
If Asc(e.KeyChar) = 13 Then
total_tagihan.Text = harga_m3.Text * pemakaian_air.Text + Val(biaya_beban.Text)
pajak.Text = 0.01 * total_tagihan.Text
pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub bersih()
Kodepelanggan.Text = ""
nama.Text = ""
tipe.Text = ""
daerah.Text = ""
harga_m3.Text = ""
biaya_beban.Text = ""
pemakaian_air.Text = ""
total_tagihan.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
bersih()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitable()
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_satu.Click
If Lv.SelectedItems.Count <> 0 Then
Lv.Items.Remove(Lv.SelectedItems(0))
Else
MsgBox("Maaf Anda Belum" & vbCr & "Memilih Yang Ingin Anda Hapus")
End If
End Sub
Private Sub Hapus_lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_lv.Click
Lv.Items.Clear()
End Sub
Private Sub pemakaian_air_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian_air.TextChanged
End Sub
End Class
