hal 32 ( rumanda )

Public Class Form1

    Dim LST As ListViewItem

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Dim x As String

        tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "Diploma I"

        ElseIf x = "2" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "3" Then

            jenjang.Text = "Strata I"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "01" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "02" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf x = "03" Then

            jurusan.Text = "Teknik Komputer"

        ElseIf x = "04" Then

            jurusan.Text = "Akuntansi"

        End If

    End Sub

    Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged

        If nangka.Text >= 90 Then

            nhuruf.Text = "A"

        ElseIf nangka.Text >= 80 Then

            nhuruf.Text = "B"

        ElseIf nangka.Text >= 70 Then

            nhuruf.Text = "C"

        ElseIf nangka.Text = "60" Then

            nhuruf.Text = "D"

        Else

            nhuruf.Text = "E"

        End If

    End Sub