AFsoft WebSite (AFsoft.JP)

DelphiXE3　[FMX] 動きセンサー（MotionSensor）2014/01/06

　
前回は [Sensors]内の「位置センサー」（LocationSensor）について見てみました。今回は同じく[Sensors]内の「動きセンサー」（MotionSensor）について見てみます。
　
　
[Sensors]内

FMX

　
TCustomMotionSensor ヘルプより。

デバイスの動きの加速度、角度、状態、速度に関する情報を提供します。
　
AccelerationX、AccelerationY、AccelerationZ は、X 軸、Y 軸、Z 軸の加速度（G 単位）を返します。
AngleAccelX、AngleAccelY、AngleAccelZ は、X 軸、Y 軸、Z 軸の角加速度（°/秒^2 単位）を返します。
　
Speed は、デバイスの速度（m/秒単位）を表します。

　
　
「位置センサー」（LocationSensor）と同様、ヘルプ内容は上記だけで、その他、各プロパティや各イベント、各メソッドについての記述は一切ありません。なので扱い方等はさっぱり分かりません。
　
取り敢えず、下図のような画面を作成し

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
　MotionSensor1.Active := False ;
end;
　
procedure TForm1.FormShow(Sender: TObject);
begin
　MotionSensor1.Active := True ;
end;
　
procedure TForm1.MotionSensor1DataChanged(Sender: TObject);
begin
　Edit1.Text := FloatToStr(MotionSensor1.Sensor.AccelerationX);
　Edit2.Text := FloatToStr(MotionSensor1.Sensor.AccelerationY);
　Edit3.Text := FloatToStr(MotionSensor1.Sensor.AccelerationZ);
　Edit4.Text := FloatToStr(MotionSensor1.Sensor.AngleAccelX);
　Edit5.Text := FloatToStr(MotionSensor1.Sensor.AngleAccelY);
　Edit6.Text := FloatToStr(MotionSensor1.Sensor.AngleAccelZ);
　Edit7.Text := FloatToStr(MotionSensor1.Sensor.Speed);
end;

のようにしている場合、使用している（タブレット）PCに、動きセンサー（加速度センサー）が内蔵されていてそれが有効になっている場合には、各項目に、加速度・角加速度・速度が表示されるのではないかと想像します。
　
センサーが付いていない通常のPCでは、全く何の反応もしません。
　
なお、ASUS VivoTab ME400-WH64DX のようなタブレットPC等では、「簡易版」のセンサーがついていて、加速度は取得出来るけれども、角加速度・速度は取得出来ない、というようなケースもあるようです。
　
　
System.Sensors には、ヘルプによると

TCivicAddress	公的アドレスを保持します。
TCustomBiometricSensor	人とデバイスとの相互作用に関する情報を返します。
TCustomElectricalSensor
TCustomEnvironmentalSensor	気温、気圧、湿度、風向、風速についての情報を提供します。
TCustomLightSensor	照度、光の温度、光の色度に関する情報を提供します。
TCustomLocationSensor	デバイスの位置情報を決定するために使用されます。
TCustomMechanicalSensor	デバイスに関する力学的情報を決定するために使用されます。
TCustomMotionSensor	デバイスの動きの加速度、角度、状態、速度に関する情報を提供します。
TCustomOrientationSensor
TCustomScannerSensor	無線 IC タグ（RFID）とバーコードデータのスキャンに使用されます。
TCustomSensor	システムにインストールされている実際のハードウェアセンサまたは論理（ソフトウェア）センサのカテゴリ、名称、型式、メーカーに関連する情報を提供します。
TGeocoder	ジオコーディングおよび逆ジオコーディングの処理に使用します。
TGeocoderClass
TGpsSatellite
TGpsStatus	GPS サービスについての情報を提供します。
TGpsStatusClass
TLocationCoord2D
TLocationRegion
TSensorFilter
TSensorManager	コンピュータに接続されているセンサを識別し Delphi アプリケーション内で使用できるようにするために使用されます。

のようなクラスがあるとの事です。
　
　

バッチファイル
ＢＡＳＩＣ
C言語のお勉強
拡張子な話
DOSプログラム
Delphi
>Delphi入門編
>Delphi2010
>DelphiXE3
▲2014/01/05
　2014/01/06
▼2014/01/10
　
シェアウェア
Script!World
データベース
　