I need to convert an integer to both a 7bit and 10 bit binary string representation.
But... I don't have the foggiest idea how to do it.
any help apreciated
Sub int2Bin(num As Int, digits As Int) As String
Dim s As String
For k=0 To digits-1
If Bit.AND(num,1)=1 Then
s="1"&s
Else
s="0"&s
End If
num=Bit.ShiftRight(num,1)
Next
Return s
End Sub
Sub int2bin(value As Int, base As Int) As String
Private x As String
x = Bit.ToBinaryString(value)
If x.Length < base Then
Do Until x.Length = base
x= "0" & x
Loop
End If
Return x
End Sub