instruciones while,for,if,do case

enrique
18 de Mayo del 2004
hola me podrian mandar ejemplos de como se usan estas instrucciones gracias de ante mano su amigo en rique desde xalapa

CesarZ
18 de Mayo del 2004
En el primer ejemplo, se muestran los números de 1 a 10.

En el segundo ejemplo se usan variables de memoria para los valores inicial, final y STEP para mostrar todos los registros numerados en par desde el 2 hasta el 10 de customer.

* Ejemplo 1
CLEAR
FOR gnCount = 1 TO 10
? gnCount
ENDFOR

* Ejemplo 2
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'datatestdata')
USE customer && Abre la tabla Customer
STORE 2 TO gnI && Valor inicial
STORE 10 TO gnJ && Valor final
STORE 2 TO K && Valor de incremento
FOR gnCount = gnI TO gnJ STEP K
GOTO gnCount && Mueve el puntero de registro
DISPLAY company && Muestra el nombre de empresa
ENDFOR

PD. Debes leer la ayuda del VFP.