Android实例-MotionSensor加速度(XE8+小米2)

  1 unit Unit1;
  2 
  3 interface
  4 
  5 uses
  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Sensors,
  8   FMX.StdCtrls, FMX.Controls.Presentation, System.Sensors.Components;
  9 
 10 type
 11   TForm1 = class(TForm)
 12     MotionSensor1: TMotionSensor;
 13     Switch1: TSwitch;
 14     Label1: TLabel;
 15     Timer1: TTimer;
 16     Label2: TLabel;
 17     Label3: TLabel;
 18     Label4: TLabel;
 19     Label5: TLabel;
 20     Label6: TLabel;
 21     Label7: TLabel;
 22     Label8: TLabel;
 23     Label9: TLabel;
 24     Label10: TLabel;
 25     Label11: TLabel;
 26     Label12: TLabel;
 27     Label13: TLabel;
 28     Label14: TLabel;
 29     Label15: TLabel;
 30     Label16: TLabel;
 31     Label17: TLabel;
 32     procedure Switch1Click(Sender: TObject);
 33     procedure Timer1Timer(Sender: TObject);
 34     procedure FormCreate(Sender: TObject);
 35   private
 36     { Private declarations }
 37   public
 38     { Public declarations }
 39   end;
 40 
 41 var
 42   Form1: TForm1;
 43 
 44 implementation
 45 
 46 {$R *.fmx}
 47 {$R *.NmXhdpiPh.fmx ANDROID}
 48 
 49 procedure TForm1.FormCreate(Sender: TObject);
 50 begin
 51   Timer1.Enabled := False;
 52 end;
 53 
 54 procedure TForm1.Switch1Click(Sender: TObject);
 55 begin
 56   MotionSensor1.Active := Switch1.IsChecked;
 57   Timer1.Enabled := Switch1.IsChecked;
 58 end;
 59 
 60 procedure TForm1.Timer1Timer(Sender: TObject);
 61 var
 62   LProp: TCustomMotionSensor.TProperty;//所有可能得到的参数
 63 begin
 64   for LProp in MotionSensor1.Sensor.AvailableProperties do//开始循环，如果手机支持该参数则显示出来
 65   begin
 66     case LProp of
 67       TCustomMotionSensor.TProperty.AccelerationX:
 68       begin
 69         Label10.Visible := True;
 70         Label10.Text := Format(‘Acceleration X: %6.2f‘, [MotionSensor1.Sensor.AccelerationX]);
 71       end;
 72       TCustomMotionSensor.TProperty.AccelerationY:
 73       begin
 74         Label11.Visible := True;
 75         Label11.Text := Format(‘Acceleration Y: %6.2f‘, [MotionSensor1.Sensor.AccelerationY]);
 76       end;
 77       TCustomMotionSensor.TProperty.AccelerationZ:
 78       begin
 79         Label12.Visible := True;
 80         Label12.Text := Format(‘Acceleration Z: %6.2f‘, [MotionSensor1.Sensor.AccelerationZ]);
 81       end;
 82       TCustomMotionSensor.TProperty.AngleAccelX:
 83       begin
 84         Label13.Visible := True;
 85         Label13.Text := Format(‘Angle X: %6.2f‘, [MotionSensor1.Sensor.AngleAccelX]);
 86       end;
 87       TCustomMotionSensor.TProperty.AngleAccelY:
 88       begin
 89         Label14.Visible := True;
 90         Label14.Text := Format(‘Angle Y: %6.2f‘, [MotionSensor1.Sensor.AngleAccelY]);
 91       end;
 92       TCustomMotionSensor.TProperty.AngleAccelZ:
 93       begin
 94         Label15.Visible := True;
 95         Label15.Text := Format(‘Angle Z: %6.2f‘, [MotionSensor1.Sensor.AngleAccelZ]);
 96       end;
 97       TCustomMotionSensor.TProperty.Motion:
 98       begin
 99         Label16.Visible := True;
100         Label16.Text := Format(‘Motion: %6.2f‘, [MotionSensor1.Sensor.Motion]);
101       end;
102       TCustomMotionSensor.TProperty.Speed:
103       begin
104         Label17.Visible := True;
105         Label17.Text := Format(‘Speed: %6.2f‘, [MotionSensor1.Sensor.Speed]);
106       end;
107     end;
108   end;
109 end;
110 
111 end.