Program Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net

      Sebelum kita membuat program, anda harus mengenal dulu apa itu Vb.Net. Vb.Net merupakan aplikasi untuk membuat sebuah program, misal untuk membuat Progam Perusaan, Perkantoran, Sekolah, maupun Kepemerintahan. Jadi kali in saya kan berbagi sedikit yang saya ketahui tentang Vb.Net .

Berikut ini adalah tampilan Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net :

Listing Program :

Public Class QuiZ_PdAM
    Dim x As Byte

    Sub buattable()
        LV.Columns.Add("No", 40, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Pemakaian", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = x
        lst.SubItems.Add(kd_pelanggan.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jml_pemakaian.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(biaya_beban.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lst.SubItems.Add(total_tagihan.Text)
        LV.Items.Add(lst)

        x = 1 + x
    End Sub
    Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattable()
        x = 1
        kd_pelanggan.Items.Add("PAB-MED-100")
        kd_pelanggan.Items.Add("RUM-MED-101")
        kd_pelanggan.Items.Add("TOK-BEL-102")
        kd_pelanggan.Items.Add("SWA-MED-103")
    End Sub

    Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kd_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "UCOK"
            Case "101" : nama.Text = "JHAN F"
            Case "102" : nama.Text = "ERIN"
            Case "103" : nama.Text = "ERIN"
        End Select
        x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                biaya_beban.Text = 10000
                tipe.Text = "RUMAN"
            Case "PAB"
                harga.Text = 25000
                biaya_beban.Text = 25000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                biaya_beban.Text = 60000
                tipe.Text = "SWALAYAN"
        End Select
        x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case Else : daerah.Text = "-"
        End Select
    End Sub

    Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jml_pemakaian.KeyPress
        If jml_pemakaian.Text = "" Then
            jml_pemakaian.Focus()
        ElseIf Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_hapus.Click
        kd_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jml_pemakaian.Text = ""
        total_tagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biaya_beban.Text = ""
        pajak.Text = ""
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_keluar.Click
        Dim k As String
        k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
        If k = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isitable()
    End Sub
End Class

Demikianlah isi dari Artikel saya yang berjudul Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net  ,, Semoga bermanfaat bagi anda Semua...