Sub Process_Globals
Private Manager1, Manager2 As BleManager2
Private managers As Map
End Sub
Sub Service_Create
Manager1.Initialize("Manager")
Manager2.Initialize("Manager")
managers = CreateMap(Manager1: "m1", Manager2: "m2")
End Sub
Sub Manager_StateChanged (State As Int)
Dim m As BleManager2 = Sender
Log("StateChanged: " & managers.Get(m) & ", " & State)
If State = m.STATE_POWERED_ON Then
m.Scan(Null)
End If
End Sub
Sub Manager_DeviceFound (Name As String, DeviceId As String, AdvertisingData As Map, RSSI As Double)
Dim m As BleManager2 = Sender
Log("Manager_DeviceFound: " & managers.Get(m) & ", " & DeviceId & ", " & Name)
Dim TargetName As String
If managers.Get(m) = "m1" Then TargetName = "BLE SWITCH 1" Else TargetName = "BLE SWITCH 2"
If Name = TargetName Then
Log("Trying to connect")
m.Connect2(DeviceId, False)
End If
End Sub
Sub Manager_Connected (Services As List)
Log("Manager_Connected: " & managers.Get(Sender))
End Sub
Sub Manager_Disconnected
Log("Manager_Disconnected: " & managers.Get(Sender))
End Sub