Option Explicit On<br /> Imports System.IO<br /> Module Example<br /> Dim CurrentFileWriter As StreamWriter<br /> Dim CurrentFileReader As StreamReader<br /> Sub Main()<br /> Dim stream As New IO.StreamWriter("C:\Users\Conor\Documents\Visual Studio 2010\Spelling Game\Spelling Game\bin\Debug\Answers.txt", False)<br /> stream.WriteLine("")<br /> stream.Close()<br /> Dim FileName, Answers As String<br /> FileName = "C:\Users\Conor\Documents\Visual Studio 2010\Spelling Game\Spelling Game\bin\Debug\Answers.txt"<br /> CurrentFileWriter = New StreamWriter(FileName)<br /> Console.WriteLine("Please Enter this Word:")<br /> Call WordSpell()<br /> Call Countdown()<br /> Answers = Console.ReadLine<br /> CurrentFileWriter.WriteLine(Answers)<br /> CurrentFileWriter.Close()<br /> Console.WriteLine("Checking Answer...")<br /> For Each FileName As String In IO.File.ReadLines(FileName)<br /> If FileName.Contains(Answers) Then<br /> Console.WriteLine("Well Done!")<br /> Else<br /> Console.WriteLine("Unlucky Try Again!")<br /> <br /> End If<br /> End Sub<br /> Sub Countdown()<br /> Threading.Thread.Sleep(1000)<br /> Console.WriteLine("5")<br /> Threading.Thread.Sleep(1000)<br /> Console.WriteLine("4")<br /> Threading.Thread.Sleep(1000)<br /> Console.WriteLine("3")<br /> Threading.Thread.Sleep(1000)<br /> Console.WriteLine("2")<br /> Threading.Thread.Sleep(1000)<br /> Console.WriteLine("1")<br /> Threading.Thread.Sleep(1000)<br /> End Sub<br /> Sub WordSpell()<br /> Dim rnd As New Random()<br /> Dim Words() As String = {"accommodate", "chauffeur", "definitely", "fluorescent", "pharaoh",<br /> "unfortunately", "immediately", "ecstasy", "assassination", "environment", "completely"}<br /> Dim WordIndex As Integer = rnd.Next(Words.Length)<br /> Console.WriteLine("{0}", Words(WordIndex))<br /> End Sub<br /> End Module
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)