Hola amigos y amigas hoy les traigo un problema muy común entre
los estudiantes que están aprendiendo condicionales y toma de decisiones, que
es un programa que te dirá que signo zodiacal eres basado en tu fecha
conocimiento
Primero que todo solicitamos al usuario el dia y el mes de
nacimiento
Dim dia = InputBox("Dijite el dia de nacimiento")
Dim mes
= InputBox("Dijite el mes de nacimiento")
MsgBox("Tu eres " &
calcular(dia, mes))
Aquí lo estoy haciendo por medio de un msgbox pero pueden hacerlo
por TextField para los que trabajan con interfaz grafica, seria de esta manera:
Dim Dia As String = Me.TextBox1.Text
Dim Mes
As String = Me.TextBox2.Text
MsgBox("Tu
eres " & calcular(dia, mes))
Este código lo ponen en el evento Click del botón o donde
quieran y de esta manera capturara los datos de dichas cajas de texto.
Y a continuación el método que se encarga de calcular el
signo zodiacal
Public Function calcular(ByVal
Dia, ByVal Mes)
If Dia >= 21 And
Mes = 3 Or Dia <= 20 And Mes = 4 Then
Return ("Aries")
End If
If Dia >= 21 And
Mes = 4 Or Dia <= 21 And Mes = 5 Then
Return ("Tauro")
End If
If Dia >= 22 And
Mes = 5 Or Dia <= 21 And Mes = 6 Then
Return ("Geminis")
End If
If Dia >= 21 And
Mes = 6 Or Dia <= 27 And Mes = 7 Then
Return ("Cancer")
End If
If Dia >= 24 And
Mes = 7 Or Dia <= 23 And Mes = 8 Then
Return ("Leo")
End If
If Dia >= 24 And
Mes = 8 Or Dia <= 23 And Mes = 9 Then
Return ("Virgo")
End If
If Dia >= 24 And
Mes = 9 Or Dia <= 23 And Mes = 10 Then
Return ("Libra")
End If
If Dia >= 24 And
Mes = 10 Or Dia <= 22 And Mes = 11 Then
Return ("Escorpio")
End If
If Dia >= 23 And
Mes = 11 Or Dia <= 21 And Mes = 12 Then
Return ("Sagitario")
End If
If Dia >= 22 And
Mes = 11 Or Dia <= 20 And Mes = 1 Then
Return ("Capricornio")
End If
If Dia >= 21 And
Mes = 1 Or Dia <= 19 And Mes = 2 Then
Return ("Acuario")
End If
If Dia >= 20 And
Mes = 2 Or Dia <= 20 And Mes = 3 Then
Return ("Picis")
End If
End Function
Y listo eso es todo, aquí está el programa completo, espero
les sirva y cualquier duda no piensen en dejar su comentario o en comunicarse
conmigo a mi cuenta de TW.
Ver ejemplo en Java
Ver ejemplo en Java
gracias me ayudastes
ResponderEliminaramigo falta el año
ResponderEliminarHola E.J.CH.P.
EliminarLos signos zodiacales se definen solo por el día y el mes, no es requerido el año para saber que signo zodiacal eres, es por eso que este pequeño ejemplo no solicita el año.
No siendo el caso de un programa que calcule tu edad exacta, en dicho caso si seria necesario el año de nacimiento.
Gracias por tu comentario