Sub ble_DataAvailable (ServiceId As String, Characteristics As Map)
Dim noofbytes As Int
Dim b As ByteConverter
Dim bu(2) As Byte
Dim buffer() As
raf.Initialize2(File.DirRootExternal, "1.dat", False,True)
raf.WriteObject(Characteristics.Get("00002a35-0000-1000-8000-00805f9b34fb"), True, raf.CurrentPosition)
noofbytes=raf.ReadBytes(buffer,0,2,0) ' display 54
RX.Text = raf.ReadShort(2)
' EditText4.Text=raf.CurrentPosition
RX.Text = raf.ReadBytes(bu,0,2,1) 'offset 1 ,Blood Pressure systolic range 25 to 280, 16 bit length
EditText4.Text = raf.ReadShort(1)
EditText3.Text = b.HexFromBytes(bu)
raf.Close
End Sub