用户组 
易积分28
热心0
好评0
|
由于是初学者,试着改软件例程 实现 悬浮窗 显示GPS实时海拔数据,课怎么弄也弄不出来。希望有董的前辈指导哈。(目前的积分不够最低标准20分)
事件 按钮1.被单击()
如果 位置传感器1.设备是否有效() = 真 则
如果 位置传感器1.设备是否已开启() = 假 则
信息框("提示","请先开启GPS!","确定")
位置传感器1.打开设置界面()
否则
位置传感器1.开始监测()
结束 如果
否则
信息框("错误","GPS设备无效!","确定")
结束 如果
结束 事件
事件 位置传感器1.位置改变(纬度 为 双精度小数型,经度 为 双精度小数型,海拔 为 双精度小数型,速度 为 双精度小数型,方向 为 双精度小数型)
标签1.标题 = "海拔:" & 海拔\1 & "m"
标签2.标题 = "精度:" & 位置传感器1.取精度()\1 & "m"
结束 事件
事件 主窗口.创建完毕()
如果 权限操作1.取系统版本号()>=23 则
如果 权限操作1.检查创建悬浮按钮权限() = 假 则
权限操作1.申请创建悬浮按钮权限()
结束 如果
结束 如果
结束 事件
事件 权限操作1.申请创建悬浮按钮权限完毕(申请结果 为 逻辑型)
如果 申请结果 = 真 则
弹出提示("申请悬浮窗权限成功")
否则
弹出提示("申请悬浮窗权限失败")
结束 如果
结束 事件
事件 按钮2.被单击()
如果 权限操作1.取系统版本号()>=23 则
如果 权限操作1.检查创建悬浮按钮权限() = 真 则
创建悬浮按钮(" 海拔:",红色,15,无色,"icon.png",600,200,取绝对像素(100),取绝对像素(50))
否则
弹出提示("没有悬浮窗权限,请到系统设置里开启悬浮窗权限")
结束 如果
否则
创建悬浮按钮("海拔",红色,9,无色,"icon.png",0,0,500,500)
结束 如果
结束 事件
事件 权限操作1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
结束 事件
|
|