PEMOGRAMAN PEMAKAIAN LISTRIK
Quiz Online
Berikut Ini Adalah Design nya :
Berikut Ini Adalah Cara Penyelesaiannya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Program Pemakaian listrik"
Call buattabel()
Me.BackColor = Color.HotPink
kpelanggan.Items.Add("PAB-PAK-100")
kpelanggan.Items.Add("TOK-MED-101")
kpelanggan.Items.Add("RUM-BEL-102")
kpelanggan.Items.Add("SWA-TEM-103")
kpelanggan.Items.Add("PAB-MAR-104")
kpelanggan.Items.Add("TOK-BIN-105")
End Sub
Private Sub kpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kpelanggan.SelectedIndexChanged
Dim A As String
A = Strings.Left(kpelanggan.Text, 3)
Select Case A
Case "PAB"
tipe.Text = "Pabrik"
Case "TOK"
tipe.Text = "Toko"
Case "RUM"
tipe.Text = "Rumah"
Case "SWA"
tipe.Text = "Swalayan"
End Select
A = Strings.Mid(kpelanggan.Text, 5, 3)
Select Case A
Case "PAK"
daerah.Text = "Lubuk Pakam"
Case "MED"
daerah.Text = "Medan"
Case "BEL"
daerah.Text = "Belawan"
Case "TEM"
daerah.Text = "Aksara"
Case "MAR"
daerah.Text = "Marendal"
Case "BIN"
daerah.Text = "Binjai"
Case Else
daerah.Text = "_"
End Select
A = Strings.Right(kpelanggan.Text, 3)
Select Case A
Case "100"
nurut.Text = 100
Nama.Text = "Saibatul Aslamiah Saragi"
mbulanlalu.Text = 500000
Case "101"
nurut.Text = 101
Nama.Text = "widia asnita"
mbulanlalu.Text = 60000
Case "102"
nurut.Text = 102
Nama.Text = "lia Waroka"
mbulanlalu.Text = 400000
Case "103"
nurut.Text = 103
Nama.Text = "Vermina Mrbun"
mbulanlalu.Text = 70000
Case "104"
nurut.Text = 104
Nama.Text = "desi"
mbulanlalu.Text = 600000
Case "105"
nurut.Text = 105
Nama.Text = "DEVI"
mbulanlalu.Text = 50000
End Select
If tipe.Text = "Toko" Then
hargaperkwh.Text = 500
bbeban.Text = 150000
ElseIf tipe.Text = "Pabrik" Then
hargaperkwh.Text = 10000
bbeban.Text = 1000000
ElseIf tipe.Text = "Rumah" Then
hargaperkwh.Text = 200
bbeban.Text = 50000
ElseIf tipe.Text = "Swalayan" Then
hargaperkwh.Text = 1500
bbeban.Text = 400000
Else
hargaperkwh.Text = "_"
bbeban.Text = "_"
End If
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Dim mia As String
mia = MsgBox("apakah anda yakin ingin keluar dari form ini", MsgBoxStyle.YesNo)
If mia = vbYes Then
Me.Close()
End If
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
kpelanggan.Text = ""
nurut.Text = ""
Nama.Text = ""
tipe.Text = ""
daerah.Text = ""
hargaperkwh.Text = ""
bbeban.Text = ""
mbulanini.Text = ""
jpemakaian.Text = ""
bpemakaian.Text = ""
pajak.Text = ""
Ttagihan.Text = ""
pembayaran.Text = ""
End Sub
Sub buattabel()
lv.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Left)
lv.Columns.Add("No Urut", 50, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
lv.Columns.Add("Tipe", 50, HorizontalAlignment.Left)
lv.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
lv.Columns.Add("Harga Per KWH", 50, HorizontalAlignment.Left)
lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
lv.Columns.Add("Meter Bulan Ini", 50, HorizontalAlignment.Left)
lv.Columns.Add("Meter Bulan Lalu", 80, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Pemakaian", 50, HorizontalAlignment.Left)
lv.Columns.Add("Besar P/selisih", 80, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
lv.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
lv.Columns.Add("Pembayaran", 50, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim mia As New ListViewItem
mia.Text = kpelanggan.Text
mia.SubItems.Add(nurut.Text)
mia.SubItems.Add(Nama.Text)
mia.SubItems.Add(tipe.Text)
mia.SubItems.Add(daerah.Text)
mia.SubItems.Add(hargaperkwh.Text)
mia.SubItems.Add(bbeban.Text)
mia.SubItems.Add(mbulanini.Text)
mia.SubItems.Add(mbulanlalu.Text)
mia.SubItems.Add(jpemakaian.Text)
mia.SubItems.Add(bpemakaian.Text)
mia.SubItems.Add(pajak.Text)
mia.SubItems.Add(Ttagihan.Text)
mia.SubItems.Add(pembayaran.Text)
lv.Items.Add(mia)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call isitabel()
kpelanggan.Text = ""
nurut.Text = ""
Nama.Text = ""
tipe.Text = ""
daerah.Text = ""
hargaperkwh.Text = ""
bbeban.Text = ""
mbulanini.Text = ""
mbulanlalu.Text = ""
jpemakaian.Text = ""
bpemakaian.Text = ""
pajak.Text = ""
Ttagihan.Text = ""
pembayaran.Text = ""
End Sub
Private Sub hsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hsemua.Click
lv.Items.Clear()
End Sub
Private Sub hitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitem.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub lv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.Click
kpelanggan.Text = lv.SelectedItems(0).SubItems(0).Text
nurut.Text = lv.SelectedItems(0).SubItems(1).Text
Nama.Text = lv.SelectedItems(0).SubItems(2).Text
tipe.Text = lv.SelectedItems(0).SubItems(3).Text
daerah.Text = lv.SelectedItems(0).SubItems(4).Text
hargaperkwh.Text = lv.SelectedItems(0).SubItems(5).Text
bbeban.Text = lv.SelectedItems(0).SubItems(6).Text
mbulanini.Text = lv.SelectedItems(0).SubItems(7).Text
mbulanlalu.Text = lv.SelectedItems(0).SubItems(8).Text
jpemakaian.Text = lv.SelectedItems(0).SubItems(9).Text
bpemakaian.Text = lv.SelectedItems(0).SubItems(10).Text
pajak.Text = lv.SelectedItems(0).SubItems(11).Text
Ttagihan.Text = lv.SelectedItems(0).SubItems(12).Text
pembayaran.Text = lv.SelectedItems(0).SubItems(13).Text
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
jpemakaian.Text = Val(mbulanini.Text) - Val(mbulanlalu.Text)
bpemakaian.Text = Val(mbulanini.Text) - Val(mbulanlalu.Text)
Ttagihan.Text = (Val(bbeban.Text)) + (Val(hargaperkwh.Text) * Val(bpemakaian.Text))
pajak.Text = Val(Ttagihan.Text) * 0.015
pembayaran.Text = Val(Ttagihan.Text) + Val(pajak.Text)
End Sub
End Class
Dan Berikut Ini Adalah hasil dari penyelesaian diatas :
Demikian lah cara penyelesaian Kasus Pemograman Pemakaian Listrik.
Nama : Saibatul Aslamiah Saragi
Npm : 13110674
Quiz Online Pemograman VB.NET
Nama : Saibatul Aslamiah Saragi
Npm : 13110674
Quiz Online Pemograman VB.NET
