TI-M1213

                                                                                                                                                                                        

Public Class Form1

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tahun.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim x As String

        Tahun.Text = "20" & Microsoft.VisualBasic.Left(Npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(Npm.Text, 4, 1)

        If x = "1" Then

            Jenjang.Text = "Diploma I"

        ElseIf x = "3" Then

            Jenjang.Text = "Diploma III"

        ElseIf x = "4" Then

            Jenjang.Text = "Strata I"

        End If

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

        If x = "01" Then

            Jurusan.Text = "Teknik Informatika"

        ElseIf x = "02" Then

            Jurusan.Text = "Sistem Informasi"

        ElseIf x = "03" Then

            Jurusan.Text = "Manajemen Informatika"

        ElseIf x = "04" Then

            Jurusan.Text = "Design Grafis"

        End If

        Nourut.Text = Microsoft.VisualBasic.Right(Npm.Text, 3)

    End Sub

End Class