最单调的 GPS海拔 监测

ynzsc001

最单调的  GPS海拔  监测，发出来是为了赚积分问问题的。前辈些别骂我哈！
        '注意：位置传感器组件对手机的GPS硬件要求较高，如果手机GPS硬件无法正常定位，则本组件无法获得任何定位信息
       
       
       
事件 按钮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.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
       
结束 事件

ynzsc001

有知道的前辈指导哈，我这个GPS数据海拔要怎么才能显示到悬浮窗中？

maker416

666666666666666666

congna

易如意中文编程学习交流论坛有你更精彩~