Título: Duda con Select Case Publicado por: Scratz 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:
Gracias. Salu2. Título: Re: Duda con Select Case Publicado por: cassiani 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: Título: Re: Duda con Select Case Publicado por: Tughack 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 Título: Re: Duda con Select Case Publicado por: Scratz 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) Gracias a los dos. Por cierto, es VB.net, pero creo recordar que es exactamente igual en VB6. Título: Re: Duda con Select Case Publicado por: Tughack 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 Título: Re: Duda con Select Case Publicado por: vivachapas 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 Título: Re: Duda con Select Case Publicado por: Scratz 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. |