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
por cierto, tengo otra duda(sobre la misma funcion):
-Si yo llamo la funcion asi:
Código
No hay ningun problema, y me devuelve el resultado correctamente, pero si llamo la funcion asi:
Dim n As Integer Console.WriteLine("Introduce un numero en Decimal para Pasarlo a Binario:") n = CInt(Console.ReadLine())
Código
No me devuelve ningun resultado y se queda "colgado" el visual basic...
Dim n As Integer For n = 0 To 10 Console.WriteLine("El numero en Binario es: " & DecToBin(n)) Next Console.ReadLine()
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...