Funcion que trasnforme un numero a Binario

Hola:
Prueba esto


Private Function Hex2Bin(ByVal strHex As String) As String
Dim i As Integer
Dim strBinCodes As String
Dim strBuf As String
'Inicializa tabla con codigos binarios.
strBinCodes =
"0000000100100011010001010110011110001001101010111100110111101111"
'Uno por uno, convierte y acumula codigo binario correspondiente al
digito hexadecimal.
strBuf = ""
For i = 0 To strHex.Length
strBuf &= Mid$(strBinCodes, Val("&H" & Mid$(strHex, i, 1)) * 4 + 1,
4)
Next i
Hex2Bin = strBuf
End Function

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Borja" escribió en el mensaje
news:

Alguien sabe si existe alguna funcion en visual basic.net que transforme
un
número (necesito que me transforme un número hexadecimal) a Binario.

Hola,

Solamente es una observacion, pero quedaria un poco mas limpio declarando un
array... No se como afectaria al tiempo de ejecucion ya que con el array te
libras de la multiplicacion y la suma, sinembargo supongo que el Array
tardara un poco mas en generarse.

Un saludo

"J. Carlos Herrrero" escribió en el mensaje
news:

Hola:
Prueba esto


Private Function Hex2Bin(ByVal strHex As String) As String
Dim i As Integer
Dim strBinCodes As String
Dim strBuf As String
'Inicializa tabla con codigos binarios.
strBinCodes =
"0000000100100011010001010110011110001001101010111100110111101111"
'Uno por uno, convierte y acumula codigo binario correspondiente al
digito hexadecimal.
strBuf = ""
For i = 0 To strHex.Length
strBuf &= Mid$(strBinCodes, Val("&H" & Mid$(strHex, i, 1)) * 4 + 1,
4)
Next i
Hex2Bin = strBuf
End Function

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Borja" escribió en el mensaje
news:

Alguien sabe si existe alguna funcion en visual basic.net que transforme
un
número (necesito que me transforme un número hexadecimal) a Binario.