Visual Basic - reemplazar SELECT CASE por un ARRAY en VB

Life is soft - evento anual de software empresarial
   
Vista:

reemplazar SELECT CASE por un ARRAY en VB

Publicado por Luis (2 intervenciones) el 06/05/2011 06:42:13
hola a todos

Junto con saludarlos, me gustaria solicitarles, ayuda, de convertir el siguiente programa, que valida el dia de nacimiento y el mes de nacimiento del usuario y con dicha info, otorno el signo zodiacal, el cual es el siguiente:

Module AdivinaSigno

Sub Main()
Dim dia, mes As Byte
Dim signo As String
ValidarEntrada("ingrese día de nacimiento (1..31): ", dia, 31)
ValidarEntrada("ingrese mes de nacimiento (1..12): ", mes, 12)
If dia >= 20 Then
mes = CType(mes + 1, Byte)
If mes = 13 Then
mes = 1
End If
End If
Select Case mes
Case 1
signo = "CAPRICORNIO"
Case 2
signo = "ACUARIO"
Case 3
signo = "PISCIS"
Case 4
signo = "ARIES"
Case 5
signo = "TAURO"
Case 6
signo = "GEMINIS"
Case 7
signo = "CANCER"
Case 8
signo = "LEO"
Case 9
signo = "VIRGO"
Case 10
signo = "LIBRA"
Case 11
signo = "ESCORPIO"
Case 12
signo = "SAGITARIO"
End Select
Console.WriteLine("Tu signo es: " & signo)
Console.ReadLine()
End Sub

Private Sub ValidarEntrada(ByVal texto As String, ByRef algo As Byte, ByVal limite As Byte)
Dim numerico As Boolean
Do
numerico = True
Console.Write(texto)
Try
algo = CType(Console.ReadLine(), Byte)
Catch ex As InvalidCastException
Console.WriteLine("INGRESE SOLO NUMEROS !!")
numerico = False
Exit Try
Catch ex As Exception When ((algo < 1) Or (algo > limite))
Console.WriteLine("Ingrese números dentro del rango indicado !!")
numerico = False
Exit Try
End Try
Loop Until (numerico = True)
End Sub
End Module
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Cuenta Bancaria
- Simon
- Lista de agenda

reemplazar SELECT CASE por un ARRAY en VB

Publicado por chiguer (17 intervenciones) el 12/05/2011 23:53:33
Dim zodiaco(1 To 12) As String

zodiaco(1) = "CAPRICORNIO"
zodiaco(2) = "ACUARIO"
zodiaco(3) = "PISIS"
zodiaco(4) = "ARIES"
...
ETC
....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

reemplazar SELECT CASE por un ARRAY en VB

Publicado por luis (2 intervenciones) el 24/05/2011 02:57:24
Muchas gracias
Saludos
Luis.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar