B4R Question How Convert Int to Binary? and Hex to Binary?

Eme Fibonacci

Well-Known Member
Licensed User
Longtime User
Please,

How convert : INT to BINARY? And How convert: HEX to BINARY?

Always 8-bit size. e.g. 00000100

Thank you.
 
Last edited:

Erel

B4X founder
Staff member
Licensed User
Longtime User
B4X:
Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   Dim res(8) As Byte
   ByteToBinary(127, res)
   Log(res)
   ByteToBinary(0, res)
   Log(res)
   Dim bc As ByteConverter
   ByteToBinary(bc.HexToBytes("AB")(0), res)
   Log(res)
End Sub

Sub ByteToBinary (Number As Byte, Result() As Byte)
   For i = 0 To 7
     If Bit.Get(Number, 7 - i) = 1 Then
       Result(i) = Asc("1")
     Else
       Result(i) = Asc("0")
     End If
   Next
End Sub
 
Upvote 0
Top