Algoritma Sederhana Program Daftar Mahasiswa

Imports System.Console
Module Module4
   Dim KumpulanMHS(0) As DataMHS
   Structure DataMHS

       Dim NIM As String

       Dim Nama As String

       Dim Kelas As String

       Dim Waktu As String

   End Structure

Sub Main()

       WriteLine(IIf(5 > 4, 10, "SBC"))

       WriteLine(Left(StrReverse("Mikroskil"), 3))

       'Call Index()

   End Sub

   Sub Index()

       Clear()

       WriteLine("Program Daftar Mahasiswa")

       WriteLine("========================")

       WriteLine()

       WriteLine("Menu Program :")

       WriteLine("A. Input Data")

       WriteLine("B. Tampilkan Data")

       WriteLine("C. Keluar")

aaa:

       Write("Masukan Pilihan : ")

       Dim pil As String = ReadLine()

       Select Case pil.ToUpper

           Case "A" : Call PilihanA()

           Case "B" : Call PilihanB()

           Case "C" : End

           Case Else

               WriteLine("Pilihan Tidak Ada.")

               WriteLine()

               GoTo aaa

       End Select

   End Sub

   Sub PilihanA()

       Clear()

       ReDim Preserve KumpulanMHS(KumpulanMHS.GetUpperBound(0) + 1)

       WriteLine("Input Data Mahasiswa")

       WriteLine("====================")

       WriteLine()

       Write("NIM".PadRight(10) & " = ")

       KumpulanMHS(KumpulanMHS.GetUpperBound(0)).NIM = ReadLine()

       Write("Nama".PadRight(10) & " = ")

       KumpulanMHS(KumpulanMHS.GetUpperBound(0)).Nama = ReadLine()

       Write("Kelas".PadRight(10) & " = ")

       KumpulanMHS(KumpulanMHS.GetUpperBound(0)).Kelas = ReadLine()

       Write("Waktu".PadRight(10) & " = ")

       KumpulanMHS(KumpulanMHS.GetUpperBound(0)).Waktu = ReadLine()

       WriteLine()

       WriteLine("Data Tersimpan...")

       ReadKey()

       Call Index()

   End Sub

   Sub PilihanB()

       Clear()

       WriteLine("Daftar Mahasiswa")

       WriteLine("=================")

       WriteLine()

       For i As Integer = KumpulanMHS.GetLowerBound(0) + 1 To KumpulanMHS.GetUpperBound(0)

           WriteLine("Mahasiswa ke-" & (i))

           WriteLine("NIM".PadRight(10) & " = " &

           KumpulanMHS(i).NIM)

           WriteLine("Nama".PadRight(10) & " = " &

           KumpulanMHS(i).Nama)

           WriteLine("Kelas".PadRight(10) & " = " &

           KumpulanMHS(i).Kelas)

           WriteLine("Waktu".PadRight(10) & " = " &

           KumpulanMHS(i).Waktu)

           WriteLine()

       Next

       ReadKey()

       Call Index()

   End Sub

End Module