[Tugas Pemrograman Visual] Penggunaan ListView Pada Aplikasi Pembayaran Air Menggunakan VB.Net

Selamat malam sahabat

Malam ini saya akan memosting aplikasi pembayaran air menggunakan visual basic 2008. Jangan khawatir, saya akan menyertakan sourcecode yang telah berhasil saya coba agar lebih memudahkan sahabat. Mari ikuti desain berikut:

Berikut coding yang harus dituliskan:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_pelanggan.Items.Add("TOK-MED-100")
        kode_pelanggan.Items.Add("PAB-BEL-101")
        kode_pelanggan.Items.Add("SWA-BEL-102")
        kode_pelanggan.Items.Add("PAB-MED-103")
        kode_pelanggan.Items.Add("RUM-MED-104")
        rancangtable()

    End Sub
    Sub rancangtable()
        With Lv
            .Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
            .Columns.Add("Nama", 100, HorizontalAlignment.Center)
            .Columns.Add("Tipe", 80, HorizontalAlignment.Center)
            .Columns.Add("Daerah", 100, HorizontalAlignment.Center)
            .Columns.Add("Harga", 100, HorizontalAlignment.Center)
            .Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
            .Columns.Add("Pemakaian Air", 100, HorizontalAlignment.Center)
            .Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
            .Columns.Add("pajak", 100, HorizontalAlignment.Center)
            .Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details
        End With
    End Sub
    Sub isitable()
        Dim i As New ListViewItem
        With i
            .Text = kode_pelanggan.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(tipe.Text)
            .SubItems.Add(daerah.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(biaya_beban.Text)
            .SubItems.Add(pemakaian_air.Text)
            .SubItems.Add(total_tagihan.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(pembayaran.Text)
            Lv.Items.Add(i)
        End With
    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kode_pelanggan.Text, 3)



        If x = "100" Then
            nama.Text = "Ahmad Salim"
        ElseIf x = "101" Then
            nama.Text = "Vina Harahap"
        ElseIf x = "102" Then
            nama.Text = "Juhailiman Simanjuntak"
        ElseIf x = "103" Then
            nama.Text = "Shafiatun Arhab"
        End If


        x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)

        If x = "PAB" Then
            harga.Text = 500
            biaya_beban.Text = 250000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            harga.Text = 500
            biaya_beban.Text = 25000
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            harga.Text = 500
            biaya_beban.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            harga.Text = 200
            biaya_beban.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub pemakaian_air_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian_air.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = harga.Text * pemakaian_air.Text + Val(biaya_beban.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub
    Sub bersih()
        kode_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga.Text = ""
        biaya_beban.Text = ""
        pemakaian_air.Text = ""
        total_tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        bersih()
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitable()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_satu.Click
        If lv.SelectedItems.Count <> 0 Then
            lv.Items.Remove(lv.SelectedItems(0))
        Else
            MsgBox("Maaf Anda Belum" & vbCr & "Memilih Yang Ingin Anda Hapus")
        End If
    End Sub

    Private Sub Hapus_lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_lv.Click
        lv.Items.Clear()
    End Sub
End Class

Kemudian tekan F5 untuk menjalankan program tersebut.

Sekian dan semoga bermanfaat sahabat.