elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 04:28  


Tema destacado: Deseas probar algunas mejoras a la interfaz del foro? Prueba cake! acerca de

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderador: [D4N93R])
| | | |-+  "Ayuda" con Codigo(Pasar de Decimal a Binario)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: "Ayuda" con Codigo(Pasar de Decimal a Binario)  (Leído 1,575 veces)
Jirp96

Desconectado Desconectado

Mensajes: 39


Ver Perfil
"Ayuda" con Codigo(Pasar de Decimal a Binario)
« en: 8 Mayo 2011, 21:33 »

Hola, este es mi primer post aqui(segundo con el de presentacion ;D ) y queria hacer una pregunta sobre un codigo que hice(es una funcion para pasar un numero de decimal a binario)
Esta es la funcion(la hice en base a esto: http://es.wikipedia.org/wiki/Sistema_binario):

Código
    Function DecToBin(ByVal numDec As Integer) As String
       Dim ret As String = ""
       Dim arrRet() As Char
 
       While Not numDec = 1
           ret = ret & CStr(numDec Mod 2)
           numDec = numDec \ 2
       End While
 
       ret = ret & "1"
       ReDim arrRet(ret.Length())
       arrRet = ret.ToCharArray
       Array.Reverse(arrRet)
       Return arrRet
   End Function

Se que debe haber mil y una cosas que se pueden cambiar en el codigo, pero no se cuales son ;D
por cierto, tengo otra duda(sobre la misma funcion):
-Si yo llamo la funcion asi:
Código
        Dim n As Integer
       Console.WriteLine("Introduce un numero en Decimal para Pasarlo a Binario:")
       n = CInt(Console.ReadLine())
No hay ningun problema, y me devuelve el resultado correctamente, pero si llamo la funcion asi:
Código
Dim n As Integer
       For n = 0 To 10
           Console.WriteLine("El numero en Binario es: " & DecToBin(n))
       Next
 
       Console.ReadLine()
No me devuelve ningun resultado y se queda "colgado" el visual basic...
Alguien sabe porque?
Uso Visual Basic Express 2005(.NET framework 2.0) y WinXP
Aclaro tambien que soy "novato" en la programacion, y que
Saludos, y muchas gracias por adelantado a los que se tomaron el tiempo de leer...
pd: Si el codigo es muy largo o si no lo postee bien pido disculpas...


En línea
seba123neo


Desconectado Desconectado

Mensajes: 3.214



Ver Perfil WWW
Re: "Ayuda" con Codigo(Pasar de Decimal a Binario)
« Respuesta #1 en: 8 Mayo 2011, 21:47 »

Hola, con una sola linea podes convertir de decimal a binario o a cualquier base.

Código
MsgBox(Convert.ToString(10234, 2))

saludos.



En línea

Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
Jirp96

Desconectado Desconectado

Mensajes: 39


Ver Perfil
Re: "Ayuda" con Codigo(Pasar de Decimal a Binario)
« Respuesta #2 en: 8 Mayo 2011, 22:10 »

Gracias por el dato seba123neo,
que la verdad que no tenia ni idea de que habia una forma de hacerlo,
y que era tan facil  :xD
igual.... aunque haya otra forma de hacerlo, aprendi algo nuevo asi xD
En línea
raul338


Conectado Conectado

Mensajes: 2.373


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: "Ayuda" con Codigo(Pasar de Decimal a Binario)
« Respuesta #3 en: 8 Mayo 2011, 22:12 »

De todas formas es porque empiezas por 0 en el for en el primer codigo, por lo que al dividir por 2 da siempre 0, y el bucle termina cuando el numero es 1, por lo que entra en un bucle infinito :D (tambien tuve que hacer esa funcion recientemente por cuestiones de comodidad)
En línea

Jirp96

Desconectado Desconectado

Mensajes: 39


Ver Perfil
Re: "Ayuda" con Codigo(Pasar de Decimal a Binario)
« Respuesta #4 en: 8 Mayo 2011, 22:20 »

Muchas gracias por la aclaracion del bucle For, raul338,
la verdad es que no lo habia notado :silbar:
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines