Programa Quiniela Deportiva

[MicroHack]

Hola,

estoy aprendiendo vb.net y tengo que realizar un ejercicio usando arrays en el cual se solicita al usuario los resultados de un evento.

El programa funciona correctamente, solo que ahora quiero limitar y controlar el "valor" que el usuario introduce para que no sea diferente de "1", "X" o "2"

Para ello he querido usar un While, pero parece que algo falla porque no puedo indicarle los 3 valores a la vez.

Código:

        Dim _var As Char

                Console.Write("1º Pronostico: ")
                _var = CChar(Console.ReadLine())

                While _var <> "1"c Or "2 c Or "X"c Or "x"  ' (Aqui es donde me da el Error)

                    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    Console.ReadLine()
                
                End While

¿Alguna idea de porque no funciona?

[Aquaventus]

Hola MicroHack no funciona porque no puedes comparas un tipo de char de esa manera, prueba haciendo esto:

Código vb:

Dim _var As Char
 
                Console.Write("1º Pronostico: ")
                _var = CChar(Console.ReadLine())
 
                While !_var.Equals("1")  Or !_var.Equals("2") Or !_var.Equals("X")
 
                    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    Console.ReadLine()
                
                End While
 

Espero te sirva. Saludos!.

[MicroHack]

Iniciado por Aquaventus

Hola MicroHack no funciona porque no puedes comparas un tipo de char de esa manera, prueba haciendo esto:

Código vb:

Dim _var As Char
 
                Console.Write("1º Pronostico: ")
                _var = CChar(Console.ReadLine())
 
                While !_var.Equals("1")  Or !_var.Equals("2") Or !_var.Equals("X")
 
                    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    Console.ReadLine()
                
                End While
 

Espero te sirva. Saludos!.

Gracias por tu respuespuesta Aquaventus pero lo he probado y me da este Error:

"." o "!" solo puede aparecer dentro de una instruccion "With".

[Aquaventus]

intenta asi :

Código vb:

Dim _var As Char
 
                Console.Write("1º Pronostico: ")
                _var = CChar(Console.ReadLine())
 
                if !_var.Equals("1")  Or !_var.Equals("2") Or !_var.Equals("X")
 
                    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    Console.ReadLine()
                
                End if
 

[MicroHack]

Iniciado por Aquaventus

intenta asi :

Código vb:

Dim _var As Char
 
                Console.Write("1º Pronostico: ")
                _var = CChar(Console.ReadLine())
 
                if !_var.Equals("1")  Or !_var.Equals("2") Or !_var.Equals("X")
 
                    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    Console.ReadLine()
                
                End if
 

Me sigue diciendo lo mismo :s

[Aquaventus]

??? que raro :S haber esperame que estoy instalando el visual de nuevo porque tenia unos problemas, y el code te lo pase asi de logica, termino de instalar lo pruebo y te digo. Saludos!

[MicroHack]

Iniciado por Aquaventus

??? que raro :S haber esperame que estoy instalando el visual de nuevo porque tenia unos problemas, y el code te lo pase asi de logica, termino de instalar lo pruebo y te digo. Saludos!

Deacuerdo, espero, muchas gracias


-------------------------

EDIT: Ya encontre la solucion, esta es la sintaxis correcta para que funcione:

Código:

While (_var <> "1"c And _var <> "2"c And _var <> "x"c And _var <> "X"c)
    Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
                    _var = CChar(Console.ReadLine())