Imports System

Public Module Module1

    Public Sub Main()

        Dim username, password, firstname, surname, emailAddress, domain, yearJoined as string

        Dim loginAttempts as integer

        Do

            Console.WriteLine("Enter your username: ")

            username = console.readline()

            Console.WriteLine("Enter your password: ")

            password = console.readline()

            If login(username, password) = True then ' Calls the function and passes the user's username and password as PARAMETERS to the function.

                Console.WriteLine("Login successful.")

            Else

                Console.Writeline("Invalid login.")

                loginAttempts += 1

                If loginAttempts = 3 then

                    Console.WriteLine("You have reached the number of login attempts.")

                    Environment.Exit(0) ' Close the console window (in visual studio)

                End If

            End If          

        Loop Until login(username, password) = True ' Repeats the login process until 'login' is true.

        Console.WriteLine("Welcome to the email generator for Crossley Heath.")

        Console.WriteLine("Enter your first name: ")

        firstname = console.readline()

        Console.WriteLine("Enter your surname: ")

        surname = console.readline()

        Console.WriteLine("Enter the year you joined Crossley Heath: ")

        yearJoined = console.readline()

        domain = "@crossleyheath.org.uk"

        emailAddress = firstname.substring(0, 2) + surname + yearJoined.substring(2, 2) + domain

        ' String concatenation is combining a number of strings/substring together.

        Console.WriteLine("Your school email address is: " & emailAddress)

    End Sub

    Public Function login(ByRef username as string, ByRef password as string) As Boolean

        If username = "Test" and password = "1234" or username = "10W" and password = "CHS" then

            Login = True ' The user has entered a valid login and the function will be changed to True.

        Else

            Login = False

        End If

    End Function

End Module