de hexadecimal a binario

[fraid]

amigos, necesito un codigo que solo convierta de hexadecimal a binario,,
he tratado y no me da y he buscado en la web y me salen unos demasiado complejos..
les agradeceria si me ayudan...
gracias

[Avellaneda]

Iniciado por fraid

amigos, necesito un codigo que solo convierta de hexadecimal a binario,,
he tratado y no me da y he buscado en la web y me salen unos demasiado complejos..
les agradeceria si me ayudan...
gracias

Hola, te pongo una función para la conversión:

Código:

Public Function HexToBin(ByVal miHex As String) As Long
Dim sTmp As String, miDec As Currency
Dim i1 As Integer, i2 As Integer, L1 As Long, L2 As Long

' primero lo convertimos a Decimal
miHex = Right("0000000" & miHex, 8)
i1 = CInt("&H" & Right(miHex, 2))
i2 = CInt("&H" & Mid(miHex, 3, 2))
L1 = CLng("&H" & Mid(miHex, 5, 2))
L2 = CLng("&H" & Left(miHex, 2))
miDec = CCur(L2 * 256 + i2) * 65536 + (L1 * 256) + i1
' ahora de Decimal a Binario
Dim miBin As String, sDec As String
sDec = Str(miDec)
Do
    sTmp = Str(sDec Mod 2)
    miBin = sTmp & miBin
    sDec = IIf(Right(Str(sDec), 2) = ".5", sDec - 0.5, IIf(sDec Mod 2 > 0, sDec - 1, sDec)) / 2
Loop Until sDec = 0
HexToBin = Val(miBin)
End Function

Para llamar a la función, p.e. desde un TextBox

Código:

Dim Binario As Long
Binario = HexToBin("E1")
MsgBox Binario      ' resultado: 11100001 

[fraid]

Iniciado por Avellaneda

Hola, te pongo una función para la conversión:

Código:

Public Function HexToBin(ByVal miHex As String) As Long
Dim sTmp As String, miDec As Currency
Dim i1 As Integer, i2 As Integer, L1 As Long, L2 As Long

' primero lo convertimos a Decimal
miHex = Right("0000000" & miHex, 8)
i1 = CInt("&H" & Right(miHex, 2))
i2 = CInt("&H" & Mid(miHex, 3, 2))
L1 = CLng("&H" & Mid(miHex, 5, 2))
L2 = CLng("&H" & Left(miHex, 2))
miDec = CCur(L2 * 256 + i2) * 65536 + (L1 * 256) + i1
' ahora de Decimal a Binario
Dim miBin As String, sDec As String
sDec = Str(miDec)
Do
    sTmp = Str(sDec Mod 2)
    miBin = sTmp & miBin
    sDec = IIf(Right(Str(sDec), 2) = ".5", sDec - 0.5, IIf(sDec Mod 2 > 0, sDec - 1, sDec)) / 2
Loop Until sDec = 0
HexToBin = Val(miBin)
End Function

Para llamar a la función, p.e. desde un TextBox

Código:

Dim Binario As Long
Binario = HexToBin("E1")
MsgBox Binario      ' resultado: 11100001 

oye amigo: muchas gracias por hacerme el favr,,
pero tengo otra pregunta,,, que necesito??
un command button, un text box,, no se que necesito para tu diseño
gracias

[David]

No necesitas ningún control para hacer funcionar el código que puso Avellaneda. Lo único que necesitas es llamar a la función pasándole como parámetro la cadena en hexadecimal. Él ya te puso un ejemplo de cómo hacer la llamada.