Visual Basic > API and Miscellaneous

Decimal Numbers to Binary

Decimal Numbers to Binary

'This function receives a byte and returns a string
'containing its binary equivalent.
Function DecToBin(ByVal DecValue As Byte)

    'Dimension some variables.
    Dim strOut As String
    Dim x As Long
    strOut = String$(8, Asc("0")) 'return 8 chr's

    'Work out binary number.
    For x = 0 To 7
      If (DecValue And 1) Then Mid$(strOut, 8 - x, 1) = "1"
      DecValue = (DecValue And -2) / 2
    Next x

    'Return binary number.
    DecToBin = strOut

End Function