Judul Soal : Kasus Pemrograman Pemakaian Listrik
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
kode.Items.Add("PAB-MED-100")
kode.Items.Add("TOK-BEL-101")
kode.Items.Add("SWA-TEM-102")
kode.Items.Add("RUM-MAR-103")
kode.Items.Add("PAB-BIN-104")
kode.Items.Add("PAB-PAK-105")
Call
BUAT_TABLE()
End Sub
Sub
BUAT_TABLE()
Lv.GridLines = True
Lv.View = View.Details
Lv.FullRowSelect = True
Lv.Columns.Add("Kode
pelanggan")
Lv.Columns.Add("daerah")
Lv.Columns.Add("tipe")
Lv.Columns.Add("Biaya
beban")
Lv.Columns.Add("Harga
Kwh")
Lv.Columns.Add("Meter
Bulan Ini")
Lv.Columns.Add("Meter
Bulan lalu")
Lv.Columns.Add("Besar
Pemakaian")
Lv.Columns.Add("Total
Tagihan")
Lv.Columns.Add("pajak")
Lv.Columns.Add("Pembayaran")
End Sub
Private Sub no_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
x =
Microsoft.VisualBasic.Left(kode.Text, 3)
Select Case x
Case
"TOK" : Tipe.Text = "TOKO"
hargaKWH.Text = "500"
Bbiaya.Text = "150000"
Case
"RUM" : Tipe.Text = "RUMAH"
hargaKWH.Text = "200"
Bbiaya.Text = "50000"
Case
"SWA" : Tipe.Text = "SWALAYAN"
hargaKWH.Text = "1500"
Bbiaya.Text = "400000"
Case
"PAB" : Tipe.Text = "PABRIK"
hargaKWH.Text = "10000"
Bbiaya.Text = "1000000"
End Select
x
= Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
If x = "MED" Then
daerah.Text = "MEDAN"
ElseIf
x = "BEL" Then
daerah.Text = "BELAWAN"
ElseIf
x = "TEM" Then
daerah.Text = "AKSARA"
ElseIf
x = "MAR" Then
daerah.Text = "MARENDAL"
ElseIf
x = "BIN" Then
daerah.Text = "BINJAI"
Else
daerah.Text = "LUBUK PAKAM"
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim lst
As New
ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(Bbiaya.Text)
lst.SubItems.Add(hargaKWH.Text)
lst.SubItems.Add(MbulanI.Text)
lst.SubItems.Add(MbulanL.Text)
lst.SubItems.Add(Bpemakaian.Text)
lst.SubItems.Add(Total.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(pembayaran.Text)
lv.Items.Add(lst)
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
lv.Items.Clear()
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Bpemakaian_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Bpemakaian.KeyPress
If
Asc(e.KeyChar) = 13 Then
Total.Text = Val(Bbiaya.Text) +
Val(hargaKWH.Text) * Bpemakaian.Text
pajak.Text = 0.015 * Total.Text
pembayaran.Text = Val(pajak.Text) +
Val(Total.Text)
End If
End Sub
Private Sub MbulanL_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MbulanL.TextChanged
Bpemakaian.Text = Val(MbulanI.Text) -
Val(MbulanL.Text)
End Sub
End Class
Berikut Gambar Tampilan Hasil Program :
Demikianlah Postingan saya Nama : TONI SARTANA SIANTURI NPM
: 13110508
Selamat Belajar
Pemrograman VB NET
