Microsoft Visual FoxPro
GUA DE LABORATORIO 01
Objetivos
Luego de completar este laboratorio, el estudiante ser
capaz de:
Identificar los elementos del entorno integrado de
desarrollo de Microsoft Visual FoxPro 9.0.
Implementar soluciones mediante programacin clsica.
Declarar y asignar valores tanto a las variables de memoria
como a los arreglos.
Analizar como es el flujo de control de un programa.
Crear funciones y procedimientos definidos por el usuario.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deber
crear una carpeta C:\Lab1, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicacin N 1
En este primer ejercicio vamos a escribir un programa que
lea tres nmeros enteros y determine el nmero mayor, el nmero
central y el nmero menor. Debemos asumir que los tres nmeros
son siempre distintos.
Para el desarrollo de la presente aplicacin ingresar a
Microsoft Visual FoxPro. En la Ventana de Comandos digite la
siguiente orden:
Modify Command Aplica01
A continuacin se debe presentar el Editor de programas.
En dicha ventana proceda a ingresar el cdigo que se indica:
Close All
Clear
Input Ingrese el valor de A? To nA
Input Ingrese el valor de B? To nB
Input Ingrese 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)
Para ejecutar su programa dar click en el botn Ejecutar
( ! ) de la Barra de herramientas Estndar.
Para volver a ejecutar su programa digitar la siguiente
orden desde la Ventana de Comandos:
Do Aplica01
Aplicacin N 2
Un restaurante ofrece un descuento del 10% para consumos
entre C$300.00 y C$500.00; un descuento del 20% para consumos
mayores a C$800.00; para todos los dems casos no se aplica
ningn tipo de descuento. El ejercicio consiste en elaborar un
programa que permita determinar el importe a pagar por el
consumidor.
Para el desarrollo de la presente aplicacin abrir una
nueva ventana de edicin e ingresar el siguiente cdigo:
Close All
Clear
Do While .T.
Input Consumo: To nConsumo
If Type (nConsumo) = N
Exit
EndIf
EndDo
Do Case
Case nConsumo >= 300 And nConsumo <= 500
nImporte = nConsumo * 0.9
Case nConsumo > 800
nImporte = nConsumo * 0.8
Otherwise
nImporte = nConsumo
EndCase
? Importe a pagar: + Str(nImporte)
Aplicacin N 3
El ejercicio consiste en escribir un programa que lea n
enteros y calcule la suma total, la media aritmtica, el
mximo y el mnimo de los datos.
Para el desarrollo de la presente aplicacin, de manera
anloga que para los casos anteriores abrir una nueva ventana
de edicin e ingresar el siguiente cdigo:
Close All
Clear
Input Ingrese cantidad de nmeros? To nN
Declare aVector(nN)
For nI = 1 To nN
Input Nmero [ + Str(nI) + ]? To aVector(nI)
Next
nMax = aVector[1]
nMin = 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)
? Mximo= + Str(nMax)
? Mnimo= + Str(nMin)
Aplicacin N 4
A continuacin vamos a escribir una funcin que reciba
como argumento de entrada una cadena de caracteres y la
devuelva en forma inversa, por ejemplo si se ingresa la cadena
CORAZON deber retornar NOZAROC.
Para el desarrollo de esta aplicacin proceda de manera
similar a los casos anteriores e ingresar el cdigo que se
muestra:
Close All
Clear
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
Microsoft Visual FoxPro
GUA DE LABORATORIO N 2
Objetivos
Luego de completar este laboratorio, el estudiante ser
capaz de:
Implementar soluciones mediante programacin orientada a
objetos.
Manejar las diferentes propiedades y eventos del formulario.
Aadir controles a un formulario.
Establecer las propiedades de los controles.
Trabajar con procedimientos de eventos.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deber
crear una carpeta C:\Lab2, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicacin N 1
El ejercicio consiste en elaborar una aplicacin que
permita leer un nmero real de la forma [Link] e imprima el
mayor valor entre la parte entera y la parte decimal.
Para el desarrollo de esta aplicacin, en primer lugar
debe crear un nuevo formulario. Para ello digite lo siguiente
en la Ventana de Comandos:
Create Form
A continuacin seleccione del Men Ver, la opcin Barra
de herramientas Controles de Formularios. Se presentar una
ventana similar a la siguiente figura:
En seguida de la barra de herramientas mostrada ubicar
los siguientes controles al formulario:
2 etiquetas
2 cajas de texto
3 botones de comando
Para ubicar un control en el formulario, simplemente dar
click en el control deseado y luego dar click en el formulario
en la posicin que se le desea ubicar. Adicionalmente puede
utilizar la barra de herramientas Diseo para obtener una mejor
presentacin.
A continuacin proceda a establecer las propiedades de
los objetos segn se indica, para ello dar click derecho sobre
el control y del men emergente que se presenta elegir la
opcin Propiedades.
Form1
Name FrmAplica01
Caption Mayor valor de un nmero real
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblX
Caption Ingrese un real de la forma [Link]?
Label2
Name LblMay
Caption Mayor:
Text1
Name TxtX
InputMask 999.999
Value 0
Text2
Name TxtMay
InputMask 999
Value 0
Command1
Name CmdAceptar
Caption \<Aceptar
Default .T.-Verdadero
Command2
Name CmdLimpiar
Caption \<Limpiar
Command3
Name CmdSalir
Cancel .T.-Verdadero
Caption \<Salir
A continuacin dar doble click sobre el control CmdAceptar
y proceda a ingresar el cdigo que se muestra:
Objeto: CmdAceptar Procedimiento: Click
nX = [Link]
nA = Int([Link])
nX = nX - nA
nB = 1000 * nX
If nA > nB Then
nMay = nA
Else
nMay = nB
EndIf
[Link] = nMay
[Link]
De manera anloga ingresar el siguiente cdigo para el
control CmdLimpiar:
Objeto: CmdLimpiar Procedimiento: Click
[Link] = 0
[Link] = 0
[Link]
[Link]
Finalmente proceder a ingresar el siguiente cdigo para
el control CmdSalir:
Objeto: CmdSalir Procedimiento: Click
Release Thisform
A continuacin guarde su aplicacin como FrmAplica01,
luego proceda a ejecutarla. Para ello ingrese lo siguiente en
la Ventana de Comandos:
Do Form FrmAplica01
Debe funcionar sin problemas. Pruebe ingresando
diferentes valores. En caso que falle revise y corrija.
Aplicacin N 2
En este ejercicio vamos a crear un formulario para
calcular la edad de una persona a partir de su fecha de
nacimiento.
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
2 etiquetas
2 cajas de texto
3 botones de comando
Luego, proceda a establecer las propiedades segn se
indica a continuacin:
Form1
Name FrmEdad
Caption
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblFecNac
Caption Fecha de nacimiento:
Label2
Name LblEdad
Caption Su edad es:
Text1
Name TxtFecNac
Enabled .T.-Verdadero
Text2
Name TxtEdad
Enabled .F.-Falso
Command1
Name CmdAceptar
Caption \<Aceptar
Command2
Name CmdLimpiar
Caption \<Limpiar
Command3
Name CmdSalir
Caption \<Salir
Luego de establecidas las propiedades de los controles,
proceda a ingresar el siguiente cdigo:
Objeto: FrmEdad Procedimiento: Load
Set Date French
Set Century On
Objeto: FrmEdad Procedimiento: Init
cNomDia = Cdow(Date())
cDia = Str(Day(Date()), 2)
cMes = Cmonth(Date())
cAnno = Str(Year(Date()), 4)
cFecha = cNomDia + + cDia + de + cMes + del + cAnno
[Link] = cFecha
[Link]
[Link]
Objeto: CmdAceptar Procedimiento: Click
dFecNac = Ctod([Link])
nEdad = Int ((Date() - dFecNac) / 365)
[Link] = Str(nEdad) + aos
[Link]
Objeto: CmdLimpiar Procedimiento: Click
[Link] =
[Link] =
[Link]
[Link]
Objeto: CmdSalir Procedimiento: Click
Release Thisform
Aplicacin N 3
Este ejercicio consiste en elaborar un formulario que
simule el funcionamiento de un reloj despertador digital. La
aplicacin debe permitir al usuario ingresar la hora a la que
desea ser avisado. El diseo de la interfaz debe ser similar a
la figura siguiente:
Para el desarrollo de esta aplicacin proceder a ubicar
los siguientes controles en el formulario:
2 etiquetas
2 cajas de texto
1 cronmetro
2 botones de comandos
En seguida establezca las propiedades segn se indica a
continuacin:
Form1
Name FrmReloj
Caption Reloj despertador digital
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblHora
Caption Hora
Label2
Name LblDespertador
Caption Despertador
Text1
Name TxtHora
FontBold .T.-Verdadero
FontSize 24
Text2
Name TxtDespertador
FontBold .T.-Verdadero
FontSize 24
Timer1
Name Timer1
Enabled .T.-Verdadero
Interval 500
Command1
Name CmdOnOff
Caption \<Desactivar
Default .T.-Verdadero
Command2
Name CmdTerminar
Cancel .T.-Verdadero
Caption \<Terminar
Una vez establecidas las propiedades, proceda a ingresar
el cdigo que se muestra:
Objeto: FrmReloj Procedimiento: Load
Public lOnOff
Objeto: FrmReloj Procedimiento: Init
lOnOff = .F.
[Link] = [Link]
[Link]
Objeto: Timer1 Procedimiento: Timer
If [Link] != Time() Then
[Link] = Time()
EndIf
If ([Link] < Time()) And lOnOff Then
* Sonido acstico
?Chr(7)
EndIf
[Link]
Objeto: CmdOnOff Procedimiento: Click
If lOnOff Then
lOnOff = .F.
[Link] = \<Activar
Else
lOnOff = .T.
[Link] = \<Desactivar
EndIf
[Link]
Objeto: CmdTerminar Procedimiento: Click
Release Thisform
Microsoft Visual FoxPro
GUA DE LABORATORIO N 3
Objetivos
Luego de completar este laboratorio, el estudiante ser
capaz de:
Manejar las diferentes propiedades y mtodos del conjunto de
formularios.
Identificar y utilizar los controles estndar adicionales.
Utilizar cajas de dilogo predefinidas para visualizar
mensajes.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deber
crear una carpeta C:Lab3, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicacin N 1
El ejercicio consiste en crear una aplicacin que permita
leer una fraccin y de como resultado la fraccin simplificada.
Esto es, que halle la fraccin irreductible equivalente.
Para el desarrollo de esta aplicacin proceda a crear un
nuevo formulario y luego vaya al Men Formulario y elija la
opcin Crear conjunto de formularios (no se preocupe, pues no
se apreciar nada en especial). Nuevamente vaya al Men
Formulario y elija la opcin Agregar nuevo formulario. El
Diseador de formularios debe presentar una apariencia similar
a la figura mostrada:
A continuacin proceda a ubicar los siguientes controles
sobre el primer formulario (Form1):
2 etiquetas
2 cajas de texto
2 botones de comando
Seguidamente debe establecer las propiedades de los
objetos segn se indica:
Form1
Name FrmIngreso
Caption Ingreso de datos
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblNumerador
Caption Numerador?
Label2
Name LblDenominador
Caption Denominador?
Text1
Name TxtNumerador
Value 0
Text2
Name TxtDenominador
Value 0
Command1
Name CmdSimplificar
Caption Simplificar
Default .T.-Verdadero
Command2
Name CmdSalir
Cancel .T.-Verdadero
Caption Salir
A continuacin proceda a ingresar el cdigo que se
muestra:
Objeto: CmdSimplificar Procedimiento: Click
nNumerador = [Link]
nDenominador = [Link]
If nNumerador < nDenominador Then
nC = nNumerador
Else
nC = nDenominador
EndIf
Do While (nNumerador % nC != 0) Or (nDenominador % nC != 0)
nC = nC - 1
EndDo
nNumerador = nNumerador / nC
nDenominador = nDenominador / nC
[Link]
[Link]
[Link]
Objeto: CmdSalir Procedimiento: Click
Release Thisformset
Luego proceda a ubicar los siguientes controles sobre el
segundo formulario (Form2):
1 etiqueta
1 caja de texto
1 botn de comando
Seguidamente debe establecer las propiedades de los
objetos segn se indica:
Form2
Name FrmSalida
Caption Salida
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblFraccion
Caption Fraccin simplificada:
Text1
Name TxtFraccion
Alignment 2-Centro
Command1
Name CmdVolver
Caption Volver
A continuacin proceda a ingresar el cdigo que se
muestra:
Objeto: FrmSalida Procedimiento: Activate
cNumerador = Str(nNumerador)
cDenominador = Str(nDenominador)
cFraccion = cNumerador + / + cDenominador
[Link] = cFraccion
[Link]
Objeto: CmdVolver Procedimiento: Click
[Link]
[Link]
[Link]
Finalmente proceda a ingresar el cdigo que se indica a
continuacin:
Objeto: Formset1 Procedimiento: Load
Public nNumerador
Public nDenominador
Public nC
Objeto: Formset1 Procedimiento: Init
[Link]
[Link]
Aplicacin N 2
Este ejercicio consiste en elaborar una aplicacin que
acepte fechas como tres nmeros (dd, mm, aaaa) y las visualice
del modo usual. A manera de ejemplo considere lo siguiente:
Cuando el usuario haga click en el botn Salir o en el
botn Cerrar de la barra de ttulo del formulario, se debe
confirmar si desea terminar la aplicacin, tal como se observa
en la figura siguiente:
En caso de que el usuario elija la opcin Si, la aplicacin
debe terminar. Caso contrario, es decir si el usuario elige la
opcin No, se debe proseguir con la aplicacin.
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
4 etiquetas
3 controles numricos
1 caja de texto
3 botones de comando
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Name FrmFecha
Caption Fecha en letras
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblDia
AutoSize .T.-Verdadero
Caption Da:
Label2
Name LblMes
AutoSize .T.-Verdadero
Caption Mes:
Label3
Name LblAnno
AutoSize .T.-Verdadero
Caption Ao:
Label4
Name LblEnLetras
AutoSize .T.-Verdadero
Caption En letras:
Spinner1
Name SpnDia
SpinnerHighValue 31
SpinnerLowValue 1
Spinner2
Name SpnMes
SpinnerHighValue 12
SpinnerLowValue 1
Spinner3
Name SpnAnno
SpinnerHighValue 9999
SpinnerLowValue 0
Text1
Name TxtEnLetras
Alignment 2-Centro
Command1
Name CmdAceptar
Caption \<Aceptar
Default .T.-Verdadero
Command2
Name CmdLimpiar
Caption \<Limpiar
Command3
Name CmdSalir
Cancel .T.-Verdadero
Caption \<Salir
Una vez establecidas las propiedades proceda a ingresar
el cdigo que se indica a continuacin:
Objeto: FrmFecha Procedimiento: Load
Set Date French
Set Century On
Objeto: FrmFecha Procedimiento: QueryUnload
#DEFINE vfpYesNo 4
#DEFINE vfpYes 6
#DEFINE vfpQuestion 32
If MessageBox(Desea terminar la aplicacin?, ;
vfpQuestion + vfpYesNo, Pregunta) = vfpYes Then
Release Thisform
Else
NoDefault
EndIf
Objeto: CmdAceptar Procedimiento: Click
cBarra = /
cFecha = [Link] + cBarra + [Link]
;
+ cBarra + [Link]
dFecha = Ctod(cFecha)
cNomDia = Cdow(dFecha)
cDia = Str(Day(dFecha), 2)
cMes = Cmonth(dFecha)
cAnno = Str(Year(dFecha), 4)
cFecha = cNomDia + + cDia + de + cMes + de + cAnno
[Link] = cFecha
[Link]
Objeto: CmdLimpiar Procedimiento: Click
[Link] = 0
[Link] = 0
[Link] = 0
[Link] =
[Link]
[Link]
Objeto: CmdSalir Procedimiento: Click
[Link]
Aplicacin N 3
Este ejercicio consiste en elaborar un formulario que
permita leer un nmero entero y visualice su tabla se
multiplicar. Para construir la tabla de multiplicar vamos a
utilizar un control cuadro de edicin, el cual tiene
propiedades similares a un cuadro de texto, pero permite
escribir texto en lneas diferentes.
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
1 etiqueta
1 caja de texto
1 cuadro de edicin
1 botn de comandos
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Name FrmTabla
Caption Tabla de multiplicar
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblNumero
Caption Ingrese un nmero:
Text1
Name TxtNumero
Alignment 2-Centro
Edit1
Name EdtTabla
ScrollBars 2-Vertical
Command1
Name CmdLimpiar
Caption \<Limpiar
Default .T.-Verdadero
Una vez diseada la interfaz, proceda a ingresar el cdigo
que se indica a continuacin:
Objeto: TxtNumero Procedimiento: InteractiveChange
nN = Val([Link])
cS =
For nI = 0 To 12
nP = nN * nI
cS = cS + Str(nN) + * + Str(nI) + = + Str(nP) ;
+ Chr(13)
Next
[Link] = cS
[Link]
Objeto: CmdLimpiar Procedimiento: Click
[Link] =
[Link] =
[Link]
Microsoft Visual FoxPro
GUA DE LABORATORIO N 4
Objetivos
Luego de completar este laboratorio, el estudiante ser
capaz de:
Usar casillas de verificacin y botones de opcin para
alternar entre uno o ms valores.
Establecer las principales propiedades y mtodos de las
listas desplegables y cuadros combinados.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deber
crear una carpeta C:\Lab4, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicacin N 1
Este ejercicio consiste en elaborar una aplicacin que
permita cambiar el aspecto de una caja de texto. El usuario
debe elegir el tipo de fuente a utilizar, el estilo, el color
y el tamao. El diseo de la interfaz debe ser similar a:
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
5 etiquetas
1 caja de texto
1 cuadro combinado
1 lista
3 casillas de verificacin
1 grupo de botones de opcin
1 botn de comando
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Name FrmEditor
AutoCenter .T.-Verdadero
Caption Editor
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblTexto
Caption Texto
Label2
Name LblFuente
Caption Fuente
Label3
Name LblTamao
Caption Tamao
Label4
Name LblEstilo
Caption Estilo
Label5
Name LblColor
Caption Color
Combo1
Name CboFuente
List1
Name LstTamao
Text1
Name TxtTexto
ForeColor 255, 0, 0
Check1
Name ChkNegrita
Caption Negrita
FontBold .T.-Verdadero
Check2
Name ChkCursiva
Caption Cursiva
FontItalic .T.-Verdadero
Check3
Name ChkSubrayado
Caption Subrayado
FontUnderline .T.-Verdadero
OptionGroup1
ButtonCount 3
Option1
Name OptRojo
ForeColor 255, 0, 0
Option2
Name OptVerde
ForeColor 0, 255, 0
Option3
Name OptAzul
ForeColor 0, 0, 255
Command1
Name CmdSalir
Caption \<Salir
Default .T.-Verdadero
Una vez establecidas las propiedades de la interfaz,
proceda a ingresar el cdigo que se muestra a continuacin:
Objeto: FrmEditor Procedimiento: Init
[Link](Arial)
[Link](Arial Black)
[Link](Courier New)
[Link](Garamond)
[Link](Impact)
[Link](MS Sans Serif)
[Link](Technical)
[Link](Times New Roman)
For nI = 8 To 20 Step 2
[Link](Alltrim(Str(nI)))
Next
Objeto: FrmEditor Procedimiento: QueryUnload
#DEFINE vfpYesNo 4
#DEFINE vfpYes 6
#DEFINE vfpQuestion 32
If MessageBox(Desea terminar la aplicacin?, ;
vfpQuestion + vfpYesNo, Pregunta) = vfpYes Then
Release Thisform
Else
NoDefault
EndIf
Objeto: CboFuente Procedimiento: Click
[Link] = [Link]
[Link]
Objeto: LstTamao Procedimiento: Click
nTamao = Val([Link])
[Link] = nTamao
[Link]
Objeto: ChkNegrita Procedimiento: Click
If [Link] = 1 Then
[Link] = .T.
Else
[Link] = .F.
EndIf
[Link]
Objeto: ChkCursiva Procedimiento: Click
If [Link] = 1 Then
[Link] = .T.
Else
[Link] = .F.
EndIf
[Link]
Objeto: ChkSubrayado Procedimiento: Click
If [Link] = 1 Then
[Link] = .T.
Else
[Link] = .F.
EndIf
[Link]
Objeto: OptRojo Procedimiento: Click
[Link] = RGB(255, 0, 0)
[Link]
Objeto: OptVerde Procedimiento: Click
[Link] = RGB(0, 255, 0)
[Link]
Objeto: OptAzul Procedimiento: Click
[Link] = RGB(0, 0, 255)
[Link]
Objeto: CmdSalir Procedimiento: Click
[Link]
Aplicacin N 2
Este ejercicio consiste en desarrollar una aplicacin que
permita ingresar el nombre de un curso, el cual pasa a formar
parte de una lista de espera antes de ser programado para su
dictado. Los cursos deben ser seleccionados de la lista de
espera y trasladados a la lista de cursos programados y
viceversa. El diseo de la interfaz debe ser similar a la
figura mostrada:
Para el desarrollo de esta aplicacin proceda a ubicar
los siguientes controles en el formulario:
3 etiquetas
1 cuadro de texto
2 listas
5 botones de comando
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Name FrmCursos
Caption Cursos
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblCurso
Caption Ingrese nuevo curso:
Label2
Name LblSeleccionar
Caption Seleccione un curso:
Label3
Name LblProgramado
Caption Curso programado:
Text1
Name TxtCurso
List1
Name LstSeleccionar
List2
Name LstProgramado
Command1
Name CmdAgregar
Caption
Picture C:\FundVFP\Bitmaps\[Link]
Command2
Name CmdAgregarTodo
Caption
Picture C:\FundVFP\Bitmaps\[Link]
Command3
Name CmdQuitar
Caption
Picture C:\FundVFP\Bitmaps\[Link]
Command4
Name CmdQuitarTodo
Caption
Picture C:\FundVFP\Bitmaps\[Link]
Command5
Name CmdAnnadir
Caption \<Aadir
En seguida proceda a ingresar el cdigo que se indica:
Objeto: CmdAnnadir Procedimiento: Click
[Link]([Link])
[Link] =
[Link]
Objeto: LstSeleccionar Procedimiento: Click
If [Link] != 0 Then
[Link] = .T.
[Link] = .T.
EndIf
[Link]
Objeto: LstProgramado Procedimiento: Click
If [Link] != 0 Then
[Link] = .T.
[Link] = .T.
EndIf
[Link]
Objeto: CmdAgregar Procedimiento: Click
cCurso = [Link]
nCurso = [Link]
If [Link] > 0 Then
[Link](cCurso)
[Link](nCurso)
[Link] = 0
[Link] = .F.
[Link] = .F.
EndIf
[Link]
Objeto: CmdQuitar Procedimiento: Click
cCurso = [Link]
nCurso = [Link]
If [Link] > 0 Then
[Link](cCurso)
[Link](nCurso)
[Link] = 0
[Link] = .F.
[Link] = .F.
EndIf
[Link]
Objeto: CmdAgregarTodo Procedimiento: Click
For nI = 1 To [Link]
[Link];
([Link](nI))
Next
[Link]
[Link] = .F.
[Link] = .F.
[Link]
Objeto: CmdQuitarTodo Procedimiento: Click
For nI = 1 To [Link]
[Link];
([Link](nI))
Next
[Link]
[Link] = .F.
[Link] = .F.
[Link]
Objeto: FrmCursos Procedimiento: QueryUnload
#DEFINE vfpYesNo 4
#DEFINE vfpYes 6
#DEFINE vfpQuestion 32
If MessageBox(Desea terminar la aplicacin?, ;
vfpQuestion + vfpYesNo, Pregunta) = vfpYes Then
Release Thisform
Else
NoDefault
EndIf
Aplicacin N 3
El ejercicio consiste en elaborar una aplicacin que
permita leer n nmeros de tipo entero, y a continuacin los
visualice ordenados en forma ascendente o descendente. Utilice
el mtodo de la burbuja para realizar la ordenacin.
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
3 etiquetas
1 caja de texto
1 lista
1 grupo de botones de opcin
3 botones de comando
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Nombre FrmBurbuja
Caption Ordenacin por burbuja
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Name LblNumero
Caption Ingrese un nuevo nmero:
Label2
Name LblOrden
Caption Orden:
Label3
Name LblLista
Caption Lista de nmeros:
Text1
Name TxtNumero
Value 0
List1
Name LstNumero
Option1
Nombre OptAscendente
Caption Ascendente
Option2
Nombre OptDescendente
Caption Descendente
Command1
Nombre CmdAnnadir
Caption \<Aadir
Default True
Command2
Nombre CmdOrdenar
Caption \<Ordenar
Command3
Nombre CmdSalir
Cancel .T.-Verdadero
Caption \<Salir
Picture C:\Archivos de programa\Microsoft Visual
Studio\Common\Graphics\Icons\Arrows\
[Link]
Una vez establecidas las propiedades proceda a ingresar
el cdigo que se indica a continuacin:
Objeto: FrmBurbuja Procedimiento: QueryUnload
#DEFINE vfpYesNo 4
#DEFINE vfpYes 6
#DEFINE vfpQuestion 32
If MessageBox(Desea terminar la aplicacin?, ;
vfpQuestion + vfpYesNo, Pregunta) = vfpYes Then
Release Thisform
Else
NoDefault
EndIf
Objeto: CmdAnnadir Procedimiento: Click
[Link]([Link])
[Link] =
[Link]
Objeto: CmdOrdenar Procedimiento: Click
nN = [Link]
Dimension nA(nN) As Integer
For nI = 1 To nN
nA(nI) = [Link](nI)
Next
If [Link] = 1 Then
For nI = 1 To nN - 1
For nJ = nI + 1 To nN
If nA(nI) > nA(nJ) Then
nT = nA(nI)
nA(nI) = nA(nJ)
nA(nJ) = nT
EndIf
Next
Next
EndIf
If [Link] = 1 Then
For nI = 1 To nN - 1
For nJ = nI + 1 To nN
If nA(nI) < nA(nJ) Then
nT = nA(nI)
nA(nI) = nA(nJ)
nA(nJ) = nT
EndIf
Next
Next
EndIf
[Link]
For nI = 1 To nN
[Link](nI) = nA(nI)
Next
Objeto: CmdSalir Procedimiento: Click
[Link]
Microsoft Visual FoxPro
GUA DE LABORATORIO N 5
Objetivos
Luego de completar este laboratorio, el estudiante ser
capaz de:
Crear mtodos definidos por el usuario.
Pasar correctamente los argumentos a un mtodo.
Ejecutar mtodos desde un formulario.
Implementar mtodos que devuelvan mltiples valores.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deber
crear una carpeta C:\Lab5, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicacin N 1
Este primer ejercicio consiste en escribir un mtodo que
reciba como argumento una cadena de caracteres y la devuelva
en forma inversa. Por ejemplo si se ingresa la cadena CORAZON
deber retornar NOZAROC.
Para el desarrollo de esta aplicacin, proceda a ubicar
los siguientes controles en el formulario:
2 etiquetas
2 cajas de texto
3 botones de comando
En seguida proceda a establecer las propiedades segn se
indica:
Form1
Nombre FrmPrueba_Cadena
Caption Cadena invertida
MaxButton .F.-Falso
MinButton .F.-Falso
Label1
Nombre LblCadena
Caption Ingrese una cadena:
Label2
Nombre LblInvertida
Caption Cadena invertida:
Text1
Nombre TxtCadena
Enabled .T.-Verdadero
Text2
Nombre TxtInvertida
Enabled .F.-Falso
Command1
Nombre CmdAceptar
Caption \<Aceptar
Default .T.-Verdadero
Command2
Nombre CmdLimpiar
Caption \<Limpiar
Command3
Nombre CmdSalir
Cancel .T.-Verdadero
Caption \<Salir
Una vez establecidas las propiedades de la interfaz,
proceda a crear un nuevo mtodo, denominado CadInvertida. Para
ello vaya al Men Formulario y elija la opcin Crear nuevo
mtodo. Se debe presentar una ventana similar a la figura
siguiente:
Ingrese los datos que se muestran y a continuacin dar
click en el botn Agregar. Luego, dar doble click sobre el
formulario y transcriba el siguiente cdigo:
Objeto: FrmPrueba_Cadena Procedimiento: CadInvertida
Parameters cCadena
nN = Len(Alltrim(cCadena))
Dimension cTemporal(nN)
For nI = 1 To nN
cTemporal(nI) = SubStr(cCadena, nI, 1)
Next
cCadena =
For nJ = nN To 1 Step -1
cInvertida = cInvertida + cTemporal(nJ)
Next
Return cInvertida
Objeto: CmdAceptar Procedimiento: Click
cCadena = [Link]
[Link] = [Link](cCadena)
[Link]
Aplicacin N 2
Este ejercicio consiste en crear un mtodo que reciba como
argumento los apellidos y nombres de un cliente (en ese orden)
y retorne los nombres y apellidos del mismo.
Para el desarrollo de esta aplicacin proceda a crear un
nuevo mtodo denominado NomApe. Luego transcriba el siguiente
cdigo:
Objeto: FrmPrueba_NomApe Procedimiento: NomApe
Parameters cApeNom
nN = Len(Alltrim(cApeNom))
Dimension cNom(nN)
Dimension cApe(nN)
For nI = 1 To nN
If SubStr(cApeNom, nI, 1) = , Then
Exit
EndIf
Next
cApe = SubStr(cApeNom, 1, nI-1)
cNom = SubStr(cApeNom, nI + 1, nN - nI)
cNomApe = cNom + + cApe
Return cNomApe
Aplicacin N 3
Para calcular el porcentaje de humedad de una muestra
slida primero se pesa la muestra ( m1 ), luego se le lleva a la
estufa de 120 a 150 C por un tiempo de 2 horas aproximadamente.
A continuacin se deja enfriar la muestra y se pesa nuevamente
( m2 ). Finalmente se realiza el siguiente clculo:
m m2
%Humedad 100 1
m1
Nuestro trabajo consiste en crear un mtodo que permita
realizar el clculo anterior.
Para el desarrollo de esta aplicacin proceder a cera un
nuevo mtodo denominado Humedad. Luego ingrese el siguiente
cdigo:
Objeto: FrmPrueba_Humedad Procedimiento: Humedad
Parameters nM1, nM2
nH = 100 * (nM1 - nM2) / nM1
Return nH
Objeto: CmdAceptar Procedimiento: Click
nMasa1 = Val([Link])
nMasa2 = Val([Link])
nHumedad = [Link](nMasa1, nMasa2)
[Link] = Str(nHumedad, 10, 4)
[Link]
