TclMotionSensor

function AddNewSensorsMotion(AComponent: TCLComponent; xName: string): TclMotionSensor;

AComponent : Specifies the parent of the object to be defined.

xName : The name of the defined motion sensor should be written.

TclMotionSensor; It is a component available in the Clomosy platform that allows you to read the values of the device's motion sensor.
The motion sensor detects the device's position and velocity. With this component, you can track the physical movements of the device.

It is used on mobile devices.

Feature	Use of	Definition
TClMotionSensor	DeviceMotionSensor1:TClMotionSensor;	A variable belonging to the TClMotionSensor class is created.
AddNewSensorsMotion	DeviceMotionSensor1= Form1.AddNewSensorsMotion(Form1,'DeviceMotionSensor1');	A new Sensor Motion is added to the form.
Active	DeviceMotionSensor1.Active = True;	Allows activation of the device's motion sensor.
GetDirectionX	DeviceMotionSensor1.GetDirectionX	It is the value returned when the device detects motion in the x-axis. The return value is as follows: if a movement to the right is detected, it returns 2; if a movement to the left is detected, it returns 1; and if no movement is detected, it returns 0.
GetDirectionY	DeviceMotionSensor1.GetDirectionY	This is the value returned when the device detects movement on the y-axis. The return value is: 2 if a downward motion is detected; returns 1 if an upward movement is detected; and returns 0 if no motion is detected.
SensorAccelerationX	DeviceMotionSensor1.SensorAccelerationX	This property is used to read the acceleration of the device along the x-axis. Acceleration along the x-axis indicates the device's speed-up or slow-down in a specific direction.
SensorAccelerationY	DeviceMotionSensor1.SensorAccelerationY	This property is used to read the acceleration of the device along the y-axis. Acceleration along the y-axis indicates the device's speed-up or slow-down in a specific direction.

Example

Var
MyForm:TclForm;
DeviceMotionSensor:TClMotionSensor;
GameTimer:TClTimer;
MotionImg : TCLImage;

void GameLoop;
Const 
  BallSpeed = 5;
{
  If (Clomosy.PlatformIsMobile)
  {
    Case DeviceMotionSensor.GetDirectionX of 
    {
      1:MotionImg.Position.X = MotionImg.Position.X - BallSpeed;//Move left
      2:MotionImg.Position.X = MotionImg.Position.X + BallSpeed;//Move right
    }
    Case DeviceMotionSensor.GetDirectionY of 
    {
      1:MotionImg.Position.Y = MotionImg.Position.Y - BallSpeed;//Move up
      2:MotionImg.Position.Y = MotionImg.Position.Y + BallSpeed;//Move down
    }
  }
}

{
MyForm = TclForm.Create(Self);
MyForm.SetFormBGImage('https://clomosy.com/demos/bg4.jpg');

MotionImg= MyForm.AddNewImage(MyForm,'MotionImg');
MotionImg.Align = alCenter;
MotionImg.Align = alNone;
MotionImg.Height = 200;
MotionImg.Width = 200;
MyForm.setImage(MotionImg,'https://clomosy.com/demos/balloon2.png');

DeviceMotionSensor = MyForm.AddNewSensorsMotion(MyForm,'DeviceMotionSensor');
DeviceMotionSensor.Active = True;

GameTimer= MyForm.AddNewTimer(MyForm,'GameTimer',1000);
GameTimer.Interval = 30;
GameTimer.Enabled = True;
MyForm.AddNewEvent(GameTimer,tbeOnTimer,'GameLoop');

MyForm.Run;
}

Output:

See Also

• Sensor Structures
• Components
• Object Properties
• AddNewEvent