Submodulo III : Elaborar sistemas de información mediante un lenguaje de programación visual

Comandos de visual FoxPro 

Create: Crea una nueva tabla de Visual FoxPro.

Close data base: cierra una base de datos.

List: Muestra continuamente información de tabla o de entorno.

Cancel: Finaliza la ejecución del archivo de programa actual de Visual FoxPro.

Append: Agrega uno o más registros nuevos al final de una tabla.

Close All: cierra la base de datos activa y todas sus tablas.

Clear: Libera de la memoria el elemento o los elementos especificados.

Store: Almacena datos en una variable, en una matriz o en un elemento de matriz.

Use: Abre una tabla y sus archivos de índice asociados, o una vista SQL.

Index: Crea un archivo de índice para mostrar registros de tabla y tener acceso a los mismos en un orden lógico.

Sort: Ordena los registros de la tabla seleccionada actualmente y envía los registros ordenados a una tabla nueva.

Browse: Abre la ventana Examinar y muestra los registros de la tabla actual o seleccionada.

Modify structure: Muestra el Diseñador de tablas, que permite modificar la estructura de una tabla.

ejemplo: DISPLAY STRUCTURE [IN nWorkArea | cTableAlias]
   [TO PRINTER [PROMPT] | TO FILE FileName] [NOCONSOLE]

Modify command: Abre una ventana de edición de texto y le permite modificar o crear un archivo de programa.

ejemplo: MODIFY COMMAND [FileName | ?] [NOEDIT] [NOMENU] [NOWAIT]
   [RANGE nStartCharacter, nEndCharacter] [[WINDOW WindowName1]
   [IN [WINDOW] WindowName2 | IN SCREEN]] [AS nCodePage] [SAME]
   [SAVE]

Delete: Marca los registros que se van a eliminar.

ejemplo: DELETE [Scope] [FOR lExpression1] [WHILE lExpression2]
   [IN nWorkArea | cTableAlias] [NOOPTIMIZE]

Report form: Muestra o imprime un informe bajo el control de un archivo de definición de informe creado con MODIFY REPORT o CREATE REPORT.

zap: Elimina todos los registros de la tabla actual y deja sólo la estructura de la tabla

ejemplo:  ZAP [IN nWorkArea | cTableAlias]

pack: Borra definitivamente todos los registros marcados para eliminar de la tabla actual y reduce el tamaño de un archivo memo asociado a la tabla.

ejemplo: PACK [MEMO] [DBF] [Tablename ] [IN nWorkarea | cTableAlias]

locate: Busca secuencialmente en la tabla el primer registro que coincida con la expresión lógica especificada.

ejemplo: LOCATE [FOR lExpression1] [Scope] [WHILE] [NOOPTIMIZE]
   [IN nWorkArea | cTableAlias]

go top: Sitúa el puntero de registro en el primer registro de la tabla. 


go bottom: Sitúa el puntero de registro en el último registro de la tabla. 



EJERCICIOS:

1.- En este primer ejercicio vamos a escribir un programa que lea tres números y determine el numero mayor
 el numero central y el numero menor. Debemos asumir que los tres números son siempre distintos. 

close all
clear
? "Programador: Diana laura Bracho Hernandez"                
?

input "Introduzca el valor de A?" to nA
input "Introduzca el valor de B?" to nB
input "Introduzca el valor de C?" to nC
If nA > nB then
nMay = nA
nMen = nB
ELSE 
nMay= nB
nMen= nB
Endif
If nC > nMay then
nCen = nMay 
nMAY = nC 
else 
If nC > nMen Then 
nCen = nC 
else 
nCen = nMen 
nMen = nC 
  endif
endif 
? "mayor =" + str (nMay) 
? "Central =" + str (nCen)
? "Menor =" + str (nMen)

2.- Un restaurante ofrece un descuento del 10% para consumos entre $30.00 y $50.00; 
un descuento del 20% para consumos mayores a $50.00; para todos los demas casos no se aplica ningun tipo de descuento. 
el ejercicio consiste en elaborar un programa que permita determinar el importe a pagar por el consumidor.


close all
clear
? "Programador: Diana laura Bracho Hernandez"   
?
Do While .T. 
  Input "consumo:" to nConsumo 
  if type ("nConsumo")="N"
     Exit
 Endif 
EndDo 
Do case 
   case nConsumo >=30 and nConsumo <=50
        nImporte = nConsumo * 0.9 
   case nConsumo >50 
        nImporte = nConsumo * 0.8
   Otherwise 
        nImporte = nConsumo 
Endcase 
?"Importe a pagar:" + str (nImporte) 
   


3.- El ejercicio consiste en escribir un programa que lea "n" enteros 
y calcule la suma total, la media aritmética, el maximo y el mínimo de los datos. 

close all 
clear 
? "Programador: Diana laura Bracho Hernandez"   
?
input "ingrese cantidad de numeros?" to nN 
declare avector (nN)
For nI = 1 To nN 
    input "numero [" + str(nI) + "]?" to avector (nI) 
Next
nMax = aVector [1]
nMix = aVector [1]
nSuma = 0
For nI = 1 to nN
nSuma = nSuma + aVector [nI]
If aVector [nI] > nMax then 
  nMax = aVector [nI]
 Endif
 if aVector [nI] < nMin Then
   nMin= aVector [nI]
 Endif
Next
nMedia=nSuma/nN
? "Suma =" + Str (nSuma)
? "Media =" + Str (nMedia,10,2)
? "Maximo=" + Str (nMax)
? " Minimo=" + Str (nMin) 

4.- A continuación vamos a escribir una función que reciba como argumento de entrada una cadena de caracteres 
y la devuelva en forma inversa, Por ejemplo si ingresa la cadena CORAZÓN deberá retornar NOZAROC.   


Close All 

Clear
? "Programador: Diana laura Bracho Hernandez"   
?
Accept "Ingrese una cadena?" To cCadena
?"Cadena invertida="+CadInv(cCadena)
Function CadInv
Parameters cCadena
nN=Len(Alltrim(cCadena))
Declare cTemporal(nN)
For nI=1 To nN
cTemporal(nI)=SubStr(cCadena, nI, 1)
Next
cInvertida=""
For nJ=nN To 1 Step -1
cInvertida=cInvertida+cTemporal(nJ)
Next J

Return cInvertida