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

Selesaikanlah Kasus Berikut:
Latihan Praktikum Listview Pembayaran Tagihan PDAM

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("Kode", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pakai", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        KodePelanggan.Items.Add("001")
        KodePelanggan.Items.Add("002")
        KodePelanggan.Items.Add("003")
        KodePelanggan.Items.Add("004")
        KodePelanggan.Items.Add("005")

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

        BiayaBeban.ReadOnly = True
        Harga.ReadOnly = True
        TotalTagihan.ReadOnly = True
        Pajak.ReadOnly = True
        Pembayaran.ReadOnly = True
    End Sub

    Sub HapusData()
        KodePelanggan.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        BiayaBeban.Text = ""
        JumlahPakai.Text = ""
        Harga.Text = ""
        TotalTagihan.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
    End Sub

    Private Sub KodePelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodePelanggan.SelectedIndexChanged
        Select Case KodePelanggan.Text
            Case "001"
                Nama.Text = "Ani"
            Case "002"
                Nama.Text = "Dian"
            Case "003"
                Nama.Text = "Eko"
            Case "004"
                Nama.Text = "Ratna"
            Case "005"
                Nama.Text = "Zukri"
        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 "Rumah"
                BiayaBeban.Text = 10000
                Harga.Text = 100
            Case "Swalayan"
                BiayaBeban.Text = 15000
                Harga.Text = 200
            Case "Toko"
                BiayaBeban.Text = 25000
                Harga.Text = 300
            Case "Pabrik"
                BiayaBeban.Text = 250000
                Harga.Text = 500
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        TotalTagihan.Text = Val(BiayaBeban.Text) + Val(Harga.Text) * Val(JumlahPakai.Text)
        Pajak.Text = 0.01 * TotalTagihan.Text
        Pembayaran.Text = Val(TotalTagihan.Text) + Val(Pajak.Text)

        If KodePelanggan.Text = "" And Nama.Text = "" Then
            TotalTagihan.Text = ""
            Pajak.Text = ""
            Pembayaran.Text = ""
            MsgBox("_Kode Pelanggan_ masih kosong.", 48, "Perhatian")
            LV.Items.Clear()

        ElseIf Tipe.Text = "" Then
            TotalTagihan.Text = ""
            Pajak.Text = ""
            Pembayaran.Text = ""
            MsgBox("_Tipe_ masih kosong.", 48, "Perhatian")
            LV.Items.Clear()

        ElseIf JumlahPakai.Text = "" Then
            TotalTagihan.Text = ""
            Pajak.Text = ""
            Pembayaran.Text = ""
            MsgBox("_Biaya Beban_ masih kosong.", 48, "Perhatian")
            LV.Items.Clear()
        End If
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        Dim lst As New ListViewItem
        lst.Text = KodePelanggan.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(BiayaBeban.Text)
        lst.SubItems.Add(JumlahPakai.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(TotalTagihan.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(Pembayaran.Text)
        LV.Items.Add(lst)

        HapusData()
    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        HapusData()
    End Sub

    Private Sub BtnHapusDataPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataPilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    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 BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        If MsgBox("Anda yakin mau keluar?", 32 + 4, "Konfirmasi") = 6 Then
            End
        End If
    End Sub

    Private Sub JumlahPakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahPakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            BtnProses_Click(sender, e)
        End If

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
            Beep()
            e.Handled() = True
        End If
    End Sub
End Class

Demikilahlah postingan saya Nama: Ardiansyah Reza Saragih || NPM: 14110091
Selamat Belajar Pemrograman VB NET.

Tweet