PAGINA 3 ( LENGUAJE VISUAL )

comandos

SET DEFAULT especifica la unidad y el directorio por defecto de la aplicación

Clear: Limpia pantalla

Clear Windows:

Dir: Muestra el contenido de un directorio del disco.


Dir *.*: muestra todo el contenido de un directorio en el disco

Dir *.prg: muestra solo los archivos con extensión prg en el disco

Set talk off/on: Determina si Visual FoxPro muestra o no los resultados de los comandos.

Set Date to <formato>: Especifica el formato para mostrar las expresiones Date y DateTime.

Quit: sirve para salir

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

Open data base: Abre una base de datos.

Close data base: cierra una base de datos.

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

Close Table: cerrar una tabla

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

Append Blank: 

Delete: Marca los registros que se van a eliminar.

Delete All: marca todos los registros y los borra

Delete For:

Delete next 3: borra los 3 siguientes registros.

Recall: Quita la marca de los registros marcados para eliminación en la tabla seleccionada.

Recall all: quita la marca de todos los registros marcados.

Recall for:

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

Replace: Actualiza los registros de una tabla.

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

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

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

Recall next 3: quita la marca de los siguientes 3 registros marcados.

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.

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

Go: Coloca el puntero de registro en el número de registro especificado de una tabla.

Go3: coloca el puntero de registro 3 posiciones hacia delante

Go top: nos permite trasladar al primer registro de la tabla.

Go bottom: nos permite trasladar al último registro de la tabla.

Skip: Mueve el puntero de registro hacia adelante o hacia atrás en una tabla.

Skip -1: mueve el puntero de registro hacia atrás 1 posición.

Skip 1: mueve el puntero de registro hacia delante una posición.

List stru: 

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

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

Do: Ejecuta un programa o un procedimiento de Visual FoxPro.

Create: Crea una nueva tabla de Visual FoxPro

close ALL
clear
?"PROGRAMADOR: HECTOR TEHUACATL ROSALES"
?""
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)

             

close ALL
clear
?"PROVEDOR:HECTOR TEHUACATL ROSALES"
?""
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]
nMIn = aVECTOR[1]
nSuma =0
for nI =1 to nN
     nsuma = nsuma +aVector[nI]   
     IF avector[nI] > nMax then
         nMax =avector[nI]
     Endif
Next
nmedia =nsuma / nN
? "SUMA =" +str(nsuma)
? "media =" + str(nMedia, 10, 2)
? "maximo=" + str(nMax)
? "minimo=" + str(nMin)