Sub DataAvailable (Service As String, Characteristics As Map)
recievedData=True
getPCDValues(Characteristics.GetValueAt(0))
End Sub
Sub getPCDValues(data() As Byte)
'Aufsplitten des Byte-arrays
cfg = Bit.And(data(0), 15)
rx_mess = Bit.And(data(0), 16)
ph_mess = Bit.And(data(0), 32)
flow_mess = Bit.And(data(0), 64)
man_temp = Bit.And(data(0), 128)
des = (pcdVal(data(1),data(2)))/100
deswarn= data(3)
ph = (pcdVal(data(4),data(5)))/100
phwarn= data(6)
rx = (pcdVal(data(7),data(8)))
flow = (pcdVal(data(9),data(10)))
flowwarn= data(11)
t0 = (pcdVal(data(12),data(13)))/10
t1 = (pcdVal(data(14),data(15)))
BuildPCDScreen
End Sub