lenguaje visual


create: 

FileName

Especifica el nombre de archivo para la consulta. Si no se incluye ninguna extensión con el nombre del archivo, Visual FoxPro le asignará automáticamente la extensión .qpr.
 
Muestra el cuadro de diálogo Crear, que le pide que asigne nombre a la consulta que desea crear.
Al igual realiza diferentes funciones como....
  • Crea base de datos.
  • Da la opcion de llenar la base de datos o capturar registros.
  • Define campos.

close database:

Cierra la base de datos actual de la sesión de datos actual, así como sus tablas. Si no hay ninguna base de datos activa, se cierran todas las tablas libres, los índices y los archivos de formato abiertos en todas las áreas de trabajo y se selecciona el área de trabajo 1.

close all:

CLOSE ALL también cierra los archivos abiertos con las funciones de archivo de bajo nivel FCREATE( ) y FOPEN( ). CLOSE ALL no cierra un archivo abierto con SET PRINT. 
CLOSE ALL también cierra lo siguiente:
  
  • Diseñador de formularios
  • Administrador de proyectos
  • Diseñador de etiquetas
  • Diseñador de informes
  • Diseñador de consultas
CLOSE ALL no cierra lo siguiente:
  • La ventana Comandos
  • La ventana Depuración
  • Ayuda
  • La ventana Seguimiento

Quit:


Termina la sesión actual de Visual FoxPro y devuelve el control al sistema operativo.
Para finalizar una sesión de Visual FoxPro, debe utilizar siempre el comando QUIT. Si apaga el equipo sin ejecutar QUIT, se pueden dañar los archivos abiertos y perder datos. Además, puede dejar en el disco archivos temporales de trabajo que normalmente se eliminarían.

Use:

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

Ejemplo:
USE [[DatabaseName!]Table | SQLViewName | ?] [IN nWorkArea | cTableAlias] [ONLINE] [ADMIN] [AGAIN] [NOREQUERY [nDataSessionNumber]] [NODATA] [INDEX IndexFileList | ? [ORDER [nIndexNumber | IDXFileName | [TAG] TagName [OF CDXFileName] [ASCENDING | DESCENDING]]]] [ALIAS cTableAlias] [EXCLUSIVE] [SHARED] [NOUPDATE] [CONNSTRING cConnectString]

 Append:

Agrega uno o más registros nuevos al final de una tabla.
Ejemplo:
APPEND [BLANK] [IN nWorkArea | cTableAlias] [NOMENU]

Go:

Coloca el puntero de registro en el número de registro especificado de una tabla.
Ejemplo:
GO [RECORD] nRecordNumber [IN nWorkArea | IN cTableAlias]

Edit:

Muestra campos para edición.
Ejemplo:
EDIT [FIELDS FieldList] [Scope] [FOR lExpression1] [WHILE lExpression2]
[FONT cFontName[, nFontSize]] [STYLE cFontStyle] [FREEZE FieldName]
[KEY eExpression1[, eExpression2]] [LAST | NOINIT] [LPARTITION]
[NAME ObjectName] [NOAPPEND] [NOCAPTION] [NODELETE] [NOEDIT | NOMODIFY]
[NOLINK] [NOMENU] [NOOPTIMIZE] [NORMAL] [NOWAIT]
[PARTITION nColumnNumber [LEDIT] [REDIT]]
[PREFERENCE PreferenceName] [REST] [SAVE] [TIMEOUT nSeconds]
[TITLE cTitleText] [VALID [:F] lExpression3 [ERROR cMessageText]]
[WHEN lExpression4] [WIDTH nFieldWidth] [WINDOW WindowName1]
[IN [WINDOW] WindowName2 | IN SCREEN [COLOR SCHEME nSchemeNumber]

Browse:

Abre la ventana Examinar y muestra los registros de la tabla en uso o seleccionada.
Ejemplo:
BROWSE [FIELDS FieldList] [FONT cFontName [, nFontSize]]
   [STYLE cFontStyle] [FOR lExpression1 [REST]] [FORMAT]
   [FREEZE FieldName] [KEY eExpression1 [, eExpression2]] [LAST | NOINIT]
   [LOCK nNumberOfFields] [LPARTITION] [NAME ObjectName] [NOAPPEND]
   [NOCAPTIONS] [NODELETE] [NOEDIT | NOMODIFY] [NOLGRID] [NORGRID]
   [NOLINK] [NOMENU] [NOOPTIMIZE] [NOREFRESH] [NORMAL] [NOWAIT]
   [PARTITION nColumnNumber [LEDIT] [REDIT]]
   [PREFERENCE PreferenceName] [SAVE] [TIMEOUT nSeconds]
   [TITLE cTitleText] [VALID [:F] lExpression2 [ERROR cMessageText]]
   [WHEN lExpression3] [WIDTH nFieldWidth] [WINDOW WindowName1]
   [IN [WINDOW] WindowName2 | IN SCREEN] [COLOR SCHEME nSchemeNumber]

List:

Muestra continuamente información de tabla o de entorno.
Ejemplo:
LIST   [FIELDS FieldList]    [Scope] [FOR lExpression1]
[WHILE lExpression2]   [OFF]   [NOCONSOLE]   [NOOPTIMIZE]
   [TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST FILES   [ON Drive]    [LIKE FileSkeleton]
   [TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST MEMORY   [LIKE FileSkeleton]   [NOCONSOLE]
   [TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST STATUS   [NOCONSOLE] 
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST STRUCTURE   [IN nWorkArea | cTableAlias]   [NOCONSOLE]
   [TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]

List (campo):

Muestra solamente la informacion que se requiere.

List for:

se utiliza el for para poner condiciones.

Operadores logicos:

Son los que nos permiten juntar o unir dos condiciones .

Operador Lógico
Explicación
.And.
<!--[if !supportLists]-->·         <!--[endif]-->Todas las condiciones parciales evaluadas en el If deben cumplirse, para que la condición final sea cierta.
.Or.
<!--[if !supportLists]-->·         <!--[endif]-->Basta que una de las condiciones parciales se cumpla, para que la condición final sea cierta
.Not.
<!--[if !supportLists]-->·         <!--[endif]-->La condición evaluada debe ser falsa para que la condición final sea cierta


Display:

Muestra información acerca de la tabla activa en la ventana principal de Visual FoxPro o en la ventana definida por el usuario.
Ejemplo:
DISPLAY [[FIELDS] FieldList] [Scope] [FOR lExpression1]
   [WHILE lExpression2] [OFF] [NOCONSOLE] [NOOPTIMIZE]
   [TO PRINTER [PROMPT] | TO FILE FileName]

Modify structure:

Muestra el Diseñador de tablas, que permite modificar la estructura de una tabla.
Ejemplo:
MODIFY STRUCTURE

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 registro que se van a eliminar.
Ejemplo:



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.
Ejemplo:
REPORT FORM FileName1 | ? [ENVIRONMENT] [Scope] [FOR lExpression1]
   [WHILE lExpression2] [HEADING cHeadingText] [NOCONSOLE]
   [NOOPTIMIZE] [PLAIN] [RANGE nStartPage [, nEndPage]]
   [PREVIEW [[IN] WINDOW WindowName | IN SCREEN] [NOWAIT]]
   [TO PRINTER [PROMPT] | TO FILE FileName2 [ASCII]] [NAME ObjectName]
   [SUMMARY]

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.
PACK [MEMO] [DBF] [Tablename ] [IN nWorkarea | cTableAlias]


zap:

Elimina todos los registros de la tabla actual y deja sólo la estructura de la tabla.
ZAP   [IN nWorkArea | cTableAlias]






Aplicación N° 1








En este primer ejercicio vamos a escribir un programa que lea tres números enteros y determine el número mayor, el número central y el número menor. Debemos asumir que los tres números son diferentes.

? "Iriana Damaris Linares Trujillo"
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=nA
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) 



close all



clear












Aplicación N° 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 demás casos no se aplica ningún descuento. El ejercicio consiste en elaborar un programa que permita determinar el importe a pagar por el consumidor.
Close All
Clear
? "Programador:Iriana Damaris Linares Trujillo"
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)











Aplicación N° 3

El ejercicio consiste en escribir un programa que lea "n" enteros y calcule la suma total, la media aritmética, el máximo y el mínimo de los datos. para el desarrollo de la presente aplicación, abrir una nueva ventana de edición e ingresar el siguiente código:
Close All
Clear
? "Programador:Iriana Damaris Linares Trujillo"
Input "Ingrese Cantidad de números?" To nN
Declare aVector(nN)
For nI=1 To nN
Input "Número ["+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
If aVector[nI]<nMin Then
nMin=aVector[nI]
EndIf
Next
nMedia=nSuma/nN
?"Suma="+Str (nSuma)
?"Media="+Str(nMedia, 10, 2)
?"Máximo="+Str(nMax)
?"Mínimo="+Str(nMin)















Aplicación N° 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 se ingresa la cadena Corazón deberá retornar Nozaroc.

Close AllClear? "Programador:Iriana Damaris Linares Trujillo"Accept "Ingrese una cadena?" To cCadena?"Cadena invertida="+CadInv(cCadena)Function CadInvParameters cCadenanN=Len(Alltrim(cCadena))Declare cTemporal(nN)For nI=1 To nNcTemporal(nI)=SubStr(cCadena, nI, 1)NextcInvertida=""For nJ=nN To 1 Step -1cInvertida=cInvertida+cTemporal(nJ)Next JReturn cInvertida


No hay comentarios:

Publicar un comentario

Suscribirse a: Entradas (Atom)