Edad Personal en Visual Basic

A continuación elaboraremos un programa que permita calcular la edad de una persona a partir de su fecha de nacimiento. El diseño del formulario debe ser igual a la figura mostrada.


Para el desarrollo de esta aplicación, proceder a ubicar los siguientes controles en el formulario:
- 2 etiquetas
- 2 cajas de texto
- 3 botones de comando
Luego, proceder a establecer las propiedades según se indica a continuación:
 

Form1

Nombre: FrmEdad

BorderStyle: 3-Fixed Dialog

Caption: Cálcula la edad de una persona

Label1                                                                 

Nombre: LblFecNac                                        

AutoSize: True                                                  

Caption: Fecha de nacimiento:                    

Font: Arial, negrita, 14                             

Label2

Nombre: LblEdad

Autosize: True

Caption: Su edad es:

Font: Arial, negrita, 14

Text1                                                                  

Nombre: TxtFecNac                                        

Text:                         

Text2

Nombre: TxtEdad

Text :                                                                     

Locked: True

Command1                                                      

Nombre: CmdAceptar                                     

Caption: &Aceptar                                                    

Command2

Nombre: CmdLimpiar

Caption: &Limpiar

Command3

Nombre: CmdSalir

Caption: &Salir

En seguida se procede a ingresar el siguiente código:
Private Sub CmdAceptar_Click( )
‘Declaración de variables
Dim FecNac As Date, Edad As Integer

‘Calculo de la edad
FecNac = CDate(TxtFecNac)
Edad = CInt( (Date – FecNac) / 365)
TxtEdad = Str(Edad) & “ años”
End Sub

Private Sub Form_Load( )
TxtEdad.Enabled = False
End Sub

Instrucciones para guardar y enviar tu archivo:

1. Guarda tu archivo con el nombre de EdadPersonal

2. Envía tu archivo al correo: computacion@cecosama.edu.gt

3. En asunto escribe: Edad Personal Visual Basic

Puedes descargar el ejercicio en PDF aquí.


Imprimir Imprimir el artículo

0 comentarios:

Comentarios o sugerencias