Sub DataAvailable (Service As String, Characteristics As Map)
pbReadData.Visible = False
clv.Add(CreateServiceItem(Service), "")
For Each id As String In Characteristics.Keys
Dim dataContent() As Byte = Characteristics.Get(id)
If id="0000a1b2-0000-1000-8000-00805f9b34fb" Then '<--fill with correct values
' If the values are string-formatted, convert the bytes to string
' Log( "Characteristic:"& id &": "&BytesToString(dataContent, 0, dataContent.Length, "UTF8") )
' Or, if we know that each byte has a meaning, just show the bytes
Dim bc As ByteConverter '<---- will need the ByteConverter library
Log( "Characteristic:"& id &": "& bc.HexFromBytes(dataContent) )
End If
Next
End Sub