berikut ini adalah designya :
Dan Berikut ini adalah Cara Penyelesaiannya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Blue
kp.Items.Add("TOK-MED-100")
kp.Items.Add("RUM-BEL-101")
kp.Items.Add("SWA-TEM-102")
kp.Items.Add("PUB-MAR-103")
kp.Items.Add("TOK-BIN-104")
kp.Items.Add("SWA-PAK-105")
Call buattabel()
End Sub
Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(kp.Text, 3)
Select Case x
Case "100"
nm.Text = "vermina "
Nu.Text = "100"
mb.Text = 70000
ms.Text = 200000
Case "101"
nm.Text = "lia"
Nu.Text = 101
mb.Text = 50000
ms.Text = 200000
Case "102"
nm.Text = "widia"
Nu.Text = 102
mb.Text = 60000
ms.Text = 90000
Case "103"
nm.Text = "mia"
Nu.Text = 103
mb.Text = 30000
ms.Text = 50000
Case "104"
nm.Text = "aldy"
Nu.Text = 104
mb.Text = 600000
ms.Text = 300000
Case "105"
nm.Text = "naima"
Nu.Text = 105
mb.Text = 200000
ms.Text = 200000
End Select
x = Microsoft.VisualBasic.Left(kp.Text, 3)
Select x
Case "TOK"
hp.Text = 500
bb.Text = 150000
tp.Text = "TOKO"
Case "RUM"
hp.Text = 200
bb.Text = 50000
tp.Text = "RUMAH"
Case "SWA"
hp.Text = 1500
bb.Text = 400000
tp.Text = "SWALAYAN"
Case "PAB"
hp.Text = 500
bb.Text = 150000
tp.Text = "PABRIK"
End Select
x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
Select Case x
Case "MED"
daerah.Text = "MEDAN"
Case "BEL"
daerah.Text = "Belawan"
Case "TEM"
daerah.Text = "Aksara"
Case "MAR"
daerah.Text = "Marendal"
Case "BIN"
daerah.Text = "Binjai"
Case "PAK"
daerah.Text = "Lubuk Pakam"
Case Else
daerah.Text = "_"
End Select
End Sub
Sub buattabel()
Lv.Columns.Add("kp", 50, HorizontalAlignment.Left)
Lv.Columns.Add("Nu", 50, HorizontalAlignment.Left)
Lv.Columns.Add("daerah", 50, HorizontalAlignment.Left)
Lv.Columns.Add("nm", 50, HorizontalAlignment.Left)
Lv.Columns.Add("tp", 50, HorizontalAlignment.Left)
Lv.Columns.Add("tt", 50, HorizontalAlignment.Left)
Lv.Columns.Add("ms", 50, HorizontalAlignment.Left)
Lv.Columns.Add("mb", 50, HorizontalAlignment.Left)
Lv.Columns.Add("pj", 50, HorizontalAlignment.Left)
Lv.Columns.Add("tt", 50, HorizontalAlignment.Left)
Lv.Columns.Add("pb", 50, HorizontalAlignment.Left)
Lv.Columns.Add("hp", 50, HorizontalAlignment.Left)
Lv.Columns.Add("jp", 50, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim ist As New ListViewItem
ist.Text = kp.Text
ist.SubItems.Add(Nu.Text)
ist.SubItems.Add(daerah.Text)
ist.SubItems.Add(nm.Text)
ist.SubItems.Add(tp.Text)
ist.SubItems.Add(tt.Text)
ist.SubItems.Add(ms.Text)
ist.SubItems.Add(mb.Text)
ist.SubItems.Add(pj.Text)
ist.SubItems.Add(tt.Text)
ist.SubItems.Add(pb.Text)
ist.SubItems.Add(hp.Text)
ist.SubItems.Add(jp.Text)
Lv.Items.Add(ist)
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
kp.Text = ""
Nu.Text = ""
daerah.Text = ""
nm.Text = ""
tp.Text = ""
tt.Text = ""
ms.Text = ""
mb.Text = ""
pj.Text = ""
tt.Text = ""
pb.Text = ""
hp.Text = ""
jp.Text = ""
bpemakaian.Text = ""
bb.Text = ""
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
jp.Text = Val(ms.Text) - Val(mb.Text)
tt.Text = Val(bb.Text) + Val(hp.Text) * Val(bpemakaian.Text)
pj.Text = 0.015 * Val(tt.Text)
pb.Text = Val(tt.Text) + Val(pj.Text)
bpemakaian.Text = Val(ms.Text) - Val(mb.Text)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
End Class
Dan ini Adalah Hasil Dari Cara Diatas :
Demikianlah hasil Dari pemograman VB.Net Tagihan Listrik.
Nama : Vermina Marbun
Npm : 12110461
Kelas : TI.P-1205
Tidak ada komentar:
Posting Komentar