Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
Kasus Pemrograman Pemakaian Listrik
Demikian lah Program Penyelesaian Pembayaran Pemakaian Listrik
Program Penyelesaian Pembayaran Pemakaian Listrik Menggunakan Visual Basic dot Net
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
With Kp
.Items.Add("TOK-MED-100")
.Items.Add("TOK-BEL-101")
.Items.Add("TOK-TEM-102")
.Items.Add("TOK-MAR-103")
.Items.Add("TOK-BIN-104")
.Items.Add("TOK-PAK-105")
.Items.Add("RUM-MED-200")
.Items.Add("RUM-BEL-201")
.Items.Add("RUM-TEM-202")
.Items.Add("RUM-MAR-203")
.Items.Add("RUM-BIN-204")
.Items.Add("RUM-PAK-205")
.Items.Add("SWA-MED-300")
.Items.Add("SWA-BEL-301")
.Items.Add("SWA-TEM-302")
.Items.Add("SWA-MAR-303")
.Items.Add("SWA-BIN-304")
.Items.Add("SWA-PAK-305")
.Items.Add("PAB-MED-400")
.Items.Add("PAB-BEL-401")
.Items.Add("PAB-TEM-402")
.Items.Add("PAB-MAR-403")
.Items.Add("PAB-BIN-404")
.Items.Add("PAB-PAK-405")
End With
Call
buattabel()
End Sub
Private Sub Kp_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Kp.SelectedIndexChanged
Pemakain_listrik.Focus()
Dim x As String
x = Microsoft.VisualBasic.Left(Kp.Text,
3)
If x = "TOK" Then
Harga_KWH.Text = 500
Biaya_Beban.Text = 150000
Tipe.Text = "Toko"
ElseIf
x = "RUM" Then
Harga_KWH.Text = 200
Biaya_Beban.Text = 50000
Tipe.Text = "Rumah"
ElseIf
x = "SWA" Then
Harga_KWH.Text = 1500
Biaya_Beban.Text = 400000
Tipe.Text = "Swalayan"
ElseIf
x = "PAB" Then
Harga_KWH.Text = 10000
Biaya_Beban.Text = 1000000
Tipe.Text = "Pabrik"
End If
x = Microsoft.VisualBasic.Mid(Kp.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"
ElseIf
x = "PAK" Then
Daerah.Text = "Lubuk Pakam"
End If
End Sub
Private Sub Pemakain_listrik_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakain_listrik.KeyPress
If
Asc(e.KeyChar) = 13 Then
Total_tagihan.Text =
Val(Biaya_Beban.Text) + Val(Harga_KWH.Text) * Pemakain_listrik.Text
Pajak.Text = 0.015 *
Total_tagihan.Text
Pembayaran.Text =
Val(Total_tagihan.Text) + Val(Pajak.Text)
End If
End Sub
Sub buattabel()
lv.Columns.Add("Kode",
100, HorizontalAlignment.Left)
lv.Columns.Add("Tipe",
100, HorizontalAlignment.Left)
lv.Columns.Add("Daerah",
100, HorizontalAlignment.Left)
lv.Columns.Add("Biaya
Beban", 100, HorizontalAlignment.Center)
lv.Columns.Add("Harga
KWH", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian",
100, HorizontalAlignment.Center)
lv.Columns.Add("Total
Tagihan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pajak",
100, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran",
100, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = Kp.Text
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(Biaya_Beban.Text)
lst.SubItems.Add(Harga_KWH.Text)
lst.SubItems.Add(Pemakain_listrik.Text)
lst.SubItems.Add(Total_tagihan.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(Pembayaran.Text)
lv.Items.Add(lst)
Kp.Text = ""
Tipe.Text = ""
Daerah.Text = ""
Biaya_Beban.Text = ""
Harga_KWH.Text = ""
Pemakain_listrik.Text = ""
Total_tagihan.Text = ""
Pajak.Text = ""
Pembayaran.Text = ""
End Sub
Private Sub Isi_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Isi.Click
Call
isitabel()
End Sub
Private Sub bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bersih.Click
Kp.Text = ""
Tipe.Text = ""
Daerah.Text = ""
Biaya_Beban.Text = ""
Harga_KWH.Text = ""
Pemakain_listrik.Text = ""
Total_tagihan.Text = ""
Pajak.Text = ""
Pembayaran.Text = ""
End Sub
Private Sub hapus_data_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_data.Click
lv.Items.Clear()
End Sub
Private Sub hapus_list_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_list.Click
If
lv.SelectedItems.Count = 0 Then
MsgBox("Pilih
Item Terlebih Dahulu")
Else
lv.Items.Remove(lv.SelectedItems(0))
End If
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
Dim x As String
x = MsgBox("Anda
Yakin Ingin Menutup Program Ini!!!", MsgBoxStyle.YesNo, "Pesan!")
If x =
vbYes Then
Me.Close()
End If
End Sub
End Class
Demikian lah Program Penyelesaian Pembayaran Pemakaian Listrik
Demikian Lah Postingan Saya
Nama : Apri Rozi Yanto
NPM : 13110511
Selamat Belajar Pemrograman VB NET