kuis

Public Class Form1

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrga.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bb.Click

    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pj.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kopel.Items.Add("PAB-MED-100")
        Kopel.Items.Add("TOK-BEL-101")
        Kopel.Items.Add("SWA-MED-102")
        Kopel.Items.Add("PAB-MED-103")
        Kopel.Items.Add("RUM-MED-104")
    End Sub
    Private Sub jumpe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumpe.KeyPress
        If Asc(e.KeyChar) = 13 Then

            tota.Text = hrga.Text + jumpe.Text + Val(bib.Text)
            pjk.Text = 0.01 * tota.Text
            byr.Text = Val(tota.Text) + Val(pjk.Text)
        End If
    End Sub

    Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumpe.TextChanged

    End Sub

    Private Sub Kopel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kopel.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(Kopel.Text, 3)
        Select Case x
            Case "100" : nma.Text = "MUHAMMAD ARDIANTO"
            Case "101" : nma.Text = "JEKSON SINAGA"
            Case "102" : nma.Text = "TRIANI ERISTA"
            Case "103" : nma.Text = "ALDYAN"
        End Select
        x = Microsoft.VisualBasic.Left(Kopel.Text, 3)
        Select Case x
            Case "TOK"
                hrga.Text = 250
                bib.Text = 15000
                tpe.Text = "TOKO"
            Case "RUM"
                hrga.Text = 250
                bib.Text = 15000
                tpe.Text = "RUMAH"
            Case "PAB"
                hrga.Text = 250
                bib.Text = 15000
                tpe.Text = "PABRIK"
            Case "SWA"
                hrga.Text = 250
                bib.Text = 15000
                tpe.Text = "SWALAYAN"
        End Select
        x = Microsoft.VisualBasic.Mid(Kopel.Text, 5, 3)
        Select Case x
            Case "MED" : daer.Text = "Medan"
            Case "BEL" : daer.Text = "Belawan"
            Case Else : daer.Text = " "
        End Select
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Kopel.Text = ""
        nma.Text = ""
        tpe.Text = ""
        tota.Text = ""
        hrga.Text = ""
        pjk.Text = ""
        pembyar.Text = ""
        byr.Text = ""
        Dae.Text = ""
        bib.Text = ""
    End Sub
End Class