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

Latihan Praktikum Listview Pembayaran Tagihan PDAM (Tak ada Link)

Berikut Jawaban Program :

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Pemakaian", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


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

        Tipe.Items.Add("Toko")
        Tipe.Items.Add("Rumah")
        Tipe.Items.Add("Swalayan")
        Tipe.Items.Add("Pabrik")
    End Sub

    Private Sub Kode_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case "001"
                Nama.Text = "Jhon"
            Case "002"
                Nama.Text = "Eko"
            Case " 003"
                Nama.Text = "Dian"

        End Select
    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        Select Case Tipe.Text
            Case "Toko"
                Biaya_beban.Text = " 25000"
                Harga.Text = "300"
            Case "Rumah"
                Biaya_beban.Text = " 15000"
                Harga.Text = "100"
            Case "Swalayan"
                Biaya_beban.Text = " 10000"
                Harga.Text = "200"
            Case "Pabrik"
                Biaya_beban.Text = " 25000"
                Harga.Text = "500"
            Case ""
                Biaya_beban.Text = ""
                Harga.Text = ""
        End Select
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Total_tagihan.Text = Val(Biaya_beban.Text) + Val(Harga.Text * Jumlah_pemakaian.Text)
        pajak.Text = 0.01 * Total_tagihan.Text
        Pembayaran.Text = Val(Total_tagihan.Text) + Val(pajak.Text)

        Dim lst As New ListViewItem
        lst.Text = Kode_pelanggan.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Biaya_beban.Text)
        lst.SubItems.Add(Jumlah_pemakaian.Text)
        lst.SubItems.Add(Total_tagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(Pembayaran.Text)
        lst.SubItems.Add(Harga.Text)
        LV.Items.Add(lst)


     
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()

    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        LV.Items.Clear()

    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub
End Class
======================================================================

Tampilan Hasil:

==================================================================

Demikilahlah postingan saya

Nama : Etty Diana Manurung

NPM : 14110306

Selamat Belajar Pemrograman VB NET