Sub Process_Globals
Public KeyStart As String = "a495ff2", KeyEnd As String = "-c5b1-4b44-b512-1370f02d74de"
end sub
Public Sub ReadData
manager.ReadData(KeyStart & 0 & KeyEnd)
'For Each s As String In ConnectedServices
' Log("Reading " & s)
' manager.ReadData(s)
'Next
End Sub
Sub Manager_DataAvailable (ServiceId As String, Characteristics As Map)
Dim temp As Int, bc As ByteConverter, tempstr As String
CallSub3(Main, "DataAvailable", ServiceId, Characteristics)
Log("Service: " & ServiceId & " " & Characteristics)
For temp = 0 To Characteristics.Size -1
Dim data() As Byte = Characteristics.GetValueAt(temp)
'a495ff21-c5b1-4b44-b512-1370f02d74de
tempstr = Characteristics.GetKeyAt(temp)
If tempstr.StartsWith(KeyStart) And tempstr.EndsWith(KeyEnd) Then
Log("Scratch: " & tempstr.SubString2(7,8) & " = " & bc.HexFromBytes(data))
End If
Next
End Sub