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

Latihan Praktikum Listview Pembayaran Tagihan PDAM

Berikut jaawaban program:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        kdPelanggan.Text = ""
        Nama.Text = ""
        tipe.Text = ""
        HargaM3.Text = ""
        BEBAN.Text = ""
        Jpemakaian.Text = ""
        Ttagihan.Text = ""
        Jpembayaran.Text = ""
        Pajak.Text = ""
        Daerah.Text = ""
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Lv.Columns.Add("KD Pelanggan", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga M3", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jmlh Pemkaian", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Jmlh Pembayaran", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("pajak", 70, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

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

        tipe.Items.Add("TOKO")
        tipe.Items.Add("RUMAH")
        tipe.Items.Add("SWALAYAN")
        tipe.Items.Add("PABRIK")
    End Sub

    Private Sub kdPelanggan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kdPelanggan.SelectedIndexChanged
        Select Case kdPelanggan.Text
            Case "001" : Nama.Text = "BUDI"
            Case "002" : Nama.Text = "DIAN"
            Case "003" : Nama.Text = "CINTA"

        End Select
    End Sub

    Private Sub tipe_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tipe.SelectedIndexChanged
        Select Case tipe.Text
            Case "TOKO"
                BEBAN.Text = 25000
                HargaM3.Text = 300
                Daerah.Text = "BELAWAN"
            Case "RUMAH"
                BEBAN.Text = 15000
                HargaM3.Text = 100
                Daerah.Text = "MEDAN"
            Case "SWALAYAN"
                BEBAN.Text = 10000
                HargaM3.Text = 200
                Daerah.Text = "MEDAN"
            Case "PABRIK"
                BEBAN.Text = 250000
                HargaM3.Text = 500
                Daerah.Text = "BELAWAN"

        End Select
    End Sub

    Private Sub Jpemakaian_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Jpemakaian.KeyPress
        If Jpemakaian.Text = "" Then
            Jpemakaian.Focus()
        ElseIf Asc(e.KeyChar) = 13 Then
            Ttagihan.Text = Val(BEBAN.Text) + (HargaM3.Text * Jpemakaian.Text)
            Pajak.Text = 0.01 * Ttagihan.Text
            Jpembayaran.Text = Val(Ttagihan.Text) * Val(Pajak.Text)
        End If
    End Sub

    Private Sub Jpemakaian_TextChanged(sender As Object, e As EventArgs) Handles Jpemakaian.TextChanged

    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        End

    End Sub

    Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
        Dim lst As New ListViewItem
        lst.Text = kdPelanggan.Text
        lst.SubItems.Add(Nama.Text)
        Lv.Items.Add(lst)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(HargaM3.Text)
        lst.SubItems.Add(BEBAN.Text)
        lst.SubItems.Add(Jpemakaian.Text)
        lst.SubItems.Add(Ttagihan.Text)
        lst.SubItems.Add(Jpembayaran.Text)
        lst.SubItems.Add(Pajak.Text)
    End Sub

    Private Sub Btnbatal_Click(sender As Object, e As EventArgs) Handles Btnbatal.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnhapuslist_Click(sender As Object, e As EventArgs) Handles Btnhapuslist.Click
        Lv.Items.Clear()
    End Sub
End Class
 

Tampilan Hasil:

 

Demikilahlah postingan saya  Nama : (AFRINDA YUNUS SIREGAR)  NPM : (14110848)
Selamat Belajar Pemrograman VB NET (MESRAN.NET)