Anónimo
Do While visual fox 6
¿Este es el código para simplificar una fracción pero me da error al inicio de Do While me podrías decir que podría ser? Y si ves algún otro error.
N= thisform.Text1.Value
D= thisform.Text2.Value
If N < D Then
C = N
Else
C = D
Do While (n%c!=0) or (D%C!=0)
c = c - 1
EndDo
endif
N = N / c
D = D / c
N = Str(N)
D = Str(D)
F = (N + " / " + D)
thisform.text3.value=F
Gracias de antemano
N= thisform.Text1.Value
D= thisform.Text2.Value
If N < D Then
C = N
Else
C = D
Do While (n%c!=0) or (D%C!=0)
c = c - 1
EndDo
endif
N = N / c
D = D / c
N = Str(N)
D = Str(D)
F = (N + " / " + D)
thisform.text3.value=F
Gracias de antemano
Respuesta de ikz0f7
1
Mm pues yo hice la prueba en Visual FoxPro 9 y no me marcó ningún error. Sé que tú usaste el 6, nada más que en este momento no lo tengo disponible como para realizar la prueba, aunque pienso que igual debería funcionar.
¿Exactamente qué error te marca?
¿Qué datos le estás mandando (a las variables N y D)?
En cuanto al programa, pues veo que funciona para algunos casos, no para todos, pero igual pienso que como práctica, o dependiendo de las circunstancias, puede ser suficiente. Igual podrías cambiar las líneas donde conviertes los números a cadena, para que al mostrarlo no se vea tan espaciado.
N = LTRIM(STR(N))
D = LTRIM(STR(D))
¿Exactamente qué error te marca?
¿Qué datos le estás mandando (a las variables N y D)?
En cuanto al programa, pues veo que funciona para algunos casos, no para todos, pero igual pienso que como práctica, o dependiendo de las circunstancias, puede ser suficiente. Igual podrías cambiar las líneas donde conviertes los números a cadena, para que al mostrarlo no se vea tan espaciado.
N = LTRIM(STR(N))
D = LTRIM(STR(D))