110 likes | 370 Views
Elegimos EXE estándar. Propiedades del formulario. Nombre: Edad BorderStyle: 3-Fixed Dialog Caption: Edad Moveable: False StartUpPosition: 2-CenterScreen. Label o Etiqueta. Propiedades Label Caption: Año de Nacimiento Enable: False Font: Size 18 Fuente: MS Sans Serif.
E N D
Propiedades del formulario Nombre: Edad BorderStyle: 3-Fixed Dialog Caption: Edad Moveable: False StartUpPosition: 2-CenterScreen
Label o Etiqueta Propiedades Label Caption: Año de Nacimiento Enable: False Font: Size 18 Fuente: MS Sans Serif
TexBox o campo de texto Propiedades TexBox Nombre: F Text: “Dejar en Blanco”
Segundo Label Propiedades Label2 Caption: Su edad es: Enable: False Font: Size 18 fuente: MS Sans Serif
TexBox2 Propiedades TexBox2 Nombre: E Enable: False Text: “dejar en blanco”
CommandButon o Botón de comando Propiedades Caption: Calcular edad
Luego damos doble clic sobre el Botón, esto nos abrirá una ventana Como la vemos abajo, es allí donde debemos escribir el código del evento Que se ejecutara con el botón.
Código para calcular la edad: • Private Sub Command1_Click() E=2008-F • End Sub
Agregando… Podemos también agregarle un TexBox que nos diga si el usuario es menor o mayor de edad utilizando un: If condición then instrucción si condición verdadera Else instrucción si condición es falsa End If
Agregando… Podemos también agregar un botón para limpiar todas las variables y TexBox igualando a cero estas dentro del botón