Sub Sensor_SensorChanged (Values() As Float)
Dim ps As PhoneSensors
Dim sd As SensorData
ps = Sender
sd = SensorsMap.Get(ps) 'Get the associated SensorData obejct
Dim stamp As Long = DateTime.Now
If sd.Name.Contains("ACCELEROMETER") Then
AccelMAX = ps.MaxValue
AccelData.Put(stamp, Values)
If AccelData.Size > 10 Then
AccelData.Remove(AccelData.GetKeyAt(0))
End If
Else If sd.Name.Contains("ORIENTATION") Then 'MAGNETIC
CompassData.Put(stamp, Values)
'Log(sd.Name & " X=" & Values(0))
If CompassData.Size > 10 Then
CompassData.Remove(CompassData.GetKeyAt(0))
End If
End If
End Sub