DOCUMENTO DE APOYO PARA EL PRIMER COMPROMISO COGNITIVO
PERIODO IV – GRADO DÉCIMO
Proyecto:
Clasificación Edad
Esta aplicación captura la edad de una persona
y cuando ella pulse el botón de procesar le indicara al usuario: 1) el día de
la semana en que nació 2) la edad en años cumplidos 3) en qué etapa de la vida
se encuentra 4) signo del zodíaco 5) planeta que lo rige 6) elemento al cual
pertenece y 7) le mostrara la imagen del signo dentro del grupo del elemento al
cual corresponde.
Interfaz Gráfica de
Usuario
Dada la gran cantidad de elementos (40) que
reúne esta GUI, vamos a ver los requerimientos de cada uno de ellos, buscando
agruparlos por su funcionalidad:
EL FORMULARIO
Como sabemos es el elemento que nos permite
diseñar la ventana en la cual desarrollaremos nuestra aplicación.
Nombre à propiedad: Name = frmCaptura
Título à propiedad: Text = Apellido y grado
EJ: Prada Matiz 100X
La imagen de mayor tamaño que se ve al fondo se
logra mostrar afectando la propiedad BackgroundImage que al pulsar el
botón de los tres puntos nos permite navegar por el disco duro de nuestro
computador hasta encontrar la imagen que deseamos mostrar. Como es claro
debemos preparar esta imagen previamente a esta acción.
Al pulsar sobre el botón mediante la siguiente
interfaz se puede ubicar la imagen en el sitio del disco duro en el cual se
encuentre.
LAS ETIQUETAS
Como sabemos las etiquetas (label)
son elementos de la interfaz gráfica que nos permiten colocar información para
el usuario de la aplicación. En este formulario vamos a manejar 21 etiquetas.
1.
Título:
la frase ¿Quién eres? Está escrita en una etiqueta a la cual le hemos
afectado las siguientes propiedades:
Name = lblAviso
Text
= ¿Quién eres?
ForeColor
= Cyan (se escogió este color por el contraste con el
fondo)
Font
= se aumentó el
tamaño de la letra a 28
2.
Indicación
para escribir la fecha de nacimiento: debajo de la anterior etiqueta se
encuentra otra, a la cual se le cambiaron las siguientes propiedades:
Name =
lblEscribaFechaNac
Text
= Escribe tu fecha de nacimiento acá à
ForeColor
= Cyan (se escogió este color
por el contraste con el fondo)
Font
= se aumentó el
tamaño de la letra a 12
3.
Debajo
de la caja de texto en la que el usuario escribe su fecha de nacimiento hay
otra etiqueta que le indica al usuario el formato en que debe escribir dicha
fecha y a la que se le cambiaron las siguientes propiedades:
Name =
lblFormatoFechaNac
Text = dd/mm/aaaa
Debajo del botón de procesamiento
hay seis etiquetas organizadas en dos columnas de tres en las cuales le daremos
la información al usuario, ellas son:
4.
Name = lblNacisteUn
Text
= Escribe tu fecha de nacimiento acá à
ForeColor
= Cyan (se escogió este color
por el contraste con el fondo)
5.
Name = lblEdad
Text
= Tienes…
ForeColor
= Cyan (se escogió este color
por el contraste con el fondo)
6.
Name = lblClasificacion
Text
= Eres un…
ForeColor
= Cyan (se escogió este color
por el contraste con el fondo)
7.
Name = lblSigno
Text
= Signo
ForeColor
= Black (se escogió este color por el contraste con el fondo)
8.
Name = lblPlaneta
Text
= Planeta
ForeColor
= Black (se escogió este color por el contraste con el fondo)
9.
Name = lblElemento
Text
= Elemento
ForeColor
= Black (se escogió este color por el contraste con el fondo)
Los nombres de los 12 signos
aparecen cada uno de ellos en una etiqueta que se ubica sobre la imagen
correspondiente. Ejemplo:
10.
Name = lblAries
Text
= Aries
BackColor
= Se escoge un color libremente
En este proyecto se utiliza un nuevo
elemento que es el GroupBox, que permite crear grupos de
elementos pues está configurado para recibir otras herramientas dentro de él.
El ícono que se debe escoger en la caja de herramientas es el que se observa en
la figura.
Como existen cuatro Elementos
(fuego, aire, tierra y agua), se crean estos cuatro grupos y en cada uno de
ellos se agregan los 3 signos zodiacales correspondientes a dicho grupo. Veamos
el ejemplo del grupo correspondiente al elemento Fuego.
11.
El
Grupo del elemento fuego se genera mediante la herramienta GroupBox, a la cual le
cambiamos las siguientes propiedades:
Name: grpFuego
ForeColor: Red
Text: Fuego
Los demás grupos (Tierra, Aire y
Agua) se configuran de la misma manera.
12.
Las
imágenes de los signos del zodiaco se muestran cada una de ellas en un PictureBox.
Veamos un ejemplo:
Name: picAries
Visible: False, para que por defecto no
sean vistas
Image: se
escoge la imagen con el uso del botón de tres puntos, como se muestra en la
figura.
Es claro, que las imágenes deben ser
preparadas previamente por el programador.
13.
Los
nombres de los signos se ubicaron cada uno en una etiqueta, a la cual se le
cambiaron las siguientes propiedades, ejemplo:
Name: lblAries
BackColor: se escoge
un color de acuerdo a nuestro diseño
Text: ARIES
ForeColor: Black
Estas etiquetas se ubicaron sobre la
imagen correspondiente.
Ahora nos falta solamente escribir el código fuente...
Public Class frmCaptura
'Toda línea de código que se inicie con el signo ' es tomada por VB como un comentario y se torna de color verde
'Se utiliza para hacer comentarios - como por ejemplo esta línea - que sirven para documentar la programación y
'orientar a quienes lean el código fuente. Generalmente se escribe antes de las sentencias o frases del código fuente
'o al frente de las líneas de código, como podemos ver a continuación
'En las siguientes líneas hacemos la declaración de variables de trabajo
Dim FechaNacimiento As Date 'Variable tipo fecha, para guardar la fecha de nacimiento del usuario
Dim Hoy As Date 'Variable tipo fecha para guarda la fecha del dia actual, es decir la fecha de hoy
Dim Edad As Integer 'Variable tipo numero integer para guardar la edad de la persona una vez la calculemos
Dim DíaSemana As Byte 'Variable tipo numero Byte para guardar el número que indica el dia de la semana (0,1,2,3,4,5,6 = domingo, lunes, etc)
Dim vDia As Byte 'Variable tipo numero Byte para guardar el día de nacimiento del usuario (1, 2,...,31)
Dim vMes As Byte 'Variable tipo numero Byte para guardar el mes de nacimiento del usuario (1, 2,..., 12)
'Programación para el evento click del botón procesar (btnProcesar)
Private Sub btnProcesar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcesar.Click
'Vamos a controlar que la caja de texto no sea dejada vacía
If txtFechaNac.Text = "" Then
MsgBox("Escriba la fecha de su nacimiento", MsgBoxStyle.Critical, "¿Quién eres?")
txtFechaNac.Text = "" 'limpiamos el contenido de la caja de texto
txtFechaNac.Focus() 'ubicamos el cursor en la caja de texto
Else 'En caso de que SI se haya escrito en la caja...
'Se captura la fecha de hoy y se guarda en la variable Hoy
Hoy = Today.Date
'LA FECHA ESCRITA POR EL USUARIO EN LA CAJA DE TEXTO SE CONVIERTE EN FECHA Y SE GUARDA EN LA VARIABLE CORRERSPONDIENTE
FechaNacimiento = CDate(txtFechaNac.Text)
'El valor del día de la semana se guarda en la variable correspondiente
DíaSemana = FechaNacimiento.DayOfWeek
'Se guardan el valor del día y del mes de la fecha de nacimiento
vDia = FechaNacimiento.Day
vMes = FechaNacimiento.Month
'Se muestra el día de la semana en que nació el usuario
'Domingo
If DíaSemana = 0 Then 'Si el número del día es 0 (cero) entonces
lblNacisteUn.Text = "Naciste un Domingo" ' señalamos en la etiqueta lblNacisteUn la frase: Naciste un domingo
Else
'Lunes
If DíaSemana = 1 Then
lblNacisteUn.Text = "Naciste un Lunes"
Else
'Martes
If DíaSemana = 2 Then
lblNacisteUn.Text = "Naciste un Martes"
Else
'Miercoles
If DíaSemana = 3 Then
lblNacisteUn.Text = "Naciste un Miércoles"
Else
'Jueves
If DíaSemana = 4 Then
lblNacisteUn.Text = "Naciste un Jueves"
Else
'Viernes
If DíaSemana = 5 Then
lblNacisteUn.Text = "Naciste un Viernes"
Else
'Sabado
If DíaSemana = 6 Then
lblNacisteUn.Text = "Naciste un Sábado"
'Se cierran los if
End If
End If
End If
End If
End If
End If
End If
'Calculo de la edad, se calcula el numero de días entre la fecha de nacimiento y el día de hoy con la función DateDiff
'y se divide el resultado por 365 días para calcular el número de años. Como en la mayoría de los casos los años no serán
'exactamente un número entero, se aplica la funcion Int que desprecia la parte decimal del anterior resultado
Edad = Int((DateDiff("d", FechaNacimiento, Hoy) / 365))
lblEdad.Text = "Tienes " & Edad & " años" ' Se carga en la etiqueta correspondiente la edad calculada. El simbolo & encadena
' la palabra Tienes con el valor de la variable Edad y la palabra años
'A continuación se hace la clasificación de la persona según su edad
' Primera infancia
If Edad < 6 Then
lblClasificacion.Text = "Estás en la primera infancia"
Else 'Segunda infancia
If Edad < 12 Then
lblClasificacion.Text = "Estás en la segunda infancia"
Else 'Pre adolescencia
If Edad < 15 Then
lblClasificacion.Text = "Estás en la pre adolescencia"
Else ' Adolescencia
If Edad < 18 Then
lblClasificacion.Text = "Estás en la adolescencia"
Else 'Mayor de edad joven
If Edad < 25 Then
lblClasificacion.Text = "Eres mayor de edad y estás en la juventud"
Else 'Adulto
If Edad < 64 Then
lblClasificacion.Text = "Eres un adulto"
Else ' Adulto mayor
lblClasificacion.Text = "Eres un adulto mayor"
' se cierran los if
End If
End If
End If
End If
End If
End If
'A continuación se clasifica El signo zodiacal teniendo en cuenta que los mismos inician el dia 21 de un mes y hasta
'el dia 20 del mes siguiente, lo cual debe evaluarse en dos secciones:
'Primera: dia 21 al 31 del mes 12 - para este primer ejemplo o
'Segunda: dia 1 al 20 del mes 1 corresponde al signo:
'Capricornio
If (vDia > 20) And (vDia <= 31) And (vMes = 12) Or ((vDia > 0) And (vDia < 21) And vMes = 1) Then
'Al clasificar el signo Capricornio el planeta(s) y elemento son siempre los mismos
'Se cambia la propiedad visible del picCapricornio al valor True para que se haga visible
'Todos los simbolos se trabajan igual
lblSigno.Text = "Tu signo es CAPRICORNIO"
lblPlaneta.Text = "Tu planeta es Saturno"
lblElemento.Text = "Tu elemento es Tierra"
picCapricornio.Visible = True
Else
'Acuario
If (vDia > 20) And (vDia <= 31) And (vMes = 1) Or ((vDia > 0) And (vDia < 21) And vMes = 2) Then
lblSigno.Text = "Tu signo es ACUARIO"
lblPlaneta.Text = "Tus planetas son Urano y Saturno"
lblElemento.Text = "Tu elemento es Aire"
picAcuario.Visible = True
Else
'Piscis
If (vDia > 20) And (vDia <= 31) And (vMes = 2) Or ((vDia > 0) And (vDia < 21) And vMes = 3) Then
lblSigno.Text = "Tu signo es PISCIS"
lblPlaneta.Text = "Tus planetas son Neptuno y Jupiter"
lblElemento.Text = "Tu elemento es Agua"
picPiscis.Visible = True
Else
'Aries
If (vDia > 20) And (vDia <= 31) And (vMes = 3) Or ((vDia > 0) And (vDia < 21) And vMes = 4) Then
lblSigno.Text = "Tu signo es ARIES"
lblPlaneta.Text = "Tus planetas son Marte y Plutón"
lblElemento.Text = "Tu elemento es Fuego"
picAries.Visible = True
Else
'Tauro
If (vDia > 20) And (vDia <= 31) And (vMes = 4) Or ((vDia > 0) And (vDia < 21) And vMes = 5) Then
lblSigno.Text = "Tu signo es TAURO"
lblPlaneta.Text = "Tus planetas son Venus y Tierra"
lblElemento.Text = "Tu elemento es Tierra"
picTauro.Visible = True
Else
'Geminis
If (vDia > 20) And (vDia <= 31) And (vMes = 5) Or ((vDia > 0) And (vDia < 21) And vMes = 6) Then
lblSigno.Text = "Tu signo es GEMINIS"
lblPlaneta.Text = "Tu planeta es Mercurio"
lblElemento.Text = "Tu elemento es Aire"
picGeminis.Visible = True
Else
'Cancer
If (vDia > 20) And (vDia <= 31) And (vMes = 6) Or ((vDia > 0) And (vDia < 21) And vMes = 7) Then
lblSigno.Text = "Tu signo es CANCER"
lblPlaneta.Text = "Tu planeta es Luna"
lblElemento.Text = "Tu elemento es Agua"
picCancer.Visible = True
Else
'Leo
If (vDia > 20) And (vDia <= 31) And (vMes = 7) Or ((vDia > 0) And (vDia < 21) And vMes = 8) Then
lblSigno.Text = "Tu signo es LEO"
lblPlaneta.Text = "Tu planeta es Sol"
lblElemento.Text = "Tu elemento es Fuego"
picLeo.Visible = True
Else
'Virgo
If (vDia > 20) And (vDia <= 31) And (vMes = 8) Or ((vDia > 0) And (vDia < 21) And vMes = 9) Then
lblSigno.Text = "Tu signo es VIRGO"
lblPlaneta.Text = "Tu planeta es Mercurio"
lblElemento.Text = "Tu elemento es Tierra"
picVirgo.Visible = True
Else
'Libra
If (vDia > 20) And (vDia <= 31) And (vMes = 9) Or ((vDia > 0) And (vDia < 21) And vMes = 10) Then
lblSigno.Text = "Tu signo es LIBRA"
lblPlaneta.Text = "Tu planeta es Venus"
lblElemento.Text = "Tu elemento es Aire"
picLibra.Visible = True
Else
'Escorpión
If (vDia > 20) And (vDia <= 31) And (vMes = 10) Or ((vDia > 0) And (vDia < 21) And vMes = 11) Then
lblSigno.Text = "Tu signo es ESCORPION"
lblPlaneta.Text = "Tus planetas son Plutón y Marte"
lblElemento.Text = "Tu elemento es Agua"
picEscorpion.Visible = True
Else
'Sagitario
If (vDia > 20) And (vDia <= 31) And (vMes = 11) Or ((vDia > 0) And (vDia < 21) And vMes = 12) Then
lblSigno.Text = "Tu signo es SAGITARIO"
lblPlaneta.Text = "Tu planeta es Jupiter"
lblElemento.Text = "Tu elemento es Fuego"
picSagitario.Visible = True
'Se cierran todos los IF
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
'En este evento se escriben las sentencias que permiten que en una segunda, tercera, cuarta, etc, oportunidades de calculo de fechas
'se limpien los datos de la fecha inmediatamente anterior procesada
Private Sub txtFechaNac_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFechaNac.Click
'Ocultar las imagenes de los signos zodiacales mostrados en un proceso de fecha de nacimiento
picAcuario.Visible = False
picAries.Visible = False
picCancer.Visible = False
picCapricornio.Visible = False
picEscorpion.Visible = False
picGeminis.Visible = False
picLeo.Visible = False
picLibra.Visible = False
picPiscis.Visible = False
picSagitario.Visible = False
picTauro.Visible = False
picVirgo.Visible = False
'se reinician las 6 etiquetas que muestran la información de: edad, dia de la semana, clasificación, signo, elemento, planeta
lblClasificacion.Text = "Eres un..."
lblEdad.Text = "Tienes..."
lblElemento.Text = "Elemento"
lblNacisteUn.Text = "Naciste un..."
lblPlaneta.Text = "Planeta"
lblSigno.Text = "Signo"
End Sub
End Class
Public Class frmCaptura
'Toda línea de código que se inicie con el signo ' es tomada por VB como un comentario y se torna de color verde
'Se utiliza para hacer comentarios - como por ejemplo esta línea - que sirven para documentar la programación y
'orientar a quienes lean el código fuente. Generalmente se escribe antes de las sentencias o frases del código fuente
'o al frente de las líneas de código, como podemos ver a continuación
'En las siguientes líneas hacemos la declaración de variables de trabajo
Dim FechaNacimiento As Date 'Variable tipo fecha, para guardar la fecha de nacimiento del usuario
Dim Hoy As Date 'Variable tipo fecha para guarda la fecha del dia actual, es decir la fecha de hoy
Dim Edad As Integer 'Variable tipo numero integer para guardar la edad de la persona una vez la calculemos
Dim DíaSemana As Byte 'Variable tipo numero Byte para guardar el número que indica el dia de la semana (0,1,2,3,4,5,6 = domingo, lunes, etc)
Dim vDia As Byte 'Variable tipo numero Byte para guardar el día de nacimiento del usuario (1, 2,...,31)
Dim vMes As Byte 'Variable tipo numero Byte para guardar el mes de nacimiento del usuario (1, 2,..., 12)
'Programación para el evento click del botón procesar (btnProcesar)
Private Sub btnProcesar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcesar.Click
'Vamos a controlar que la caja de texto no sea dejada vacía
If txtFechaNac.Text = "" Then
MsgBox("Escriba la fecha de su nacimiento", MsgBoxStyle.Critical, "¿Quién eres?")
txtFechaNac.Text = "" 'limpiamos el contenido de la caja de texto
txtFechaNac.Focus() 'ubicamos el cursor en la caja de texto
Else 'En caso de que SI se haya escrito en la caja...
'Se captura la fecha de hoy y se guarda en la variable Hoy
Hoy = Today.Date
'LA FECHA ESCRITA POR EL USUARIO EN LA CAJA DE TEXTO SE CONVIERTE EN FECHA Y SE GUARDA EN LA VARIABLE CORRERSPONDIENTE
FechaNacimiento = CDate(txtFechaNac.Text)
'El valor del día de la semana se guarda en la variable correspondiente
DíaSemana = FechaNacimiento.DayOfWeek
'Se guardan el valor del día y del mes de la fecha de nacimiento
vDia = FechaNacimiento.Day
vMes = FechaNacimiento.Month
'Se muestra el día de la semana en que nació el usuario
'Domingo
If DíaSemana = 0 Then 'Si el número del día es 0 (cero) entonces
lblNacisteUn.Text = "Naciste un Domingo" ' señalamos en la etiqueta lblNacisteUn la frase: Naciste un domingo
Else
'Lunes
If DíaSemana = 1 Then
lblNacisteUn.Text = "Naciste un Lunes"
Else
'Martes
If DíaSemana = 2 Then
lblNacisteUn.Text = "Naciste un Martes"
Else
'Miercoles
If DíaSemana = 3 Then
lblNacisteUn.Text = "Naciste un Miércoles"
Else
'Jueves
If DíaSemana = 4 Then
lblNacisteUn.Text = "Naciste un Jueves"
Else
'Viernes
If DíaSemana = 5 Then
lblNacisteUn.Text = "Naciste un Viernes"
Else
'Sabado
If DíaSemana = 6 Then
lblNacisteUn.Text = "Naciste un Sábado"
'Se cierran los if
End If
End If
End If
End If
End If
End If
End If
'Calculo de la edad, se calcula el numero de días entre la fecha de nacimiento y el día de hoy con la función DateDiff
'y se divide el resultado por 365 días para calcular el número de años. Como en la mayoría de los casos los años no serán
'exactamente un número entero, se aplica la funcion Int que desprecia la parte decimal del anterior resultado
Edad = Int((DateDiff("d", FechaNacimiento, Hoy) / 365))
lblEdad.Text = "Tienes " & Edad & " años" ' Se carga en la etiqueta correspondiente la edad calculada. El simbolo & encadena
' la palabra Tienes con el valor de la variable Edad y la palabra años
'A continuación se hace la clasificación de la persona según su edad
' Primera infancia
If Edad < 6 Then
lblClasificacion.Text = "Estás en la primera infancia"
Else 'Segunda infancia
If Edad < 12 Then
lblClasificacion.Text = "Estás en la segunda infancia"
Else 'Pre adolescencia
If Edad < 15 Then
lblClasificacion.Text = "Estás en la pre adolescencia"
Else ' Adolescencia
If Edad < 18 Then
lblClasificacion.Text = "Estás en la adolescencia"
Else 'Mayor de edad joven
If Edad < 25 Then
lblClasificacion.Text = "Eres mayor de edad y estás en la juventud"
Else 'Adulto
If Edad < 64 Then
lblClasificacion.Text = "Eres un adulto"
Else ' Adulto mayor
lblClasificacion.Text = "Eres un adulto mayor"
' se cierran los if
End If
End If
End If
End If
End If
End If
'A continuación se clasifica El signo zodiacal teniendo en cuenta que los mismos inician el dia 21 de un mes y hasta
'el dia 20 del mes siguiente, lo cual debe evaluarse en dos secciones:
'Primera: dia 21 al 31 del mes 12 - para este primer ejemplo o
'Segunda: dia 1 al 20 del mes 1 corresponde al signo:
'Capricornio
If (vDia > 20) And (vDia <= 31) And (vMes = 12) Or ((vDia > 0) And (vDia < 21) And vMes = 1) Then
'Al clasificar el signo Capricornio el planeta(s) y elemento son siempre los mismos
'Se cambia la propiedad visible del picCapricornio al valor True para que se haga visible
'Todos los simbolos se trabajan igual
lblSigno.Text = "Tu signo es CAPRICORNIO"
lblPlaneta.Text = "Tu planeta es Saturno"
lblElemento.Text = "Tu elemento es Tierra"
picCapricornio.Visible = True
Else
'Acuario
If (vDia > 20) And (vDia <= 31) And (vMes = 1) Or ((vDia > 0) And (vDia < 21) And vMes = 2) Then
lblSigno.Text = "Tu signo es ACUARIO"
lblPlaneta.Text = "Tus planetas son Urano y Saturno"
lblElemento.Text = "Tu elemento es Aire"
picAcuario.Visible = True
Else
'Piscis
If (vDia > 20) And (vDia <= 31) And (vMes = 2) Or ((vDia > 0) And (vDia < 21) And vMes = 3) Then
lblSigno.Text = "Tu signo es PISCIS"
lblPlaneta.Text = "Tus planetas son Neptuno y Jupiter"
lblElemento.Text = "Tu elemento es Agua"
picPiscis.Visible = True
Else
'Aries
If (vDia > 20) And (vDia <= 31) And (vMes = 3) Or ((vDia > 0) And (vDia < 21) And vMes = 4) Then
lblSigno.Text = "Tu signo es ARIES"
lblPlaneta.Text = "Tus planetas son Marte y Plutón"
lblElemento.Text = "Tu elemento es Fuego"
picAries.Visible = True
Else
'Tauro
If (vDia > 20) And (vDia <= 31) And (vMes = 4) Or ((vDia > 0) And (vDia < 21) And vMes = 5) Then
lblSigno.Text = "Tu signo es TAURO"
lblPlaneta.Text = "Tus planetas son Venus y Tierra"
lblElemento.Text = "Tu elemento es Tierra"
picTauro.Visible = True
Else
'Geminis
If (vDia > 20) And (vDia <= 31) And (vMes = 5) Or ((vDia > 0) And (vDia < 21) And vMes = 6) Then
lblSigno.Text = "Tu signo es GEMINIS"
lblPlaneta.Text = "Tu planeta es Mercurio"
lblElemento.Text = "Tu elemento es Aire"
picGeminis.Visible = True
Else
'Cancer
If (vDia > 20) And (vDia <= 31) And (vMes = 6) Or ((vDia > 0) And (vDia < 21) And vMes = 7) Then
lblSigno.Text = "Tu signo es CANCER"
lblPlaneta.Text = "Tu planeta es Luna"
lblElemento.Text = "Tu elemento es Agua"
picCancer.Visible = True
Else
'Leo
If (vDia > 20) And (vDia <= 31) And (vMes = 7) Or ((vDia > 0) And (vDia < 21) And vMes = 8) Then
lblSigno.Text = "Tu signo es LEO"
lblPlaneta.Text = "Tu planeta es Sol"
lblElemento.Text = "Tu elemento es Fuego"
picLeo.Visible = True
Else
'Virgo
If (vDia > 20) And (vDia <= 31) And (vMes = 8) Or ((vDia > 0) And (vDia < 21) And vMes = 9) Then
lblSigno.Text = "Tu signo es VIRGO"
lblPlaneta.Text = "Tu planeta es Mercurio"
lblElemento.Text = "Tu elemento es Tierra"
picVirgo.Visible = True
Else
'Libra
If (vDia > 20) And (vDia <= 31) And (vMes = 9) Or ((vDia > 0) And (vDia < 21) And vMes = 10) Then
lblSigno.Text = "Tu signo es LIBRA"
lblPlaneta.Text = "Tu planeta es Venus"
lblElemento.Text = "Tu elemento es Aire"
picLibra.Visible = True
Else
'Escorpión
If (vDia > 20) And (vDia <= 31) And (vMes = 10) Or ((vDia > 0) And (vDia < 21) And vMes = 11) Then
lblSigno.Text = "Tu signo es ESCORPION"
lblPlaneta.Text = "Tus planetas son Plutón y Marte"
lblElemento.Text = "Tu elemento es Agua"
picEscorpion.Visible = True
Else
'Sagitario
If (vDia > 20) And (vDia <= 31) And (vMes = 11) Or ((vDia > 0) And (vDia < 21) And vMes = 12) Then
lblSigno.Text = "Tu signo es SAGITARIO"
lblPlaneta.Text = "Tu planeta es Jupiter"
lblElemento.Text = "Tu elemento es Fuego"
picSagitario.Visible = True
'Se cierran todos los IF
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
'En este evento se escriben las sentencias que permiten que en una segunda, tercera, cuarta, etc, oportunidades de calculo de fechas
'se limpien los datos de la fecha inmediatamente anterior procesada
Private Sub txtFechaNac_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFechaNac.Click
'Ocultar las imagenes de los signos zodiacales mostrados en un proceso de fecha de nacimiento
picAcuario.Visible = False
picAries.Visible = False
picCancer.Visible = False
picCapricornio.Visible = False
picEscorpion.Visible = False
picGeminis.Visible = False
picLeo.Visible = False
picLibra.Visible = False
picPiscis.Visible = False
picSagitario.Visible = False
picTauro.Visible = False
picVirgo.Visible = False
'se reinician las 6 etiquetas que muestran la información de: edad, dia de la semana, clasificación, signo, elemento, planeta
lblClasificacion.Text = "Eres un..."
lblEdad.Text = "Tienes..."
lblElemento.Text = "Elemento"
lblNacisteUn.Text = "Naciste un..."
lblPlaneta.Text = "Planeta"
lblSigno.Text = "Signo"
End Sub
End Class
