Imports System

​

Public Module Module1 

​

    Public Sub Main()

        Dim tutorname As String

        Dim pupilnumb, candreg As Integer

        Dim candnames(3) As String

        dim vote as string

        dim abstain as integer

        'dim user as string

        dim voteNum as string

        Console.WriteLine("Welcome to the VOTESYSTEM 2.0 - Credit, Carl Stewrat")

        Console.WriteLine(">> Enter The Name Of Your Tutor Group")

        Console.WriteLine(" ")

        tutorname = Console.ReadLine()

        Console.WriteLine(" ")

        Console.WriteLine("You're in, " & tutorname)

        Console.WriteLine("Great, Now Enter The Amount Of Students Voting In The Tutor Group")

        pupilnumb = Console.ReadLine()

        'While pupilnumb < 28 Or pupilnumb > 35

        '   Console.WriteLine(" ")

        '   Console.WriteLine("/ERROR/")

        '   Console.WriteLine("Your Class Must Be Between 28-35 students, Please Try Again")

        '   Console.WriteLine("/ERROR END/")

        '   Console.WriteLine(" ")

        '   pupilnumb = Console.ReadLine()

        'End While

​

        Console.WriteLine(" ")'Candidate's competing

        Console.WriteLine("Great, You've Selected, " & pupilnumb & " Students To Vote")

        Console.WriteLine("Now, Please Enter The Amount Of Candidates Competing")

        Console.WriteLine(" ")

        candreg = Console.ReadLine()

        dim votes(candreg-1, candreg-1) as string

        While candreg > 4

            Console.WriteLine(" ")

            Console.WriteLine("/ERROR/")

            Console.WriteLine("There Can Only Be Up To 4 Candidates, Please Try Again")

            Console.WriteLine("/ERROR END/")

            Console.WriteLine(" ")

            candreg = Console.ReadLine()

        End While

​

        Console.WriteLine("Thank you, You've Selected " & candreg & " Candidates")

        ' Entering Students

        For count as integer = 0 To candreg - 1 'amount cand. 

            Console.WriteLine(" ")

            Console.WriteLine("Please Enter The Names Of The Following Students")

            Console.WriteLine(" ")

            votes(0, count) = Console.ReadLine() 'first element & amount of times for amount candidates

            votes(1, count) = "0"

        Next

        Console.WriteLine(" ")  

        console.Writeline("Great, you've registered, " & candreg & " candidates.")

        console.Writeline("You're voting for the following candidates: " & String.join(", ",votes))

        Console.WriteLine("You're now able to vote for the candidate of your choice")

        Console.writeline("INFO - If you'd like to abstain, please type any word, phrase or key except the candidates name")

        Console.WriteLine("")

        Console.WriteLine("/ BEGIN VOTING INPUT /")

        Console.WriteLine("")

        '2DArray Testing

​

        Dim voters As New System.Collections.Generic.List(Of String)

        For pupilcount = 1 to pupilnumb

            console.writeline("Please enter candidate ID")

            voteNum = Console.Readline()

            while voters.Contains(voteNum)

                Console.Writeline("This user has already voted! Please enter your voter number: ")

                voteNum = Console.Readline()

            end while

            voters.Add(voteNum)

            Console.WriteLine(" ")

            Console.writeline("Please enter the name of the candidate which you'd like to vote for")

            vote = console.readline()

            abstain = 0

            For i = 0 To candreg -1

                If votes(0, i) = vote

                    votes(1, i) = CStr(CInt(votes(1,i))+ 1)

                else

                    abstain = abstain + 1

                End if 

            Next

​

            'For i = 0 To candreg -1

            '   If user.contains(user) = true 

            '       console.writeline("Sorry, you already exist")

            '       votes(1, i) = CStr(CInt(votes(1,i))- 1)

            '   End if 

            'Next

        Next

​

​

        'TAKE VOTES IN (31) Input (ForLoop)

        'SEE WHOS WINNING

        'END- Winnter

​

        Dim max as integer

        Dim winners As New System.Collections.Generic.List(Of String)

        max = 0 

        For i = 0 To candreg -1

                    If CInt(votes(1, i)) >= max

                        If CInt(votes(1, i)) = max

                            winners.Add(votes(0,i))

                            max = CInt(votes(1, i))

                        Else

                            winners.Clear()

                            winners.Add(votes(0,i))

                            max = CInt(votes(1, i))

                        End If

                    End If

                Next    

​

                Console.WriteLine("The Winner(s):")

​

                For Each winner As String In winners

                    Console.Writeline(winner)

                Next

                Console.Writeline(" ")

                Console.Writeline("/ VOTING END /")

                Console.Writeline(" ")

                Console.Writeline("Voting Statistics:")

                Console.Writeline(" ")

                Console.Writeline("GENERAL INFORMATION")

                Console.Writeline(" ")

                Console.Writeline("Class Name: " & tutorname)

                Console.Writeline("Class Size: " & pupilnumb)

                Console.Writeline("Voting Aplicants: " & candreg)

                Console.Writeline(" ")

                Console.Writeline("VOTING STATISTICS")

                Console.Writeline(" ")

                Console.Writeline("Abstain Amount " & abstain)

                'Console.Writeline("Winner By Amount " & votes(0,i))

    'ignore spacing

    End Sub

End Module