ahorcado

Module Module1 

Sub Main() 
Console.WriteLine("------------------------juego del ahorcado--------------------------") 
Console.WriteLine("Reglas") 
Console.WriteLine("------") 
Console.WriteLine("7errores eres un mal jugador") 
Console.WriteLine("2-5 debes de entrenarte un poco mas") 
Console.WriteLine("0 eres un tio muy listo") 

Dim cadenaoculta(4) As String 
Dim fallos() As String 'en estatabla iré guardando los fallos 
Dim aciertos() As String 'en esta tabla iré guardando los aciertos 

'palabra que hay adivinar 
cadenaoculta(0) = "c" 
cadenaoculta(1) = "o" 
cadenaoculta(2) = "c" cadenaoculta(3) = "h" 
cadenaoculta(4) = "e" 

'aqui recorro la tabla para verificar que la palabra que tengo que adivinar esta correctamente en la tabla 

Dim r As Integer 'contador que recorre lacadenaoculta 

For r = 0 To cadenaoculta.GetUpperBound(r) 
Console.WriteLine("posicion:{0} ->letra: {1} ", r, cadenaoculta(r)) 
Next 

'compruebo el tamaño de la cadena 

Dim tamaño As String 
tamaño =cadenaoculta.Length 

Console.WriteLine() 
Console.WriteLine("el tamaño de la palabra a adivinar tiene {0} letras", tamaño) 

Console.WriteLine("ahora intenta adivinar la palabra") 
Dim letras As String= "" 
letras = Console.ReadLine() 

'control de error para que no casque cuando meta un numero 
While True 
Try 
If IsNumeric(letras) Then 
Console.WriteLine("error, no puedes escribir numeros") Else 
Exit While 
End If 
Catch ex As Exception 
Console.WriteLine("vuelve a introducir una letra") 
End Try 
End While 

Dim f As Integer 'contador de fallos 
Dim a As Integer 'contador de aciertos ReDim Preserve fallos(f) 

'este while me ejecuta el juego mientras el jugador no supere los 7 fallos o acierta 

While f < 7 And a = 0 
(en este for me da un fallo cuando introdusco la letra, y creo queen los demas for tambien no acabo de entender por que) 
For r = 0 To cadenaoculta.GetUpperBound(r) 

If letras <> cadenaoculta(f) Then 
fallos(f) = letras 
f += 1 
Else 
aciertos(a) = letras 
a +=...