TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: m-o-s en 06 de Mayo de 2007, 07:42:38

Título: Como hacer para optener un formato binario de un numero decimal?
Publicado por: m-o-s en 06 de Mayo de 2007, 07:42:38

Saludos compañeros foristas, estoy empezando con vb, y a pesar que he mirado por aqui no he encontrado nada. Mi problemilla es el siguiente necesito que en un mensaje de texto (TEXTBOX)  me aparezca un numero en binario en vez de decimal. Hay alguna manera de cambiar el formato o hay que hacerlo mediante programa?.  :P

Título: Re: Como hacer para optener un formato binario de un numero decimal?
Publicado por: todopic en 06 de Mayo de 2007, 12:09:54

Hola, te paso una funcion  DecTObin  :mrgreen:, la tengo funcionando ok?  :mrgreen:
Public Function DecToBin(ValDec As Long) As String
On Error GoTo CtrlError
    If ValDec > 255 Then
        MsgBox "El valor debe estar entre 0 y 255"
        Exit Function
    End If
   
    'Función de conversión
    'Generador de valor binario
    'La función and compara bit a bit en binario.
    'Por ejemplo comparando d(210)  b(1101 0010)
    'con                    d(16)   b(0001 0000)
    'nos da True, debido a que en "and" 1 and 1 es 1
    'con                    d( 8 )    b(0000 1000)
    'nos da False, debido a que en "and" 0 and 0 es 0
   
    DecToBin = ""
   
    Dim Bit As Integer
    For Bit = 7 To 0 Step -1
        If ValDec And (2 ^ Bit) Then
            DecToBin = DecToBin & "1"
        Else
            DecToBin = DecToBin & "0"
        End If
    Next Bit
 
Exit Function
CtrlError:
    MsgBox "Ha ocurrido un error en la conversión Dec-->Bin"
End Function



Suerte!

Título: Re: Como hacer para optener un formato binario de un numero decimal?
Publicado por: m-o-s en 07 de Mayo de 2007, 14:53:24

Muchas gracias, compañero voy a probarlo ahora mismo. :-)