Membuat console application untuk menerima input NIM(Nomor Induk Mahasiswa) dari user, Kemudian tampilkan stambuk, jurusan, dan waktu kuliah dari NIM tersebut dengan ketentuan:

• Stambuk ditentukan dari 2 digit terdeoan dari input NIM
• Jurusan Ditentukan mulai dari digit ke-3 s.d ke-5, dengan ketentuan

• 111       Teknik Informatika
• 211       Sistem Informasi Bisnis
• 212       Sistem Informasi Akuntansi
• 021       Managemen Informatika
• 031       Komputerisasi Akuntasi

• Waktu kuliah ditentukan dari digit paling belakang dengan ketentuan:

• P        Pagi
• S        Sore

Contoh tampilan pada jendela CMD :

Rumusnya silahkan lihat di bawah ini:

Sub Main()

        Dim NIM, stambuk, waktu As String

        Dim jurusan As Integer

        Console.WriteLine("Masukkan NIM :")

        NIM = Console.ReadLine

        stambuk = Left(NIM, 2)

        Console.WriteLine("Stambuk  :20" & stambuk)

        jurusan = Mid(NIM, 3, 3)

        If jurusan = "111" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Teknik Informatika")

        ElseIf jurusan = "211" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Sistem Informasi Bisnis")

        ElseIf jurusan = "212" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Sistem Informasi Akutansi")

        ElseIf jurusan = "021" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Manajemen Informatika")

        ElseIf jurusan = "031" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Komputerisasi Akutansi")

        End If

        waktu = Right(NIM, 1)

        If waktu = "P" Then

            Console.Write("Waktu Kuliah :")

            Console.WriteLine("Pagi")

        ElseIf waktu = "S" Then

            Console.Write("Waktu Kuliah :")

            Console.WriteLine("Siang")

        End If

        Console.ReadLine()

    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!