SET SCOREBOARD OFF: Apaga los mensajes de insertar y mayúsculas
SET CONFIRM ON: Espera la confirmación de un enter para salirse de un campo de captura
SET BELL OFF: Elimina los ruidos de la bocina cuando se cometen errores.
SIMBOLOS DE LAS OPERACIONES
SUMA=+, RESTA=-, MULTIPLICACION=*, DIVISION=/,
SQRT(X)= Raiz cuadrada de X,
X**n= Elevar a la potencia enecima un numero X
W=50, significa que a la variable W se le asigna el valor de 50
Equivale al simbolo de proceso de un driagrama de flujo.
50=W, No tiene ningun sentido ya que al numero 50 no se le puede asignar ninguna variable u otro numero.
FUNCIONES DE VARIABLES NUMERICAS
X=INT(Y) Asigna a la variable X la parte entera de Y
X=3.5Le asigna a X el valor de 3
X=INT(5/2) Le asigna el valor de 2 a X
R=MOD(X,Y) asigna a la variable R el residuo de dividir el numero X entre el numero Y
X=200
Z=STR(X,3), convierte el numero 200 a una cadena de caracteres de “200”
Z=”520”
Y=VAL(Z), asigna a la variable y el valor de la cadena Z, en este caso 520, si existe alguna letra en la cadena el valor puede ser cero.
Y=VAL(“520AX”), asigna a Y el valor de 520 (ignora letras del final)
Y=VAL(“A520AX”), asigna a Y el valor de cero.
ESCRIBIR EN LA PANTALLA
@ 0,0 to 24,79 DOUBLE-Se escribe en la pantalla un rectangulo doble desde el renglón 0, columna 0, hasta el renglón 24, columna 79
@ 3,5 SAY “DEME EL VALOR DE X”GET X PICTURE “999.99”, Mandaa escribir en la pantalla a partir del renglón 3 columna 5 la cadena de caracteres “DEME EL VALOR DE X” y ademas espera que le proporcionen un valor de maximo de cinco digitos tres enteros y dos decimales.
X=2599.2
@ 3,5 SAY TRANSFORM(X,”#,###.##”)
Manda a escribir en la pantalla un numero transformandolo a tipo carácter incluyendo las comas de los miles, en este caso parece el numero 2,599.20
@ 3,5 GET PICTURE “999.99” Espera capturar en la pantalla el valor de X (Despues de un GET en la siguiente linea debe de haber un READ)
FUNCIONES PARA CADENAS
A=”JORGE” , B=”PEREZ”
Z= A+ SPACE(1) + B, Asigna a Z la cadena “JORGE PEREZ”
Y= TRIM(“JORGE”), Asigna a la cadena “JORGE”, Eliminando los espacios en blanco después de JORGE
Z= LTRIM(“JORGE”), Asigna a Z la cadena “JORGE” eliminando los espacios en blanco delante de “JORGE”
A= LEN(“TECNOLOGICO”), Asigna a la variable A el numero dado por la cantidad de letras y espacios de un texto, en este caso “TECNOLOGICO”, Da un valor de 11.
X=”JORGE”
Y= LEN(X), Le asigna a la variable Y el valor de 7 (Hay dos espacios en blanco)
Y=LEN(TRIM(X)), Le asigna a la variable Y el valor de 5(Los espacios en blanco se eliminaron con el TRIM)
A= “MERIDA”
FUNCION SUBSTRAER, SUBST(A,X,Y), substrae de toda la cadena A apartir de la posición X, una cadena de tamaño Y
B= SUBST (A,2,2), le asigna a la variable B la cadena “ER”
FUNCION AT (Posicion de una cadena dentro de otra)
X= AT (“R”,A) en que posición se encuentra la letra R, dentro de la variable de cadena A (“MERIDA”), el valor que se le asigna a X es el 3.
ESTRUCTURAS PROGRAMATICAS
Estructura IF – ENDIF
Es equivalente al simbolo de decision de los diagramas de flujo.
La estructura siguiente ejecutara todas las instrucciones que esten dentro del IF-ENDIF solo si el valor de X es igual a 0, en caso contrario se sigue con las instrucciones del programa debajo del ENDIF
IF X=0
A=X**2
……
ENDIF
……
La estructura siguiente ejecutara todas las instrucciones que esten a continuacion del IF solo si el valor de X es igual a 0, en caso contrario se ejecutaran todas las instrucciones debajo del ELSE.
IF X=0
A=X**2
…..
ELSE
A=X**3
…..
ENDIF
CONNOTACIONES LOGICAS USADAS CON LAS ESTRUCTURAS
Son .AND. (y), .OR. (o), .NOT (no)
Se pueden usar acompañando a cualquiera de las estructuras lógicas.
En el siguiente ejemplo se tienen que cumplir las dos cosas para entrar al IF, que la variable X sea igual a 0 y que la variable Y sea igual a 25
IF X=0 .AND. Y=25
Z=3
ENDIF
En el siguiente ejemplo se deben cumplir alguna de las dos cosas para entrar al IF – ENDIF.
IF X=0 .OR. Y=25
Z=3
ENDIF
Estructura – DO WHILE – ENDDO
Si X es diferente de 0, ninguna de las instrucciones del DO WHILE se ejecutaran, Si X=0 se ejecutaran las instrucciones que estan dentro del DO WHILE, Si al llegar al final del DO WHILE, el ENDDO, El valor de X ya no es cero, se sale del DO WHILE y continuan ejecutandose las demas instrucciones, en caso que si lo sea se regresa nuevamente al principio del DO WHILE
DO WHILE X=0
Z=4*X+3
…..
ENDDO
LOOP es una instrucción exclusiva para el DO WHILE y sirve para enviar la ejecución al final del DO WHILE, o sea en el ENDDO
EXIT es una instrucción exclusiva para el DO WHILE y sirve para salir del ciclo DO WHILE
DO CASE – END CASE
Es una estructura que soporta tantas condiciones como se desee, pero al cumplirse la primera el programa se traslada al final del CASE el ENDCASE.
DO CASE
CASE X<0
Para valores negativos
CASE X<=1
Para valores desde 0 a 1 (ya se chocaron antes las menores que 0)
CASE <=2
Para valores mayores que 1 hasta valores menores o iguales que 2
CASE <=3
Para valores mayores que dos, hasta valores menores o iguales que 3
OTHERWISE
Para valores mayores que 3
ENDCASE
El orden de los CASE es importante, por ejemplo si se pone primero el CASE X=3, se ejecuta ese CASE las veces que sea un numero o igual que 3, entre ellos los casos CASE X<=1, y CASE X<=2, de modo que si estos casos están después de un CASE <=3, nunca se ejecutaran.
Los CASE soportan también las connotaciones lógicas, como se puede ver a continuación:
DO CASE
CASE X=“A” .OR. X=B
…..
…..
CASE X = ”C”
…..
…..
OTHERWISE
…..
ENDCASE
En ningun caso y por ningun motivo se podran traslapar dos estructuras programaticas, puede una estructura contener a otras las que sean, pero al tener abierta una estructura, si se abre otra tendra que cerrarsse antes de que se cierre la primera.
