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

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", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("HargaKWH", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 180, HorizontalAlignment.Center)      
        LV.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)


        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"
                jenispelanggan.Text = "RUMAH"
                Beban.Text = 25000
                hargakwh.Text = 3000
            Case "2"
                jenispelanggan.Text = "TOKO"
                Beban.Text = 50000
                hargakwh.Text = 5000
            Case "3"
                jenispelanggan.Text = "PABRIK"
                Beban.Text = 100000
                hargakwh.Text = 10000

        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(hargakwh.Text) * Val(Pemakaian.Text)
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Kode.Text = ""
        jenispelanggan.Text = ""
        Beban.Text = ""
        hargakwh.Text = ""
        Pemakaian.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 btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        Dim Lst As New ListViewItem
        Lst.Text = Kode.Text
        Lst.SubItems.Add(jenispelanggan.Text)
        Lst.SubItems.Add(Beban.Text)
        Lst.SubItems.Add(hargakwh.Text)
        Lst.SubItems.Add(Pembayaran.Text)
        Lst.SubItems.Add(Pemakaian.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub btnhapuslistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslistview.Click
        LV.Items.Clear()
    End Sub
End Class


Demikilahlah postingan saya  Nama : Shinta Dwi Handayani  NPM : 14110076
Selamat Belajar Pemrograman VB NET MESRAN.NET