Integer 2 Binary?

[Nigorr]

How do you convert Integer(23) to Binary(00010111) with VB? Is there a function for this?

[Blinky Bill]

As far as i know there are no vb functions to do this. What you need to do is write your own function to do it

Do you know how to?

[Nigorr]

I know how to write a function, but I'm not sure how I would go about it for this one. Help please.

[HarryW]

Been a while since I wrote any VB code, and the formatting is kinda messed up cos I just wrote this out in notepad, but I think this should do it.

Function int2bin(myInteger as integer) as string

	Dim strBinary as string
	Dim intTemp as integer
	strBinary = ""
	intTemp = myInteger
	Do 
		strBinary = str(intTemp Mod 2) & strBinary
		intTemp = intTemp \ 2
	
	Loop until intTemp < 2

	int2bin = strBinary

End Function

[Nigorr]

I know how to convert a number to an 8bit binary in my head! Not in code, well that is effeicent

[Nigorr]

I'll have a go using the remainder method of converting int 2 bin. BTW your code didn't work just returned "0 0 0 0 0"

[slx47]

public function bincovert(number as long)

public bnumber as string 'actual answer

if number - 128 > 0 then
number = number - 128
bnumber = "1"
else
bnumber = "0"
end if
if number - 64 > 0 then
number = number - 64
bnumber = bnumber & "1"
else
bnumber = "0"
end if
if number - 32 > 0 then
number = number - 32
bnumber = bnumber & "1"
else
bnumber = "0"
end if

if number - 16 > 0 then
number = number - 16
bnumber = bnumber & "1"
else
bnumber = "0"
end if

if number - 8 > 0 then
number = number - 8
bnumber = bnumber & "1"
else
bnumber = "0"
end if

if number - 4 > 0 then
number = number - 4
bnumber = bnumber & "1"
else
bnumber = "0"
end if

if number - 2 > 0 then
number = number - 2
bnumber = bnumber & "1"
else
bnumber = "0"
end if

if number - 1 > 0 then
number = number - 1
bnumber = bnumber & "1"
else
bnumber = "0"
end if

binconvert = bnumber

end function

hopefully this helps

[Nigorr]

Minor modifications, thanks for this.

Function int2bin(number As Integer)
 
    Dim bnumber As String 'actual answer
 
    If number - 128 >= 0 Then
        number = number - 128
        bnumber = "1"
    Else
        bnumber = "0"
    End If
 
    If number - 64 >= 0 Then
        number = number - 64
        bnumber = bnumber & "1"
    Else
        bnumber = "0"
    End If
 
    If number - 32 >= 0 Then
        number = number - 32
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
    If number - 16 >= 0 Then
        number = number - 16
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
    If number - 8 >= 0 Then
        number = number - 8
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
    If number - 4 >= 0 Then
        number = number - 4
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
    If number - 2 >= 0 Then
        number = number - 2
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
    If number - 1 >= 0 Then
        number = number - 1
        bnumber = bnumber & "1"
    Else
        bnumber = bnumber & "0"
    End If
 
int2bin = bnumber
 
End Function

[Nigorr]

This is the program I made