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

[Eme Fibonacci]

Please,

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

Always 8-bit size. e.g. 00000100

Thank you.

 

[Erel]

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