Yes. It will read the services and characteristics whenever you click on the Read Data button.
Public Sub ReadData
For Each s As String In ConnectedServices
manager.ReadData(s)
Log(s)
Next
End Sub
=======
Sub Manager_DataAvailable (ServiceId As String, Characteristics As Map)
Dim bc As ByteConverter
Log(Characteristics.Keys)
For Each key As String In Characteristics.Keys
Dim b() As Byte = Characteristics.Get(key)
Log((key) & ": " & (bc.HexFromBytes(b)))
Next
CallSub3(Main, "DataAvailable", ServiceId, Characteristics)
End Sub
Manager.SetCharacteristicNotification("0000fff1-0000-1000-8000-00805f9b34fb",True)The FFF2 can be used to write to the Device (whatever you need to write i don´t know ;-))
What do you need to read? What sensors?yes
But I want to receive the Button value...
try
What do you need to read? What sensors?
have a look to this links:
https://www.b4x.com/android/forum/threads/ible-data.63754/#content
https://www.b4x.com/android/forum/threads/ible-healtthermometer-solved.64232/#post-407611
https://www.b4x.com/android/forum/threads/ble-heart-rate-monitor.64103/#content
the battery is 0000180f-0000-1000-8000-00805f9b34fb
The characteristics are described here: https://developer.bluetooth.org/gatt/characteristics/Pages/CharacteristicsHome.aspx
try to activate setNotify true like that:
manager.SetNotify(0000180f-0000-1000-8000-00805f9b34fb, 00002a19-0000-1000-8000-00805f9b34fb, True)
EDIT: maybe is this
manager.SetNotify(0000fff0-0000-1000-8000-00805f9b34fb, 0000fff1-0000-1000-8000-00805f9b34fb, True)
#Region Service Attributes
#StartAtBoot: False
#ExcludeFromLibrary: True
#End Region
Sub Process_Globals
Public manager As BleManager2
Public currentStateText As String = "UNKNOWN"
Public currentState As Int
Public connected As Boolean = False
Public ConnectedName As String
Private ConnectedServices As List
Public rp As RuntimePermissions
End Sub
Sub Service_Create
manager.Initialize("manager")
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Public Sub ReadData
For Each s As String In ConnectedServices
manager.ReadData(s)
Log(s)
Next
End Sub
Public Sub Disconnect
manager.Disconnect
Manager_Disconnected
End Sub
Sub Manager_StateChanged (State As Int)
Select State
Case manager.STATE_POWERED_OFF
currentStateText = "POWERED OFF"
Case manager.STATE_POWERED_ON
currentStateText = "POWERED ON"
Case manager.STATE_UNSUPPORTED
currentStateText = "UNSUPPORTED"
End Select
currentState = State
CallSub(Main, "StateChanged")
End Sub
Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData) 'ignore
ConnectedName = Name
If ConnectedName="MA3_623" Then
manager.StopScan
manager.Connect2(Id, False) 'disabling auto connect can make the connection quicker
Sleep(2000)
Log("Connect MA3_623")
manager.SetNotify("0000fff0-0000-1000-8000-00805f9b34fb", "0000fff1-0000-1000-8000-00805f9b34fb", True)
End If
End Sub
Public Sub StartScan
If manager.State <> manager.STATE_POWERED_ON Then
Log("Not powered on.")
Else If rp.Check(rp.PERMISSION_ACCESS_COARSE_LOCATION) = False Then
Log("No location permission.")
Else
manager.Scan2(Null, False)
End If
End Sub
Sub Manager_DataAvailable (ServiceId As String, Characteristics As Map)
Dim bc As ByteConverter
CallSub3(Main, "DataAvailable", ServiceId, Characteristics)
For Each key As String In Characteristics.Keys
Dim b() As Byte = Characteristics.Get(key)
Log((key) & ": " & (bc.HexFromBytes(b)))
Next
End Sub
Sub Manager_Disconnected
Log("Disconnected")
connected = False
CallSub(Main, "StateChanged")
End Sub
Sub Manager_Connected (services As List)
Log("Connected")
connected = True
ConnectedServices = services
CallSub(Main, "StateChanged")
End Sub
'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub Service_Destroy
End SubSub Manager_Connected (services As List)
Log("Connected")
connected = True
ConnectedServices = services
manager.SetNotify("0000fff0-0000-1000-8000-00805f9b34fb", "0000fff1-0000-1000-8000-00805f9b34fb", True)
Log("Set Notify")
CallSub(Main, "StateChanged")
End Sub
Sub Manager_DataAvailable (ServiceId As String, Characteristics As Map)
Dim bc As ByteConverter
For Each key As String In Characteristics.Keys
Dim b() As Byte = Characteristics.Get(key)
Log("Key: " & key &", value: " & bc.HexFromBytes(b))
'Log(BytesToString(b, 0, b.Length, "utf8") 'useful if the data is actually a string
If key = "" Then
End If
Next
End Sub1. rule: never post to existing threads. Always create a new thread for your question.
Try the example:
www.b4x.com
