Mover personaje por laberinto

[Kraigs]

Hola, he creado un laberinto con visual basic y necesito mover al personaje de este. He provado de usar el KeyDown pero no acabo de conseguirlo ¿Podria alguien explicarme como mover al personaje?
He creado el laberinto con

Código:

Dim T(1 To 15, 1 To 8) As Integer

y luego a cada coordenada le he asignado su correspondiente imagen.

Lo que supongo que habrá que hacer es redibujar el laberinto a cada movimiento pero no consigo hacerlo.

Gracias de antemano
Kraigs

Edit:

Ya he solucionado el problema del keydown y consigo mover al personaje pero al llegar a las coordenadas (10;2) o (10;6) me salta error


y cuando le doy a debug me sale esto


No consigo arreglarlo, espero que alguien pueda ayudarme.

[Kraigs]

¿Tras 36 lecturas nadie ha podido desvelar mi problema?
¿Alguien podria decirme aunque sea a que se debe este tipo de errores?
Gracias

[KingColt]

Busca ese error en la ayuda de visual basic o en internet parece que
hay un conflicto con alguna funcion o variable

cheka esto

Esta buena tu aplicacion.

[David]

El problema es que no consigo leer el código desde tu imagen...

[jcasillase]

El error Type Mismatch se debe a que tu variable esta perdiendo el valor dejandola como campo no numerico o estas quedando fuera de los rangos que tu mismo estableces.... Revisa el valor de Coordenada.Caption y checa perfectamente esa linea de codigo con el valor que tienes asignado en ese momento... Saludos

Juan Ramon Casillas Estrada

[Kraigs]

Ok gracias por las respuestas voy a "re"revisar el codigo entero aunque no encontré el problema anteriormente.

La parte que me da error es esta

Código:

If (Mid(Coordenada.Caption, 1, 1) + X >= 1) And (Mid(Coordenada.Caption, 1, 1) + X <= 15) And (Mid(Coordenada.Caption, 3, 1) + Y >= 1) And (Mid(Coordenada.Caption, 3, 1) + Y <= 8) Then
If T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 3 Then
T(Mid(Coordenada.Caption, 1, 1), Mid(Coordenada.Caption, 3, 1)) = 3
T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 1
Coordenada.Caption = Mid(Coordenada.Caption, 1, 1) + X & "," & Mid(Coordenada.Caption, 3, 1) + Y
Redibujar

Else
If T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 2 Then
MsgBox "¡Felicitaciones acabas de completar el nivel!", , "Fin del juego"
Timer1.Enabled = False
End If

End If
End If
End If

End Sub

[David]

Así como te respondió jcasillase debes revisar el valor del Caption, tal vez no sea un valor numérico válido.

Y te recomiendo que crees una variable de tipo numérico para manejar en el código en vez de usar directamente Coordenada.Caption... Algo así:

Código:

 
Dim vCoordenada As Double
vCoordenada = Val(Coordenada.Caption)

[Foxi]

Un par de cosillas:

- A primera vista, me parece que tu error se produce por no utilizar algunos paréntesis en tu condición (recuerda que será siempre mejor utilizar paréntesis de más, sobre todo si haces condiciones largas)... Comprueba la Prioridad de los operadores.

- Si estuviera equivocado en el primer vistazo de tu condición, puedes probar dónde esta el error exactamente, en la ventana inmediato que tienes debajo: tecleando ? seguido de partes completas de tu condición. De esta forma, podrás observar el resultado de dichas partes, o bien reproducir el error en partes cada vez más pequeñas.

Saludos, Foxi.