App Inventor 2 地图与电子围栏教程 - LocationSensor与地图组件

当 Screen1.初始化
  设 Map1.中心点从字符串 = "39.9042,116.4074"  ' 北京天安门
  设 Map1.缩放级别 = 15
  设 Map1.显示用户位置 = true

当 Screen1.初始化
  设 Map1.位置传感器 = LocationSensor1  ' 关联传感器
  设 LocationSensor1.启用 = true
  设 Map1.显示用户位置 = true

当 LocationSensor1.位置改变(纬度, 经度, 海拔, 速度)
  ' 地图自动跟随用户位置
  设 Map1.中心点从字符串 = 纬度 & "," & 经度

当 按钮_添加标记.被点击
  设 标记 = 创建标记(
    纬度 → 39.9042,
    经度 → 116.4074,
    标题 → "天安门",
    描述 → "北京市中心",
    颜色 → 红色
  )
  调用 Map1.添加标记(标记)

设 地点列表 = [
  {name: "天安门", lat: 39.9042, lng: 116.4074},
  {name: "故宫", lat: 39.9163, lng: 116.3972},
  {name: "颐和园", lat: 39.9998, lng: 116.2755},
  {name: "鸟巢", lat: 39.9929, lng: 116.3966}
]

当 Screen1.初始化
  设 i = 1
  当 i ≤ 列表长度(地点列表)
    设 地点 = 列表第i项(地点列表)
    调用 Map1.创建标记(
      从字典 地点 获取 "lat",
      从字典 地点 获取 "lng",
      从字典 地点 获取 "name",
      "",
      红色)
    设 i = i + 1

当 Map1.标记被点击(标记)
  设 标记.显示信息窗口()
  标签_选中.文本 = "选中：" & 标记.标题 & "（" & 标记.纬度 & ", " & 标记.经度 & "）"

当 按钮_画线.被点击
  调用 Map1.添加折线(
    [起点纬度, 终点纬度],  ' 纬度列表
    [起点经度, 终点经度],  ' 经度列表
    红色,                   ' 颜色
    3                       ' 线宽
  )

设 纬度列表 = 创建空列表
设 经度列表 = 创建空列表

当 LocationSensor1.位置改变(纬度, 经度, 海拔, 速度)
  ' 只在移动时记录（速度>0.5m/s）
  如果 速度 > 0.5
    设 纬度列表 = 添加列表项(纬度列表, 纬度)
    设 经度列表 = 添加列表项(经度列表, 经度)
    
    ' 更新路径线
    如果 列表长度(纬度列表) > 1
      调用 Map1.清除折线()
      调用 Map1.添加折线(纬度列表, 经度列表, 蓝色, 4)

定义 计算距离(纬度1, 经度1, 纬度2, 经度2) 返回 距离米
  设 R = 6371000  ' 地球平均半径（米）
  设 dLat = (纬度2 - 纬度1) * 数学.PI / 180
  设 dLon = (经度2 - 经度1) * 数学.PI / 180
  设 a = 数学.正弦(dLat/2) * 数学.正弦(dLat/2) +
         数学.余弦(纬度1 * 数学.PI / 180) * 数学.余弦(纬度2 * 数学.PI / 180) *
         数学.正弦(dLon/2) * 数学.正弦(dLon/2)
  设 c = 2 * 数学.反正切2(数学.平方根(a), 数学.平方根(1-a))
  返回 R * c

设 围栏中心纬度 = 39.9042
设 围栏中心经度 = 116.4074
设 围栏半径 = 500  ' 500米
设 是否在围栏内 = false

当 LocationSensor1.位置改变(纬度, 经度, 海拔, 速度)
  设 距离 = 计算距离(纬度, 经度, 围栏中心纬度, 围栏中心经度)
  
  如果 距离 ≤ 围栏半径
    如果 非 是否在围栏内
      设 是否在围栏内 = true
      调用 通知.显示信息("📍 进入围栏", "你已进入目标区域（距离中心" & 数学.保留小数(距离, 0) & "米）")
  否则
    如果 是否在围栏内
      设 是否在围栏内 = false
      调用 通知.显示信息("🚶 离开围栏", "你已离开目标区域（距离中心" & 数学.保留小数(距离, 0) & "米）")
  
  标签_距离.文本 = "距离围栏中心：" & 数学.保留小数(距离, 0) & "米"

当 Screen1.初始化
  ' 画一个圆形围栏（用多边形近似）
  设 纬度点 = 创建空列表
  设 经度点 = 创建空列表
  设 i = 0
  当 i < 360
    设 角度 = i * 数学.PI / 180
    ' 纬度偏移
    设 dLat = 围栏半径 / 111320  ' 1度纬度约111.32km
    设 dLon = 围栏半径 / (111320 * 数学.余弦(围栏中心纬度 * 数学.PI / 180))
    设 点纬度 = 围栏中心纬度 + dLat * 数学.余弦(角度)
    设 点经度 = 围栏中心经度 + dLon * 数学.正弦(角度)
    设 纬度点 = 添加列表项(纬度点, 点纬度)
    设 经度点 = 添加列表项(经度点, 点经度)
    设 i = i + 10  ' 每10度一个点
  
  调用 Map1.添加多边形(纬度点, 经度点, 绿色, 黄色, 2)

设 安全区域中心纬度 = 39.9042
设 安全区域中心经度 = 116.4074
设 安全半径 = 300  ' 300米
设 家长电话 = "13800138000"
设 是否安全 = true

当 Screen1.初始化
  设 LocationSensor1.启用 = true
  设 Map1.中心点从字符串 = 安全区域中心纬度 & "," & 安全区域中心经度
  设 Map1.缩放级别 = 16
  ' 在地图上画安全区域
  调用 绘制安全区域()
  ' 添加安全区域中心标记
  调用 Map1.创建标记(安全区域中心纬度, 安全区域中心经度, "🏠 家", "安全区域中心", 绿色)

当 LocationSensor1.位置改变(纬度, 经度, 海拔, 速度)
  设 距离 = 计算距离(纬度, 经度, 安全区域中心纬度, 安全区域中心经度)
  标签_状态.文本 = "距离家：" & 数学.保留小数(距离, 0) & "米"
  
  ' 更新儿童位置标记
  设 Map1.中心点从字符串 = 纬度 & "," & 经度
  
  如果 距离 > 安全半径
    如果 是否安全
      设 是否安全 = false
      标签_状态.文本颜色 = 红色
      ' 发送短信通知家长
      调用 短信组件.发送短信(家长电话, "⚠️ 儿童已离开安全区域！当前位置：" & 纬度 & "," & 经度)
  否则
    如果 非 是否安全
      设 是否安全 = true
      标签_状态.文本颜色 = 绿色
      调用 短信组件.发送短信(家长电话, "✅ 儿童已回到安全区域")