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

Pembayaran Tagihan PDAM

 

Public Class Form1

    Private Sub Form1_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", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Tife", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        If Kode.Text = "B-001" Then

            Nama.Text = "Devi Afnita"

        ElseIf Kode.Text = "B-002" Then

            Nama.Text = "Andika"

        Else

            Nama.Text = "Vira Ramadani"

        End If

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(Tife.Text)

        lst.SubItems.Add(Biaya_Beban.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jumlah.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress

        Total.Text = Val(Biaya_Beban.Text) + Val(Harga.Text) * Jumlah.Text

        Pajak.Text = 1 / 100 * Total.Text

        Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

    End Sub

    Private Sub Hapus_Produk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_Produk.Click

        Kode.Text = ""

        Nama.Text = ""

        Tife.Text = ""

        Biaya_Beban.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Hapus_List_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_List.Click

        LV.Items.Clear()

    End Sub

End Class

 

Tampilan Hasil 

Demikilahlah postingan saya  Nama : (DEVI AFNITA)  NPM : (15110474)
Selamat Belajar Pemrograman VB NET.

N