B4J Code Snippet Binary code and Gray Code

Sub ZeroPadLeft(S As String, L As Int) As String

    Dim Temp As String = S
   
    Do While Temp.Length < L
        Temp = "0" & Temp
    Loop
   
    Return Temp
   
End Sub

Public Sub testbinary
    Log(FormatterBinary(Number2GrayCode(31), 8))
    Log(FormatterBinary(Number2BinaryCode(31), 8))
   
    Log(FormatterBinary(Number2GrayCode(31), 16))
    Log(FormatterBinary(Number2BinaryCode(31), 16))
   
End Sub

Public Sub Number2GrayCode(a As Int) As String
    Dim b As Int = Bit.Xor(Bit.Shiftright(a,1),a)
    Return Bit.ToBinaryString(b)
End Sub

Public Sub Number2BinaryCode(a As Int) As String
    Return Bit.ToBinaryString(a)
End Sub

Public Sub FormatterBinary (Value As String, Size As  Int) As String
    Dim formatter As B4XFormatter
    formatter.Initialize
    formatter.GetDefaultFormat.GroupingCharacter = ""
    formatter.GetDefaultFormat.DecimalPoint = ""
    formatter.GetDefaultFormat.IntegerPaddingChar = "0"
    formatter.GetDefaultFormat.MinimumIntegers = Size
    Return formatter.Format(Value)
End Sub

Sub ZeroPadLeft(S As String, L As Int) As String

    Dim sb As StringBuilder
    sb.Initialize
  
    For I = 1 To L - S.Length
        sb.Append("0")
    Next

    Return sb.Append(S).ToString
  
End Sub

Sub ZeroPadLeft16(S As String)

    Return "0000000000000000".SubString(S.Length) & S
    
End If

Sub ZeroPadLeft8(S As String)

    Return "00000000".SubString(S.Length) & S
    
End Sub