Jag ska göra ett program, där användaren ska gissa ett ord. Ordet slumpas fram från en textfil. Filen innehåller 333 ord. Spelet går ut på att man gissar en bokstav i taget.Man kan bara använda en bokstav en gång och de framslumpade ordet kan bara användas en gång under samma session.
Det är ett tag sedan jag programmerade och jag har blivit lite ringrostig.
Är det någon som har några förslag på att lösa det här problemet. Gärna med kod.
Tack på förhand.

Dim StrTest As String
Dim intRadnr As Integer
Randomize()
intRadnr = CInt(Int((333 * Rnd()) + 1))
'Det fungerar utmärkt att slumpa ett tal, men ReadLine tar inte emot ett argument
'för att slumpa ett tal.
'Ett ord visas i taget i textrutan

StrTest = "hangmanord.txt" 'Fungerar bara om filen finns i Debug-mappen
If System.IO.File.Exists(StrTest) = True Then
Dim objReader As New System.IO.StreamReader(StrTest)
Do While objReader.Peek <> -1
StrTest = objReader.ReadLine
txtTest.Text = StrTest
Loop
objReader.Close()
Else
MsgBox("Filen finns inte")
End I