Visual CSharp .NET - Base Binario

 
Vista:

Base Binario

Publicado por CsarEnrique (1 intervención) el 27/05/2009 20:31:39
Hola, de antemano gracias por su aporte;
mi problema es el sgte, saben que ahora me dedico a programar en C#,
estoy intentando hacer un algoritmo para convertir un numero decimal de "n" cifras a base 2 (Sistema binario). Ej:
13 (base 10) = 1101 (base 2)
Necesito aportes por favor.
Hasta pronto y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Base Binario

Publicado por lincoln (16 intervenciones) el 31/05/2009 05:21:29
aki hay algo. espero que te sirva
o tabbien puedes hacer divisiones simultanesas hasta llegar al resultado y solo te quedas con el resto...

Private Function Cadena_Binario(ByVal Valor As Integer) As String
Dim Lugares(8) As Integer
Dim CadenaBinario, CaracterBinario As String
Dim I, Valor1, ValorAcumulado, ValorRestante As Integer
Lugares(1) = 128
Lugares(2) = 64
Lugares(3) = 32
Lugares(4) = 16
Lugares(5) = 8
Lugares(6) = 4
Lugares(7) = 2
Lugares(8) = 1
CadenaBinario = ""
ValorAcumulado = 0
ValorRestante = Valor - ValorAcumulado
For I = 1 To 8
CaracterBinario = "0"
Valor1 = Lugares(I) * 1
If Valor1 <= ValorRestante Then
ValorAcumulado = ValorAcumulado + Valor1
ValorRestante = Valor - ValorAcumulado
CaracterBinario = "1"
End If
CadenaBinario = CadenaBinario & CaracterBinario
Next
Cadena_Binario = CadenaBinario
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar