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

Selesaikanlah Kasus Berikut :

Kasus Pemrograman Pemakaian Listri
Berikut Jawaban Program :

Public Class Form1

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

        Call isikode()

        Call enable()

        Call desaintabel()

    End Sub

    Sub hapusform()

        kode.Text = ""

        nama.Text = ""

        daerah.Text = ""

        tipe.Text = ""

        meterbulanini.Text = ""

        meterbulanlalu.Text = ""

        biayabeban.Text = ""

        harga.Text = ""

        besar.Text = ""

        total.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub

    Sub desaintabel()

        lv.Columns.Add("KODE", 120, HorizontalAlignment.Center)

        lv.Columns.Add("NAMA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("DAERAH", 120, HorizontalAlignment.Center)

        lv.Columns.Add("TIPE", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BULAN INI", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BULAN LALU", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BIAYA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("HARGA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BESAR PAKAI", 120, HorizontalAlignment.Center)

        lv.Columns.Add("TOTAL", 120, HorizontalAlignment.Center)

        lv.Columns.Add("PAJAK", 120, HorizontalAlignment.Center)

        lv.Columns.Add("PEMBAYARAN", 120, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = tipe.Text

        x.SubItems.Add(nama.Text)

        x.SubItems.Add(daerah.Text)

        x.SubItems.Add(tipe.Text)

        x.SubItems.Add(meterbulanini.Text)

        x.SubItems.Add(meterbulanlalu.Text)

        x.SubItems.Add(biayabeban.Text)

        x.SubItems.Add(harga.Text)

        x.SubItems.Add(besar.Text)

        x.SubItems.Add(total.Text)

        x.SubItems.Add(pajak.Text)

        x.SubItems.Add(pembayaran.Text)

        lv.Items.Add(x)

        Call hapusform()

    End Sub

    Sub enable()

        daerah.Enabled = False

        tipe.Enabled = False

        biayabeban.Enabled = False

        harga.Enabled = False

        total.Enabled = False

        pajak.Enabled = False

        besar.Enabled = False

        pembayaran.Enabled = False

    End Sub

    Sub isikode()

        kode.Items.Add("MED-TOK-100")

        kode.Items.Add("MED-RUM-101")

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

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

        kode.Items.Add("BEL-TOK-104")

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

        kode.Items.Add("BEL-SWA-106")

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

        kode.Items.Add("TEM-TOK-108")

        kode.Items.Add("TEM-RUM-109")

        kode.Items.Add("TEM-SWA-110")

        kode.Items.Add("TEM-PAB-111")

        kode.Items.Add("MAR-TOK-112")

        kode.Items.Add("MAR-RUM-113")

        kode.Items.Add("MAR-SWA-114")

        kode.Items.Add("MAR-PAB-115")

        kode.Items.Add("BIN-TOK-116")

        kode.Items.Add("BIN-RUM-117")

        kode.Items.Add("BIN-SWA-118")

        kode.Items.Add("BIN-PAB-119")

        kode.Items.Add("PAK-TOK-120")

        kode.Items.Add("PAK-RUM-121")

        kode.Items.Add("PAK-SWA-122")

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

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim d As String = Microsoft.VisualBasic.Left(kode.Text, 3)

        Dim t As String = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If d = "MED" Then

            daerah.Text = "MEDAN"

        ElseIf d = "BEL" Then

            daerah.Text = "BELAWAN"

        ElseIf d = "TEM" Then

            daerah.Text = "AKSARA"

        ElseIf d = "MAR" Then

            daerah.Text = "MARENDAL"

        ElseIf d = "BIN" Then

            daerah.Text = "BINJAI"

        ElseIf d = "PAK" Then

            daerah.Text = "LUBUK PAKAM"

        End If

        If t = "TOK" Then

            tipe.Text = "TOKO"

            biayabeban.Text = 150000

            harga.Text = 500

        ElseIf t = "RUM" Then

            tipe.Text = "RUMAH"

            biayabeban.Text = 50000

            harga.Text = 200

        ElseIf t = "SWA" Then

            tipe.Text = "SWALAYAN"

            biayabeban.Text = 400000

            harga.Text = 1500

        ElseIf t = "PAB" Then

            tipe.Text = "PABRIK"

            biayabeban.Text = 1000000

            harga.Text = 10000

        End If

    End Sub

    Private Sub meterbulanlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles meterbulanlalu.KeyPress

        If Asc(e.KeyChar) = 13 Then

            besar.Text = meterbulanini.Text - meterbulanlalu.Text

            total.Text = biayabeban.Text + harga.Text * besar.Text

            pajak.Text = 0.015 * total.Text

            pembayaran.Text = total.Text + pajak.Text

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Call hapusform()

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click

        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))

        Else

            MsgBox("item blum di pilih")

        End If

    End Sub

    Private Sub btninput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput.Click

        Call isitabel()

    End Sub

End Class

Demikilahlah postingan saya  Nama : IMAM MUNANDAR  NPM : 13110067
Selamat Belajar Pemrograman VB NET