Pemakaian if elsedalam penyelesaian dengan menambahkan komponen LISTVIEW

Modifikasi program berikut ini pemakaian-if-else-dalam-penyelesaian dengan menambahkan komponen LISTVIEW

berikut hasilnya:

Public Class Form1

    Sub BuatTabel()

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

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

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

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

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

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

        LV.Columns.Add("Biaya Air", 80, HorizontalAlignment.Center)

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

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

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

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

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

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

        KP.Items.Add("SWA-BEL-102")

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

        KP.Items.Add("RUM-MED-104")

        BuatTabel()

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = KP.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(hargam3.Text)

        lst.SubItems.Add(pemakaian.Text)

        lst.SubItems.Add(ttagihan.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(pembayaran.Text)

        LV.Items.Add(lst)

    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)

        If x = "100" Then

            nama.Text = "Muhammad Ardianto"

        ElseIf x = "101" Then

            nama.Text = "Jekson Sinaga"

        ElseIf x = "102" Then

            nama.Text = "Triani Arista"

        ElseIf x = "103" Then

            nama.Text = "Aldyan"

        End If

        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then

            hargam3.Text = 500

            bbeban.Text = 250000

            tipe.Text = "Pabrik"

        ElseIf x = "TOK" Then

            hargam3.Text = 500

            bbeban.Text = 25000

            tipe.Text = "Toko"

        ElseIf x = "RUM" Then

            hargam3.Text = 500

            bbeban.Text = 10000

            tipe.Text = "Rumah"

        ElseIf x = "SWA" Then

            hargam3.Text = 200

            bbeban.Text = 15000

            tipe.Text = "Swalayan"

        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)

        If x = "MED" Then

            daerah.Text = "Medan"

        ElseIf x = "BEL" Then

            daerah.Text = "Belawan"

        End If

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            ttagihan.Text = Val(bbeban.Text) + (hargam3.Text * pemakaian.Text)

            pajak.Text = 0.01 * ttagihan.Text

            pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)

        End If

    End Sub

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

        KP.Text = ""

        nama.Text = ""

        tipe.Text = ""

        ttagihan.Text = ""

        hargam3.Text = ""

        pajak.Text = ""

        pemakaian.Text = ""

        daerah.Text = ""

        bbeban.Text = ""

        pembayaran.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        IsiTabel()

        KP.Text = ""

        nama.Text = ""

        tipe.Text = ""

        daerah.Text = ""

        hargam3.Text = ""

        bbeban.Text = ""

        pemakaian.Text = ""

        ttagihan.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub

End Class

  

hasil gambar :