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

SOAL QUIS

 Latihan Praktikum Listview Pembayaran Tagihan PDAM 

TIDAK ADA LINKNYA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("Kode", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Beban Biaya", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Pemakaian", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagiahan", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Total Pembayaran", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        KodePelanggan.Items.Add("001")
        KodePelanggan.Items.Add("002")
        KodePelanggan.Items.Add("003")
        Tipe.Items.Add("Toko")
        Tipe.Items.Add("Rumah")
        Tipe.Items.Add("Swalayan")
        Tipe.Items.Add("Pabrik")
    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 = "Jhoni"
            Case "002" : Nama.Text = "Eko"
            Case "003" : Nama.Text = "dian"
            Case Else : Nama.Text = ""
        End Select
        If KodePelanggan.Text = "001" Then
            Nama.Text = "Jhoni"
        ElseIf KodePelanggan.Text = "002" Then
            Nama.Text = "Eko"
        ElseIf KodePelanggan.Text = "003" Then
            Nama.Text = "Dian"
        End If
    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        If Tipe.Text = "Toko" Then
            BiayaBeban.Text = "25000"
            Harga.Text = "300"
        ElseIf Tipe.Text = "Rumah" Then
            BiayaBeban.Text = "15000"
            Harga.Text = "100"
        ElseIf Tipe.Text = "Swalayan" Then
            BiayaBeban.Text = "10000"
            Harga.Text = "200"
        ElseIf Tipe.Text = "250000" Then
            Harga.Text = "500"
        End If
    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 * JumlahPemakaian.Text)
        Pajak.Text = 0.01 * TotalTagihan.Text
        Pembayaran.Text = Val(TotalTagihan.Text) + Val(Pajak.Text)
        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(Harga.Text)
        lst.SubItems.Add(JumlahPemakaian.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(TotalTagihan.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusList.Click
        KodePelanggan.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        BiayaBeban.Text = ""
        JumlahPemakaian.Text = ""
        TotalTagihan.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Harga.Text = ""

    End Sub

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

    Private Sub BtnProseslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Hapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuslist.Click
        LV.Items.Clear()
    End Sub

End Class

Demikilahlah postingan saya :

NAMA           : EWIN KARMAN NDRURU

KLS               :TI-P1404

NPM              :14110449

M.KULIAH :PEMOGRAMAN VISUAL

N.DOSEN     :MESRAN,M.KOM

Selamat Belajar Pemrograman VB NET