guia_proyecto_1

Asignatura: Proyecto – I

Código: INF-322

Universidad Católica Tecnológica de Barahona
UCATEBA
MICROSOFT VISUAL FOXPRO

Asignatura:
PROYECTO I

Profesor:
Rogelin Decena Feliz

Rogelin Decena Feliz

decenafeliz@gmail.com Pág. 1

Asignatura: Proyecto – I

Código: INF-322

PROYECTO - I
GUÍA DE LABORATORIO
Consideraciones:
Para el desarrollo del presente laboratorio Ud. deberá crear una
carpeta enla unidad C:\X,(donde X es la matricula del estudiante),
para guardar sus trabajos correspondientes a esta Asignatura.

Práctica Nº 1
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 aplicación,
siguientes controles en el formulario:

proceda

a

ubicar

los

2 etiquetas
2 cajas de texto
3 botonesde comando
Luego, proceda a establecer las propiedades según se indica a
continuación:
Label1
Name
Caption
FontBold
AutoSize
BackStyle

LblFecNac
Fecha de Nacimiento:
.T.-Verdadero
.T.-Verdadero
0-Transparente

Label2
Name
Caption
FontBold
AutoSize
BackStyle

LblEdad
Su Edad es:
.T.-Verdadero
.T.-Verdadero
0-Transparente

Rogelin Decena Feliz

decenafeliz@gmail.com Pág. 2

Asignatura: Proyecto –I

Código: INF-322

Text1
Name
Enabled
FontBold
Value

TxtFecNac
.T.-Verdadero
.T.-Verdadero
=DATE()

Name
Enabled
FontBold

TxtEdad
.F.-Falso
.T.-Verdadero

Command1
Name
Caption
FontBold

CmdAceptar
\ .T.-Verdadero

Command2
Name
Caption
FontBold

CmdLimpiar
\ .T.-Verdadero

Command3
Name
Caption
FontBold

CmdSalir
\ .T.-Verdadero

Text2

Luego de establecidas laspropiedades
ingresar el siguiente código:

de

los

objetos,

proceda

Objeto: FrmEdad
Procedimiento: Init
cNomDia = Cdow(Date())
cDia = Str(Day(Date()))
cMes = Cmonth(Date())
cAnno = Str(Year(Date()))
cFecha = cNomDia + “ ” + cDia + “ del ” + cMes + “ del ” + cAnno
Thisform.Caption = cFecha
Thisform.TxtFecNac.Setfocus
Thisform.Refresh
Objeto: CmdAceptar
Procedimiento: Click
dFecNac =Thisform.TxtFecNac.Value
nEdad = Int((Date()-dFecNac)/365)
Thisform.TxtEdad.Value=Str(nEdad)+“ años”
Thisform.Refresh
Objeto: CmdLimpiar
Procedimiento: Click
Thisform.TxtFecNac.Value = DATE()
Thisform.TxtEdad.Value = “”
Thisform.TxtFecNac.Setfocus
Thisform.Refresh
Rogelin Decena Feliz

decenafeliz@gmail.com Pág. 3

a

Asignatura: Proyecto – I

Código: INF-322

Objeto: CmdSalir
Thisform.Release()

Procedimiento:Click

Práctica Nº 2
Este ejercicio consiste en elaborar un formulario que simule el
funcionamiento de un reloj despertador digital. La aplicación debe
permitir al usuario ingresar la hora a la que desea ser avisado. El
diseño de la interfaz debe ser similar a la figura siguiente:

Para el desarrollo de esta aplicación
siguientes controles en el formulario:
2
2
1
2

proceder

a

ubicar

losetiquetas
cajas de texto
cronómetro
botones de comandos

En seguida
continuación:

establezca

las

propiedades

según

se

indica

Form1
Name
Caption
MaxButton
MinButton
AutoCenter

Label1
Name
Caption
AutoSize
Rogelin Decena Feliz

FrmReloj
Reloj Despertador Digital
.F.-Falso
.F.-Falso
.T.-Verdadero

LblHora
Hora
.T.-Verdadero
decenafeliz@gmail.com Pág. 4

a

Asignatura: Proyecto – I

Código:INF-322

BackStyle
fontBold

0-Transparente
.T.-Verdadero

Label2
Name
Caption
AutoSize
BackStyle
fontBold

LblDespertador
Despertador
.T.-Verdadero
0-Transparente
.T.-Verdadero

Text1
Name
FontBold
FontSize
Enabled
DisableForeColor
DisableBackColor

TxtHora
.T.-Verdadero
24
.F.-Falso
0,0,0
255,255,128

Text2
Name
FontBold
FontSize
InputMask
ForeColor
BackColor
Value

TxtDespertador
.T.-Verdadero
2499:99:99
0,0,0
255,255,128
“00:00:00”

Timer1
Name
Enabled
Interval

Timer1
.T.-Verdadero
500

Command1
Name
Caption
FontBold

CmdOnOff
\ .T.-Verdadero

Command2
Name
Caption
FontBold

CmdTerminar
\ .T.-Verdadero

Una vez establecidas
código que se muestra:

Rogelin Decena Feliz

las

propiedades,

proceda

a

ingresar

decenafeliz@gmail.com Pág. 5

el

Asignatura: Proyecto – I...

Leer documento completo

Regístrate para leer el documento completo.