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

kasus pembayaran rekening listrik

Public Class Form1

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

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

        LV.Columns.Add("Jenis Pelanggan ", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Beban", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Left)

        LV.Columns.Add("harga KWH", 90, HorizontalAlignment.Left)

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("3")

    End Sub

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

        Select Case kode.Text

            Case "1"

                JPelanggan.Text = "rumah"

                Beban.Text = 25000

                KWH.Text = 3000

            Case "2"

                JPelanggan.Text = "TOKO"

                Beban.Text = 50000

                KWH.Text = 5000

            Case "3"

                JPelanggan.Text = "PABRIK"

                Beban.Text = 100000

                KWH.Text = 10000

        End Select

    End Sub

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

        Pembayaran.Text = Val(Beban.Text) + Val(KWH.Text) * Val(Pemakaian.Text)

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(JPelanggan.Text)

        lst.SubItems.Add(Beban.Text)

        lst.SubItems.Add(Pemakaian.Text)

        lst.SubItems.Add(KWH.Text)

        lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub HapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusList.Click

        LV.Items.Clear()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click

        kode.Text = ""

        JPelanggan.Text = ""

        Beban.Text = ""

        Pemakaian.Text = ""

        Pemakaian.Text = ""

        KWH.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Demikilahlah postingan saya  

Nama : irwansyah putra sinaga

 NPM : 14110869

Selamat Belajar Pemrograman VB NET