Forums Últimos mensajes - Powered by IBM
 

Ping pon en Fox

20/07/2005 - 17:18 por Donovan Casanova Ferrer | Informe spam
Hola estoy haciendo un como tipo juego en este lenguaje no se mucho de fox
apenas soy estudiante pero le hecho todas las ganas porque me gusta mucho
bueno lo que pasa es que tengo un container un shape circular y dos shapes
en forma de barra uno en cada lado bueno lo que quiero hacer es que la
bola al momento de chocar contra estas barras rebote osea me explico si la
bola se mueve para la izquierda que se valla para la derecha pero si no
choca que se valla hasta donde iria si no estuviera la barra este es mi
codigo ya hice que se moviera pero quisiera que me ayudaran para saber
como hacerla rebotar con las barras este es mi codigo en el timer

<><><><><><><><><>

If VDIRV = "ABAJO" Then
vtop = vtop + 5
If vtop >= (THISFORM.cancha.Height - THISFORM.BOLA.Height) Then
VDIRV = "ARRIBA"
EndIF
ENDIF

IF VDIRV = "ARRIBA" THEN
VTOP = VTOP - 5
IF VTOP <= 0 THEN
VDIRV = "ABAJO"
ENDIF
ENDIF

IF VDIRH = "DERECHA" THEN
VLEFT = VLEFT + 5
IF VLEFT >= (THISFORm.cancha.WIDTH - THISFORM.BOLA.WIDTH) THEN
VDIRH = "IZQUIERDA"
ENDIF
ENDIF

IF VDIRH = "IZQUIERDA" THEN
VLEFT = VLEFT - 5
IF VLEFT <= 0 THEN
VDIRH = "DERECHA"
ENDIF
ENDIF
THISFORM.BOLA.TOP = VTOP
THISFORM.BOLA.LEFT = VLEFT

<><><><><><><><><>

mis variables son estas:

PUBLIC VTOP,VLEFT,VDIRV,VDIRH
VTOP = 0
VLEFT = 0
VDIRV = "ABAJO"
VDIRH = "DERECHA"

espero que me puedan ayudar saludos gracias



-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
 

Leer las respuestas

#1 Luis María Guayán
20/07/2005 - 17:37 | Informe spam
Quizás no es lo que buscas, pero mira si este juego de Tetris te ayuda:

http://www.portalfox.com/article.php?sidc7

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Donovan Casanova Ferrer" escribió en el mensaje
news:
Hola estoy haciendo un como tipo juego en este lenguaje no se mucho de fox
apenas soy estudiante pero le hecho todas las ganas porque me gusta mucho
bueno lo que pasa es que tengo un container un shape circular y dos shapes
en forma de barra uno en cada lado bueno lo que quiero hacer es que la
bola al momento de chocar contra estas barras rebote osea me explico si la
bola se mueve para la izquierda que se valla para la derecha pero si no
choca que se valla hasta donde iria si no estuviera la barra este es mi
codigo ya hice que se moviera pero quisiera que me ayudaran para saber
como hacerla rebotar con las barras este es mi codigo en el timer

<><><><><><><><><>

If VDIRV = "ABAJO" Then
vtop = vtop + 5
If vtop >= (THISFORM.cancha.Height - THISFORM.BOLA.Height) Then
VDIRV = "ARRIBA"
EndIF
ENDIF

IF VDIRV = "ARRIBA" THEN
VTOP = VTOP - 5
IF VTOP <= 0 THEN
VDIRV = "ABAJO"
ENDIF
ENDIF

IF VDIRH = "DERECHA" THEN
VLEFT = VLEFT + 5
IF VLEFT >= (THISFORm.cancha.WIDTH - THISFORM.BOLA.WIDTH) THEN
VDIRH = "IZQUIERDA"
ENDIF
ENDIF

IF VDIRH = "IZQUIERDA" THEN
VLEFT = VLEFT - 5
IF VLEFT <= 0 THEN
VDIRH = "DERECHA"
ENDIF
ENDIF
THISFORM.BOLA.TOP = VTOP
THISFORM.BOLA.LEFT = VLEFT

<><><><><><><><><>

mis variables son estas:

PUBLIC VTOP,VLEFT,VDIRV,VDIRH
VTOP = 0
VLEFT = 0
VDIRV = "ABAJO"
VDIRH = "DERECHA"

espero que me puedan ayudar saludos gracias




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Preguntas similares