iriana damaris linares trujillo: 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:

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

cuestionario:

1)¿Que es la programación estructurada?
Es una técnica en ala cual la estructura de un programa, esto es, la interpretación de sus   partes realiza tan claramente como es posible mediante el uso de tres estructuras lógicas de control:
a)secuencia: Sucesión simple de dos o mas operaciones.
b)Selección : bifurcación condicional de mas operaciones.
c)Interacción: Repartición de una operación mientras se cumpla la condición.

2)¿Que es la programacion orientada a objetos?
Es un entorno de desarrollo de sistemas, ayuda el diseñador a reducir, reutilizar y reciclar código y objeto . por eso es la programacion orientada a objetos puede llevar a un desarrollo más rápido y eficaz a prototipos mas precisos.

3)¿Que es un formulario?

Un formulario es un objeto de base de datos que se usa sobre una tabla o consulta y sirve para:

introducir datos nuevos.
modificar datos existentes.
consultar datos existentes.

Es posible agregar botones y otras funciones a un formulario con el fin de automatizar las acciones frecuentadas.

4)¿Que es una etiqueta?

Son mensajes breves que en el sistema aplica automáticamente a ciertas ediciones e historiales y cambios reciente y otras paginas especiales.

5)¿Que es un cuadro de texto?

Son contenedores de texto que pueden colocarse en cualquier parte de una pagina y cuyo tamaño puede cambiarse.

6)¿Que es un botón de comando?

Permite ejecutar con un simple clic al hacer en el botón nos da su ejecución a la acción correspondiente.

7)¿Que es un procedimiento?

Es un conjunto de acciones u operaciones que tienen que realizarse de la misma forma por tener siempre al mismo resultado.

iriana damaris linares trujillo

Páginas

Lenguaje visual