LISTING PROGRAM
Form1.vb
Public
Class Form1
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Btnkeluar_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnok_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
If username.Text = "JOHAN"
And password.Text = "1111" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("data username/password
salah!")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub username_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
username.TextChanged
End Sub
End Class
menuutama.vb
Public
Class menuutama
Private Sub
PEMBAYARANAIRMINUMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles PEMBAYARANAIRMINUMToolStripMenuItem.Click
program.Show()
End Sub
Private Sub
KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles KELUARToolStripMenuItem.Click
End
End Sub
Private Sub menuutama_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
program.vb
Public
Class program
Sub isitable()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nourut.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(biayabeban.Text)
lst.SubItems.Add(m3.Text)
lst.SubItems.Add(pemakaian.Text)
lst.SubItems.Add(tagihan.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(pembayaran.Text)
lv.Items.Add(lst)
End Sub
Sub buattable()
lv.Columns.Add("Nama
Pelanggan", 140, HorizontalAlignment.Left)
lv.Columns.Add("Kode
Pelanggan", 115, HorizontalAlignment.Left)
lv.Columns.Add("No Urut", 70,
HorizontalAlignment.Left)
lv.Columns.Add("Tipe
Pelanggan", 110, HorizontalAlignment.Left)
lv.Columns.Add("Daerah
Pelanggan", 140, HorizontalAlignment.Left)
lv.Columns.Add("Biaya Beban",
110, HorizontalAlignment.Left)
lv.Columns.Add("Harga PerM3",
100, HorizontalAlignment.Left)
lv.Columns.Add("Pemakaian",
110, HorizontalAlignment.Left)
lv.Columns.Add("Tagihan", 90,
HorizontalAlignment.Left)
lv.Columns.Add("Pajak 1%",
90, HorizontalAlignment.Left)
lv.Columns.Add("Pembayaran",
120, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub cekpelanggan()
Dim x As String
x =
Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
Dim xx As String
xx =
Microsoft.VisualBasic.Left(kode.Text, 3)
nourut.Text =
Microsoft.VisualBasic.Right(kode.Text, 3)
If x = "MED" Then
daerah.Text = "MEDAN"
ElseIf x = "BEL" Then
daerah.Text = "BELAWAN"
ElseIf x = "TEM" Then
daerah.Text = "AKSARA"
ElseIf x = "MAR" Then
daerah.Text = "MARENDAL"
ElseIf x = "BIN" Then
daerah.Text = "BINJAI"
ElseIf x = "PAK" Then
daerah.Text = "LUBUK
PAKAM"
End If
If xx = "TOK" Then
tipe.Text = "TOKO"
biayabeban.Text = 25000
m3.Text = 300
ElseIf xx = "RUM" Then
tipe.Text = "RUMAH"
biayabeban.Text = 15000
m3.Text = 100
ElseIf xx = "SWA" Then
tipe.Text = "SWALAYAN"
biayabeban.Text = 10000
m3.Text = 200
ElseIf xx = "PAB" Then
tipe.Text = "PABRIK"
biayabeban.Text = 250000
m3.Text = 500
End If
tagihan.Text = Val(biayabeban.Text) +
(Val(m3.Text) * Val(pemakaian.Text))
pajak.Text = 0.01 * Val(tagihan.Text)
pembayaran.Text = Val(tagihan.Text) +
Val(pajak.Text)
End Sub
Private Sub program_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattable()
End Sub
Private Sub kode_TextChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged
Call cekpelanggan()
End Sub
Private Sub tipe_TextChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles tipe.TextChanged
Call cekpelanggan()
End Sub
Private Sub daerah_TextChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles daerah.TextChanged
Call cekpelanggan()
End Sub
Private Sub biayabeban_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
biayabeban.TextChanged
Call cekpelanggan()
End Sub
Private Sub m3_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles m3.TextChanged
Call cekpelanggan()
End Sub
Private Sub tagihan_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles tagihan.TextChanged
Call cekpelanggan()
End Sub
Private Sub pemakaian_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
pemakaian.TextChanged
Call cekpelanggan()
End Sub
Private Sub pajak_TextChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
Call cekpelanggan()
End Sub
Private Sub pembayaran_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
pembayaran.TextChanged
Call cekpelanggan()
End Sub
Private Sub simpan_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitable()
nama.Text = ""
kode.Text = ""
nourut.Text = ""
tipe.Text = ""
daerah.Text = ""
biayabeban.Text = ""
m3.Text = ""
pemakaian.Text = ""
tagihan.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub bersih_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nama.Text = ""
kode.Text = ""
nourut.Text = ""
tipe.Text = ""
daerah.Text = ""
biayabeban.Text = ""
m3.Text = ""
pemakaian.Text = ""
tagihan.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub hapussemua_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub
Private Sub hapusdipilih_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub keluar_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub nourut_TextChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles nourut.TextChanged
cekpelanggan()
End Sub
End Class
HASIL PROGRAM
Menu Log in
Menu strip
Pengisian Data
Memasukkan data ke Listview
