Contoh Program VB Mengenai Pembayaran PDAM

Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:

1. Buka Microsoft Visual Studio

2. Buka New>>Project

3. Beri nama project anda pada name, kemudian klik ok

4. Setelah itu maka akan keluar From1 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata pilih pada proporties.

 5. Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("TOK-BEL-102")
        kp.Items.Add("RUM-MED-103")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(kp.Text, 3)
        Select Case X
            Case "100" : np.Text = "Florida Situmorang"
            Case "101" : np.Text = "Tabita Panjaitan"
            Case "102" : np.Text = "Yulia Hannelore"
            Case "103" : np.Text = "Endang Pangaribuan"

        End Select
        X = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case X
            Case "TOK"
                tipe.Text = "TOKO"
                hargam3.Text = 300
                bb.Text = 25000
            Case "RUM"
                tipe.Text = "rumah"
                hargam3.Text = 100
                bb.Text = 10000
            Case "SWA"
                tipe.Text = "swalayan"
                hargam3.Text = 200
                bb.Text = 15000
            Case "PAB"
                tipe.Text = "pabrik"
                hargam3.Text = 500
                bb.Text = 25000
        End Select
        X = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If X = "MED" Then
            daerah.Text = "MEDAN"

        Else
            daerah.Text = "BELAWAN"
        End If
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        kp.Text = ""
        np.Text = ""
        tipe.Text = ""
        bb.Text = ""
        jp.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        tt.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 jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then

            tt.Text = Val(bb.Text) + hargam3.Text * jp.Text

            pajak.Text = 0.02 * tt.Text

            pembayaran.Text = Val(pajak.Text) + Val(jp.Text)
        End If
    End Sub
End Class

NB:
 KP (Kode Pelanggan)
NP (Nama Pelanggan)
BB (Biaya Beban)
JP (Jumlah Pemakaian)
TT (Total Tagihan)