This is what I have so far
Expand|Select|Wrap|Line Numbers
- Module Module1
- Sub Main()
- Dim Choice As Integer
- Dim fileReader As System.IO.StreamReader
- Dim stringreader As String
- Console.ForegroundColor = ConsoleColor.Blue
- Console.WriteLine("For easy mode, type 1, for hard mode type 2")
- Console.WriteLine("Easy mode has a 3x3 grid of words, 4x4 for hard")
- Choice = Console.ReadLine()
- Select Case Choice
- Case 1 'Easy Mode
- Console.WriteLine("Hardmode")
- fileReader =
- My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\WordsEdited.txt")
- stringreader = fileReader.ReadLine()
- Console.WriteLine("The first line of the file is " & stringreader)
- Console.Clear() 'Adios, written things
- 'Calls up a modified file fileReader =
- My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\WordsEdited2.txt")
- stringreader = fileReader.ReadLine()
- Console.WriteLine("The first line of the file is " & stringreader)
- Console.ReadLine()
- Case 2 'Hard mode
- Console.WriteLine("Easy Mode")
- fileReader =
- My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\Words.txt")
- stringreader = fileReader.ReadLine()
- Console.WriteLine("The first line of the file is " & stringreader)
- Console.Clear() 'Adios, written things.
- 'Calls up a modified file
- fileReader =
- My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\Words2.txt")
- stringreader = fileReader.ReadLine()
- Console.WriteLine("The first line of the file is " & stringreader)
- Case Else
- Console.WriteLine("Incorrect Output")
- End Select
- Console.ReadLine()
- End Sub