Sub objEA_ReadData(BytesReceived() As Byte)
SU_Log("[objEA_ReadData]:Size => " & BytesReceived.Length)
Dim bc As ByteConverter
Dim strDataHex As String = bc.HexFromBytes(BytesReceived)
SU_Log("[objEA_ReadData]:Hex:" & strDataHex)
Dim strBytesDec As String
Dim strBytesAsc As String
For a = 0 To BytesReceived.Length-1
strBytesAsc = strBytesAsc & Chr(BytesReceived(a)) & ","
strBytesDec = strBytesDec & BytesReceived(a) & ","
Next
SU_Log("[objEA_ReadData]:BytesDec:" & strBytesDec)
SU_Log("[objEA_ReadData]:BytesAsc:" & strBytesAsc)
End Sub
you have now 2 more events readData2 and readData3
B4X:
Sub objEA_ReadData3(DecReceived() As String)
Dim strDec As String
For a = 0 To DecReceived.Length-1
strDec = DecReceived(a)
LogColor("strDec=" & strDec,Colors.Blue)
Next
End Sub
Sub objEA_ReadData2(HexReceived() As String)
Dim strHex As String
For a = 0 To HexReceived.Length-1
strHex = HexReceived(a)
LogColor("strHex=" & strHex,Colors.Blue)
Next
End Sub