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

Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listrik
Berikut Jawaban Program:

berikut koding dari program di atas:
Public Class Form3

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("PAB-PAK-100")
        Kode.Items.Add("PAB-MED-103")
        Kode.Items.Add("SWA-BEL-102")
        Kode.Items.Add("RUM-TEM-101")
        Kode.Items.Add("TOK-MAR-109")
        Kode.Items.Add("TOK-BIN-107")

        Call rancang_tabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "PAB-PAK-100" Then
            nama.Text = "HERA TRI RIZKI"
        ElseIf Kode.Text = "PAB-MED-103" Then
            nama.Text = "IRWANSYAH "
        ElseIf Kode.Text = "SWA-BEL-102" Then
            nama.Text = "TOMMY ANDIRO"
        ElseIf Kode.Text = "RUM-TEM-101" Then
            nama.Text = "ILMI ALVINA"
        ElseIf Kode.Text = "TOK-MAR-109" Then
            nama.Text = "NUR IKHWAN"
        ElseIf Kode.Text = "TOK-BIN-107" Then
            nama.Text = "AFSAH RIZKI"
        End If

        Dim X As String
        X = Mid(Kode.Text, 1, 3)
        Select Case X
            Case "TOK"
                tipe.Text = "TOKO"
                biayabeban.Text = 150000
                harga.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                biayabeban.Text = 50000
                harga.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                biayabeban.Text = 400000
                harga.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                biayabeban.Text = 1000000
                harga.Text = 10000
        End Select

        X = Mid(Kode.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"
        End Select
    End Sub

    Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
        pemakaian.Text = bulanini.Text - bulanlalu.Text
        ttl_tagihan.Text = (Val(biayabeban.Text) + Val(harga.Text)) * pemakaian.Text
        pajak.Text = 0.015 * ttl_tagihan.Text
        pembayaran.Text = Val(ttl_tagihan.Text) + Val(pajak.Text)
    End Sub
    Sub rancang_tabel()
        LV.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per KWH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan ini", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan Lalu", 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.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub isi_tabel()
        Dim X As New ListViewItem
        X.Text = Kode.Text
        X.SubItems.Add(nama.Text)
        X.SubItems.Add(tipe.Text)
        X.SubItems.Add(daerah.Text)
        X.SubItems.Add(biayabeban.Text)
        X.SubItems.Add(harga.Text)
        X.SubItems.Add(bulanini.Text)
        X.SubItems.Add(bulanlalu.Text)
        X.SubItems.Add(pemakaian.Text)
        X.SubItems.Add(ttl_tagihan.Text)
        X.SubItems.Add(pajak.Text)
        X.SubItems.Add(pembayaran.Text)

        LV.Items.Add(X)
    End Sub

    Private Sub Buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapus.Click
        Kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        harga.Text = ""
        bulanini.Text = ""
        bulanlalu.Text = ""
        pemakaian.Text = ""
        ttl_tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub Buttonsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsimpan.Click
        Call isi_tabel()
    End Sub

    Private Sub Buttonhps1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhps1.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnhpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click
        Me.Close()
    End Sub
End Class

berikut hasil dari program tersebut:

demikianlah postingan saya :
Nama:Hera tri rizki
NPM:13110402
Kelas:SIP1302
Selamat BelajarPemrograman VB NET