Unidad IV - 5 - Introduccion a La Programacion Con VFP (Cont) 2015

Introduccin a la programacin con VFP

UNIVERSIDAD DE EL SALVADOR

FACULTAD DE INGENIERIA Y ARQUITECTURA

ESCUELA DE INGENIERIA DE SISTEMAS INFORMATICOS

PROGRAMACION II (INDUSTRIAL Y MECANICA)

CICLO I 2015

STR( )

Devuelve el carcter equivalente a una expresin numrica especifica.

Sintaxis STR(Expresin Numrica) Tipos devuelto: Carcter Argumentos: Expresin Numrica: Especifica la expresin numrica evaluada por STR( ). Ejemplo: CLEAR A = 25 ? STR(A) && Devuelve 25

jueves, 21 de mayo de 2015 INTRODUCCION A LA PROGRAMACION CON VFP 2

Funciones en Visual FoxPro





CICLO I 2015

VAL( )

Devuelve un valor numrico a partir de una expresin de caracteres compuesta de nmeros. Sintaxis: VAL(Expresin Carcter) Tipos devueltos: Numrico Argumentos Expresin Carcter

Especifica una expresin de caracteres compuesta de hasta 16 nmeros. Si en Expresin Caracter se incluyen ms de 16 nmeros, se redondear. Ejemplo: CLEAR A = 12 B = 13 ? VAL(A) + VAL(B) && Devuelve 25,00







CICLO I 2015

SUBSTR( )

Devuelve un nmero de caracteres especfico de una expresin de caracteres o un campo memo. Sintaxis: SUBSTR(cExpresin, nPosicinInicial , nCaracteresDevueltos) Tipos devueltos: Caracter Argumentos cExpresin: especifica la expresin de caracteres o el campo memo desde el cual se devuelve la sub cadena de caracteres.

PosicinInicial: especifica la posicin en la expresin de caracteres o en la cExpresin del campo memo desde la que se devuelve la cadena de caracteres. El primer carcter de cExpresin es la posicin 1. nCaracteresDevueltos: Especifica el nmero de caracteres que se debe extraer de cExpresin. Si se omite nCaracteresDevueltos, los caracteres se extraern hasta llegar al final de la expresin de caracteres. Ejemplo: cMicadena = abcdefghijklm ? SUBSTR(cMicadena, 1, 5) && Devuelve abcde.







CICLO I 2015

LEFT( )

Devuelve un nmero especificado de caracteres de una expresin de caracteres, a partir del carcter situado ms a la izquierda. Sintaxis LEFT(cExpresin, nExpresin) Tipos devueltos: Character Argumentos: cExpresin Especifica la expresin de caracteres de la cual LEFT( ) tomara los caracteres. nExpresin

Nmero de caracteres devueltos desde la expresin de caracteres. Si nExpresin es mayor que la longitud de cExpresin, se devolver toda la expresin. Devuelve la cadena vaca si nExpresin es negativa o si es 0. LEFT( ) es idntica a SUBSTR( ) con una posicin inicial de 1. Ejemplo ? LEFT(Residencial El Faro SS, 4) && Devuelve Resi







CICLO I 2015

RIGHT( )

Devuelve el nmero especificado de caracteres del lado derecho de una cadena de caracteres. Sintaxis: RIGHT(cExpresin, nCaracteres) Tipos devueltos: Character Argumentos cExpresin

Especifica la expresin de caracteres de la cual RIGHT tomara los caracteres. nCaracteres Especifica el nmero de caracteres devueltos a partir de la expresin de caracteres. RIGHT( ) devuelve toda la expresin de caracteres si nCaracteres es mayor que la longitud de cExpresin. RIGHT( ) devuelve una cadena vaca si nCaracteres es negativo o 0.

Ejemplo ? RIGHT(Residencial El Faro SS, 2) && Devuelve SS







CICLO I 2015

UPPER( ) Devuelve la expresin de caracteres especificada en maysculas. Sintaxis: UPPER(cExpression) Valores devueltos: Carcter Parmetros cExpression

Especifica la expresin de caracteres que UPPER( ) convierte a maysculas. Observacion: Todas las letras minsculas (a z) de la expresin de caracteres se convierten en maysculas (A Z) en la cadena devuelta. Ejemplo ? UPPER('abcdefgh') && Devuelve ABCDEFGH







CICLO I 2015

MESSAGEBOX( )

Muestra un cuadro de dilogo definido por el usuario. Sintaxis:

MESSAGEBOX(cTextoMensaje [, nTipoCuadroDilogo [, cTextoBarraTtulo]]) Tipos devueltos: Numeric Argumentos cTextoMensaje

Especifica el texto que aparece en el cuadro de dilogo. El alto y el ancho del cuadro de dilogo aumentan lo que sea necesario para mostrar cTextoMensaje.







CICLO I 2015

MESSAGEBOX( ) nTipoCuadroDilogo

Especifica los botones y los iconos que aparecen en el cuadro de dilogo, el botn elegido inicialmente al aparecer el cuadro y su comportamiento.

En las tablas siguientes:

Los valores 0 a 5 del botn del cuadro de dilogo especifican los botones que aparecen en el mismo.

Los valores de icono 16, 32, 48 y 64 especifican el icono que aparece en el cuadro de dilogo.

Los valores predeterminados 0, 256 y 512 especifican qu botn del cuadro de dilogo es el botn predeterminado. El botn predeterminado se selecciona cuando aparece el cuadro de dilogo.

Omitir nTipoCuadroDilogo es lo mismo que especificar un valor de 0 para nTipoCuadroDilogo.







CICLO I 2015

Valor Botones del cuadro de dilogo

0 Slo botn Aceptar.

1 Botones Aceptar y Cancelar.

2 Botones Anular, Reintentar e Ignorar.

3 Botones S, No y Cancelar.

4 Botones S y No.

5 Botones Reintentar y Cancelar.

Valor Icono

16 Punto.

32 Signo de interrogacin.

48 Signo de exclamacin.

64 Icono de informacin (i).

Valor Botn predeterminado

0 Primer botn.

256 Segundo botn.

512 Tercer botn.


Funciones en Visual FoxPro MESSAGEBOX()





CICLO I 2015

nTipoCuadroDilogo puede ser la suma de hasta tres valores, uno de cada una de las tablas anteriores. Por ejemplo, si nTipoCuadroDilogo es (2+32+256), el cuadro de dilogo especificado tendr las siguientes caractersticas:

Botones Anular, Reintentar e Ignorar.

El cuadro de mensaje muestra el icono del signo de interrogacin.

El segundo botn, Reintentar, es el botn predeterminado.

nResultado = MESSAGEBOX("Seleccione un botn !!!", 2+32+256, "Aviso")


Funciones en Visual FoxPro MESSAGEBOX( )





CICLO I 2015

cTextoBarraTtulo Especifica el texto que aparece en la barra de ttulo del cuadro de dilogo. Si omite cTextoBarraTtulo, en la barra de ttulo aparecer el ttulo "Microsoft Visual FoxPro".

Comentarios

El valor que devuelve MESSAGEBOX( ) indica qu botn del cuadro de dilogo se ha elegido. En los cuadros de dilogo con un botn Cancelar, al presionar la tecla ESC para salir del cuadro de dilogo se devolver el mismo valor (2) que al elegir Cancelar.

En el ejemplo anterior, s eligi el botn Reintentar, la variable nResultado guardara el valor 4:

nResultado = MESSAGEBOX("Seleccione un botn !!!", 2+32+256, "Aviso")







CICLO I 2015

La tabla siguiente muestra los valores que devuelve MESSAGEBOX( ) por cada botn.

Valor devuelto Botn

1 Aceptar

2 Cancelar

3 Anular

4 Reintentar

5 Ignorar

6 S

7 No







CICLO I 2015

Ejemplo de MESSAGEBOX( ) (Funcin)

El siguiente ejemplo muestra un cuadro de dilogo definido por el usuario. Como ttulo del cuadro de dilogo definido por el usuario, se muestra el mensaje "Registro no encontrado. Desea buscar de nuevo? ", y en la barra de ttulo se muestra "Mi aplicacin".

El cuadro de dilogo definido por el usuario contiene los botones S y No, y el icono del signo de interrogacin; el segundo botn (No) es la seleccin predeterminada. Cuando elija uno de los botones, la seleccin se mostrar en pantalla.







CICLO I 2015

cMensajeTitulo = 'Mi aplicacin cMensajeTexto = 'Registro no encontrado. Desea buscar de nuevo? nDialogoTipo = 4 + 32 + 256 * 4 = Botones S y No. * 32 = Icono del signo de interrogacin. * 256 = El segundo botn es el predeterminado. nRespuesta = MESSAGEBOX(cMensajeTexto, nDialogoTipo, cMessageTitulo)

DO CASE CASE nRespuesta = 6 MESSAGEBOX("Eligio si",0+64,"seleccion") CASE nRespuesta = 7 MESSAGEBOX("Eligio no",0+64,"seleccion") ENDCASE







CICLO I 2015

CTOD( ) Convierte una expresin de caracteres en una expresin de fecha. Sintaxis: CTOD(cExpresin) Tipo devuelto: Fecha Argumentos cExpresin

Especifica una expresin de caracteres para la cual CTOD( ) devuelve un valor de tipo fecha. Ejemplo: cFecha="10/10/2013" ? CTOD(cFecha) && Devuelve {01/01/2003} (fecha).







CICLO I 2015

DTOC( ) Devuelve una fecha de tipo Carcter a partir de una expresin de tipo Date. Sintaxis DTOC(dExpresin) Tipos devueltos: Carcter Argumentos dExpresin

Especifica una variable de memoria, un elemento de matriz o un campo de tipo Date para los que DTOC( ) devuelve una fecha de tipo Carcter.







CICLO I 2015

Ejemplo:

SET STRICTDATE TO 0

fEstafecha = CTOD(10/31/95)

? DTOC(cEstafecha)

cFechaCad = DTOC({01/10/2013})

? "fecha actual: " + DTOC({01/10//2013})


Funciones en Visual FoxPro DTOC( )





CICLO I 2015

LIKE( )

Determina si una expresin de caracteres coincide con otra expresin de caracteres. LIKE(cExpression1, cExpression2) Valores devueltos: Lgico Parmetros cExpression1

Especifica la expresin de caracteres que LIKE( ) compara con cExpression2. cExpression1 puede contener caracteres comodn: ( ? )Interrogacin: coincide con cualquier carcter nico de cExpression2. ( * ) Asterisco: coincide con cualquier nmero de caracteres. Puede mezclar y combinar cualquier nmero de caracteres comodn que desee en cExpression1.







CICLO I 2015

LIKE( )

cExpression2 Especifica la expresin de caracteres que LIKE( ) compara con cExpression1. cExpression2 debe coincidir con cExpression1 letra por letra para que LIKE( ) devuelva verdadero (.T.). Observaciones

LIKE() devuelve verdadero (.T.) si cExpression1 coincide con cExpression2; de lo contrario, devuelve falso (.F.). SET COMPATIBLE determina la forma en que LIKE( ) evala cExpression1 y cExpression2. Si SET COMPATIBLE est establecido en ON o DB4, se eliminarn todos los espacios en blanco finales de cExpression1 y cExpression2 antes de compararlos. Si SET COMPATIBLE est establecido en OFF o FOXPLUS, en la comparacin se usarn todos los espacios en blanco finales de cExpression1 y cExpression2.







CICLO I 2015


LIKE( ) Ejemplo En el ejemplo siguiente se muestran todos los apellidos de la tabla Empleados en donde sus dos primeras letras sean "CH". CLOSE DATABASES OPEN DATABASE PermisosDB USE Empleados && Abre la tabla Empleados ? 'Todos los Apellidos que empiezan con CH:' ? BROWSE FOR LIKE('CH*', Apellidos) CLOSE DATA ALL






CICLO I 2015

IF ... ENDIF Ejecuta condicionalmente un conjunto de comandos dependiendo del resultado de una expresin lgica. Sintaxis: IF (Condicin )

Comandos s la condicin es verdadera ELSE Comandos s la condicin es falsa ENDIF

Argumentos: Condicin Condicin Especifica la expresin lgica evaluada. Si Condicin es verdadero (.T.), se ejecutarn cualesquiera instrucciones

posteriores a IF y anteriores a ELSE. Si Condicin es falsa (.F.) se ejecutan los comandos situados despus de

ELSE y antes de ENDIF. Si Condicin es falsa (.F.) y no se incluye ELSE, se pasarn por alto todas las

instrucciones entre IF y ENDIF. En este caso la ejecucin del programa continuar con la primera lnea de comando a continuacin de ENDIF.


Estructuras de Progrmacin





CICLO I 2015

IF ... ENDIF

Ejemplo: Suma de dos nmeros positivos

nN1 = INPUTBOX("primer numero: ")

nN2 = INPUTBOX("segundo numero: ")

IF VAL(nN1)





CICLO I 2015

Do Case . EndCase Selector de casos

Sintaxis:

DO CASE CASE Condicin 1) Comandos

CASE Condicin 2) Comandos ...

CASE Condicin N) Comandos

OTHERWISE Comandos

ENDCASE


Estructuras de Programacin





CICLO I 2015

Do Case . EndCase Argumentos CASE Condicin 1 Comandos ...

Cuando se encuentre la primera expresin CASE verdadera (.T.), se ejecutar el conjunto de comandos que haya a continuacin. La ejecucin del conjunto de comandos continuar hasta encontrar la siguiente expresin CASE o ENDCASE. La ejecucin se reanuda en el comando que hay inmediatamente a continuacin de ENDCASE. Si una expresin CASE es falsa (.F.), se pasar por alto el conjunto de comandos que le siguen hasta la siguiente clusula CASE. Solamente se ejecuta un conjunto de comandos, que ser aqul cuya expresin CASE d como resultado verdadero (.T.). Se pasan por alto todas las expresiones CASE posteriores que sean verdaderas (.T.).







CICLO I 2015


Estructuras de Programacin Do Case . EndCase

Argumentos OTHERWISE Comandos

Si todas las expresiones CASE dan como resultado falso (.F.), OTHERWISE determinar si se ejecuta otro conjunto de comandos adicional. Si incluye OTHERWISE, se ejecutar el conjunto de comandos que sigue a OTHERWISE y la ejecucin saltar al primer comando que hay a continuacin de ENDCASE. Si omite OTHERWISE, la ejecucin saltar al primer comando que hay a continuacin de ENDCASE.





CICLO I 2015

Do Case . EndCase

Ejemplo:

sel = MESSAGEBOX("Que desea hacer?",2,"Seleccion")

DO CASE

CASE sel = 3

MESSAGEBOX("Selecciono Anular",0,"Anular")

CASE sel = 4

MESSAGEBOX("Selecciono Reintentar",0,"reintentar")

OTHERWISE

MESSAGEBOX("Selecciono Omitir",0,"Omitir")

ENDCASE







CICLO I 2015

DO WHILE ... ENDDO

Ejecuta un conjunto de comandos dentro de un bucle condicional. Sintaxis: DO WHILE (Condicin)

Comandos ENDDO Argumentos Condicin

Especifica una expresin lgica cuyo valor determina si se debe ejecutar el conjunto de comandos incluido entre DO WHILE y ENDDO. Siempre que Condicin d como resultado verdadero (.T.), el conjunto de comandos se ejecutar. Comandos Especifica el conjunto de comandos de Visual FoxPro que se ejecutan

siempre y cuando Condicin d como resultado verdadero (.T.).







CICLO I 2015

Ejemplo:

sel = MESSAGEBOX("Desea continuar?",4,"Seleccion")

DO WHILE sel = 6

MESSAGEBOX("Selecciono continuar",0,"Continuar")

sel = MESSAGEBOX("Desea continuar?",4,"Seleccion")

ENDDO

MESSAGEBOX("Selecciono Salir",0,"Fin del programa")


Estructuras de Programacin DO WHILE ... ENDDO





CICLO I 2015

SCAN ... ENDSCAN

Mueve el puntero de registro por la tabla seleccionada y ejecuta un bloque de comandos para cada uno de los registros que cumple las condiciones especificadas. Sintaxis SCAN Condicin)

Comandos ENDSCAN

Argumentos Condicin

Ejecuta comandos solamente para los registros para los cuales Condicin evala como verdadera (.T.). Comandos Especifica los comandos de Visual FoxPro que desea ejecutar.







CICLO I 2015

Ejemplo: Programa que muestre el grado academico de la especialidad en Ingenieria, otros solo el mensaje empleado.

CLOSE DATABASES ALL

OPEN DATABASE PermisoBd

SELECT 0

USE Empleado

SCAN

cTitulo = SUBSTR(Empleado.Titulo, 1, 9)

IF cTitulo = "INGENIERO"

nRESP = MESSAGEBOX(Empleado.Titulo, 0+48+0, "Aviso")

ELSE

nRESP = MESSAGEBOX("Empleado", 0+48+0, "Aviso")

ENDIF

ENDSCAN


Estructuras de Programacin SCAN ... ENDSCAN





CICLO I 2015

FOR ... ENDFOR Ejecuta un grupo de comandos un nmero concreto de veces. Sintaxis FOR NombreVariableMemoria = nValorInicial TO nValorFinal [STEP nIncremento

Comandos ENDFOR Argumentos NombreVariableMemoria

Especifica una variable de memoria que acta como contador. No es necesario que exista la variable de memoria antes de ejecutar FOR ... ENDFOR. nValorInicial TO nValorFinal nValorInicial: es el valor inicial del contador nValorFinal: es el valor final del contador. STEP nIncremento nIncremento es la cantidad de incremento o decremento del contador. Si nIncremento es

negativo, el contador se decrementar. Si omite la clusula STEP, el contador se incrementar en 1.







CICLO I 2015

FOR ... ENDFOR

Comandos Especifica los comandos de Visual FoxPro que se van a ejecutar. Comandos

puede incluir cualquier nmero de comandos.



Ejemplo: Cuenta cadena Programa que captura una cadena de caracteres y calcua cuantos caracteres alfabeticos y cuantos numeros existen.

cant_num=0

cant_dig=0

cadena = INPUTBOX("Ingrese una cadena")





CICLO I 2015

FOR i = 1 TO LEN(cadena)

dig = SUBSTR(cadena,i,1)

IF ISDIGIT(dig)

cant_num = cant_num +1

ELSE

cant_dig = cant_dig +1

ENDIF

ENDFOR

MESSAGEBOX(Total de digitos: "+ STR(cant_num), Resultado)

MESSAGEBOX(Total de caracteres alfabeticos: "+ STR(cant_dig), Resulado)

MESSAGEBOX(La longitud de la cadena es: "+ STR(LEN(cadena)), Resultado)


Estructuras de Programacin FOR ... ENDFOR

Unidad IV - 5 - Introduccion a La Programacion Con VFP (Cont) 2015

Documents

Transcript of Unidad IV - 5 - Introduccion a La Programacion Con VFP (Cont) 2015