Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :

Pembayaran Tagihan Air Minum Menggunakan Visual Basic dot net

 

Public Class Form1

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    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("SWA-MED-102")
        kp.Items.Add("RUM-BEL-103")
    End Sub

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

    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 = "Delima Veronika"
            Case "101" : np.Text = "Adi"
            Case "102" : np.Text = "Susi W"
            Case "103" : np.Text = "IWAN F"
        End Select
        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "TOKO"
                hargam3.Text = 300
                bbeban.Text = 25000
            Case "RUM"
                tipe.Text = "RUMAH"
                hargam3.Text = 100
                bbeban.Text = 10000
            Case "SWA"
                tipe.Text = "SWALAYAN"
                hargam3.Text = 200
                bbeban.Text = 15000
            Case "PAB"
                tipe.Text = "PABRIK"
                hargam3.Text = 500
                bbeban.Text = 250000
        End Select
        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED then" Then
            daerah.Text = "MEDAN"
        Else
            daerah.Text = "BELAWAN"
        End If
    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 = Val(bbeban.Text) + hargam3.Text * pemakaian.Text
            pajak.Text = 0.01 * ttagihan.Text
            pembayaran.Text = Val(pajak.Text) + Val(pemakaian.Text)
        End If
    End Sub

    Private Sub pemakaian_MouseCaptureChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pemakaian.MouseCaptureChanged

    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
       
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End

    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 = ""
        daerah.Text = ""
        hargam3.Text = ""
        bbeban.Text = ""
        pemakaian.Text = ""
        ttagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub
End Class