Tentang mesran.net

Pemograman Tagihan Listrik

Quiz Online
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