Lenguaje Visual

Comandos de visual foxpro 

Create: Crea una nueva tabla de Visual FoxPro.

ejemplo: CREATE TABLE | DBF TableName1 [NAME LongTableName] [FREE]   

(FieldName1 FieldType [(nFieldWidth [, nPrecision])]      
[NULL | NOT NULL]       [CHECK lExpression1 [ERROR cMessageText1]]      
[DEFAULT eExpression1]      [PRIMARY KEY | UNIQUE]      
[REFERENCES TableName2 [TAG TagName1]]      [NOCPTRANS]   
[, FieldName2 ...]      [, PRIMARY KEY eExpression2 TAG TagName2      
|, UNIQUE eExpression3 TAG TagName3]      
[, FOREIGN KEY eExpression4 TAG TagName4 [NODUP]         REFERENCES TableName3 [TAG TagName5]]      
[, CHECK lExpression2 [ERROR cMessageText2]])| FROM ARRAY ArrayName

Close data base: cierra una base de datos.

ejemplo: CLOSE [ALL | ALTERNATE | DATABASES [ALL] | DEBUGGER | FORMAT | INDEXES

   | PROCEDURE | TABLES [ALL]]

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

ejemplo: LIST FILES   [ON Drive]    [LIKE FileSkeleton]
   [TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]

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

ejemplo: 

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

ejemplo: APPEND [BLANK] [IN nWorkArea | cTableAlias] [NOMENU]

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

ejemplo: CLOSE [ALL | ALTERNATE | DATABASES [ALL] | DEBUGGER | FORMAT | INDEXES

   | PROCEDURE | TABLES [ALL]]

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

ejemplo:

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

ejemplo:

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]

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

ejemplo:

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

ejemplo:

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

ejemplo:

Quit: Termina la sesión actual de Visual FoxPro y devuelve el control al sistema operativo.

ejemplo:

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]
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: 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.

ejemplo:

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. 

ejemplo:

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

ejemplo:

Operadores lógicos:

Son los que nos permiten juntar o unir dos condiciones .

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

Cuestionario:

¿que es la programación estructurada?






La programación estructurada es un paradigma de programación orientado a mejorar la claridad, calidad y tiempo de desarrollo de un programa de computadora, utilizando únicamente subrutinas y  tres estructuras:secuencia, selección (if y switch) e iteración (bucles for y while),considerando innecesario y contraproducenteel uso de la instrucción de transferencia incondicional (GOTO), quepodría conducir a "código espagueti", que es mucho más difícil de seguir y de mantener, y era la causa de muchos errores de

programación.



¿Que es la programación orientada a objetos?





La programación orientada a objetos o POO, es un paradigma de programación que usa los objetos en sus interacciones, para diseñar aplicaciones y programas informáticos. Está basado en varias técnicas, incluyendo.

herencia
cohesión
abstracción
polimorfismo
acoplamiento
encapsulamiento. 




¿Que es un formulario?






Un formulario es una clase contenedora. una colección de una o mas paginas que se comporta como una ventana o un cuadro de dialogo estándar. un formulario contiene controles para mostrar y modificar datos. los formularios pueden estar contenidos dentro de un conjunto de formularios.





¿Que es una etiqueta?







Guarda archivos de etiquetas (-lbx). Una etiqueta viene ser cualquiera de las entradas de indice contenidas en un archivo de indice compuesto.
¿Que es un cuadro de texto?

Crea un control TextBox, que se usa para almacenar una unica linea de texto que el usuario puede introducir o cambiar.

¿Que es un boton de comando?

Crea un control commandbutton, que se usa para ejecutar un comando.





¿Que es un objeto? 

Son cada uno de los elementos que sontiene un sistem o aplicacion.


¿Que es un procedimiento?







Loa procedimientos y funciones permiten manteneren un unico lugar el codigo que utiliza con frecuencia y llamarlo a traves de suaplicacion siempre que lo necesite. Esto hace que su codigo sea mas facil de leer y mantener, ya que en un procedimiento el cambio se realiza una sola vez, no varias veces como ocurre en un programa.

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: Maria Xochilt Morales Cruz"

? "Programador: Carlos Vasquez Alducin"                

?

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: Maria Xochilt Morales Cruz" 

? "Programador: Carlos Vásquez Alducin" 

?

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: Carlos Vásquez Alducin" 

? "Programador: Maria Xochilt Morales"

?

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: Carlos Vásquez Alducin" 
? "Programador: Maria Xochilt Morales"
?
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