Habe ein klein wenig selber die Lösung gefunden aber nur für mein Gyrometer. das hat mir immer nur 0 zurückgegeben und ich habe es mit dem Code siehe unten gelöst. Habe es noch nich mit tilt getestet und werde dieses wochenende auch leider nicht mehr dazukommen >.< vllt. wollt ihrs ja probieren
Ich werde es auf jedenfall auch noch probieren
Code:
procedure TFormMain.Form3DCreate(Sender: TObject);
var
Sensormanager: TSensorManager;
Sensors: TSensorArray;
Sensor: TCustomSensor;
begin
//Sphere1.MaterialSource:= Menu.TextureMaterialSource1;
Sensormanager := TSensormanager.Current;
Sensormanager.Activate;
Sensors:= Sensormanager.GetSensorsByCategory(TSensorCategory.Motion);
for Sensor in Sensors do
if TCustomMotionSensor(Sensor).SensorType = TMotionSensortype.Gyrometer3D then begin
FSensor:=TCustomMotionsensor(Sensor);
end;
FSensor.Start;
end;