koding mengetahui nilai angka dll

Public Class Form6

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click


        If nilaiangka.Text >= 80 Then

            nilaihuruf.Text = "A"
            keterangannilai.Text = nama.Text & Space(1) & "sangat baik"


        ElseIf nilaiangka.Text >= 70 Then
            nilaihuruf.Text = "B"
            keterangannilai.Text = nama.Text & Space(1) & "baik"
        ElseIf nilaiangka.Text >= 60 Then
            nilaihuruf.Text = "C"
            keterangannilai.Text = nama.Text & Space(1) & "cukup"
        ElseIf nilaiangka.Text >= 50 Then
            nilaihuruf.Text = "D"
            keterangannilai.Text = nama.Text & Space(1) & "cukup baik"
        Else
            nilaihuruf.Text = "E"
            keterangannilai.Text = nama.Text & Space(1) & "gagal"


        End If
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        tahunmasuk.Text = ""
        nourut.Text = ""
        nilaiangka.Text = ""
        nilaihuruf.Text = ""
        keterangannilai.Text = ""

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        Me.Close()
    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("14110080")
        npm.Items.Add("12100081")
        npm.Items.Add("13090082")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Dim X As String
        Dim tahun As String
        Dim no As String

        X = npm.Text
        X = Microsoft.VisualBasic.Mid(X, 3, 2)
        tahun = Microsoft.VisualBasic.Right(npm.Text, 4)
        no = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        If X = "11" Then
            nama.Text = "YANGGI"
            jurusan.Text = "TKNIK INFORMATIKA"
            jenjang.Text = "S1"
            tahunmasuk.Text = tahun
            nourut.Text = no


        ElseIf X = "10" Then
            nama.Text = "ANGGI"
            jurusan.Text = "Akutansi"
            jenjang.Text = "D1"
            tahunmasuk.Text = tahun
            nourut.Text = no

        ElseIf X = "09" Then




            nama.Text = "DINA"
            jurusan.Text = "TEKNIK KOMPUTER"

            jenjang.Text = "S1"
            tahunmasuk.Text = tahun
            nourut.Text = no


            nama.Text = "JULI"
            jurusan.Text = "MANAJMEN INFORMATIKA"
            jenjang.Text = "D1"
            tahunmasuk.Text = tahun
            nourut.Text = no
        End If
    End Sub
End Class