Thanks for response. But is there no way to change a string or integer to a binary string? I have spend month before in my binary subs. It is the only thing i need, to use the complete subs in my new b4i-project.
P.S. I'm very enthusiastic about, how simple and fast b4i could be managed...
Sub ToBinaryString(number As Int) As String
Dim sb As StringBuilder
sb.Initialize
Dim x As Int = Bit.ShiftLeft(1, 31)
For i = 0 To 31
Dim ii As Int = Bit.AND(number, x)
If ii <> 0 Then
sb.Append("1")
Else
sb.Append("0")
End If
x = Bit.UnsignedShiftRight(x, 1)
Next
Return sb.ToString
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.