elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Duda con Select Case
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda con Select Case  (Leído 3,228 veces)
Scratz


Desconectado Desconectado

Mensajes: 318



Ver Perfil
Duda con Select Case
« en: 15 Diciembre 2007, 20:16 pm »

Holas!

Estaba intentando sacar si un número es par o impar. Muy sencillo: si num mod 2 = 0 es Par, sinó es Impar.

Intento pasar esto a un select case:
Código:
        
        a = Val(TextBox1.Text)

        Select Case a

            Case (a Mod 2 = 1)
               
                MsgBox("Impar")
           
            Case Else

                MsgBox("Par")

        End Select
Y esto ya no funciona =( ¿Por qué?

Gracias.
Salu2.


En línea

\\... The Revolution Is Comming ...//
cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Duda con Select Case
« Respuesta #1 en: 15 Diciembre 2007, 21:29 pm »

 Para eso que queres, podes hacer algo tan sencillo como esto:
Código:
MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")

 ¡Espero que os sirva! Saludos.  :rolleyes:


En línea

Tughack


Desconectado Desconectado

Mensajes: 490


Ver Perfil
Re: Duda con Select Case
« Respuesta #2 en: 15 Diciembre 2007, 23:11 pm »

El mod te da el resto de una division...

se haces esto: a Mod 2 = 1, hay muchos resultados k no tiene resto = 1...

Tienes k hacer Case (a Mod 2 = 0) entonces es par, else es impar...

De kualkier forma puedes simplificarlo....

Salu2
En línea

Scratz


Desconectado Desconectado

Mensajes: 318



Ver Perfil
Re: Duda con Select Case
« Respuesta #3 en: 16 Diciembre 2007, 00:19 am »

Para eso que queres, podes hacer algo tan sencillo como esto:
Código:
MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")

 ¡Espero que os sirva! Saludos.  :rolleyes:

Sirve, pero no para lo que yo quiero ;D


Citar
se haces esto: a Mod 2 = 1, hay muchos resultados k no tiene resto = 1...

Cualquier número entero mod 2 devuelve un 1 o un 0.
El código no sirve, sigue haciendo siempre lo del Case Else.

Código:
        a = Val(TextBox1.Text)

        Select Case a

            Case (a Mod 2 = 0)

                MsgBox("Par")

            Case Else

                MsgBox("Impar")

        End Select

Gracias a los dos. Por cierto, es VB.net, pero creo recordar que es exactamente igual en VB6.
En línea

\\... The Revolution Is Comming ...//
Tughack


Desconectado Desconectado

Mensajes: 490


Ver Perfil
Re: Duda con Select Case
« Respuesta #4 en: 16 Diciembre 2007, 00:33 am »

Cualquier número entero mod 2 devuelve un 1 o un 0.

Bueno no sabia k solo estavas trabajando con numeros enteros.

De todas formas tu code estaba mal...

Seria asi:

    a = Val(Text1.Text)

    Select Case a Mod 2
    Case 0
        MsgBox ("Par")
    Case Else
        MsgBox ("Impar")
    End Select
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Duda con Select Case
« Respuesta #5 en: 16 Diciembre 2007, 22:25 pm »

yo cuando recien empesaba a programar en uno de mis programas tenia q saber si un numero era par o impar y me mande esto jej miren

Citar
If (-1) ^ (numero) < 0 then
msgbox "Numero impar"
else
msgbox "numero par"
end if

creo q era asi jeje

alto ingenio ;P


modificado: me habia olvidado los parentesis xD
« Última modificación: 16 Diciembre 2007, 22:31 pm por vivachapas » En línea

Scratz


Desconectado Desconectado

Mensajes: 318



Ver Perfil
Re: Duda con Select Case
« Respuesta #6 en: 17 Diciembre 2007, 00:04 am »

Cualquier número entero mod 2 devuelve un 1 o un 0.

Bueno no sabia k solo estavas trabajando con numeros enteros.

De todas formas tu code estaba mal...

Seria asi:

    a = Val(Text1.Text)

    Select Case a Mod 2
    Case 0
        MsgBox ("Par")
    Case Else
        MsgBox ("Impar")
    End Select

Claro, estaba usando mal el Select Case. Gracias! Pero no me sirve para lo q yo quiero, así que tendré q usar If y muchos ElseIf. Gracias a todos.
En línea

\\... The Revolution Is Comming ...//
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Hacer valores aleatorios sin Select Case
Programación Visual Basic
oskoa 7 3,787 Último mensaje 14 Noviembre 2011, 19:28 pm
por BlackZeroX
consejo sobre el uso del Select Case en este ejercicio
Programación Visual Basic
lio crossroad 6 4,385 Último mensaje 21 Abril 2013, 22:48 pm
por lio crossroad
[DUDA] Select Case
Programación Visual Basic
Zodiak98 2 2,245 Último mensaje 21 Mayo 2013, 13:24 pm
por 79137913
Ayuda con Select Case VBS
Scripting
Wartherion 5 3,448 Último mensaje 12 Junio 2015, 11:28 am
por Eleкtro
Como Puedo Poner Notas En Select Case ?
Programación Visual Basic
R3Z 2 2,050 Último mensaje 14 Julio 2015, 16:11 pm
por 79137913
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines