¿Cómo consigo que un número en visual basic pase a binario o a otra base?

Como logro hacer en visual basic que un numero dado en cualquier base pase de esa base a binario octal decimal hexadecimal y viceversa
Necesito código
3

3 respuestas

Respuesta
1
Perdona por el retraso aquí te envío el código para pasar de hexadecimal a decimal y de decimal a binario.
Código:
Public Property Get ConvertirBinario(numero$) As String
Dim digito As Integer, temp As String
temp = ""
Do
digito = numero Mod 2
If digito = 0 Then
temp = "0" + temp
Else
temp = "1" + temp
End If
numero = numero \ 2
Loop Until numero = 0
ConvertirBinario = temp
End Property
Public Property Get HexadecimalToDecimal(numero$) As Long
Dim digito As Long
Dim res As Long, letra As String
numero = Strings.StrReverse(numero)
numero = UCase(numero)
For contador = Len(numero) To 1 Step -1
letra = Mid(numero, contador, 1)
If letra >= "A" And letra <= "F" Then
digito = Asc(letra) - 55
Else
digito = Val(letra)
End If
digito = digito * (16 ^ (contador - 1))
res = res + digito
Next
HexadecimalToDecimal = res
Debug.Print Hex(res)
End Property
Respuesta
La funciones son
a hexadecimal=hex
a octal =oct
este ejemplo está sacado de la ayuda del vb
Dim MiHex
MiHex = Hex(5) ' Devuelve 5.
MiHex = Hex(10) ' Devuelve A.
MiHex = Hex(459) ' Devuelve 1CB
Respuesta
-1
En visual basic no existe la conversión entre binario octal decimal y headecimal siempre trabaja en decimal, lo único que existen son funciones de conversión entre tipo byte integer double ...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas