1. KASUS PEMROGRAMAN PEMBYARAN LISTRIK
Public Class Form1
Sub isitabel()
Dim Y As New ListViewItem
Y.Text = kodepel.Text
Y.SubItems.Add(nama.Text)
Y.SubItems.Add(tipe.Text)
Y.SubItems.Add(hargaperkwh.Text)
Y.SubItems.Add(daerah.Text)
Y.SubItems.Add(biayabeban.Text)
Y.SubItems.Add(jumlahpemakai.Text)
Y.SubItems.Add(totaltagihan.Text)
Y.SubItems.Add(pembayaran.Text)
lv.Items.Add(Y)
End Sub
Sub rancang()
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
lv.Columns.Add("Kode Pel", 100)
lv.Columns.Add("Nama ", 140)
lv.Columns.Add("Type", 160)
lv.Columns.Add("Harga /kwh", 110)
lv.Columns.Add("Daerah", 100)
lv.Columns.Add("Biaya Beban", 100)
lv.Columns.Add("Besar Pemakaian", 100)
lv.Columns.Add("Total Tagihan", 100)
lv.Columns.Add("Pajak", 100)
lv.Columns.Add("Pembayaran", 100)
End Sub
Sub bersih()
kodepel.Text = ""
nama.Text = ""
tipe.Text = ""
biayabeban.Text = ""
daerah.Text = ""
hargaperkwh.Text = ""
jumlahpemakai.Text = ""
totaltagihan.Text = ""
pembayaran.Text = ""
pajak.Text = ""
End Sub
Sub kodepelanggan()
kodepel.Items.Add("PAB - MED - 100")
kodepel.Items.Add("TOK - BEL - 101")
kodepel.Items.Add("SWA - MAR - 102")
kodepel.Items.Add("RUM - BIN - 103")
kodepel.Items.Add("PAB - PAK - 104")
kodepel.Items.Add("SWA - TEM - 105")
End Sub
Sub kodekonsumen()
kodepel.Items.Add("MT- MJ- 010")
kodepel.Items.Add("MK- MB- 011")
kodepel.Items.Add("JK- MJ- 012")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rancang()
kodepelanggan()
End Sub
Private Sub jumlahpemakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakai.KeyPress
If Asc(e.KeyChar) = 13 Then
totaltagihan.Text = Val(biayabeban.Text) + (hargaperkwh.Text * jumlahpemakai.Text)
pajak.Text = 0.15 * totaltagihan.Text
pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
End If
End Sub
Private Sub kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepel.SelectedIndexChanged
Dim x, y, z As String
x = Strings.Right(kodepel.Text, 3)
Select Case x
Case "100" : nama.Text = "TIO"
Case "101" : nama.Text = "ROY"
Case "102" : nama.Text = "DARMAWAN"
Case "103" : nama.Text = "AWAN"
Case "104" : nama.Text = "SULIS"
Case "105" : nama.Text = "SETIYO"
End Select
y = Strings.Left(kodepel.Text, 3)
Select Case y
Case "TOK"
hargaperkwh.Text = 500
biayabeban.Text = 150000
tipe.Text = "Toko"
Case "RUM"
hargaperkwh.Text = 200
biayabeban.Text = 50000
tipe.Text = "Rumah"
Case "PAB"
hargaperkwh.Text = 10000
biayabeban.Text = 1000000
tipe.Text = "Pabrik"
Case "SWA"
hargaperkwh.Text = 1500
biayabeban.Text = 400000
tipe.Text = "Swalayan"
End Select
z = Strings.Mid(kodepel.Text, 7, 3)
Select Case z
Case "MED"
daerah.Text = "Medan"
Case "BEL"
daerah.Text = "Belawan"
Case "MAR"
daerah.Text = "Marendal"
Case "BIN"
daerah.Text = "Binjai"
Case "PAK"
daerah.Text = "Lubuk Pakam"
Case "TEM"
daerah.Text = "Aksara"
Case Else
daerah.Text = "-"
End Select
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
bersih()
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
bersih()
End Sub
Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
0 komentar:
Posting Komentar