JAWABAN SOAL 3 (DEWI SAFITRI HUTABARAT)
KASUS : Tagihan PDAM
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 = "SAYA" And password.Text = "111" 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
Tidak ada komentar:
Posting Komentar