Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
LogColor("---------------------- Manager_DeviceFound ----------------------",Colors.Green)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI )
ConnectedName = Name
' BLE - Connect
If Name<>Null And Name="HC-02" Then
manager.StopScan
Sleep(1000)
manager.Connect2(Id,False)
End If
End Sub
Sub Manager_Connected (Services As List)
LogColor("---------------------- Manager_Connected ----------------------",Colors.Green)
connected = True
ConnectedServices = Services
For i=0 To Services.Size-1
Log("services:" & Services.Get(i))
Next
End Sub