soal no 3

Program Pembayaran Tagihan PDAM Dengan Menggunakan Login dan Menu

disini Listing Program :
a. Login
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “robi”) And (LCase(password.Text) = “sahri″) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add(“MEDAN”)
daerah.Items.Add(“BELAWAN”)
daerah.Items.Add(“AKSARA”)
daerah.Items.Add(“MARENDAL”)
daerah.Items.Add(“BINJAI”)
daerah.Items.Add(“LUBUK PAKAM”)
tipe_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3″, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class
Hasil Program :
a. Login:

b. Menu

c. Pembayaran Tagihan