Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra
política de cookies
.
Cerrar
Comunidad de Programadores
Iniciar sesión
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Recordar contraseña?
Iniciar sesión
Crear cuenta
Documentación y Recursos
Cursos y Manuales
Biblioteca de Temas
Código Fuente
Noticias/Artículos
PDFs de programación
Foros y Consultas
Foros de Consulta
Chats de prog.
Tablón de Notas
Diccionario informático
Programadores
Programadores
Ofertas de Trabajo
Programas
Programas/Utilidades
Nuestros Programas
Iconos y Cursores
Preguntas/Respuestas
Otros
Utilidades
Colaboradores
Encuestas/Estadísticas
Contactar
LWP
»
Foros
»
Visual Basic
» decimal a binario
Visual Basic - decimal a binario
Volver
Nuevo Tema
<<
>>
Vista:
arbol
cronológico
decimal a binario
Nattanahel Chaves Moya (28/11/2002 19:13:38)
3.343 visitas
1 respuesta
RE:decimal a binario
Josetxu (28/11/2002 22:55:47)
decimal a binario
Publicado por
Nattanahel Chaves Moya
(
12 intervenciones
) el 28/11/2002 19:13:38
¿Tiene Visual Basic 6.0 alguna función que convierta los valores decimales (como códigos ascii) a su correspondiente valor binario?
Gracias.
Valora esta pregunta
0
Responder
RE:decimal a binario
Publicado por
Josetxu
(
75 intervenciones
) el 28/11/2002 22:55:47
Prueba esto:
Function Binario(NumDec As Long) As String
Dim NBinario As String
MsgBox Hex(NumDec) 'Esto saca el número Hexadecimal (Base 16)
NBinario = ""
Do While NumDec > 1
NBinario = NumDec Mod 2 & NBinario
NumDec = NumDec \ 2
Loop
NBinario = NumDec & NBinario
MsgBox NBinario 'Esto saca el número binario (Base 2)
Binario = NBinario
End Function
Saludos
Josetxu
Valora esta respuesta
0
Comentar
GIF ANIMADO O FLASH
Tamaño Recordset URGENTE