cara penyelesaian nya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Green
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 = 2000000
Case "102"
nm.Text = "widia"
Nu.Text = 102
mb.Text = 60000
ms.Text = 80000
Case "103"
nm.Text = "mia"
Nu.Text = 103
mb.Text = 30000
ms.Text = 90000
Case "104"
nm.Text = "aldy"
Nu.Text = 104
mb.Text = 600000
ms.Text = 400000
Case "105"
nm.Text = "naima"
Nu.Text = 105
mb.Text = 200000
ms.Text = 300000
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 berikut Ini adalah Hasil nya :
demikianlah hasil pemograman vb.net tagihan listrik
Nama : Widia Asnita
Npm : 12110431
Kelas : TI.P-1205
Tidak ada komentar:
Posting Komentar