program pemakaian Listrik

desain sebelum_Nya :

listing program =====

Public Class Form1

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

        RancangTabel()

        kode.Items.Add("0001")

        kode.Items.Add("0002")

        kode.Items.Add("0003")

        kode.Items.Add("0004")

    End Sub

    Sub RancangTabel()

        With LV

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

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

            .Columns.Add("ALamat", 140, HorizontalAlignment.Center)

            .Columns.Add("Telp", 100, HorizontalAlignment.Center)

            .Columns.Add("Harga KWatt", 100, HorizontalAlignment.Center)

            .Columns.Add("Pemakaaian", 80, HorizontalAlignment.Center)

            .Columns.Add("Total Bayar", 100, HorizontalAlignment.Center)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

    End Sub

    Sub masukTabel()

        Dim polinus As New ListViewItem

        With polinus

            .Text = kode.Text

            .SubItems.Add(nama.Text)

            .SubItems.Add(alamat.Text)

            .SubItems.Add(telp.Text)

            .SubItems.Add(Harga.Text)

            .SubItems.Add(banyak.Text)

            .SubItems.Add(total.Text)

            LV.Items.Add(polinus)

        End With

    End Sub

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

        If kode.Text = "0001" Then

            nama.Text = "Prof. POLINUS LAIA, S.Kom"

            alamat.Text = "Jl. SM. Raja Gang DAME No. 3"

            telp.Text = "0813 9622 9549"

        ElseIf kode.Text = "0002" Then

            nama.Text = "RIker"

            alamat.Text = "Jalan Mawar "

            telp.Text = "56435325423"

        ElseIf kode.Text = "0003" Then

            nama.Text = "Difan"

            alamat.Text = "Jalan Ke Nereka"

            telp.Text = "42342354354"

        Else

            nama.Text = "Dika"

            alamat.Text = "Jl. Ke Surga"

            telp.Text = "534534645"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total.Text = Harga.Text * banyak.Text

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        masukTabel()

    End Sub

    Private Sub alamat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat.TextChanged

    End Sub

    Private Sub hapus_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_1.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        LV.Items.Clear()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        kode.Text = ""

        nama.Text = ""

        telp.Text = ""

        alamat.Text = ""

        total.Text = ""

        Harga.Text = ""

        banyak.Text = ""

    End Sub

End Class

hasil jadinya ======