Clases de visual foxpro
Ocultar la complejidad innecesaria
Cuando instale un teléfono en la oficina, lo más probable es que no le
interese el funcionamiento interno del aparato para la recepción de llamadas,
la realización o la finalización de conexiones con centralitas electrónicas o
la conversión de las pulsaciones de tecla en señales electrónicas. Lo único que
necesitará saber es que puede levantar el auricular, marcar los números
apropiados y hablar con la persona con la que desea hablar. La complejidad de
realizar esa conexión queda oculta. La ventaja de ignorar los detalles internos
de un objeto para poder centrarse en los aspectos del objeto que necesita
utilizar se denomina abstracción.
El encapsulamiento, que empaqueta el código de métodos y propiedades en un
mismo objeto, contribuye a la abstracción. Por ejemplo, las propiedades que
determinan los elementos de un cuadro de lista y el código que se ejecuta al
elegir un elemento de la lista pueden encapsularse en un único control que se
agrega a un formulario.
Aprovechar la eficacia de las clases existentes
Una subclase puede tener toda la funcionalidad de una clase existente,
además de la funcionalidad y los controles adicionales que quiera darle. Si la
clase es un teléfono básico, podrá tener subclases que tengan toda la
funcionalidad del teléfono original y todas las características especializadas
que desee darles.
La creación de subclases es un modo de reducir la cantidad de código que
hay que escribir. Puede comenzar definiendo un objeto que sea similar al
deseado y personalizarlo.
Simplificar el mantenimiento de código
Con la herencia, si realiza un cambio en una clase, ese cambio se reflejará
en todas las subclases que se basen en ella. Esta actualización automática
ahorra tiempo y trabajo. Por ejemplo, si un fabricante de teléfonos quisiera
cambiar los teléfonos de dial por teléfonos de botones, se ahorraría mucho
trabajo si pudiera hacer el cambio en el diagrama original y hacer que todos
los teléfonos fabricados anteriormente con ese diagrama heredaran
automáticamente la nueva característica, en lugar de tener que agregarla a
todos los teléfonos existentes individualmente.
La herencia no funciona con el hardware, pero sí en el software. Si
descubre un error en una clase, en lugar de tener que cambiar el código de
todas las subclases podrá corregirlo una única vez en la clase y el cambio se
propagará a todas las subclases pertenecientes a ella.
Contenedores y no contenedores
Los dos tipos principales de clases de Visual FoxPro y por extensión, de
objetos de Visual FoxPro, son las clases de contenedor y las clases de control.
Clases de contenedor
Los contenedores pueden
incluir otros objetos y permiten el acceso a los objetos que contienen. Por
ejemplo, si crea una clase de contenedor que consta de dos cuadros de lista y
dos botones de comando y, a continuación, agrega a un formulario un objeto
basado en esta clase, cada objeto individual podrá manipularse en tiempo de
ejecución y en tiempo de diseño. Puede cambiar fácilmente las posiciones de los
cuadros de lista o los títulos de los botones de comando. También puede agregar
objetos al control en tiempo de diseño; por ejemplo, puede agregar etiquetas
para identificar los cuadros de lista.
Procedimientos
de visual FoxPro
En
Visual FoxPro, los procedimientos son similares a éste:
PROCEDURE myproc
* This is a comment, but it could be executable code
ENDPROC
Tradicionalmente,
los procedimientos contienen código que usted escribe para realizar una
operación y funciones que calculan y devuelven un valor. En Visual FoxPro, las
funciones son similares a los procedimientos:
FUNCTION myfunc
* This is a comment, but it could be executable code
ENDFUNC
Puede
incluir procedimientos y funciones en un archivo de programa distinto o al
final de un archivo de programa que contenga código normal de programa. En un
archivo de programa no puede tener código ejecutable de programa a continuación
de los procedimientos y las funciones.
Si
incluye sus procedimientos y funciones en un archivo de programa distinto,
podrá hacer accesibles estos procedimientos y funciones desde su programa si
utiliza el comando SET PROCEDURE TO. Por ejemplo, para un archivo
llamado FUNPROC.PRG, utilice el siguiente comando en la ventana Comandos:
SET PROCEDURE TO funproc.prg
Llamar
a un procedimiento o a una función
Hay
dos formas de llamar a un procedimiento o a una función en sus programas:
- Utilizar el
comando DO. Por ejemplo:
· DO myproc
–O bien–
- Incluir
detrás del nombre de la función un par de paréntesis. Por ejemplo:
· myfunc( )
Cada
uno de estos métodos puede ampliarse enviando o recibiendo valores desde el
procedimiento o la función.
Enviar valores a un procedimiento o a una función
Para
enviar valores a procedimientos o funciones se incluyen parámetros. Por
ejemplo, el procedimiento siguiente acepta un solo parámetro:
PROCEDURE myproc( cString )
* The following line displays a message
MESSAGEBOX ("myproc" + cString)
ENDPROC
Nota Incluir
los parámetros entre paréntesis en la línea de definición de un procedimiento o
una función, por ejemplo PROCEDURE myproc(cString),
indica que el parámetro tiene alcance local al procedimiento o la función.
También puede permitir que una función o un procedimiento acepte parámetros de
alcance local mediante LPARAMETERS.
Los
parámetros funcionan de manera idéntica en una función. Para enviar un valor
como un parámetro a este procedimiento o a una función, podría utilizar una
cadena o una variable que contuviera una cadena, como se muestra en la tabla
siguiente.
Transferencia
de parámetros
Código
|
Comentarios
|
DO myproc WITH cTestString
DO myproc WITH "test string"
|
Llama a
un procedimiento y transfiere una variable de caracteres o una cadena
literal.
|
myfunc("test string")
myfunc( cTestString )
|
Llama a
una función y transfiere una copia de una cadena literal o una variable de
caracteres.
|
Nota Si
llama a un procedimiento o función sin usar el comando DO, la configuración de UDFPARMScontrola cómo se transfieren los
parámetros. De forma predeterminada, UDFPARMS se establece como VALUE, por lo
que se transferirán copias de los parámetros. Cuando utilice DO, se empleará el
parámetro real (el parámetro se transfiere por referencia) y cualquier cambio
realizado en el procedimiento o en la función se reflejará en los datos
originales, cualquiera que sea la configuración de UDFPARMS.
Puede
enviar múltiples valores a un procedimiento o función si los separa mediante
comas. Por ejemplo, el siguiente procedimiento espera tres parámetros: una
fecha, una cadena de caracteres y un número.
PROCEDURE myproc( dDate, cString, nTimesToPrint )
FOR nCnt = 1 to nTimesToPrint
? DTOC(dDate) + " " + cString + " " + STR(nCnt)
ENDFOR
ENDPROC
Podría
llamar a este procedimiento mediante la siguiente línea de código:
DO myproc WITH DATE(), "Hello World", 10
Recibir valores desde una función
El
valor devuelto de forma predeterminada es verdadero (.T.), pero puede utilizar
el comando RETURN para devolver cualquier valor. Por
ejemplo, la siguiente función devuelve una fecha correspondiente a dos semanas
después de la fecha que se ha pasado como parámetro.
FUNCTION plus2weeks
PARAMETERS dDate
RETURN dDate + 14
ENDFUNC
La
siguiente línea de código almacena el valor devuelto desde esta función en una
variable:
dDeadLine = plus2weeks(DATE())
En
la tabla siguiente se muestran las formas en que puede almacenar o mostrar
valores devueltos por una función.
Manipular
valores devueltos
Código
|
Comentarios
|
var = myfunc( )
|
Almacena
en una variable el valor devuelto por la función.
|
? myfunc( )
|
Imprime
en la ventana de resultado activa el valor devuelto por la función.
|
Comprobar parámetros en un procedimiento o en una función
Es
conveniente comprobar que los parámetros enviados a su procedimiento o a su
función son los que espera recibir. Puede utilizar las funciones TYPE( ) y PARAMETERS( ) para comprobar el tipo y el número de
parámetros enviados a su procedimiento o a su función.
El
ejemplo de la sección anterior necesita recibir un parámetro de tipo Date.
Puede utilizar la función TYPE( ) para asegurarse de que el valor que su
función recibe es del tipo adecuado.
FUNCTION plus2weeks( dDate )
IF TYPE("dDate") = "D"
RETURN dDate + 14
ELSE
MESSAGEBOX( "You must pass a date!" )
RETURN { - - } && Return an empty date
ENDIF
ENDFUNC
Si
un procedimiento espera menos parámetros de los que recibe, Visual FoxPro
generará un mensaje de error. Por ejemplo, si especificó dos parámetros pero
llamó al procedimiento con tres parámetros, obtendrá un mensaje de error. Pero
si un procedimiento espera más parámetros de los que recibe, los parámetros
adicionales simplemente se inicializarán como falso (.F.). Puesto que no hay
ninguna forma de decir si el último parámetro se estableció como falso (.F.) o
se omitió, el siguiente procedimiento comprueba que se ha enviado el número
correcto de parámetros:
PROCEDURE SaveValue( cStoreTo, cNewVal, lIsInTable )
IF PARAMETERS( ) < 3
MESSAGEBOX( "Too few parameters passed." )
RETURN .F.
ENDIF
IF lIsInTable
REPLACE (cStoreTo) WITH (cNewVal)
ELSE
&cStoreTo = cNewVal
ENDIF
RETURN .T.
ENDPROC
Convertir
el programa NUMONLY en una función
NUMONLY.PRG,
el programa de ejemplo descrito en Construir un programa pequeño, puede hacerse
más robusto y útil si crea una función para la parte del programa que elimina
los caracteres no numéricos de una cadena.
Procedimiento
de ejemplo para devolver caracteres numéricos de una cadena
Código
|
Comentarios
|
FUNCTION NumbersOnly( cMixedVal )
|
Principio
de la función, que acepta una cadena de caracteres.
|
cNumOnly = ""
FOR nCnt = 1 TO LEN(cMixedVal)
cCharacter = ;
SUBSTR(cMixedVal, nCnt, 1)
IF ISDIGIT(cCharacter)
cNumOnly = ;
cNumOnly + cCharacter
ENDIF
ENDFOR
|
Crea una
cadena que sólo tiene los caracteres numéricos de la cadena original.
|
RETURN cNumOnly
|
Devuelve
la cadena que sólo tiene caracteres numéricos.
|
ENDFUNC
|
Fin de la
función.
|
Además
de permitirle utilizar este código en múltiples situaciones, esta función
mejora la legibilidad del programa:
SCAN
REPLACE FieldName WITH NumbersOnly(FieldName)
ENDSCAN
O,
más sencillo aún:
REPLACE ALL FieldName WITH
NumbersOnly(FieldName)
