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

selesaikan tugas berikut:kasus pemograman pemakaian listrik

berikut jawaban pemograman:

berikut koding program:
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("TOK-MED-025")
        kode.Items.Add("RUM-BEL-026")
        kode.Items.Add("SWA-TEM-027")
        kode.Items.Add("PAB-BIN-028")
        kode.Items.Add("RUM-MAR-029")

        Call buattabel()
    End Sub
    Sub buattabel()
        lv.Columns.Add("Kode", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Tipe", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Harga Per KWH", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian Bulan ini", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian Bulan Lalu", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah 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.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True

    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = kode.Text
        x.SubItems.Add(nama.Text)
        x.SubItems.Add(daerah.Text)
        x.SubItems.Add(tipe.Text)
        x.SubItems.Add(biayabeban.Text)
        x.SubItems.Add(harga.Text)
        x.SubItems.Add(meterbulanini.Text)
        x.SubItems.Add(meterbulanlalu.Text)
        x.SubItems.Add(jumlahpemakaian.Text)
        x.SubItems.Add(totaltagihan.Text)
        x.SubItems.Add(pajak.Text)
        x.SubItems.Add(pembayaran.Text)
        lv.Items.Add(x)

        kode.Text = ""
        nama.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        harga.Text = ""
        meterbulanini.Text = ""
        meterbulanlalu.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""


    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 = "NISA NURJANNAH"
        ElseIf kode.Text = "TOK-MED-025" Then
            nama.Text = "TUTI HANDAYANI"
        ElseIf kode.Text = "RUM-BEL-026" Then
            nama.Text = "IMRON"
        ElseIf kode.Text = "SWA-TEM-027" Then
            nama.Text = "SYAHRINI"
        ElseIf kode.Text = "PAB-BIN-028" Then
            nama.Text = "PRAWOTO"
        ElseIf kode.Text = "RUM-MAR-029" Then
            nama.Text = "SYAMSUDIN"
        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 Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub

    Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
        jumlahpemakaian.Text = meterbulanini.Text - meterbulanlalu.Text
        totaltagihan.Text = (Val(biayabeban.Text) + Val(harga.Text)) * jumlahpemakaian.Text
        pajak.Text = 0.015 * totaltagihan.Text
        pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call isitabel()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        kode.Text = ""
        nama.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        harga.Text = ""
        meterbulanini.Text = ""
        meterbulanlalu.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class

berikut hasil ny ketika program di jalankan:

demekian postingan saya
nama:sri muliani
npm :13110474
kelas:ti_p1311

selamat belajarpemograman VB NET