Converting Decimal to Binary VB2010

[bitfogav]

I was looking for a way to convert a Decimal number to Binary in VB 2010. So wrote the following function.

It will convert decimal integer values to a binary string, you also have the option to set the number of bits the function returns, by default the function will return 8 bits.

For example:

Code: Select all

Dim myDec As Integer

myDec = 146

textbox1.Text = DecToBin(myDec)

' will return Binary 10010010

Or we could set the number of bits to return like this

Code: Select all

Dim myDec As Integer

myDec = 146

textbox1.Text = DecToBin(myDec, 16)

' will return Binary 0000000010010010

Code: Select all

   Public Function DecToBin(ByVal DeciValue As Long, Optional ByVal NoOfBits As Integer = 8) As String
        Dim i As Integer 
        Do While DeciValue > (2 ^ NoOfBits) - 1
            NoOfBits = NoOfBits + 8
        Loop
        DecToBin = vbNullString 
        For i = 0 To (NoOfBits - 1)
            DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
        Next i
    End Function

[bitfogav]

Just incase you want to convert a Binary number back to Decimal:

Code: Select all

    ' builds a decimal number from a binary string. 
    Public Function BinToDec(ByVal Binary As String) As Long
        Dim n As Long
        Dim s As Integer

        For s = 1 To Len(Binary)
            n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ (s - 1)))
        Next s

        BinToDec = n
    End Function

[brad]

very handy!

I am surprised it doesn't have that sort of functionality built in?

[bitfogav]

I am surprised it doesn't have that sort of functionality built in?

I spent quite awhile looking for a function in VB for Binary conversions but no luck!

Found some for Decimal to HEX though

[brad]

Speaking of conversions - I have been giving lectures on that sort of thing just this week