Contoh Program Visual Basic Pembayaran Tagihan PDAM

CONTOH PROGRAM VISUAL BASIC, "FORM PEMBAYARAN TAGIHAN PDAM" MENGGUNAKAN CASE

 

Public Class Form1

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

        KPembayaran.Items.Add("001")

        KPembayaran.Items.Add("002")

        KPembayaran.Items.Add("003")

        Tipe.Items.Add("TOKO")

        Tipe.Items.Add("RUMAH")

        Tipe.Items.Add("SWALAYAN")

        Tipe.Items.Add("PABRIK")

    End Sub

    Private Sub KPembayaran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KPembayaran.SelectedIndexChanged

        Select Case KPembayaran.Text

            Case "001" : Nama.Text = "Jhani"

            Case "002" : Nama.Text = "EKO"

            Case "003" : Nama.Text = "DIAN"

        End Select

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        Select Case Tipe.Text

            Case "TOKO"

                Biaya.Text = 25000

                Harga.Text = 300

            Case "RUMAH"

                Biaya.Text = 15000

                Harga.Text = 100

            Case "SWALAYAN"

                Biaya.Text = 10000

                Harga.Text = 200

            Case "PABRIK"

                Biaya.Text = 25000

                Harga.Text = 500

        End Select

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        TTagihan.Text = Val(Biaya.Text) + Val(Harga.Text) * JPemakaian.Text

        Pajak.Text = 0.01 * TTagihan.Text

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

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        KPembayaran.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        JPemakaian.Text = ""

        TTagihan.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

End Class