convertir entre bits y ascii, ida y vuelta

Hola Sergio,

la siguiente función te pasa de binario a decimal:

Private Function BinToDec(ByVal sIn As String) As Double
Dim x As Integer
BinToDec = 0
For x = 1 To Len(sIn)
BinToDec = BinToDec + (CInt(Mid(sIn, x, 1)) * (2 ^ (Len(sIn) -
x)))
Next x
End Function

Luego, pasarlo a carácter es trivial:

Dim stringBits As String = Convert.ToString(Convert.ToByte("Z"c),
2)
MessageBox.Show(stringBits)
Dim stringCaracter As String = ""
stringCaracter = Chr(BinToDec(stringBits))

Espero que te sirva.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Blog de Jorge Serrano
http://geeks.ms/blogs/jorge/default.aspx


"Sergio E." wrote:

Mostrar la cita

Hola, estoy desarrollando una aplicación, para la cual necesito convertir
caracteres ascii en su representación binaria y de su representación
binaria
obtener el caracter correspondiente. Hasta el momento solo he podido
hacer
correctamente la primera parte, mediante la ejecución de la siguiente
linea:

dim stringBits as string = Convert.ToString(Convert.ToByte("Z"c), 2)

donde "Z"c es el caracter que quiero obtener en representación binaria.

¿Alguien ya ha trabajado algo de esto y me podria hacer favor de
orientarme
a como obtener el regreso (es decir que si tengo un string de la forma
"1011010" o un arreglo de 7 bits con los mismos datos pueda obtener de
regreso la misma "Z")?

Saludos y gracias por su ayuda
Atte.
Sergio E.