Android Question frames filters

Sub USB_NewData (request As UsbRequest, inDirection As Boolean)
        ' . . . .
        Dim input() As Byte = request.Buffer
        Dim count As Int = request.Buffer.Length
        For i = 0 To count - 1
            ' . . .                            ' Process one byte at a time
        Next
        ' . . . .
End Sub

Private Sub serial_DataAvailable (Buffer() As Byte)
'    Log("New data: " & bc.HexFromBytes(Buffer))
    EditText1.Text = EditText1.Text & bc.HexFromBytes(Buffer) & CRLF
    Dim msg As String = bc.StringFromBytes(Buffer, "ASCII")
    
    If msg.StartsWith ("#") Then
        lblspeed.Text = msg.SubString2(1,4)
    End If
End Sub

' Generate some sample data and convert it
Sub Button1_Click
    Dim data() As Byte = makeData
    decode(data)
End Sub

' Create some sample data : 16-bit big-endian values
Sub makeData As Byte()
    Dim data(4) As Byte
    data(0) = 17      ' 0x11
    data(1) = 34      ' 0x22  :  0x1122 = 4386
    data(2) = 68      ' 0x44
    data(3) = -119    ' 0x88  :  0x4488 = 17544
    Return data
End Sub

' Convert a Java signed byte value to unsigned integer value
Sub byteToInt(b As Byte) As Int
    Dim n As Int = b
    If (b < 0) Then n = n + 255
    Return n
End Sub

' Convert a string of byte pairs to 16-bit integers
Sub decode(data() As Byte)
    Dim i As Int = 0
    Dim n As Int
    Do While (i < data.length)
        n = byteToInt(data(i)) * 256 + byteToInt(data(i + 1))
        Log(n)                    ' Display the decimal value
        i = i + 2
    Loop    
End Sub

' Read a string of byte pairs into a list as 16-bit integers
Sub decode(data() As Byte) As List
    Dim result As List
    result.Initialize
    Dim i As Int = 0
    Dim n As Int
    Do While (i < data.length)
        n = byteToInt(data(i)) * 256 + byteToInt(data(i + 1))
        result.Add(n)                      ' Create a list of the values
        i = i + 2
    Loop
    Return result
End Sub

Private Sub serial_DataAvailable (Buffer() As Byte)
'    Log("New data: " & bc.HexFromBytes(Buffer))
. . . . . .

    Dim value As string = Bit.ToHexString(n)
    Do While (value.Length < 4)  ' If result is less than four characters ...
        value = "0" & value      '   ... add a leading zero
    Loop