Tutorial Membuat Sistem Informasi Tagihan Pemakaian Listrik
Contoh 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
Call
buattabel()
kode.Items.Add("PAB-BEL-100")
kode.Items.Add("PAB-BIN-100")
kode.Items.Add("PAB-MAR-100")
kode.Items.Add("PAB-MED-100")
kode.Items.Add("PAB-PAK-100")
kode.Items.Add("PAB-TEM-100")
kode.Items.Add("RUM-BEL-100")
kode.Items.Add("RUM-BIN-100")
kode.Items.Add("RUM-MAR-100")
kode.Items.Add("RUM-MED-100")
kode.Items.Add("RUM-PAK-100")
kode.Items.Add("RUM-TEM-100")
kode.Items.Add("SWA-BEL-100")
kode.Items.Add("SWA-BIN-100")
kode.Items.Add("SWA-MAR-100")
kode.Items.Add("SWA-MED-100")
kode.Items.Add("SWA-PAK-100")
kode.Items.Add("SWA-TEM-100")
kode.Items.Add("TOK-BEL-100")
kode.Items.Add("TOK-BIN-100")
kode.Items.Add("TOK-MAR-100")
kode.Items.Add("TOK-MED-100")
kode.Items.Add("TOK-PAK-100")
kode.Items.Add("TOK-TEM-100")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
x = Mid(kode.Text, 1, 3)
Select Case x
Case
"TOK"
type.Text = "TOKO"
beban.Text = 150000
harga.Text = 500
Case
"RUM"
type.Text = "RUMAH"
beban.Text = 50000
harga.Text = 200
Case
"SWA"
type.Text = "SWALAYAN"
beban.Text = 400000
harga.Text = 1500
Case
"PAB"
type.Text = "PABRIK"
beban.Text = 1000000
harga.Text = 10000
End Select
x = Mid(kode.Text, 5, 3)
Select Case x
Case
"BEL" : daerah.Text = "BELAWAN"
Case
"BIN" : daerah.Text = "BINJAI"
Case
"MED" : daerah.Text = "MEDAN"
Case
"MAR" : daerah.Text = "MARENDAL"
Case
"PAK" : daerah.Text = "LUBUK PAKKAM"
Case
"TEM" : daerah.Text = "AKSARA"
End Select
If
kode.Text = "PAB-BEL-100" Then
nama.Text = "Pabrik Kelapa Sawit"
ElseIf
kode.Text = "PAB-BIN-100" Then
nama.Text = "Pabrik Sepatu"
ElseIf
kode.Text = "PAB-MAR-100" Then
nama.Text = "Pabrik Indomie"
ElseIf
kode.Text = "PAB-MED-100" Then
nama.Text = "Pabrik Plastik"
ElseIf
kode.Text = "PAB-PAK-100" Then
nama.Text = "Pabrik Kertas"
ElseIf
kode.Text = "PAB-TEM-100" Then
nama.Text = "Pabrik Sarung Tangan"
ElseIf
kode.Text = "RUM-BEL-100" Then
nama.Text = "Nasib Marbun S.KOM, M.KOM"
ElseIf
kode.Text = "RUM-BIN-100" Then
nama.Text = "MESRAN S.KOM, M.KOM"
ElseIf
kode.Text = "RUM-MAR-100" Then
nama.Text = "Azannudin S.KOM, M.KOM"
ElseIf
kode.Text = "RUM-MED-100" Then
nama.Text = "Rikki Viana"
ElseIf
kode.Text = "RUM-PAK-100" Then
nama.Text = "HAZMI"
ElseIf
kode.Text = "RUM-TEM-100" Then
nama.Text = "Joko Purwanto"
ElseIf
kode.Text = "SWA-BEL-100" Then
nama.Text = "Ramayana"
ElseIf
kode.Text = "SWA-BIN-100" Then
nama.Text = "Indomaret"
ElseIf
kode.Text = "SWA-MAR-100" Then
nama.Text = "Alfamart"
ElseIf
kode.Text = "SWA-MED-100" Then
nama.Text = "Expo"
ElseIf
kode.Text = "SWA-PAK-100" Then
nama.Text = "Ramayana"
ElseIf
kode.Text = "SWA-TEM-100" Then
nama.Text = "Ramayana"
ElseIf
kode.Text = "TOK-BEL-100" Then
nama.Text = "CV. Form Nasib Marbun"
ElseIf
kode.Text = "TOK-BIN-100" Then
nama.Text = "HM KOMPUTER"
ElseIf
kode.Text = "TOK-MAR-100" Then
nama.Text = "flash Astra"
ElseIf
kode.Text = "TOK-MED-100" Then
nama.Text = "PUPUK OREA"
ElseIf
kode.Text = "TOK-PAK-100" Then
nama.Text = "Tria Komputer"
ElseIf
kode.Text = "TOK-TEM-100" Then
nama.Text = "AV Elektronik"
End If
End Sub
Private Sub Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Proses.Click
tota.Text = Val(harga.Text +
beban.Text) * pemakaian.Text
pajak.Text = 0.015 * tota.Text
pembayaran.Text = tota.Text +
Val(pajak.Text)
End Sub
Private Sub Hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus.Click
kode.Text = ""
nama.Text = ""
type.Text = ""
daerah.Text = ""
beban.Text = ""
harga.Text = ""
pemakaian.Text = ""
tota.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
Sub
buattabel()
lv.Columns.Add("Kode",
80, HorizontalAlignment.Center)
lv.Columns.Add("Nama",
150, HorizontalAlignment.Center)
lv.Columns.Add("Type",
150, HorizontalAlignment.Center)
lv.Columns.Add("Daerah",
150, HorizontalAlignment.Center)
lv.Columns.Add("Biaya
Beban", 150, HorizontalAlignment.Center)
lv.Columns.Add("Harga/KWH",
150, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian",
150, HorizontalAlignment.Center)
lv.Columns.Add("Total
Tagihan", 150, HorizontalAlignment.Center)
lv.Columns.Add("Pajak",
150, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran",
150, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitable()
Dim lst
As New
ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(type.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(beban.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(pemakaian.Text)
lst.SubItems.Add(tota.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(pembayaran.Text)
lv.Items.Add(lst)
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
Call
isitable()
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 Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Tampilan Hasil Program :
Demikilahlah postingan saya
Nama : Nasib Marbun
NPM : 13110126
Selamat Belajar Pemrograman VB NET .
