yuk belajar pemograman visual basic di mesran do net di mesran net

Kasus Pemograman Pembayaran Listrik

Listing Program Kasus Pemograman Pembayaran Listrik

Public Class Form1

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

        Kode_Pelanggan.Items.Add("PAB-PAK-100")

        Kode_Pelanggan.Items.Add("PAB-BEL-100")

        Kode_Pelanggan.Items.Add("RUM-BEL-101")

        Kode_Pelanggan.Items.Add("SWA-MED-100")

        Kode_Pelanggan.Items.Add("SWA-BIN-102")

        Kode_Pelanggan.Items.Add("PAB-TEM-103")

        Call Isi_Table()

        Call Rancang_Table()

    End Sub

    Private Sub Kode_Pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Pelanggan.SelectedIndexChanged

        If Kode_Pelanggan.Text = "PAB-PAK-100" Then

            Nama.Text = "Samuel"

        ElseIf Kode_Pelanggan.Text = "PAB-BEL-100" Then

            Nama.Text = "Sulaiman"

        ElseIf Kode_Pelanggan.Text = "RUM-BEL-101" Then

            Nama.Text = "Nugraha"

        ElseIf Kode_Pelanggan.Text = "SWA-MED-100" Then

            Nama.Text = "Jan"

        ElseIf Kode_Pelanggan.Text = "SWA-BIN-102" Then

            Nama.Text = "DANI"

        ElseIf Kode_Pelanggan.Text = "PAB-TEM-103" Then

            Nama.Text = "SUPRI"

        Else

            Nama.Text = ""

        End If

        Dim x As String

        x = Mid(Kode_Pelanggan.Text, 1, 3)

        Select Case x

            Case "TOK"

                Tipe.Text = "TOKO"

                Biaya_Beban.Text = 150000

                Harga_kwh.Text = 500

            Case "RUM"

                Tipe.Text = "RUMAH"

                Biaya_Beban.Text = 50000

                Harga_kwh.Text = 500

            Case "SWA"

                Tipe.Text = "SWALAYAN"

                Biaya_Beban.Text = 400000

                Harga_kwh.Text = 1500

            Case "PAB"

                Tipe.Text = "PABRIK"

                Biaya_Beban.Text = 10000000

                Harga_kwh.Text = 10000

        End Select

        x = Mid(Kode_Pelanggan.Text, 5, 3)

        Select Case x

            Case "MED"

                Daerah.Text = "MEDAN"

            Case "BEL"

                Daerah.Text = "BELAWAN"

            Case "PAK"

                Daerah.Text = "PATUMBAK"

            Case "MAR"

                Daerah.Text = "MARENDAL"

            Case "BIN"

                Daerah.Text = "BINJAI"

            Case "TEM"

                Daerah.Text = "AKSARA"

        End Select

    End Sub

    Sub Rancang_Table()

        lv.Columns.Add("Kode Pelanggan", 140, HorizontalAlignment.Center)

        lv.Columns.Add("Nama", 60, HorizontalAlignment.Center)

        lv.Columns.Add("Type", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Biaya Beban", 50, HorizontalAlignment.Center)

        lv.Columns.Add("Harga kwh", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Total Bayaran", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Type", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            Total_Tagihan.Text = Val(Harga_kwh.Text + Biaya_Beban.Text) * Val(Pemakaian.Text)

        End If

        If Asc(e.KeyChar) = 13 Then

            Pajak.Text = 0.15 + Total_Tagihan.Text

        End If

    End Sub

    Sub Isi_Table()

        Dim i As New ListViewItem

        i.Text = (Kode_Pelanggan.Text)

        i.SubItems.Add(Nama.Text)

        i.SubItems.Add(Tipe.Text)

        i.SubItems.Add(Harga_kwh.Text)

        i.SubItems.Add(Pemakaian.Text)

        i.SubItems.Add(Total_Tagihan.Text)

        i.SubItems.Add(Pajak.Text)

        i.SubItems.Add(Pembayaran.Text)

        lv.Items.Add(i)

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

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

        Call Isi_Table()

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Kode_Pelanggan.Text = ""

        Daerah.Text = ""

        Nama.Text = "'"

        Tipe.Text = ""

        Biaya_Beban.Text = "'"

        Harga_kwh.Text = ""

        Pemakaian.Text = ""

        Total_Tagihan.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

        lv.Items.Clear()

    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

End Class

Setelah di jalan kan program y.../hasil y