ini adalah soure code vb 2008 untuk membuat aplikasi pembuat nim dimana aplikasi ini memeriksa inputn angka per karakter angka yang mewakili,fakultas,prodi,angkatan.
demikian sedikit penjelasan untuk aplikasi ini untuk lebih jelasnya silahkan mencoba karena aplikasi ini tidak menggunakan logika yang rumit.
SELAMAT MENCOBA.......

Public Class Frmpraktikum

    Private Sub Txtnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtnim.TextChanged
        If Len(Txtnim.Text) = 7 Then
            Select Case Strings.Left(Txtnim.Text, 1)
                Case "1" : Txtfakultas.Text = "agama islam"
                Case "2" : Txtfakultas.Text = "bahasa"
                Case "3" : Txtfakultas.Text = "ilmu administrasi"
                Case "4" : Txtfakultas.Text = "teknik"
                Case "5" : Txtfakultas.Text = "MIPA"
                Case "6" : Txtfakultas.Text = "pasca sarjana"
                Case "7" : Txtfakultas.Text = "kesehatan"
                Case Else : Txtfakultas.Text = "tidak terdaftar"



            End Select
            Select Case Strings.Left(Txtnim.Text, 2)
                Case "11" : txtprodi.Text = "pendidikan agama islam"
                Case "12" : txtprodi.Text = "syariah"
                Case "13" : txtprodi.Text = "PGMI"
                Case "21" : txtprodi.Text = "bahasa dan sastra inggris"
                Case "22" : txtprodi.Text = "bahasa jepang"
                Case "23" : txtprodi.Text = "pendidikan bahasa inggris"
                Case "31" : txtprodi.Text = "administrasi niaga"
                Case "41" : txtprodi.Text = "sistem informasi"
                Case "51" : txtprodi.Text = "matematika"
                Case "61" : txtprodi.Text = "manajemen pendidikan islam"
                Case "71" : txtprodi.Text = "D3 keperawatan"
                Case "72" : txtprodi.Text = "D3 kebidanan"
                Case "73" : txtprodi.Text = "S1 keperawatan"
                Case "74" : txtprodi.Text = "pendidikan profesi perawat"
                Case Else : txtprodi.Text = "tidak terdaftar"


            End Select
            Txtmasuk.Text = "20" & Strings.Mid(Txtnim.Text, 3, 2)
            Txturut.Text = Strings.Right(Txtnim.Text, 3)
        Else
            Txtfakultas.Text = ""
            txtprodi.Text = ""
            Txturut.Text = ""
            Txtmasuk.Text = ""
        End If
    End Sub

   
End Class