0

Tengo un inconveniente estoy realizando un pacman en visual basic de excel, lo que tengo es que cuando aprieto las teclas se me mueve el pacman osea la imagen.

Tengo problemas para el asunto de los muros, el código lo tengo hasta el momento así

Select Case KeyCode
Case 37 'izquierda
pacmann.Left = pacmann.Left - 10

Case 38 'arriba
pacmann.Top = pacmann.Top - 10

Case 39 'derecha
pacmann.Left = pacmann.Left + 10

Case 40 'abajo
If (Label19.Top <> 222) Then

pacmann.Top = pacmann.Top + 10
End If
end select 

En el label19 es como una barra de laberinto entonces ese label19 tiene como cabeza 222 entonces definí que si la cabeza del label19 es diferente a 222 entonces deje bajar pero cuando hago esto no me deja bajar a ningún lado.

¿Cómo soluciono el problema?

Case 40 'abajo
If (Label19.Top <> 222) Then

pacmann.Top = pacmann.Top + 10
End If
11
  • el label se mueve?
    – gbianchi
    el 2 jul. 2017 a las 15:05
  • El label19 no se mueve solo seria como un muro del laberinto
    – paola
    el 2 jul. 2017 a las 15:51
  • Y entonces pq comparas su posicion, si deberia ser estatica?
    – gbianchi
    el 2 jul. 2017 a las 15:55
  • @gbianchi mmmm....
    – paola
    el 2 jul. 2017 a las 18:47
  • No terminaria de entender tu problema o la logica de ver si rl muro sigue donde esta
    – gbianchi
    el 2 jul. 2017 a las 18:49

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.