LENGUAJE VISUAL

CREATE PROJECT (Comando)

Abre el Administrador de proyectos de forma que pueda crear un proyecto. Especifica el nombre de archivo de la tabla de proyecto. Si no especifica ninguna extensión para este archivo, Visual FoxPro le asignará automáticamente la extensión .pjx.

CLOSE

Cierra varios tipos de archivo. Cierra todas las bases de datos, tablas e índices abiertos en la sesión de datos actual y en todas las sesiones de datos inactivas y selecciona el área de trabajo 1. 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

Cierra todas las bases de datos, tablas e índices abiertos en la sesión de datos actual y en todas las sesiones de datos inactivas y selecciona el área de trabajo 1. 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


OPEN DATABASE

Abre una base de datos. Especifica el nombre de la base de datos que se va a abrir. Si no especifica una extensión para el nombre de archivo, Visual FoxPro asignará automáticamente la extensión .DBC. Si omite FileName, aparecerá el cuadro de diálogo Abrir. Puede especificar un nombre de ruta de acceso como parte del nombre de la base de datos.




SET DEFAULT especifica la unidad y el directorio por defecto de la aplicación
Clear: Limpia pantalla
ejemplo:

CLEAR [ALL | CLASS ClassName | CLASSLIB ClassLibraryName | DEBUG | DLLS
   [cAliasNameList]| EVENTS | FIELDS | GETS | MACROS | MEMORY 
   | MENUS | POPUPS | PROGRAM | PROMPT | READ [ALL] | RESOURCES 
   [FileName] | TYPEAHEAD | WINDOWS]

Clear Windows:
 Libera de la memoria todas las definiciones de ventanas definidas por el usuario y borra las ventanas de la ventana principal de Visual FoxPro o la ventana activa definida por el usuario. Las definiciones de ventanas se pueden guardar con SAVE WINDOW en un archivo o campo memo para su uso posterior. 

La ejecución de CLEAR WINDOWS libera cualquier referencia de variable de sistema a formularios. Por ejemplo, los comandos siguientes crean una referencia de variable de sistema para un formulario y, después, muestran información acerca de dicha variable:


Ejemplo



CLEAR WINDOWS
DISPLAY MEMORY LIKE goMyForm  && Displays GOMYFORM  O  .NULL.


Dir: Muestra el contenido de un directorio del disco.

Ejemplo

El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado mytstdir y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.










SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
MKDIR mytstdir  && Create a new directory
CHDIR mytstdir  && Change to the new directory
= GETDIR( )  && Display the Select Directory dialog box
SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
RMDIR mytstdir  && Remove the new directory
= GETDIR( )  && Display the Select Directory dialog box





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


Ejemplo

El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado mytstdir y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.










SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
MKDIR mytstdir  && Create a new directory
CHDIR mytstdir  && Change to the new directory
= GETDIR( )  && Display the Select Directory dialog box
SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
RMDIR mytstdir  && Remove the new directory
= GETDIR( )  && Display the Select Directory dialog box





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

Ejemplo

El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado mytstdir y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.










SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
MKDIR mytstdir  && Create a new directory
CHDIR mytstdir  && Change to the new directory
= GETDIR( )  && Display the Select Directory dialog box
SET DEFAULT TO HOME( )  && Restore Visual FoxPro directory
RMDIR mytstdir  && Remove the new directory
= GETDIR( )  && Display the Select Directory dialog box





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



ON
(Predeterminado) Permite enviar la conversación a la ventana principal de Visual FoxPro, a la ventana de mensajes del sistema, a la barra de estado gráfica o a una ventana definida por el usuario. Si SET TALK está en OFF y se cambia a ON, la conversación se dirigirá a la misma ubicación a la que se enviaba antes de ejecutar SET TALK OFF.

OFF
Impide que la conversación se envíe a la ventana principal de Visual FoxPro, a la ventana de mensajes del sistema, a la barra de estado gráfica o a una ventana definida por el usuario. Observe que para los servidores de automatización .dll en proceso el valor predeterminado de SET TALK es OFF.

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

SET DATE [TO] AMERICAN | ANSI | BRITISH | FRENCH | GERMAN | ITALIAN
 | JAPAN | TAIWAN | USA | MDY | DMY | YMD| SHORT | LONG
Nota   Cuando se establece SET DATE en SHORT o LONG, las fechas anteriores a {^1601-01-01} no serán válidas y generarán un error.

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


Observaciones

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.
Cancel: Finaliza la ejecución del archivo de programa actual de Visual FoxPro.

Ejemplo

En el siguiente ejemplo se simula un bucle de ejecución de programa. En cada bucle se le preguntará si desea continuar. Si presiona el botón Cancelar, CANCEL detendrá la ejecución del programa.










DO WHILE .T.
   IF MESSAGEBOX("Do you want to continue?",36) <> 6
      CANCEL
   ENDIF
ENDDO





Open data base: Abre una base de datos.

Ejemplo

En el ejemplo siguiente se usa OPEN DATABASE para abrir la base de datos testdata. DISPLAY DATABASE se usa para mostrar información sobre las tablas de la base de datos.










CLOSE DATABASES
SET PATH TO (HOME(2) + 'Data\')     && Sets path to database
OPEN DATABASE testdata  && Open testdata database
DISPLAY DATABASE  && Displays table information





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

Ejemplo

En el ejemplo siguiente se abren tres tablas en tres áreas de trabajo distintas. Se abre la ventana Sesión de datos para mostrar dónde están abiertas las tablas y para mostrar el alias para cada tabla.










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
ACTIVATE WINDOW View

USE customer IN 0  && Opens Customer table
USE employee IN 0  && Opens Employee table
USE products IN 0  && Opens Products table





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

Ejemplo

El siguiente ejemplo utiliza APPEND BLANK para crear una tabla con 10 registros que contienen valores aleatorios y, a continuación, muestra los valores máximo y mínimo de la tabla.










CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10  && Append 10 records
   APPEND BLANK
   REPLACE cValue WITH 1 + 100 * RAND( )  && Insert random values
ENDFOR

CLEAR
LIST  && Display the values
gnMaximum = 1  && Initialize minimum value
gnMinimum = 100  && Initialize maximum value
SCAN 
   gnMinimum = MIN(gnMinimum, cValue)
   gnMaximum = MAX(gnMaximum, cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum  && Display minimum value
? 'The maximum value is: ', gnMaximum  && Display maximum value




Append Blank:Agrega un registro en blanco al final de la tabla activa. Visual FoxPro no abre ninguna ventana de edición cuando usted ejecuta APPEND BLANK.

Es posible modificar los nuevos registros con BROWSE, CHANGE o EDIT.

Ejemplo

El siguiente ejemplo utiliza APPEND BLANK para crear una tabla con 10 registros que contienen valores aleatorios y, a continuación, muestra los valores máximo y mínimo de la tabla.










CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10  && Append 10 records
   APPEND BLANK
   REPLACE cValue WITH 1 + 100 * RAND( )  && Insert random values
ENDFOR

CLEAR
LIST  && Display the values
gnMaximum = 1  && Initialize minimum value
gnMinimum = 100  && Initialize maximum value
SCAN 
   gnMinimum = MIN(gnMinimum, cValue)
   gnMaximum = MAX(gnMaximum, cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum  && Display minimum value
? 'The maximum value is: ', gnMaximum  && Display maximum value




Delete: Marca los registros que se van a eliminar.

Ejemplo

En el ejemplo siguiente se copia la estructura de CUSTOMER.DBF y todos los registros en cuyo campo country aparezca EE.UU. se copian a una nueva tabla denominada backup. Los datos de backup se copian a un archivo de texto, temp, que se abre y, luego, se elimina una vez cerrado.










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens customer table

COPY STRUCTURE TO backup
USE backup
APPEND FROM customer FOR country = 'USA'
COPY TO temp TYPE DELIMITED

WAIT WINDOW 'Press Esc to close and erase temp.txt' NOWAIT
MODIFY FILE temp.txt NOEDIT
ERASE temp.txt
? IIF(FILE('temp.txt'),'File not deleted','File deleted')
USE
ERASE backup.dbf





Delete All: marca todos los registros y los borra

Ejemplo

En el ejemplo siguiente se copia la estructura de CUSTOMER.DBF y todos los registros en cuyo campo country aparezca EE.UU. se copian a una nueva tabla denominada backup. Los datos de backup se copian a un archivo de texto, temp, que se abre y, luego, se elimina una vez cerrado.










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens customer table

COPY STRUCTURE TO backup
USE backup
APPEND FROM customer FOR country = 'USA'
COPY TO temp TYPE DELIMITED

WAIT WINDOW 'Press Esc to close and erase temp.txt' NOWAIT
MODIFY FILE temp.txt NOEDIT
ERASE temp.txt
? IIF(FILE('temp.txt'),'File not deleted','File deleted')
USE
ERASE backup.dbf





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.  




Ejemplo

El ejemplo siguiente abre la tabla customer de la base de datos testdata. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry contenga USA para su eliminación. Se muestran todos los registros marcados para ser eliminados. Se usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'data\testdata')

USE customer  && Opens Customer table



DELETE FROM customer WHERE country = 'USA'  && Mark for deletion

CLEAR

LIST FIELDS company, country FOR DELETED( ) && List marked records

RECALL ALL  && Unmark all records marked for deletion

Recall for: 
FOR lExpression1 

Especifica que sólo se recuperarán los registros para los que el valor de lExpression1 sea verdadero (.T.). Esta opción permite filtrar los registros no deseados.


Si lExpression1 es una expresión optimizable, Rushmore optimizará RECALL FOR. Para obtener el máximo rendimiento, utilice una expresión optimizable en la cláusula FOR.

Para obtener más información, vea SET OPTIMIZE y Utilizar Rushmore para agilizar el acceso a datos.



Ejemplo

El ejemplo siguiente abre la tabla customer de la base de datos testdata. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry contenga USA para su eliminación. Se muestran todos los registros marcados para ser eliminados. Se usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.



DISPLAY STATUS




* Example 3

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata')

USE Customer     && Open customer table

INDEX ON address TAG address

INDEX ON company TAG company OF custcdx

CLEAR

DISPLAY STATUS

Index on: Crea un archivo de índice para mostrar registros de tabla y tener acceso a los mismos en un orden lógico.Especifica una expresión de índice que puede incluir el nombre de campos de la tabla actual. Se crea en el archivo de índice una clave de índice basada en la expresión de índice para cada registro de la tabla. Visual FoxPro usa estas claves para mostrar registros de la tabla y tener acceso a los mismos.






Ejemplo

El ejemplo 1 abre la tabla customer y crea un archivo de índice denominado complist, que muestra y procesa los registros en el orden alfabético del campo company.

En el ejemplo 2, se abre de nuevo la tabla customer y se crea un archivo de índice llamado citycomp a partir de una subcadena de los primeros cinco caracteres del campo city y los seis primeros del campo company. Cuando se utiliza este índice, los registros de la tabla se ordenan principalmente por el campo city y como segundo criterio por el campo company.

En el ejemplo 3, se crean las etiquetas de índice. La primera etiqueta es una etiqueta de índice compuesto estructural para address. La segunda etiqueta se crea en un archivo de índice no estructural llamado custcdx.

* Example 1

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata')

USE Customer     && Open customer table

INDEX ON company TO complist

CLEAR

DISPLAY STATUS



* Example 2

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata')

USE Customer     && Open customer table

INDEX ON SUBSTR(city,1,5) + SUBSTR(company,1,6) TO citycomp

CLEAR

DISPLAY STATUS



* Example 3

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata')

USE Customer     && Open customer table

INDEX ON address TAG address

INDEX ON company TAG company OF custcdx

CLEAR

DISPLAY STATUS

Replace: Actualiza los registros de una tabla. Especifica que los datos de FieldName1 se sustituyan por el valor de la expresión eExpression1; que los datos de FieldName2 se sustituyan por el valor de la expresión eExpression2; y así sucesivamente.

Cuando el valor de la expresión sea más largo que el ancho de un campo numérico, REPLACE hará que quepa el valor, mediante la ejecución de los pasos siguientes:



Ejemplo

El ejemplo siguiente crea una tabla con 10 registros. Se usa REPLACE para colocar valores aleatorios en un campo. MIN( ) y MAX( ) muestran los valores máximo y mínimo de la tabla.

CLOSE DATABASES

CREATE TABLE Random (cValue N(3))

FOR nItem = 1 TO 10  && Append 10 records,

   APPEND BLANK

   REPLACE cValue WITH 1 + 100 * RAND( )  && Insert random values

ENDFOR



CLEAR

LIST  && Display the values

gnMaximum = 1  && Initialize minimum value

gnMinimum = 100  && Initialize maximum value

SCAN

   gnMinimum = MIN(gnMinimum, cValue)

   gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? 'The minimum value is: ', gnMinimum  && Display minimum value

? 'The maximum value is: ', gnMaximum  && Display maximum value
Browse: Abre la ventana Examinar y muestra los registros de la tabla en uso o seleccionada.. Especifica los campos que aparecerán en la ventana Examinar. Los campos se muestran en el orden especificado en FieldList. En la lista de campos puede incluir campos de otras tablas relacionadas. Cuando incluya un campo de una tabla relacionada, incluya delante del nombre de campo su alias de tabla y un punto.




 Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products  && Open products table
IF _WINDOWS OR _MAC
   SET STATUS BAR ON
ENDIF
USE products
BROWSE FIELDS in_stock :V = in_stock < 100 ;
   :F ;
   :E = 'The stock amount must be less than 100'




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

Ejemplo

El ejemplo siguiente abre la tabla customer de la base de datos testdata. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry contenga USA para su eliminación. Se muestran todos los registros marcados para ser eliminados. Se usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens Customer table

DELETE FROM customer WHERE country = 'USA'  && Mark for deletion
CLEAR
LIST FIELDS company, country FOR DELETED( ) && List marked records
RECALL ALL  && Unmark all records marked for deletion





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. Elimina el espacio no utilizado del archivo memo, pero no elimina los registros marcados para eliminar de la tabla. La información de los campos memo se almacena en un archivo memo asociado. Un archivo memo tiene el mismo nombre que la tabla y la extensión .fpt.






Ejemplo



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.
ejemplo
ZAP   [IN nWorkArea | cTableAlias]


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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products  && Opens Products table
USE customer IN 0  && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( )     && Displays 1
GO 5
? RECNO( )     && Displays 5





Go3: coloca el puntero de registro 3 posiciones hacia delante

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products  && Opens Products table
USE customer IN 0  && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( )     && Displays 1
GO 5
? RECNO( )     && Displays 5





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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products  && Opens Products table
USE customer IN 0  && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( )     && Displays 1
GO 5
? RECNO( )     && Displays 5





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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products  && Opens Products table
USE customer IN 0  && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( )     && Displays 1
GO 5
? RECNO( )     && Displays 5





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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens Customer table
CLEAR

SKIP 4 IN 'customer'
? RECNO('customer')  && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )





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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens Customer table
CLEAR

SKIP 4 IN 'customer'
? RECNO('customer')  && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )





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

Ejemplo










CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens Customer table
CLEAR

SKIP 4 IN 'customer'
? RECNO('customer')  && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )





List stru:  estos comandos LIST son idénticos a los comandos DISPLAY, excepto en las diferencias siguientes:

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

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

MODIFY STRUCTURE

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

ejemplo

MODIFY STRUCTURE


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

ejemplo


DO ProgramName1 | ProcedureName [IN ProgramName2] [WITH ParameterList]



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

ejemplo
MODIFY STRUCTURE

Create: Crea una nueva tabla de Visual FoxPro.

ejemplo


CREATE QUERY [FileName | ?] [NOW





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 contraproducente el
uso de la instrucción de transferencia
incondicional (GOTO),
que podrí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.











Programación orientada a objetos









La programación orientada a objetos o POO (OOP según sus siglas en inglés) 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 y encapsulamiento. Su uso se popularizó a principios de la década
de los años 1990. En la actualidad, existe variedad de lenguajes de
programación que soportan la orientación a objetos.











Formulario









Un formulario es un documento, en papel o en
pantalla, diseñado con el propósito de que el usuario introduzca datos
estructurados (nombre, apellidos, dirección, etc.) en las zonas del documento
destinadas a ese propósito para ser almacenadas y procesadas posteriormente.











Etiquetas









Las etiquetas son
mensajes breves que el sistema aplica automáticamente a ciertas ediciones en
historiales, cambios
recientes y otras páginas especiales.





Por el momento (abril
de 2010) todas las etiquetas provienen del filtro de
ediciones y la lista completa se localiza en Especial:Etiquetas.





Las ediciones pueden
filtrarse por etiquetas en las páginas de cambios recientes o de contribuciones
indicándola en el formulario apropiado. Algunas etiquetas comunes son:





·        
posible vandalismo





·        
posible promocional





que es un cuadro de texto





Cuadro de
texto.- Los cuadros de texto son elementos gráficos en los que podemos insertar
texto. Estos elementos funcionan de forma independiente con el resto del
documento. 





En definitiva, los cuadros de texto funcionan
igual que si trabajásemos con cualquier otro elemento gráfico visto en la
lección anterior.





Botones de comando





Los botones
de comando permiten ejecutar acciones con un simple clic. Al hacer clic en el
botón, no sólo se ejecuta la acción correspondiente, sino que también parece
que se presionase y se soltase.











Objeto (programación)









En el paradigma
de programación orientada a objetos (POO, o bien OOP en inglés), un objeto se
define como la unidad que en tiempo de ejecución realiza las
tareas de un programa. También a un nivel
más básico se define como la instancia de una clase.





Estos objetos
interactúan unos con otros, en contraposición a la visión tradicional en la
cual un programa es una colección de subrutinas (funciones o procedimientos), o simplemente una
lista de instrucciones para el
computador. Cada objeto es capaz de recibir mensajes, procesar datos y
enviar mensajes a otros objetos
de manera similar a un servicio.











Procedimiento









Un procedimiento es
un conjunto de acciones u operaciones que tienen que realizarse de la misma
forma, para obtener siempre el mismo resultado bajo las mismas circunstancias
(por ejemplo, procedimiento de emergencia).





Y puede referirse a:





·        
Subrutina en programación.





·        
Procedimiento
efectivo en teoría de
la computación.





·        
Procedimiento administrativo.





·        
Procedimiento de gestión de calidad.





·        
Procedimiento
judicial.





·        
Procedimiento pedagógico.





·        
Procedimiento médico





·        
Procedimiento lógico


Programas:
No1:
close all
clear
input "introduce el valor de a?" to na
input "introduce el valor de b?" to nb
input "introduce 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)
? "programador Luis Octavio Cruz MOntalvo"
No2:
close all
clear
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
? "inporte a pagar:" + str(nimporte)
? "programador Luis Octavio Cruz Montalvo"
No3:
close all
clear
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
? "inporte a pagar:" + str(nimporte)
? "programador Luis Octavio Cruz Montalvo"
No4:
close all
clear
input "introduce el valor de a?" to na
input "introduce el valor de b?" to nb
input "introduce 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)
? "programador Luis Octavio Cruz MOntalvo"
No5:
   º                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    VERSION =   3.00        dataenvironment        dataenvironment        Dataenvironment        Name = "Dataenvironment"
        1        1        form        form        Form1       `Top = 0
Left = 0
DoCreate = .T.
Caption = "Mayor:"
BackColor = 120,200,130
Name = "Form1"
        textbox        textbox        txtX        Form1       ÆAlignment = 3
Value = 0
Height = 23
InputMask = "999.999"
Left = 252
Top = 108
Width = 100
ColorSource = 0
ColorScheme = 3
BackColor = 134,89,200
BorderColor = 215,214,210
Name = "txtX"
        textbox        textbox        Txtmay        Form1       ªAlignment = 3
Value = 0
Height = 23
InputMask = "999"
Left = 252
Top = 60
Width = 100
ColorSource = 1
ColorScheme = 15
BackColor = 240,123,195
Name = "Txtmay"
       
commandbutton       
commandbutton       
CmdAceptar        Form1       ˆTop = 168
Left = 0
Height = 27
Width = 84
Caption = "\<aceptar"
Default = .T.
DisabledForeColor = 255,255,0
Name = "CmdAceptar"
       ÙPROCEDURE Click
nX = thisform.TxtX.Value
nA = int(thisform.TxtX.value)
nX = nX - nA
nB = 1000 * nX
if nA > nB then
nMay = nA
else
nMay = nB
endif
thisform.TxtMay.Value = nMay
thisform.Refresh


ENDPROC
       —þòÿ      ~   ~                          e    %           5   
               ü    U  ¢   T÷   üô  ô  ÷  ýþ  T÷   üCô  ô  ÷  8ýþ  T÷   ü÷  ÷   ýþ  T÷   üù è ÷   ýþ  %ü÷  ÷   ýù i þ
 T÷   ü÷  ýþ   ù ~ þ
 T÷   ü÷  ýþ   þ  Tô  ô  ÷   ü÷  ýþ
 ™ô  ÷  þ  U    NX  THISFORM  TXTX  VALUE  NA  NB  NMAY  TXTMAY  REFRESH  Click,     ÿÿ1 1 Q   !   Ñ  Ñ A 1 ¡ 3                         Î        )   ~                          
commandbutton       
commandbutton        CmdSalir        Form1       fTop = 168
Left = 288
Height = 27
Width = 84
Cancel = .T.
Caption = "\<Salir"
Name = "CmdSalir"
       .PROCEDURE Click
Release Thisform

ENDPROC
       »þòÿ      ¢   ¢                         ;     %   D       Y       S           ü    U  
   <÷  þ  U    THISFORM  Click,     ÿÿ1 q 2                         #        )   ¢                          
commandbutton       
commandbutton       
CmdLimpiar        Form1       \Top = 168
Left = 144
Height = 27
Width = 84
Caption = "\<Limpiar"
Name = "CmdLimpiar"
       {PROCEDURE Click
Thisform.TxtX.Value = 0
Thisform.txtMay.Value = 0 
thisform.TxtX.setfocus
Thisform.Refresh

ENDPROC
        þòÿ                                     '    %   ¢       ½       ±           ü    U  @   Tô  ô  ÷   üø  ýþ  Tô  ô  ÷   üø  ýþ
 ™ô  ô  ÷  þ
 ™ô  ÷  þ  U    THISFORM  TXTX  VALUE  TXTMAY  SETFOCUS  REFRESH  Click,     ÿÿ1 1 1 Ñ ¡ 2                         p        )                               label        label        lblmay        Form1       iCaption = "mayor:"
Height = 17
Left = 12
Top = 120
Width = 40
BackColor = 128,0,0
Name = "lblmay"
        label        label        lblx        Form1       ‚Caption = "ingrese un real de la forma ee.dd?"
Height = 17
Left = 12
Top = 72
Width = 40
BackColor = 255,0,0
Name = "lblx"
        label        label        Label1        Form1       ¥Caption = "Programador Luis Octavio Cruz Montalvo  Especialidad::Informatica"
Height = 25
Left = 0
Top = 12
Width = 372
BackColor = 255,128,0
Name = "Label1"
        label        label        Label2        Form1       £Caption = "Centros de Estudios Tecnologicos Industriales y de Servicio"
Height = 25
Left = 24
Top = 216
Width = 336
BackColor = 255,128,255
Name = "Label2"
       !Arial, 0, 9, 5, 15, 12, 32, 3, 0


No6:


  ÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               VERSION =   3.00     dataenvironment     dataenvironment     Dataenvironment     Name = "Dataenvironment"

      1     1     form     form     Form1     ‹Top = 10

Left = 13

Height = 250

Width = 398

DoCreate = .T.

Caption = "Form1"

WindowState = 1

BackColor = 0,255,255

Name = "Form1"

      :PROCEDURE Load

set date french

set century on




ENDPROC

PROCEDURE Init

cNomDia = cdow(date())

cDia = str(day(date()),2)

cMes = cmonth(date())

cAnno = str(year(date()),4)

cFecha = cnomdia + "" +cdia+"de"+cmes+"del" +canno

thisform.caption = cfecha

thisform.txtfecnac.setfocus

thisform.refresh

ENDPROC

      æþòÿ   Í  Í                        íp   %   >      t  

   Z          ü U   G û frenchþ G þ U FRENCH– T÷   üCC$ ýþ T÷ üCCC$%ø Zýþ T÷ üCC$!ýþ T÷ üCCC$iø Zýþ* T÷ ü÷  Ù   ÷ Ù de ÷ Ù del ÷ ýþ Tô ÷ ü÷ ýþ

 ™ô ô ÷ þ

 ™ô ÷  þ U

  CNOMDIA CDIA CMES CANNO CFECHA THISFORM CAPTION  TXTFECNAC SETFOCUS REFRESH Load,     ÿÿ InitO     ÿÿ1 á a 3 á 1 á 1 ¡ Ñ ¡ 1                     1       L   /      )   Í                       label     label     lblFecNac     Form1     {Caption = "fecha de nacimiento"

Height = 17

Left = 24

Top = 24

Width = 120

BackColor = 128,255,0

Name = "lblFecNac"

      label     label     tlblEdad     Form1     pCaption = "su edad es"

Height = 17

Left = 24

Top = 72

Width = 72

BackColor = 128,255,0

Name = "tlblEdad"

      textbox     textbox     h     Form1     bEnabled = .T.

Height = 23

Left = 264

Top = 24

Width = 100

BackColor = 255,0,255

Name = "h"

      textbox     textbox     TxtEdad     Form1     hEnabled = .F.

Height = 23

Left = 264

Top = 72

Width = 100

BackColor = 255,0,255

Name = "TxtEdad"

      

commandbutton     

commandbutton     

CmdAceptar     Form1     [Top = 144

Left = 24

Height = 27

Width = 84

Caption = "\<Aceptar"

Name = "CmdAceptar"

      ­PROCEDURE Click

dFecNac = Ctod(thisform.TxtFenNac.Values)

nEdad = Int ((Date() - dFecNac) / 365)

Thisform.TxtEdad.Value = Str(nEdad) + "años"

Thisform.Refresh

ENDPROC

      Jþòÿ   1  1                         &   %   Í       è     Ü           ü U  W T÷   üCô ô ÷ #ýþ T÷ üCC$÷   ù m 8ýþ Tô ô ÷ üC÷ ZÙ años ýþ

 ™ô ÷ þ U DFECNAC THISFORM  TXTFENNAC VALUES NEDAD TXTEDAD VALUE REFRESH Click,     ÿÿ1 Q  Ñ ¡ 1                     ¢      )   1                       

commandbutton     

commandbutton     

CmdLimpiar     Form1     \Top = 144

Left = 144

Height = 27

Width = 84

Caption = "\<Limpiar"

Name = "CmdLimpiar"

      …PROCEDURE Click

thisform.txtfecnac.value = ""

thisform.txtedad.value=""

thisform.txtfecnac.setfocus

thisform.refresh




ENDPROC

      %þòÿ                            —œ   %   ¨       à     ·           ü U  @ Tô  ô ÷ üÙ  ýþ Tô  ô ÷ üÙ  ýþ

 ™ô  ô ÷ þ

 ™ô  ÷ þ U THISFORM  TXTFECNAC VALUE TXTEDAD SETFOCUS REFRESH Click,     ÿÿ1 1 1 Ñ ¡ 2                     z      )                         

commandbutton     

commandbutton     CmdSalir     Form1     XTop = 144

Left = 264

Height = 27

Width = 84

Caption = "\<Salir"

Name = "CmdSalir"

      ,PROCEDURE Click

Release Thisform

ENDPROC

      »þòÿ   ¢   ¢                         ;   %   D       Y     S           ü U  

  <÷  þ U THISFORM Click,     ÿÿ1 q 1                     !      )   ¢                         label     label     

programadores     Form1     ¯Caption = "Programadores: Emmanuel Fabian Lazaro, Luis Octavio Cruz Montalvo "

Height = 36

Left = 0

Top = 192

Width = 396

BackColor = 255,128,64

Name = "programadores"

      !Arial, 0, 9, 5, 15, 12, 32, 3, 0










((((((((((((((((((((((examen final)))))))))))))))








#include<stdio.h>
#include<conio.h>
main()
{
int cant;
float dolar,euro;
clrscr();
printf("que cantidad desea retirar..");
scanf("%d",&cant);
printf("\n dolares:%4.2f",cant/12.50);
dolar=cant/12.50;
printf("\n euros:%4.2f",cant/14.50);
euro=cant/14.50;
gotoxy(15,8);printf("\nla cantidad de billetes de %d es: %d",200,cant/200);
 cant=cant%200;
gotoxy(15,10);printf("\nla cantidad de billetes de %d es: %d",100,cant/100);
 cant=cant%100;
gotoxy(15,12);printf("\nla cantidad de billetes de %d es: %d",50,cant/50);
 cant=cant%50;
gotoxy(15,14);printf("\nla cantidad de billetes de %d es: %d",20,cant/20);
 cant=cant%20;
gotoxy(15,16);printf("\nla cantidad de billetes de %d es: %d",10,cant/10);
cant=cant%10;
getch();
}