Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Kasus Pemrograman Pemakaian Listrik

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode.Items.Add("PAB-PAK-100")

        kode.Items.Add("PAB-BEL-101")

        kode.Items.Add("RUM-BEL-102")

        kode.Items.Add("SWA-MED-103")

        Call buattabel()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Tipe", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Biaya Beban", 150, HorizontalAlignment.Center)

        LV.Columns.Add("Harga KWH", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(bibe.Text)

        lst.SubItems.Add(hrga.Text)

        lst.SubItems.Add(pmkaian.Text)

        lst.SubItems.Add(totag.Text)

        lst.SubItems.Add(pjk.Text)

        lst.SubItems.Add(pbyaran.Text)

        LV.Items.Add(lst)

    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"

                tipe.Text = "Toko"

                bibe.Text = 150000

                hrga.Text = 500

                nama.Text = "Githa"

            Case "RUM"

                tipe.Text = "Rumah"

                bibe.Text = 50000

                hrga.Text = 200

                nama.Text = "Eli"

            Case "SWA"

                tipe.Text = "Swalayan"

                bibe.Text = 40000

                hrga.Text = 1500

                nama.Text = "Inun"

            Case "PAB"

                tipe.Text = "Pabrik"

                bibe.Text = 1000000

                hrga.Text = 10000

                nama.Text = "Ayu"

        End Select

        x = Mid(kode.Text, 5, 3)

        Select Case x

            Case "MED" : daerah.Text = "Medan"

            Case "BEL" : daerah.Text = "Belawan"

            Case "PAK" : daerah.Text = "Patumbak"

            Case "MAR" : daerah.Text = "Marendal"

            Case "BIN" : daerah.Text = "Binjai"

            Case "BEL" : daerah.Text = "Belawan"

        End Select

    End Sub

    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisi.Click

        Call isitabel()

        kode.Text = ""

        nama.Text = ""

        tipe.Text = ""

        daerah.Text = ""

        bibe.Text = ""

        hrga.Text = ""

        pmkaian.Text = ""

        totag.Text = ""

        pjk.Text = ""

        pbyaran.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisi.Click

        totag.Text = bibe.Text + hrga.Text * pmkaian.Text

        pjk.Text = 0.015 * totag.Text

        pbyaran.Text = Val(totag.Text) + Val(pjk.Text)

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        totag.Text = (hrga.Text * pmkaian.Text) + bibe.Text

        pjk.Text = 0.01 * totag.Text

        pbyaran.Text = Val(totag.Text) + Val(pjk.Text)

    End Sub

End Class