Tentang Mesran.net

Mesran.Net merupakan salah website yang berguna untuk belajar bahasa pemrograman. Pada mesran.net terdiri beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya Visual Basic dot Net serta program berorientasi Database sebagai contoh : Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access
 Pada blog ini, anda bisa memahami banyak bahasa program.
contoh :

Penyelesaian Pembayaran Tagihan Air Minum Menggunakan Visual Basic dot Net

Berikut ini program untuk menyelesaikan pembayaran tagihan air minum.

 

Program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic dot Net

Public Class Form1

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

        KP.Items.Add("TOK-MED-100")

        KP.Items.Add("PAB-BEL-101")

        KP.Items.Add("SWA-BEL-102")

        KP.Items.Add("PAB-MED-103")

        KP.Items.Add("RUM-MED-104")

    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" : Nama.Text = "Muhammad Ardianto"

            Case "101" : Nama.Text = "Jekson Sinaga"

            Case "102" : Nama.Text = "Triani Arista"

            Case "103" : Nama.Text = "Aldyan"

        End Select

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

        Select Case x

            Case "PAB"

                HargaM3.Text = 500

                BBeban.Text = 250000

                Tipe.Text = "Pabrik"

            Case "TOK"

                HargaM3.Text = 500

                BBeban.Text = 25000

                Tipe.Text = "Toko"

            Case "RUM"

                HargaM3.Text = 500

                BBeban.Text = 10000

                Tipe.Text = "Rumah"

            Case "SWA"

                HargaM3.Text = 200

                BBeban.Text = 15000

                Tipe.Text = "Swalayan"

        End Select

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

        Select Case x

            Case "MED" : Daerah.Text = "Medan"

            Case "BEL" : Daerah.Text = "Belawan"

        End Select

    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

            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)

            Pajak.Text = 0.01 * TTagihan.Text

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

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        End

    End Sub

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

        KP.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        TTagihan.Text = ""

        HargaM3.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

        Pemakaian.Text = ""

        Daerah.Text = ""

        BBeban.Text = ""

    End Sub

End Class

Demikianlah program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic dot Net

copas http://www.mesran.blogspot.com


demikian penjelasan tentan mesran.net
untuk lebih memahami lagi, kunjungi blog http://www.mesran.blogspot.comu untuk belajar banyak hal. seperti:
- visual Basic 6
- visual basic net
- visual c sharp
- Delphi
- Paschal
- C / C++
- PHP
- Java dan banyak lagi

semoga artikel ini bermanfaat.
terimakasi