Option Explicit On
Imports System.IO

Module Module1
    Structure Account
        Dim intYear As Integer
        <VBFixedString(20)> Dim strFirstName As String
        <VBFixedString(20)> Dim strSurname As String
        <VBFixedString(22)> Dim strUsername As String
        <VBFixedString(2)> Dim strAccountclass As String
        <VBFixedString(22)> Dim strPassword As String
        Dim charForm As Char

    End Structure

    Sub Main()
        Dim intYear As Integer
        Dim blnAccount, blnYear, blnForm, blnPwordCheck, blnUcheck, existinguser As Boolean
        Dim strAccountType, strUsername, strConfPassword, strPassword, strfirstname, strsurname As String
        Dim arrAccount As Account
        Dim charForm As Char
        Dim filename As String
        Dim noOfRecords As Integer

        blnUcheck = False
        existinguser = False
        filename = "C:\Users\David\computing\Datastore.txt"
        FileOpen(1, filename, OpenMode.Random, , , Len(arrAccount))
        noOfRecords = LOF(1) / Len(arrAccount)



        Console.WriteLine("Welcome to the Greenpark Account Creation")
        Console.WriteLine("What is your first name?")
        strfirstname = StrConv(Console.ReadLine, VbStrConv.ProperCase)

        Console.WriteLine("What is your second name?")
        strsurname = StrConv(Console.ReadLine, VbStrConv.ProperCase)
        Do Until blnAccount = True
            Console.WriteLine("What account type is this? P for Pupil, S for Staff")
            strAccountType = UCase(Console.ReadLine)
            If strAccountType = "P" Then
                blnAccount = True
            ElseIf strAccountType = "S" Then

                blnAccount = True
            Else
                Console.WriteLine("That is an invalid account type")
                Console.ReadLine()
            End If
        Loop
        arrAccount.strAccountclass = strAccountType
        If strAccountType = "P" Then
            Do Until blnYear = True
                Try

                    Console.WriteLine("What year group are you in?")
                    intYear = Console.ReadLine()
                    If intYear >= 7 And intYear <= 13 Then
                        blnYear = True
                    Else
                        Console.WriteLine("That is an invalid year group")
                    End If


                Catch ex As Exception
                    Console.WriteLine("Only enter a number")
                End Try
            Loop
            Do Until blnForm = True
                Console.WriteLine("What form are you in?")
                charForm = UCase(Console.ReadLine)
                If charForm = "A" Then
                ElseIf charForm = "B" Then
                ElseIf charForm = "C" Then
                ElseIf charForm = "D" Then
                ElseIf charForm = "E" Then
                ElseIf charForm = "F" Then
                ElseIf charForm = "G" Then
                    blnForm = True
                Else
                    Console.WriteLine("That is an invalid form group")

                End If
            Loop
        End If

        Do While blnUcheck = False
            Console.WriteLine("Enter your desired username, must be no more than 11 characters")
            strUsername = Console.ReadLine()
            If Len(strUsername) > 11 Then
                Console.WriteLine("That username is not 11 characters.")
            Else : blnUcheck = True
            End If
        Loop
        Do While Not EOF(1) Or existinguser = True
            FileGet(1, arrAccount)
            If Trim(strUsername) = Trim(arrAccount.strUsername) Then
                Console.WriteLine("That username is already in use.")
                Console.ReadLine()
                existinguser = True
                Exit Sub
            End If
        Loop

        arrAccount.strUsername = strUsername
        Do Until blnPwordCheck = True
            Do
                Console.WriteLine("Enter your password")
                strPassword = Console.ReadLine
                If Len(strPassword) > 11 Then
                    Console.WriteLine("That password is too long.")
                End If
            Loop Until Len(strPassword) <= 11
            Console.WriteLine("Confirm your password")
            strConfPassword = Console.ReadLine

            If Not strConfPassword = strPassword Then
                Console.WriteLine("Those passwords are different.")
            Else
                arrAccount.strPassword = Console.ReadLine
                blnPwordCheck = True
            End If
        Loop

        arrAccount.intYear = intYear
        arrAccount.charForm = charForm
        arrAccount.strAccountclass = strAccountType
        arrAccount.strUsername = strUsername
        arrAccount.strPassword = strPassword
        arrAccount.strFirstName = strfirstname
        arrAccount.strSurname = strsurname
        FilePut(1, arrAccount, noOfRecords + 1)
        FileClose(1)
        Console.WriteLine("Account saved. Welcome to the GreenPark Reward Scheme System" & " " & Trim(strfirstname) & " " & Trim(strsurname) & " " & ", please log in with the details you just entered.")
        Console.ReadLine()


    End Sub

End Module