) 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

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










Autor


En línea




(tambien tuve que hacer esa funcion recientemente por cuestiones de comodidad)

