Imports System 'imports all comands used        

Public Module Module1

    Public Sub Main()

        Console.Clear()'clears console

        Dim input As Decimal'prevents the programme from crashing

        Dim names(3) As String'stores the candidates names

        Dim length As Short = 4'knows how many candiates there are

        Dim count As Integer = 0'used in my loops

        Dim votes(3) As Integer 'used to store the tallys for each candidate

        Dim catches As Boolean = True 'used to see if inputs can be converted to decimals

        '-------------------------------------------------------------------------------------------------------------------------------------------------

        Do'loops until at least 2 names have been entered, and at most four names (to exit you must enter "-1")

            Console.WriteLine("Please enter the candidates name")

            names(count) = Console.ReadLine()

            If count = 1 Then Console.WriteLine("If you dont have anymore candidates please enter -1")

            If names(count) = "-1" Then length = count

            count = count + 1

        Loop Until (names(count - 1) = "-1" And count > 2) Or count = 4

        'doesnt allways use the whole array.

        '-------------------------------------------------------------------------------------------------------------------------------------------------

        Console.Clear()

        'loops to display each name     

            For count = 0 To length - 1'length - 1 since

            Console.WriteLine(names(count) & "(" & (count + 1) & ")")

        Next

        '-------------------------------------------------------------------------------------------------------------------------------------------------  

        'outputs instructions

        Console.WriteLine("Please select your candidate by entering the number displayed next to the name.")

        Console.WriteLine("If you have no more votes to enter please enter -1")

        '-------------------------------------------------------------------------------------------------------------------------------------------------  

        count = 0

        'loops until -1 is entered or the loop has been repeated 30 times

        Do

            'tests to see if an input can be converted to a decimal

            catches = False

            Try'stops the programme from crashing if a mistake is made in the input

                input = Console.ReadLine()

            Catch ex As Exception

                catches = True

            End Try

            '-------------------------------------------------------------------------------------------------------------------------------------------------  

            'makes sure that the vote is vailed tests if it is an integer and if it is between 0 and the upper limit(works in visual studios)

                If (catches = False And input = input mod 1 = 0 And 0 < input And input < length + 1) Then

                Console.WriteLine(names(input - 1))

                Console.WriteLine("Next input please")

                votes(input - 1) = votes(input - 1) + 1

                count = count + 1

            Else

                If input = -1 Then Exit Do 

                Console.WriteLine("Sorry that is an invaild input. Please re-enter your input")

            End If

        Loop Until count = 30

        '-------------------------------------------------------------------------------------------------------------------------------------------------

        'uses a basic sorting network to test and sort in the fewest if statments posible

        Console.Clear()

                    array.sort(votes, names)

        '-------------------------------------------------------------------------------------------------------------------------------------------------  

        'displays the order of names and votes depending on the number of candidates

                    for count = 0 to length -1

        Console.WriteLine(names(count) & "  (" & votes(count) & ")")

        next

        '-------------------------------------------------------------------------------------------------------------------------------------------------

        'displayes the winner if the is one

                If votes(count) = votes(count) Then

            Console.WriteLine("NO OVERALL WINNER")

        Else

            Console.WriteLine("NEW CLASS CAPTAIN IS " & names(count))

        End If

        Console.ReadLine()'hold console open

        '-------------------------------------------------------------------------------------------------------------------------------------------------

    End Sub

End Module