Android实例-MotionSensor加速度(XE8+小米2)
结果:
1.
实例代码:
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.
转载于:https://www.cnblogs.com/FKdelphi/p/4789772.html
Android实例-MotionSensor加速度(XE8+小米2)相关推荐
- Android实例-手机震动(XE8+小米2)
相关资料:http://blog.csdn.net/laorenshen/article/details/41148843 结果: 1.打开Vibrate权限为True. 2.规律震动我没感觉出来,有 ...
- Android实例-解决虚拟键盘遮挡问题(XE8+小米2)
Android实例-解决虚拟键盘遮挡问题(XE8+小米2) 参考文章: (1)Android实例-解决虚拟键盘遮挡问题(XE8+小米2) (2)https://www.cnblogs.com/FKde ...
- delphi android 蓝牙,Android实例-Delphi开发蓝牙官方实例解析(XE10+小米2+小米5)
[实例简介] 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签"朱建强" 7.请下载,杀毒 ...
- Android实例]------获取sd卡图片显示出来
[Android实例] 获取sd卡图片显示出来 ON 六 02 2012 IN ANDROID代码仓库, ANDROID项目代码 BY ANDROID智能手机 | 评论 package com.fil ...
- Android实例剖析笔记(四)
摘要:分析NoteEditor这个类和以及Content Provider机制 NoteEditor深入分析 首先来弄清楚"日志编辑"的状态转换,通过上篇文章的方法来做下面这样一个 ...
- 《Android群英传》读书笔记 (5) 第十一章 搭建云端服务器 + 第十二章 Android 5.X新特性详解 + 第十三章 Android实例提高...
第十一章 搭建云端服务器 该章主要介绍了移动后端服务的概念以及Bmob的使用,比较简单,所以略过不总结. 第十三章 Android实例提高 该章主要介绍了拼图游戏和2048的小项目实例,主要是代码,所 ...
- Android开发实战二之Hello Android实例
编写第一个Android程序 Hello Android实例 1.创建Android虚拟设备(AVD) 在开始之前先创建一个Android虚拟设备. Window->Android SDK an ...
- 《精通Android 实例开发》——第1章,第1.15节向Eclipse中导入Android程
本节书摘来自异步社区<精通Android 实例开发>一书中的第1章,第1.15节向Eclipse中导入Android程,作者 陈强,更多章节内容可以访问云栖社区"异步社区&quo ...
- [Android实例] 有关spinner 的item问题 谁能给解答下??
[Android实例] 有关spinner 的item问题 (更多Android问题解决,Android开发讨论 请访问:http://www.eoeandroid.com/forum.php) 转载 ...
最新文章
- AjaxJson笔记(1)
- gpio 树莓派3a+_树莓派4上市:性能飙升起售价依然是35美元
- 百度前端学院-基础学院-第四课
- golang学习之旅(1)
- HTML列表标记符有哪些,在HTML中,表格标记符为( )
- 在 Centos 7 ssh登录出现locale异常
- Codeforces Round #459 (Div. 2)题解
- webpack 修改title_Webpack漫谈
- 通过手机号码编码传送信息的想法
- 2018/03/01
- html 文字 向上滚动代码,文字向上滚动代码
- PFC离散元软件快捷操作方式
- python怎么变成动图_python 生成动图
- 免费服务器领取步骤(详细)
- 你的个人所得税完税证明看准了吗?
- OSPF状态切换以及包内容的交互,以及如何根据LSDB还原单区域拓扑
- 给定连接查询ems配送信息
- Android/Java中okhttp用法介绍
- 结构体+联合体 详解
- Netty介绍与实战(三)之粘包拆包
热门文章
- Facebook如何向十亿人推荐东西
- jQuery左右选择框
- 大规模分布式存储系统(文摘)
- CentOS Git服务安装
- JDFlipNumberView
- .Net Framework 4.0 中利用Task实现并行处理、串并行混合处理
- 老鼠之Atlas之旅(一):Atlas官方站点
- 【跃迁之路】【636天】程序员高效学习方法论探索系列(实验阶段393-2018.11.09)...
- 开发工具 | git、github使用场景总结
- Windows 曝漏洞 —— 影响所有版本