Programacin Orientada a Objetos infoSur Web

Web apuntes.infored.mx infosur

Practicas para Visual FoxPro
Prof. Sergio Uriel Ramos Reyes

Prctica Uno: Mensajes con botones de comando
GUARDA TU FORMULARIO ANTES DE COMENZAR A TRABAJAR: MENSAJES_UNO

Diseando el formulario
a) Utiliza los controles Etiqueta y Botn de comando para la creacin de la siguiente imagen:


b) Utiliza el control ETIQUETA para el texto Mensajes en Botones; cambia las siguientes propiedades:
Fontname: Bauhaus 93
Autosize: Verdadero
Fontsize: 22
Forecolor: Blanco
BackStyle: Transparente

c) Ahora, coloquemos cinco botones de comando, de modo que vers en tu formulario: Command1,
Command2 hasta Command5. cambia las siguientes propiedades:
Command1
Caption: Alegra
Command3
Caption: Paz
Command2
Caption: Amor
Command4
Caption: Vivir
Command5
Caption: Vuelve pronto



Hasta aqu has trabajado en el diseo del formulario, es momento de escribir tus primeras lneas de cdigo en
cada botn
Propiedades para el Form1

Caption: Mensajes con botones.
BackColor: Caf
Autocenter: Verdadero
Height: 250
Width: 400
MaxButton: Falso
MinButton: Falso
apuntes.infored.mx
apuntes.infored.mx
Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

d) Escribiendo cdigos
De acuerdo al botn indicado, haz doble clic y escribe el cdigo tal y como se muestra:

ALEGRIA
MESSAGEBOX("Sentimiento grato y vivo... se manifiesta con gestos y actos..")

AMOR
MESSAGEBOX("Sentimiento intenso del ser humano... Busca el encuentro con otro
ser")

PAZ
MESSAGEBOX("Situacin de tranquilidad y quietud en cada persona...")

VIVIR
MESSAGEBOX("Tener vida... Disfrutar y mantener la vida...")

VUELVE PRONTO
quit


e) Ejecutar la aplicacin
Guarda cambios [presiona el botn GUARDAR o las teclas CTRL + S]

Presiona las teclas CTRL + E para la ejecucin de tu aplicacin. Comprueba que cada botn funcione
correctamente.

Si se ha producido un error, verifica que escribiste correctamente cada lnea

El botn VUELVE PRONTO terminar la ejecucin del programa y cerrar VFP.


Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

Practicas para Visual FoxPro
Prof. Sergio Uriel Ramos Reyes

Prctica Dos: Mensajes con botones de comando
GUARDA TU FORMULARIO ANTES DE COMENZAR A TRABAJAR: SUMA

a) Diseando el formulario
En esta prctica debes crear el siguiente diseo:



b) Utiliza el control ETIQUETA para el texto Saludos y Suma de dos nmeros; cambia las siguientes
propiedades:
FontName: Times New Roman Autosize: Verdadero
Fontsize: 22 Forecolor: Amarillo BacColor: Azul

c) Ahora, coloquemos cinco botones de comando, de modo que vers en tu formulario: Command1,
Command2 hasta Command5. cambia las siguientes propiedades:
Command1
Caption: Hello
Command3
Caption: SUMA
Command2
Caption: Hola
Command4
Caption: Borrar
Command5
Caption: Bye

d) Utiliza el control ETIQUETA para los textos Nmero Uno:, Nmero Dos: y La suma es:; cambia
las siguientes propiedades:
FontName: Arial Fontsize: 14 Forecolor: Negro

Localiza el control CUADRO DE TEXTO, ya que lo utilizars para colocar las cajas de texto donde podrs
escribir o ingresar los nmeros a sumar
Despus de colocarlos, debes visualizar en pantalla: Text1, Text2 y Text3. Cambia la siguiente
propiedad en los tres:
Text1
inputmask: 999
forecolor: Azul
Text3
inputmask: 999
forecolor: Azul
alignment: centrado
fontBold: Verdadero
Text2
inputmask: 999
forecolor: Azul
Propiedades para el Form1

Caption: Saludos y suma de dos
numeros.
BackColor: Gris.
Autocenter: Verdadero
Height: 370
Width: 600
MaxButton: Falso
MinButton: Falso
apuntes.infored.mx
Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

e) Escribiendo cdigos
De acuerdo al botn indicado, haz doble clic y escribe el cdigo tal y como se muestra:

Botn Hello
messagebox("Hello es la forma de saludo en Ingls..")

Botn Hola
messagebox("Hola es la forma de saludo en Espaol..")


Botn SUMA
thisform.text3.value = val(thisform.text1.value) + val(thisform.text2.value)

En este cdigo, haremos un anlisis, ya que es la parte donde el programa realizar el proceso de la
SUMA. Observa la lnea de cdigo, podrs notar que se muestran text3, text1 y text2. Los cuales
son los nombres que VFP les ha dado de forma automtica. Ms adelante veremos cmo personalizar
dichos nombres.


Botn Borrar
thisform.text1.value = " "
thisform.text2.value = " "
thisform.text3.value = " "

Estas lneas nos permiten dejar en blanco o vacos los cuadros de texto.



Botn Bye
Thisform.Release

Esta lnea de cdigo te permite CERRAR la ventana de ejecucin del programa, NO salir.


Botn Finalizar
quit

sta lnea se usa para indicar al programa que finalice todo.


NOTA: PUEDES AGREGAR UNA IMAGEN DE ACUERDO A LA APLICACIN.

EJERCICIO: Disea un programa para multiplicar dos nmeros.
Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

Practicas para Visual FoxPro
Prof. Sergio Uriel Ramos Reyes

Prctica Tres: Multipliquemos
GUARDA TU FORMULARIO ANTES DE COMENZAR A TRABAJAR: MULTIPLICAR

a) Diseo del formulario
Observas la imagen y utiliza los controles correctos y debes acomodarlos como se muestra.




b) Lee lo siguiente:
1. Creamos dos Labels [Label2 y Label3] que indicarn los ttulos de los
nmeros a capturar.
2. Adems de dos TextBox con Name snum1 y snum2, para identificarlos.
3. Agregamos un tercer Label [Label4] con Name sresultado donde se
desplegar el resultado, este Label NO tendr Caption inicialmente (dejar en
blanco).
4. En un botn de comando usar Caption y escribir: Resultado,
colocaremos la instruccin para proceder a la suma de los dos nmeros,
mediante el siguiente rengln:

thisform.sresultado.caption=STR(thisform.snum1.value*thisform.snum2.value)

c) Hasta aqu, tu formulario debe quedar as:

d) Guarda cambios. Ejecuta tu formulario y haz la prueba, multiplica dos nmeros!

Propiedades para el Form1

Caption: Multipliquemos dos numeros
BackColor: Gris.
Autocenter: Verdadero
Height: 350
Width: 600
MaxButton: Falso
MinButton: Falso
Observa este cuadro, es el <Label4>.
Propiedades para:

snum1 y snum2
value: 0
Escribe los cdigos
para:

CERRAR y SALIR

Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur


Practicas para Visual FoxPro
Prof. Sergio Uriel Ramos Reyes


Prctica Cuatro: Multipliquemos

CREA UN FORMULARIO NUEVO, MODIFICA EL EJERCICIO TRES, DE MODO QUE TU
PROGRAMA QUEDE DE LA SIGUIENTE MANERA:



NOTA: Puedes revisar tu prctica uno, para obtener los cdigos necesarios para los botones Clear, Cerrar
y Salir. Adems de la lnea de cdigo para multiplicar, vista en la prctica Tres.

GUARDA CON EL NOMBRE: Multiplica_dos


Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

Practicas para Visual FoxPro
Prof. Sergio Uriel Ramos Reyes


Prctica Cinco: Multipliquemos

Objetivo de esta prctica:
Elaborar una aplicacin que permita leer un nmero real de la forma 999.999 e imprima o muestre el mayor
valor entre la parte entera y la parte decimal.


a) Disea el siguiente formulario.
Observas la imagen y utiliza los controles correctos y debes acomodarlos como se muestra.




b) Establece las siguientes propiedades:

Label1
Caption: Buscando el Mayor valor

Label2
Name: LbX
Caption: Ingrese un nmero real

Label3
Name: LbMay Caption: La parte mayor es:

Text1
Name: TxtX Inputmask: 999.999 Value: 0

Text2:
Name: TxtMay Inputmask: 999 Value: 0

Command1
Name: CmdAceptar
Caption: \<Aceptar // Esta instruccin permitir usar la tecla Alt con la letra subrayada (A)
Default: Verdadero


Propiedades para Form1

Caption: Mayor valor de un numero real.
Name: SrAplica05
BackColor: Anaranjado.
Autocenter: Verdadero
Height: 350
Width: 600
MaxButton: Falso
MinButton: Falso
Programacin Orientada a Objetos infoSur Web
Web apuntes.infored.mx infosur

Command2
Name: CmdLimpiar
Caption: \<Limpiar // Esta instruccin permitir usar la tecla Alt con la letra subrayada (L)

Command3
Name: CmdCerrar
Caption: \<Cerrar // Esta instruccin permitir usar la tecla Alt con la letra subrayada (C)

Command4
Name: CmdSalir
Caption: \<Salir // Esta instruccin permitir usar la tecla Alt con la letra subrayada (S)

c) Los cdigos

Objeto: CmdAceptar Procedimiento: 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

Objeto: CmdLimpiar Procedimiento: Click
thisform.TxtX.value = 0
thisform.TxtMay.value = 0
thisform.TxtX.setfocus
thisform.Refresh

Objeto: CmdCerrar Procedimiento: Click
Thisform.release

Objeto: CmdSalir Procedimiento: Click
quit

d) Guarda los cambios de tu trabajo (CTRL + S) y ejecuta tu programa.


DISEO
FINALIZADO