PDAM

 

Public Class from1

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

        kodepelanggan.Items.Add("PAB-MED-100")

        kodepelanggan.Items.Add("TOK-BEL-101")

        kodepelanggan.Items.Add("SWA-MED-102")

        buattabel()

        isitabel()

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode pelanggan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jabatan", 85, HorizontalAlignment.Left)

        lv.Columns.Add("jpemakaian", 80, HorizontalAlignment.Left)

        lv.Columns.Add("totaltagihan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = kodepelanggan.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jpemakaian.Text)

        Lst.SubItems.Add(totaltagihan.Text)

        Lst.SubItems.Add(pembayaran.Text)

        Lst.SubItems.Add(pajak.Text)

        lv.Items.Add(Lst)

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            totaltagihan.Text = Val(biayabeban.Text) + (haragm3.Text * jpemakaian.Text)

            pajak.Text = 0.01 * totaltagihan.Text

            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub jpemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jpemakaian.TextChanged

    End Sub

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(kodepelanggan.Text, 3)

        Select Case x

            Case "100"

                nama.Text = "okta"

            Case "101"

                nama.Text = "nada"

            Case "102"

                nama.Text = "candra"

        End Select

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

        Select Case x

            Case "TOK"

                haragm3.Text = 250

                biayabeban.Text = 15000

                type.Text = "TOKO"

            Case "RUM"

                haragm3.Text = 150

                biayabeban.Text = 10000

                type.Text = "RUMAH"

            Case "PAB"

                haragm3.Text = 25000

                biayabeban.Text = 250000

                type.Text = "PABRIK"

            Case "SWA"

                haragm3.Text = 20000

                biayabeban.Text = 60000

                type.Text = "SWALAYAN"

        End Select

        x = Microsoft.VisualBasic.Mid(kodepelanggan.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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kodepelanggan.Text = ""

        nama.Text = ""

        type.Text = ""

        haragm3.Text = ""

        jpemakaian.Text = ""

        totaltagihan.Text = ""

        pembayaran.Text = ""

        daerah.Text = ""

        biayabeban.Text = ""

        pajak.Text = ""

    End Sub