Sub Process_Globals
Public manager As BleManager2
Public currentStateText As String = "UNKNOWN"
Private serviceId, charId, ReadId As String
Dim connected As Boolean
Public rp As RuntimePermissions
Dim num As Boolean = False
Dim IDDevConn As String = ""
End Sub
Sub Service_Create
manager.Initialize("manager")
serviceId = "6e400001-b5a3-f393-e0a9-e50e24dcca9e"
charId = "6e400002-b5a3-f393-e0a9-e50e24dcca9e"
ReadId = "6e400003-b5a3-f393-e0a9-e50e24dcca9e"
Log("Service_Create")
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub