Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
manager.StopScan
If Name = "Nordic_Thingy" Or Name = "Nordic_Blinky" Then
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData) 'ignore
ConnectedName = Name
manager.Connect(Id)
manager.StopScan
End If
End Sub
Sub btnReadData_Click
ActivityIndicator2.Visible = True
' clv.Clear
Log(" *** btnReadData ***")
For Each s As String In ConnectedServices
manager.ReadData(s)
Next
End Sub
Sub Manager_DataAvailable (Service As String, Characteristics As Map)
ActivityIndicator2.Visible = False
' clv.Add(CreateServiceItem(Service), "")
' For Each id As String In Characteristics.Keys
' clv.Add(CreateCharacteristicItem(id, Characteristics.Get(id)), "")
' Next
'
Log("Service: " & Service)
Log("Characteristics: " & Characteristics)
End Sub
Sub LabelAmp_Click
Log(" *** LabelAmp ***")
Dim ByteA As ByteConverter
Dim a() As Byte
a=ByteA.HexToBytes("1")
'manager.WriteDataWithResponse("00001523-1212-efde-1523-785feabcd123", "00001525-1212-efde-1523-785feabcd123", a)
manager.WriteDataWithResponse("00001523-1212-EFDE-1523-785FEABCD123", "00001525-1212-EFDE-1523-785FEABCD123", a)
End Sub