Sub ble_CharacteristicChanged (Characteristic As BleCharacteristic)
' Dim bc As ByteConverter
If Characteristic.Uuid ="0000fff2-0000-1000-8000-00805f9b34fb" Then
'precent change
'Label1.Text = Characteristic.GetStringValue(0)
Label1.Text = Characteristic.FORMAT_FLOAT
'Label1.Text = Characteristic.GetValue
'Label1.Text = bc.FloatsFromBytes(Characteristic.GetValue)
Log(Label1.Text )
'Test_Click
End If
End sub