Sub DataAvailable (Service As String, Characteristics As Map)
pbReadData.Visible = False
' clv.Add(CreateServiceItem(Service), 30dip, "")
' For Each id As String In Characteristics.Keys
' clv.Add(CreateCharacteristicItem(id, Characteristics.Get(id)), 40dip, "")
' Next
'''''''02/02/2016
Dim bc As ByteConverter
Dim data As String
' Log($"Time: $Time{DateTime.Now}"$)
clv.Add(CreateServiceItem(Service), 30dip, "")
For Each id As String In Characteristics.Keys
clv.Add(CreateCharacteristicItem(id, Characteristics.Get(id)), 40dip, "")
data = bc.HexFromBytes( Characteristics.Get(id) )
Log("id: " & id & "->" & data)
Next
End Sub