Selesaikanlah Kasus Berikut ini : Kasus Pemrograman Pemakaian Listrik
Berikut jawabannya terlihat seperti dibawah ini :
Public Class form2
Sub rancangtabel()
With ListView1
.Columns.Add("Kode Pelanggan", 50)
.Columns.Add("Daerah Pelanggan", 200)
.Columns.Add("Nama Daerah", 50)
.Columns.Add("Tipe", 100)
.Columns.Add("Nama Tipe", 200)
.Columns.Add("Biaya", 100)
.Columns.Add("Harga/KWH", 100)
.Columns.Add("Pajak", 200)
.Columns.Add("Total Tagihan", 100)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim x As New ListViewItem
With x
.Text = (kode.Text)
.SubItems.Add(dp.Text)
.SubItems.Add(nama_D.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(nama_tipe.Text)
.SubItems.Add(biaya.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(t_tagihan.Text)
End With
ListView1.Items.Add(x)
End Sub
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TOK-MED-100")
kode.Items.Add("RUM-MED-100")
kode.Items.Add("SWA-MED-100")
kode.Items.Add("PAB-MED-100")
kode.Items.Add("TOK-BEL-101")
kode.Items.Add("RUM-BEL-101")
kode.Items.Add("SWA-BEL-101")
kode.Items.Add("PAB-BEL-101")
kode.Items.Add("TOK-TEM-102")
kode.Items.Add("RUM-TEM-102")
kode.Items.Add("SWA-TEM-102")
kode.Items.Add("PAB-TEM-102")
kode.Items.Add("TOK-MAR-103")
kode.Items.Add("RUM-MAR-103")
kode.Items.Add("SWA-MAR-103")
kode.Items.Add("PAB-MAR-103")
kode.Items.Add("TOK-BIN-1004")
kode.Items.Add("RUM-BIN-1004")
kode.Items.Add("SWA-BIN-1004")
kode.Items.Add("PAB-BIN-1004")
kode.Items.Add("TOK-PAK-105")
kode.Items.Add("RUM-PAK-105")
kode.Items.Add("SWA-PAK-105")
kode.Items.Add("PAB-PAK-105")
tipe.Items.Add("TOK")
tipe.Items.Add("RUM")
tipe.Items.Add("SWA")
tipe.Items.Add("PAB")
rancangtabel()
isitabel()
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOK" Then
nama_tipe.Text = "TOKO"
kwh.Text = 500
biaya.Text = 150000
ElseIf tipe.Text = "RUM" Then
nama_tipe.Text = "RUMAH"
kwh.Text = 200
biaya.Text = 50000
ElseIf tipe.Text = "SWA" Then
nama_tipe.Text = "SWALAYAN"
kwh.Text = 1500
biaya.Text = 400000
Else
nama_tipe.Text = "PABRIK"
kwh.Text = 10000
biaya.Text = 1000000
End If
t_tagihan.Text = Val(biaya.Text) + Val(kwh.Text)
pajak.Text = 0.015 * t_tagihan.Text
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
pembayaran.Text = Val(t_tagihan.Text) + Val(pajak.Text)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitabel()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Close()
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = "TOK-MED-100" Then
dp.Text = "MED"
nama_D.Text = "MEDAN"
ElseIf kode.Text = "RUM-MED-100" Then
dp.Text = "MED"
nama_D.Text = "MEDAN"
ElseIf kode.Text = "SWA-MED-100" Then
dp.Text = "MED"
nama_D.Text = "MEDAN"
ElseIf kode.Text = "PAB-MED-100" Then
dp.Text = "MED"
nama_D.Text = "MEDAN"
ElseIf kode.Text = "TOK-BEL-101" Then
dp.Text = "BEL"
nama_D.Text = "BELAWAN"
ElseIf kode.Text = "RUM-BEL-101" Then
dp.Text = "BEL"
nama_D.Text = "BELAWAN"
ElseIf kode.Text = "SWA-BEL-101" Then
dp.Text = "BEL"
nama_D.Text = "BELAWAN"
ElseIf kode.Text = "PAB-BEL-101" Then
dp.Text = "BEL"
nama_D.Text = "BELAWAN"
ElseIf kode.Text = "TOK-TEM-102" Then
dp.Text = "TEM"
nama_D.Text = "AKSARA"
ElseIf kode.Text = "RUM-TEM-102" Then
dp.Text = "TEM"
nama_D.Text = "AKSARA"
ElseIf kode.Text = "SWA-TEM-102" Then
dp.Text = "TEM"
nama_D.Text = "AKSARA"
ElseIf kode.Text = "PABRIK-TEM-102" Then
dp.Text = "TEM"
nama_D.Text = "AKSARA"
ElseIf kode.Text = "TOK-MAR-103" Then
dp.Text = "MAR"
nama_D.Text = "MARENDAL"
ElseIf kode.Text = "RUM-MAR-103" Then
dp.Text = "MAR"
nama_D.Text = "MARENDAL"
ElseIf kode.Text = "SWA-MAR-103" Then
dp.Text = "MAR"
nama_D.Text = "MARENDAL"
ElseIf kode.Text = "PAB-MAR-103" Then
dp.Text = "MAR"
nama_D.Text = "MARENDAL"
ElseIf kode.Text = "TOK-BIN-104" Then
dp.Text = "BIN"
nama_D.Text = "BINJAI"
ElseIf kode.Text = "RUM-BIN-104" Then
dp.Text = "BIN"
nama_D.Text = "BINJAI"
ElseIf kode.Text = "SWA-BIN-104" Then
dp.Text = "BIN"
nama_D.Text = "BINJAI"
ElseIf kode.Text = "PAB-BIN-104" Then
dp.Text = "BIN"
nama_D.Text = "BINJAI"
ElseIf kode.Text = "TOK-PAK-105" Then
dp.Text = "PAK"
nama_D.Text = "LUBUK PAKAM"
ElseIf kode.Text = "RUM-PAK-105" Then
dp.Text = "PAK"
nama_D.Text = "LUBUK PAKAM"
ElseIf kode.Text = "SWA-PAK-105" Then
dp.Text = "PAK"
nama_D.Text = "LUBUK PAKAM"
Else
dp.Text = "PAK"
nama_D.Text = "lUBUK PAKAM"
End If
End Sub
Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
kode.Text = ""
dp.Text = ""
nama_D.Text = ""
tipe.Text = ""
nama_tipe.Text = ""
biaya.Text = ""
kwh.Text = ""
pajak.Text = ""
t_tagihan.Text = ""
pembayaran.Text = ""
End Sub
Private Sub btnh_listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnh_listview.Click
ListView1.Items.Clear()
End Sub
End Class
Hasil Program
NPM : 1111564
Selamat Belajar Pemrograman VB Net
