Visual Basic - convertidor de decimal a binario

Life is soft - evento anual de software empresarial
 
Vista:

convertidor de decimal a binario

Publicado por DULCE (1 intervención) el 16/09/2004 23:27:04
me pidieron un programa que convierta de decimal a binario, hexadecimal y octal y empeze asi pero no encuentro el de binario.

resulado=hex(numero)
resulado=oct(numero)
pero no encuentro el de binario cual es la palabra para convertirlo
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:convertidor de decimal a binario

Publicado por CSO (75 intervenciones) el 17/09/2004 00:31:48
Hola, para el binario no existe palabra, puede existir un codigo, pero si kieres un buen conversor , incluido el binario, pasate por mi pag. web tengo echo uno. La conversion a binario, la tengo con base de datos
en : http://www.terra.es/personal5/cosnnt/
Un saludo
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

RE:convertidor de decimal a binario

Publicado por Ruri (583 intervenciones) el 17/09/2004 03:24:23
Dulce: La siguiente función convierte un número decimal a cualquier base

Option Explicit
DefLng A-Z

Public Function DecimalToBaseX(ByVal N As Long, ByVal B As Long) As String
Dim M As Long, S As String, R As Single
R = N
Do
M = R Mod B
R = R \ B
If B <= 10 Then S = M & S Else S = IIf(M < 10, M, Chr$(M - 10 + 65)) & S
Loop Until R < B
M = R Mod B
If B <= 10 Then S = M & S Else S = IIf(M < 10, M, Chr$(M - 10 + 65)) & S
Dim i As Long, sx As String
For i = 1 To Len(S)
sx = Mid$(S, i, 1)
If sx <> "0" Then Exit For
S = Mid$(S, i + 1)
Next i
DecimalToBaseX = S
End Function

Nota: N es el número a convertir y B la base. Ejemplo, si quiero convertir 15 a binario sería
debug.print DecimalToBaseX(15,2) 'Muestra el resultado en la ventana de depuración

Saludos Ruri
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