Quis PDAM

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("SWA-MED-102")

    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

            T_tagihan.Text = Val(B_beban.Text) + (hargam3.Text * jp.Text)

            pajak.Text = 0.01 * T_tagihan.Text

            pembayaran.Text = Val(T_tagihan.Text) + Val(pajak.Text)

        End If

    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 = "ucok"

            Case "101" : nama.Text = "jhan F"

            Case "102" : nama.Text = "Erin"

        End Select

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

        Select Case x

            Case "TOK"

                hargam3.Text = 250

                B_beban.Text = 15000

                tipe.Text = "TOKO"

            Case "ROM"

                hargam3.Text = 150

                B_beban.Text = 10000

                tipe.Text = "RUMAH"

            Case "PAB"

                hargam3.Text = 25000

                B_beban.Text = 250000

                tipe.Text = "PABRIK"

            Case "SWA"

                hargam3.Text = 20000

                B_beban.Text = 60000

                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"

            Case Else : daerah.Text = "-"

        End Select

    End Sub

    Private Sub ButtonKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKELUAR.Click

        Me.Close()

    End Sub

    Private Sub ButtonHPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHPUS.Click

        kp.Text = ""

        nama.Text = ""

        tipe.Text = ""

        daerah.Text = ""

        hargam3.Text = ""

        B_beban.Text = ""

        jp.Text = ""

        T_tagihan.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub

End Class