contoh program PDAM

Gambar terdiri dari label,combobox,textbox,button

 

Langsung kita masukan program nya cuy!!!

11.  klik double bebas  pada from dan masuk kan perintah nya

 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

22.  klik doubel pada kode pelanggan dan masukan perintah nya

   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 = "MANDA IRWANSYAH S.KOM"

            Case "101"

                nama_pelanggan.Text = "BEJO SCOOTER"

            Case "102"

                nama_pelanggan.Text = "SLAMET"

        End Select

        X = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)

        Select Case X

            Case "TOK"

                tip.Text = "TOKO"

                harga.Text = 300

                biaya.Text = 25000

            Case "RUM"

                tip.Text = "RUMAH"

                harga.Text = 100

                biaya.Text = 10000

            Case "SWA"

                tip.Text = "SWALAYAN"

                harga.Text = 200

                biaya.Text = 15000

            Case "PAB"

                tip.Text = "PABRIK"

                harga.Text = 500

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

33. klik doubel pada jumlah ganti menjadi (keypress) pemakain dan tuliskan perintah nya

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

        If Asc(e.KeyChar) = 13 Then

            total.Text = Val(biaya.Text) + harga.Text * jumlah.Text

            pjk.Text = 0.01 * total.Text

            bayar.Text = Val(pjk.Text) + Val(jumlah.Text)

        End If

    End Sub

End Class

Dan ini lah hasil nya.