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

Selesaikanlah Kasus Berikut :
Pembayaran Rekening Listrik

Berikut Jawaban Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("No", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Kode", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Beban", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Pemakaian", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Harga KWH", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 150, HorizontalAlignment.Left)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        kd.Items.Add("001")
        kd.Items.Add("002")
        kd.Items.Add("003")

    End Sub

    Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
        Select Case kd.Text
            Case "001" : Jenis.Text = "RUMAH" : beban.Text = "25000" : Harga.Text = "3000" : No.Text = "1"
            Case "002" : Jenis.Text = "TOKO" : beban.Text = "50000" : Harga.Text = "5000" : No.Text = "2"
            Case "003" : Jenis.Text = "PABRIK" : beban.Text = "100000" : Harga.Text = "10000" : No.Text = "3"
            Case Else
        End Select
    End Sub


    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pembayaran.Text = Val(beban.Text) + Val(Harga.Text * pemakaian.Text)
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Dim lst As New ListViewItem
        lst.Text = No.Text
        lst.SubItems.Add(kd.Text)
        lst.SubItems.Add(Jenis.Text)
        lst.SubItems.Add(beban.Text)
        lst.SubItems.Add(pemakaian.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub btnhpuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpuslist.Click
        No.Text = ""
        kd.Text = ""
        Jenis.Text = ""
        beban.Text = ""
        pemakaian.Text = ""
        Harga.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.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