YUkkkkkkkk, Belajar VB 2008,
berikut untuk desainya ya ........



dan kodingnya sebagai beriikuttttttttttttt ;

Public Class Form1

    Sub buattabel()

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

        lv.Columns.Add("Nama Pelanggan", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Tipe", 80, HorizontalAlignment.Left)

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

        lv.Columns.Add("Harga Kwh", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Pemakaian Listrik", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Pajak", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Pembayaran", 180, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kp.Text

        lst.SubItems.Add(np.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(pemakaian.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(pembayaran.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub TextBox1_TxtChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged

    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

            np.Text = "Tison November Simanjuntak"

        ElseIf x = "101" Then

            np.Text = "Jonni Pardede"

        ElseIf x = "102" Then

            np.Text = "Dunnia Simanjuntak"

        ElseIf x = "103" Then

            np.Text = "Juliman Lase"

        End If

        x = Microsoft.VisualBasic.Right(kp.Text, 3)

        If x = "PAB" Then

            tipe.Text = ("Pabrik")

            Harga.Text = "10000"

            biaya.Text = "1000000"

        ElseIf x = "Tok" Then

            tipe.Text = ("Toko")

            Harga.Text = "500"

            biaya.Text = "150000"

        ElseIf x = "Rum" Then

            tipe.Text = ("Rumah")

            Harga.Text = "200"

            biaya.Text = "50000"

        ElseIf x = "Swa" Then

            tipe.Text = ("Swalayan")

            Harga.Text = 1500

            biaya.Text = 400000

        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 pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            total.Text = Harga.Text * pemakaian.Text + Val(biaya.Text)

            pajak.Text = 0.015 * total.Text

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

        End If

    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged

        End Sub

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

        isitabel()

        kp.Text = ""

        np.Text = ""

        tipe.Text = ""

        daerah.Text = ""

        Harga.Text = ""

        biaya.Text = ""

        pemakaian.Text = ""

        total.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub