Imports System

​

'THIS IS USED TO TEST THE DATA INPUT TECHNIQUES FOR TE INTERNAL PROJECT     

Public Module Module1

​

    'change number of students to a small number when developing

    CONST NUM_STUDENTS = 2

​

    'initialize arrays, use the key Private when declaring outside a function/subroutine

    Private IDs(NUM_STUDENTS - 1) AS Integer

​

    Private Eng(NUM_STUDENTS - 1) as Integer

​

    Private Math(NUM_STUDENTS - 1) as Integer

​

    Private Sci(NUM_STUDENTS - 1) as Integer

​

    'AllArrays(0) is the arrays IDs, &C

    Private AllArrays()() as integer = {IDs, Eng, Math, Sci}

​

    'ADD STATEMENTS TO DECLARE ARRAYS TO HOLD MATHS AND SCIENCE RESULTS

    Public Sub Main()

        Dim nOption as integer

        Console.WriteLine("What do you want to do. Enter 1 to enter data, 2 to display results, 3 to search")

        nOption = Console.readline()

        select case nOption

            Case 1

                EnterResults()

            Case 2

                'Display student information

                DisplayResults()

            Case 3

            'Search for details

            Case 4

        'Edit/Quit

        End Select

    End Sub

​

    Public Sub EnterResults()

        Dim sIn as string 'to hold input

        Dim isValid as Boolean 'used to flag if input is invalid for IDs and Results

        Dim Temp as integer 'temporary holder of value before validation 

        For i = 0 to NUM_STUDENTS - 1 ' - 1 so index is correct for item in array

            Console.WriteLine("Enter Results in CSV format including commas: ID, English,Math,Science")

            sIn = Console.ReadLine() 'iput results before split into array

            Dim asIn = sIn.Split(",") ' asIn is name of array of split data separated by commas

            Temp = asIn(0)

            isValid = validate_ID(Temp) 'validate ID

            Do While isValid = false

                Console.WriteLine("ID invalid, enter ID again")

                Temp = Console.Readline()

                isValid = validate_ID(Temp) 'validate iD if invalid, keep validating until vaild

            loop

​

            IDs(i) = Temp

            Temp = asIn(1) ' 1 is the index  for English

            isValid = Validate_Results(Temp) ' validate the English result

            Do While isValid = false

                Console.WriteLine(" Please reenter English result again")

                Temp = Console.Readline()

                isValid = validate_Results(Temp) 'validate iD if invalid, keep validating until vaild

            loop

​

            Eng(i) = Temp

            Temp = asIN(2)

            isValid = Validate_Results(Temp) ' validate the Math result

            Do While isValid = false

                Console.WriteLine(" Please reenter Math result again")

                Temp = Console.Readline()

                isValid = validate_Results(Temp) 'validate iD if invalid, keep validating until vaild

            loop

​

            Math(i) = Temp

            Temp = asIN(3)

            isValid = Validate_Results(Temp) ' validate the Sci result

            Do While isValid = false

                Console.WriteLine(" Please reenter Sci result again")

                Temp = Console.Readline()

                isValid = validate_Results(Temp) 'validate iD if invalid, keep validating until vaild

            loop

​

            Sci(i) = Temp

        Next

​

        'print arrays out - just to test code works , remove from final version

        PrintArray(IDs)

        PrintArray(Eng)

        PrintArray(Math)

        PrintArray(Sci)

        'complicated stuff below

        'allarryas is an array of arrays

        'so item is an array

        for each item as integer() in AllArrays

            PrintArray(item)

        Next

    End Sub

​

    Function Validate_Results(s as integer) as boolean

        If s > 100 then

            Console.WriteLine("Incorrect result. Result has to be between 20 and 100: ")

            return false

        else

            return true

        end if

​

        if s < 20 then

            s = 20

            Return True

        end if

    end Function

​

    Function Validate_ID(nID as integer) as boolean

        If nID < 9999 or nID > 99999 then

            console.writeline(" ")

            Console.Writeline("Id has incorrect format, it must be unique and must be between 10,000 and 9,999 inclusive ")

            return false

        End if

​

        if array.IndexOf(IDs, nID) <> -1 then

            Console.WriteLine("ID not unique")

            return false

        end if

​

        return true

    end function

​

    Public Sub DisplayResults()

    End Sub

​

    Public Sub PrintArray(the_array as object)

        'this is a subroutine that should print any array regardless of datatype

        For each s as object in the_array

            Console.write("{0} ", s.ToString())

        Next

    End sub

End Module

​