Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listri
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
isikode()
Call
enable()
Call
desaintabel()
End Sub
Sub
hapusform()
kode.Text = ""
nama.Text = ""
daerah.Text = ""
tipe.Text = ""
meterbulanini.Text = ""
meterbulanlalu.Text = ""
biayabeban.Text = ""
harga.Text = ""
besar.Text = ""
total.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Sub
desaintabel()
lv.Columns.Add("KODE",
120, HorizontalAlignment.Center)
lv.Columns.Add("NAMA",
120, HorizontalAlignment.Center)
lv.Columns.Add("DAERAH",
120, HorizontalAlignment.Center)
lv.Columns.Add("TIPE",
120, HorizontalAlignment.Center)
lv.Columns.Add("BULAN
INI", 120, HorizontalAlignment.Center)
lv.Columns.Add("BULAN
LALU", 120, HorizontalAlignment.Center)
lv.Columns.Add("BIAYA",
120, HorizontalAlignment.Center)
lv.Columns.Add("HARGA",
120, HorizontalAlignment.Center)
lv.Columns.Add("BESAR
PAKAI", 120, HorizontalAlignment.Center)
lv.Columns.Add("TOTAL",
120, HorizontalAlignment.Center)
lv.Columns.Add("PAJAK",
120, HorizontalAlignment.Center)
lv.Columns.Add("PEMBAYARAN",
120, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim x As New ListViewItem
x.Text = tipe.Text
x.SubItems.Add(nama.Text)
x.SubItems.Add(daerah.Text)
x.SubItems.Add(tipe.Text)
x.SubItems.Add(meterbulanini.Text)
x.SubItems.Add(meterbulanlalu.Text)
x.SubItems.Add(biayabeban.Text)
x.SubItems.Add(harga.Text)
x.SubItems.Add(besar.Text)
x.SubItems.Add(total.Text)
x.SubItems.Add(pajak.Text)
x.SubItems.Add(pembayaran.Text)
lv.Items.Add(x)
Call hapusform()
End Sub
Sub
enable()
daerah.Enabled = False
tipe.Enabled = False
biayabeban.Enabled = False
harga.Enabled = False
total.Enabled = False
pajak.Enabled = False
besar.Enabled = False
pembayaran.Enabled = False
End Sub
Sub
isikode()
kode.Items.Add("MED-TOK-100")
kode.Items.Add("MED-RUM-101")
kode.Items.Add("MED-SWA-102")
kode.Items.Add("MED-PAB-103")
kode.Items.Add("BEL-TOK-104")
kode.Items.Add("BEL-RUM-105")
kode.Items.Add("BEL-SWA-106")
kode.Items.Add("BEL-PAB-107")
kode.Items.Add("TEM-TOK-108")
kode.Items.Add("TEM-RUM-109")
kode.Items.Add("TEM-SWA-110")
kode.Items.Add("TEM-PAB-111")
kode.Items.Add("MAR-TOK-112")
kode.Items.Add("MAR-RUM-113")
kode.Items.Add("MAR-SWA-114")
kode.Items.Add("MAR-PAB-115")
kode.Items.Add("BIN-TOK-116")
kode.Items.Add("BIN-RUM-117")
kode.Items.Add("BIN-SWA-118")
kode.Items.Add("BIN-PAB-119")
kode.Items.Add("PAK-TOK-120")
kode.Items.Add("PAK-RUM-121")
kode.Items.Add("PAK-SWA-122")
kode.Items.Add("PAK-PAB-123")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim d As String =
Microsoft.VisualBasic.Left(kode.Text, 3)
Dim t As String =
Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
If d = "MED" Then
daerah.Text = "MEDAN"
ElseIf
d = "BEL" Then
daerah.Text = "BELAWAN"
ElseIf
d = "TEM" Then
daerah.Text = "AKSARA"
ElseIf
d = "MAR" Then
daerah.Text = "MARENDAL"
ElseIf
d = "BIN" Then
daerah.Text = "BINJAI"
ElseIf
d = "PAK" Then
daerah.Text = "LUBUK PAKAM"
End If
If t = "TOK" Then
tipe.Text = "TOKO"
biayabeban.Text = 150000
harga.Text = 500
ElseIf
t = "RUM" Then
tipe.Text = "RUMAH"
biayabeban.Text = 50000
harga.Text = 200
ElseIf
t = "SWA" Then
tipe.Text = "SWALAYAN"
biayabeban.Text = 400000
harga.Text = 1500
ElseIf
t = "PAB" Then
tipe.Text = "PABRIK"
biayabeban.Text = 1000000
harga.Text = 10000
End If
End Sub
Private Sub meterbulanlalu_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
meterbulanlalu.KeyPress
If
Asc(e.KeyChar) = 13 Then
besar.Text = meterbulanini.Text -
meterbulanlalu.Text
total.Text = biayabeban.Text +
harga.Text * besar.Text
pajak.Text = 0.015 * total.Text
pembayaran.Text = total.Text +
pajak.Text
End If
End Sub
Private Sub btnexit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnexit.Click
Me.Close()
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
Call
hapusform()
End Sub
Private Sub btnhapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnhapus1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus1.Click
If
lv.SelectedItems.Count <> 0 Then
lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("item
blum di pilih")
End If
End Sub
Private Sub btninput_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btninput.Click
Call
isitabel()
End Sub
End Class
Demikilahlah postingan saya Nama : IMAM MUNANDAR NPM : 13110067
Selamat Belajar Pemrograman VB NET