¡Descarga Apuntes sobre la programación en Foxpro y más Apuntes en PDF de Química solo en Docsity!
Guía teórica programación en Foxpro. 2do lapso. Conceptos iniciales. Variable : Espacio de memoria que permite almacenar información que puede cambiar o variar durante la ejecución de un programa. Las variables pueden ser dos tipos: numéricas y alfanuméricas. El nombre de una variable puede contener hasta 8 caracteres: letras y números. Debe comenzar con una letra.
Constante : Valor que no cambia o varia durante la ejecución de un programa. Ejemplo de una constante es el número Pi que siempre vale 3,
Comandos de Edición y Ejecución Modify Command : Permite entrar al editor de programas del foxpro. Puede escribirse como Modi Comm. Los programas en foxpro se reconocen o identifican porque poseen la extensión .Prg. Para almacenar un programa se utiliza la combinación Ctrol + W
Formato: Modi Comm [unidad: ] [Nombre del programa] Ejemplos: Modi comm A:Programa Almacena el programa en la unidad de Modi comm Sueldos disco por defecto
- Do: El comando Do ejecuta un programa en foxpro. Formato: Do [unidad: ] [Nombre del programa] Ejemplos: Do A:Programa Do Sueldos Comandos de Programación
- Clear: Borra / Limpia pantalla *** ó Note** : El asterisco o Note permite al usuario hacer un comentario o breve descripción del programa.
Set Talk Off / On : Desactiva/activa la visualización de mensajes e inicializaciones propios del foxpro.
Set Bell Off / On : Activa/ desactiva la emisión de sonidos (pitido) al momento de rellenar campos o variables.
- Set Stat On/Off : Activa / desactiva la visualización de la línea de status en el foxpro. @ Fila, Col to Fil,Col: Permite generar o imprimir un cuadro en pantalla, donde el usuario indica las coordenadas del extremo superior izquierdo y el extremo inferior derecho.
Formato: @ Fil,Col to Fil,Col Ejemplo:
- @ 5,10 to 9, Explicación:
- Genera un cuadro con línea simple desde la fila 5 columna 10 hasta la fila 9 columna 70 @ F,C clear to F,C: El comando Clear to, da la posibilidad al programador de borrar sectores o partes de la pantalla.
Formato: @ Fila, Col clear to Fila,Col Ejemplo:
- @ 5,10 clear to 15, Explicación:
- Borra la pantalla desde la fila 5 columna 10 hasta la fila 15 columna 30.
- Store : Permite asignar un valor o expresión a una variable o lista de variables. Formato: Store [valor/expresión] to Var1, Var2, ..., Var n Ejemplos:
- Store 0 to V1,V2,V
- Store Space(20) to Nomb, Dire
- Store V1+V2 to V Explicación:
- Asigna 0 a las variables V1,V2 y V3 con lo que pasan a ser variables numéricas.
- Da una longitud de 20 espacios a las variables Nomb y Dire
- Efectúa la suma de V1 y V2 , y el resultado se almacena en V @ Fil,Col Say : El Comando Say le proporciona al usuario la posibilidad de imprimir un literal, dato o variable en una coordenada específica de pantalla. Se debe indicar la fila (0−24) y después la columna (0−79). Si se indica un valor mayor el programa envía un mensaje de error.
Formato: @ Fila,Columna Say [ Literal , Variable] Ejemplos:
- @ 10,10 Say Incluya su nombre
- @ 15,20 Say Sueldo Explicación:
En la variable Prom se pueden almacenar solo dígitos y se ha establecido la posibilidad de especificar dos decimales.
- En la variable Nom se puede escribir letras y se visualizan en mayúsculas. Range : El comando range permite establecer o definir un rango de valores válidos para una variable numérica al momento de introducir datos por medio del teclado. Si el valor incluido sobrepasa o es menor al rango especificado, la ejecución del programa se detiene.
Formato: Range valor inicial, valor final Ejemplos:
- @ 5,25 say Introduzca una calificación (de 1 a 20) get Nota Pict 99 range 1,
- @ 7,25 say Introduzca edad del alumno get Edad Pict 99 range 6, Read Explicación.
- El valor que puede ser asignado a la variable Nota va de 1 a 20
- El valor que toma la variable Edad va de 6 a 18
- Valid: El comando Valid permite validar / definir la entrada de datos a una variable character. Formato: Valid Variable$items o datos válidos Ejemplo:
- @ 5,5 say Continua la ejecución del programa (S/N) get Ru Pict! Valid Ru$SN Explicación: La variable Ru sólo acepta como posible contenido una S o una N, en caso que el usuario coloque otro carácter la ejecución del programa no continua.
- Comando Set Color To : Permite cambiar o modificar los atributos de color de pantalla. Formato : Set Color To estandar, resaltado
- Estandar : Color de visualización de los SAY.
- Resaltado : Color de la visualización de las variables o campos editados con GET. Para desactivar una combinación de colores basta colocar Set Color to Colores :
B=Azul R= Rojo N=Negro Bg = Cian W=Blanco Gr = Marrón G=Verde RB= Magenta
- = Resalta color * = Parpadeo Ejemplos : Set Color To W+/B+, Gr+/N Letra blanca sobre fondo Azul (Say) y letra Amarilla sobre fondo Negro Set Color to R+/B+ Letra Roja sobre Fondo Azul Replicate : Permite repetir un carácter la cantidad de veces que se requiera. Se utiliza en la parte de impresión.
Formato: Replicate (signo, cantidad de veces) Ejemplo.
- @ 10,10 say Repl (*,20) Explicación:
- Imprime 20 veces el signo * a partir de las coordenadas fila 10 y columna 10. Condiciones. En foxpro el comando que permite establecer condiciones es el If− Else − Endif , en el cual si la condición verificada es cierta; se ejecutan las órdenes ubicadas después del If; si es falsa va a ejecutar las instrucciones ubicadas después del Else. Formato: If [Condición] Instrucciones Else Instrucciones Endif El Endif establece el final de las instrucciones que se ejecutan dependiendo de la condición que se está verificando. Ejemplo:
- @ 10,20 say Introduzca el sueldo del empleado get Suel Read
Operador Lógico Explicación .And. Todas las condiciones parciales evaluadas en el If deben cumplirse, para que la condición final sea cierta.
.Or. Basta que una de las condiciones parciales se cumpla, para que la condición final sea cierta
.Not. (^) • La condición evaluada debe ser falsa para que la condición final sea cierta
Ejemplos:
- @ 5,20 say Sueldo: get sue pict 99999 Read If sue>50000 .and. sue < Bono=sue *4 / 100 Endif
- @ 5,20 say Calificación: get Calif pict 99 range 1, Read If calif>10 .or. Calif = @ 7,30 say Nota aprobatoria Endif Explicación: Si el valor que se incluye a la variable sue (sueldo) está comprendido entre 50000 y 100000, entonces el programa procede a calcular Bono como el 4 % de sue.
Si la calificación incluida a la variable calif es mayor a 10 o igual se imprime el mensaje de nota aprobatoria.
Do Case − Endcase: El Do case − Endcase es un comando de selección múltiple, esto es, que verifica multiples condiciones (2 o más) y dependiendo de aquella que se cumpla ejecutará una serie de instrucciones. Formato: Do case Case [Condición 1] Instrucciones Case [Condición 2]
Instrucciones : Case [Condición N] Instrucciones Otherwise Instrucciones Endcase El Otherwise es una instrucción que se ejecuta cuando ninguna de las opciones establecidas se cumple. Cumple similar función que el Else en el If. En el Do Case se debe colocar Endcase una sola vez. Ejemplo:
- Clear Nm= @ 10,10 say Introduzca el Nº del mes: get nm pict 99 range 1, Read Do case Case nm= @ 12,20 say Enero Case nm= @ 12,20 say Febrero Case nm= @ 12,20 say Marzo : Case nm= @ 12,20 say Diciembre Endcase Explicación:
- Dependiendo del valor que tome la variable nm se imprime el nombre del mes. Al usar el comando range
- VI: Identifica el valor inicial que se asigna a la variable de control
- VF: Representa el mayor valor que toma la variable de control Step Inc: Indica el incremento, el valor en que aumenta la variable de control cada vez que pasa la ejecución del computador por el ciclo. Cuando no se especifica la cláusula Step, el For se incrementa por defecto de 1 en 1.
- Nota : Todo For debe tener su next asociado. Ejemplo 1. Numero= Contador= For Numero=1 to 20 @ Contador,10 say Número: @ Contador,20 say Numero pict 99 Contador= Contador+ Next Numero En el ejemplo anterior por medio del For, se imprimen los 20 primeros números naturales. La variable Contador tiene la función de sustituir el Nº de fila donde se imprimen los datos. Esto se denomina contador de líneas. También se observa que la variable número no sufre ningún incremento por medio de instrucción, sino que se hace en forma automática. La ejecución del programa pasa a la siguiente instrucción después del next, cuando la variable Número llega al valor de 21 que excede el valor final especificado. Ejemplo 2: Sumapar= Contador= For contador= 2 to 20 step 2 Sumapar=Sumapar+contador Next contador @ 5,15 say La suma de los números pares menores o iguales a 20 es: @ 5,55 say Sumpar pict 999 En el ejemplo anterior se acumulan los números pares comprendidos entre el 2 y el 20 ambos inclusive, es por ello que el valor inicial que toma la variable contador es de 2 y el valor final 20, a la vez que sufre incrementos de 2 en 2. Ejemplo 3:
Store 0 to Tnota, capla,capro,i,notapro For I=1 to 15 Clear Nota= @ 5,20 say Introduzca una nota: get Nota pict 99 range 1, read If Nota< Capla=capla+ Else Capro=Capro+ Endif Tnota=Tnota + nota Next i Notapro=Tnota/ @ 5,10 say Nota promedio: @ 5,25 say notapro En este ejemplo se pide la nota de 15 alumnos y posteriormente se halla o calcula el promedio de esas notas, así como también la cantidad de alumnos aprobados y aplazados. Do While − Enddo : Permite repetir una serie de instrucciones mientras la condición que se está verificando es cierta. Al momento de dejarse de cumplir la condición, el control del programa pasa a la siguiente instrucción después del Enddo. En caso de que se tengan que verificar dos o más condiciones se deben utilizar los operadores lógicos.
Formato: Do While <Condición> (And / or) <Condición> Instrucciones Enddo Ejemplos:
- Programa que calcula la suma de los 10 primeros números naturales
Enddo Sueldop=Tsueldo / 20 Clear @ 10,20 say El total de los sueldos es: @ 10,40 say Tsueldo pict 9999999 @ 12,20 say El sueldo promedio es: @ 12,40 say Sueldop pict 9999999 En el ejemplo anterior por medio del Do while se ha desarrollado un proceso que permite pedir el sueldo de 20 empleados y posteriormente hallar el total de los sueldos (por medio de un acumulador), mientras que la variable contador controla la cantidad de empleados leídos. Al tener el total de los sueldos, se puede obtener también el sueldo promedio al dividir el acumulador entre el número de empleados que es de 20. Comando Col( ): El comando Col( ) devuelve el Número de columna en que se encuentra ubicado el cursor.
Formato: Col( ) Ejemplo: @ 5,20 say Monto vendido: @ 5,col()+1 say Montov Pict 99 En el ejemplo la variable Montov será impresa en la columna siguiente (columna 34). Comando Row( ): El comando Row( ) devuelve el número de la fila en que se encuentra ubicado el cursor.
Formato: Row( ) Ejemplo: @ 5,20 say Monto vendido: @ Row()+1,20 say Montov Pict 99 En el ejemplo la variable Montov será impresa en la fila siguiente (fila 6). Funciones Función Int : La función Int (Integer), devuelve/toma la parte entera del argumento, desechando la parte decimal. El argumento puede estar representado por un valor, una variable o una expresión numérica.
Formato: INT (argumento)
Ejemplo: B= A= B= Int(A/2) @ 5,20 say Valor: @ 5,col( )+2 say B Pict 9 La variable B toma como valor el 3 que es la parte entera que se genera al momento de aplicar la división ((7/2)= 3.5), desechando la parte decimal. Función Round : La función Round (Rounded), redondea o aproxima un valor a su inmediato superior o inferior, dependiendo de la cantidad de decimales que se especifiquen
Formato: ROUND (argumento, Nº de decimales) Ejemplo: B= A= B= Round(A/2,0) @ 5,20 say Valor: @ 5,col( )+2 say B Pict 9 La variable B toma como valor 4 que es el resultado de aproximar a 0 decimales el resultado de la expresión utilizada en el argumento. ((7/2)= 3.5).
