QUIS ONLINE

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel()

        Kode_pelanggan.Items.Add("MED")
        Kode_pelanggan.Items.Add("BEL")
        Kode_pelanggan.Items.Add("TEM")
        Kode_pelanggan.Items.Add("MAR")
        Kode_pelanggan.Items.Add("BIN")
        Kode_pelanggan.Items.Add("PAK")

        Tipe_pelanggan.Items.Add("TOK")
        Tipe_pelanggan.Items.Add("RUM")
        Tipe_pelanggan.Items.Add("SWA")
        Tipe_pelanggan.Items.Add("PAB")
    End Sub

    Private Sub Kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case ("MED")
                Daerah.Text = "MEDAN"
                pajak.Text = 0.015
            Case ("BEL")
                Daerah.Text = "BELAWAN"
                pajak.Text = 0.015
            Case ("TEM")
                Daerah.Text = "AKSARA"
                pajak.Text = 0.015
            Case ("MAR")
                Daerah.Text = "MARENDAL"
                pajak.Text = 0.015
            Case ("BIN")
                Daerah.Text = "BINJAI"
                pajak.Text = 0.015
            Case ("PAK")
                Daerah.Text = "LUBUK PAKAM"
                pajak.Text = 0.015
        End Select
    End Sub

    Private Sub Tipel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe_pelanggan.SelectedIndexChanged
        Select Case Tipe_pelanggan.Text
            Case ("TOK")
                Tipoe_toko.Text = "TOKO"
                BiayaBeban.Text = 150000
                harga.Text = 500
            Case ("RUM")
                Tipoe_toko.Text = "RUMAH"
                BiayaBeban.Text = 50000
                harga.Text = 200
            Case ("SWA")
                Tipoe_toko.Text = "SWALAYAN"
                BiayaBeban.Text = 400000
                harga.Text = 1500
            Case ("PAB")
                Tipoe_toko.Text = "PABRIK"
                BiayaBeban.Text = 1000000
                harga.Text = 10000
        End Select
    End Sub
    Sub tabel()
        ListView1.Columns.Add("Kode pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Daerah", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Toko", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Biaya Beban", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Lalu", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Ini", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga Per KWH", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Besar Pemakaian", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tagihan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Bayar", 50, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = Kode_pelanggan.Text
            .SubItems.Add(Daerah.Text)
            .SubItems.Add(Tipe_pelanggan.Text)
            .SubItems.Add(Tipoe_toko.Text)
            .SubItems.Add(BiayaBeban.Text)
            .SubItems.Add(meteran_lalu.Text)
            .SubItems.Add(meteran_ini.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(besar_pemakaian.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(tagihan.Text)
            .SubItems.Add(total_bayar.Text)
            ListView1.Items.Add(x)
        End With
    End Sub

    Private Sub Tobay_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total_bayar.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_bayar.Text = Val(BiayaBeban.Text) + Val(harga.Text) + Val(besar_pemakaian.Text)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        besar_pemakaian.Text = meteran_lalu.Text - meteran_ini.Text
        tagihan.Text = BiayaBeban.Text + (harga.Text * besar_pemakaian.Text)
        total_bayar.Text = tagihan.Text * pajak.Text
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        bersih()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        bersih()
    End Sub
    Sub bersih()
        Kode_pelanggan.Text = ""
        Tipe_pelanggan.Text = ""
        Tipoe_toko.Text = ""
        BiayaBeban.Text = ""
        meteran_ini.Text = ""
        meteran_lalu.Text = ""
        harga.Text = ""
        Daerah.Text = ""
        besar_pemakaian.Text = ""
        pajak.Text = ""
        tagihan.Text = ""
        total_bayar.Text = ""
    End Sub
Private Sub btnhpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpslist.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class