Penggunaan VB (Visual basic) dalam PDAM

Melly Fersi Fera

hai teman .. :)
kali ini kita masih akan memepelajari mengenai Visual Basic (VB) ...

Desain form seperti yang gambar dibawah ini :

listing program

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-MED-100")

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

        Kode_Pelanggan.Items.Add("TOK-BEL-102")

        Kode_Pelanggan.Items.Add("RUM-MED-103")

    End Sub

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

        Dim x As String

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

        Select Case x

            Case "100" : Nama_Pelanggan.Text = "Melly Fersi Fera"

            Case "101" : Nama_Pelanggan.Text = "Winda Arisky"

            Case "102" : Nama_Pelanggan.Text = "Yosa Debi Kadaris"

            Case "103" : Nama_Pelanggan.Text = "Safrizal"

        End Select

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

        Select Case x

            Case "TOK"

                Tipe.Text = "Toko"

                Harga_M3.Text = 300

                BiayaBeban.Text = 25000

            Case "RUM"

                Tipe.Text = "Rumah"

                Harga_M3.Text = 100

                BiayaBeban.Text = 10000

            Case "SWA"

                Tipe.Text = "Swalayan"

                Harga_M3.Text = 200

                BiayaBeban.Text = 15000

            Case "PAB"

                Tipe.Text = "Pabrik"

                Harga_M3.Text = 500

                BiayaBeban.Text = 250000

        End Select

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

        If x = "MED" Then

            Daerah.Text = "Medan"

        Else

            Daerah.Text = "Belawan"

        End If

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            Total_Tagihan.Text = Val(BiayaBeban.Text) + Harga_M3.Text * JumlahPemakaian.Text

            Pajak.Text = 0.01 * Total_Tagihan.Text

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

        End If

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Kode_Pelanggan.Text = ""

        Nama_Pelanggan.Text = ""

        Tipe.Text = ""

        BiayaBeban.Text = ""

        JumlahPemakaian.Text = ""

        Total_Tagihan.Text = ""

        Pembayaran.Text = ""

        Daerah.Text = ""

        Harga_M3.Text = ""

        Pajak.Text = ""

    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

        End

    End Sub

End Class

gambar setelah program dijalankan :

NB :

• sebelum anda mengetikan listing program pada Private Sub JumlahPemakaian, anda harus menggantikan Method Name nya menjadi Private Sub JumlahPemakaian_KeyPress
• Setelah anda memilih kode pelanggan, maka akan muncul Nama Pelanggan, Tipe, Biaya Beban, Daerah, dan Harga M3
• Kemudian anda ketikan Jumlah Pemakaian pada TextBox Jumlah Pemaikaian sesuai yang anda inginkan
• Dan yang terakhir anda tekan enter maka akan muncul Total Tagihan, Pajak, dan Pembayarannya
• jika anda ingin mencari Nama Pelanggan yang lain silahkan klik hapus, dan pilih Kode Pelanggan nya lagi

sekian ...
good jobs friends ... ;)