level 2
南宫瑶芸
楼主
E4A GPS传感器 获取到的经纬度 误差太大 求解决方法
第一个案例 如下：
变量 启动时间 为 长整数型
变量 维度 为 文本型
变量 经度 为 文本型
变量 位置 为 字节型()
变量 信息 为 文本型
变量 信息2 为 字节型()
变量 信息3 为 文本型
事件 主窗口.创建完毕()
主窗口.添加菜单("关于",-1)
主窗口.添加菜单("退出",-1)
变量 结果 为 文本型
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否已开启() 则
弹出提示("已开启")
否则
位置传感器1.打开设置界面()
结束 如果
位置传感器1.开始监测()
维度 = 到文本( 位置传感器1.取纬度())
经度 = 到文本( 位置传感器1.取经度())
编辑框1.内容 = "维度:" & 维度 & ";" & "经度:" & 经度 & "\n"
结束 事件
事件 客户1.创建完毕()
客户1.连接服务器("192.168.0.19",19730,2000)
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果 = 假 则
弹出提示("连接失败,请重试！")
结束 如果
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据(位置)
结束 事件
事件 时钟1.创建完毕()
时钟1.时钟周期 = 10000
结束 事件
事件 时钟1.周期事件()
位置传感器1.开始监测()
维度 = 到文本( 位置传感器1.取纬度())
经度 = 到文本( 位置传感器1.取经度())
编辑框1.内容 = "维度:" & 维度 & ";" & "经度:" & 经度 & "\n"
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据( 位置 )
结束 事件
事件 客户1.收到数据(数据 为 字节型())
信息 = 字节到文本(数据,"GBK")
编辑框2.内容 = 信息
结束 事件
事件 按钮1.被单击()
信息2 = 文本到字节(编辑框3.内容,"GBK" )
客户1.发送数据(信息2)
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间() - 启动时间 >2000 则
弹出提示("再按一次退出程序")
启动时间 = 取启动时间()
否则
结束程序()
结束 如果
结束 如果
结束 事件
案例2如下：
变量 启动时间 为 长整数型
变量 纬度 为 双精度小数型
变量 经度 为 双精度小数型
变量 位置 为 字节型()
变量 信息 为 文本型
变量 信息2 为 字节型()
变量 信息3 为 文本型
事件 主窗口.创建完毕()
主窗口.添加菜单("关于",-1)
主窗口.添加菜单("退出",-1)
变量 结果 为 文本型
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否已开启() 则
弹出提示("已开启")
否则
位置传感器1.打开设置界面()
结束 如果
位置传感器1.开始监测()
纬度 = 位置传感器1.取纬度()
经度 = 位置传感器1.取经度()
编辑框1.内容 = "经度:" & 经度 & ";" & "纬度:" & 纬度 & "\n"
结束 事件
事件 客户1.创建完毕()
客户1.连接服务器("192.168.0.19",19730,2000)
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果 = 假 则
弹出提示("连接失败,请重试！")
结束 如果
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据(位置)
结束 事件
事件 时钟1.创建完毕()
时钟1.时钟周期 = 10000
结束 事件
事件 时钟1.周期事件()
位置传感器1.开始监测()
纬度 = 位置传感器1.取纬度()
经度 = 位置传感器1.取经度()
编辑框1.内容 = "经度:" & 经度 & ";" & "纬度:" & 纬度 & "\n"
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据( 位置 )
结束 事件
事件 客户1.收到数据(数据 为 字节型())
信息 = 字节到文本(数据,"GBK")
编辑框2.内容 = 信息
结束 事件
事件 按钮1.被单击()
信息2 = 文本到字节(编辑框3.内容,"GBK" )
客户1.发送数据(信息2)
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间() - 启动时间 >2000 则
弹出提示("再按一次退出程序")
启动时间 = 取启动时间()
否则
结束程序()
结束 如果
结束 如果
结束 事件
求解决方法！！！！！
2017年12月09日 02点12分
1
第一个案例 如下：
变量 启动时间 为 长整数型
变量 维度 为 文本型
变量 经度 为 文本型
变量 位置 为 字节型()
变量 信息 为 文本型
变量 信息2 为 字节型()
变量 信息3 为 文本型
事件 主窗口.创建完毕()
主窗口.添加菜单("关于",-1)
主窗口.添加菜单("退出",-1)
变量 结果 为 文本型
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否已开启() 则
弹出提示("已开启")
否则
位置传感器1.打开设置界面()
结束 如果
位置传感器1.开始监测()
维度 = 到文本( 位置传感器1.取纬度())
经度 = 到文本( 位置传感器1.取经度())
编辑框1.内容 = "维度:" & 维度 & ";" & "经度:" & 经度 & "\n"
结束 事件
事件 客户1.创建完毕()
客户1.连接服务器("192.168.0.19",19730,2000)
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果 = 假 则
弹出提示("连接失败,请重试！")
结束 如果
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据(位置)
结束 事件
事件 时钟1.创建完毕()
时钟1.时钟周期 = 10000
结束 事件
事件 时钟1.周期事件()
位置传感器1.开始监测()
维度 = 到文本( 位置传感器1.取纬度())
经度 = 到文本( 位置传感器1.取经度())
编辑框1.内容 = "维度:" & 维度 & ";" & "经度:" & 经度 & "\n"
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据( 位置 )
结束 事件
事件 客户1.收到数据(数据 为 字节型())
信息 = 字节到文本(数据,"GBK")
编辑框2.内容 = 信息
结束 事件
事件 按钮1.被单击()
信息2 = 文本到字节(编辑框3.内容,"GBK" )
客户1.发送数据(信息2)
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间() - 启动时间 >2000 则
弹出提示("再按一次退出程序")
启动时间 = 取启动时间()
否则
结束程序()
结束 如果
结束 如果
结束 事件
案例2如下：
变量 启动时间 为 长整数型
变量 纬度 为 双精度小数型
变量 经度 为 双精度小数型
变量 位置 为 字节型()
变量 信息 为 文本型
变量 信息2 为 字节型()
变量 信息3 为 文本型
事件 主窗口.创建完毕()
主窗口.添加菜单("关于",-1)
主窗口.添加菜单("退出",-1)
变量 结果 为 文本型
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否有效() 则
结果 = 真
否则
结果 = 假
结束 如果
如果 位置传感器1.设备是否已开启() 则
弹出提示("已开启")
否则
位置传感器1.打开设置界面()
结束 如果
位置传感器1.开始监测()
纬度 = 位置传感器1.取纬度()
经度 = 位置传感器1.取经度()
编辑框1.内容 = "经度:" & 经度 & ";" & "纬度:" & 纬度 & "\n"
结束 事件
事件 客户1.创建完毕()
客户1.连接服务器("192.168.0.19",19730,2000)
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果 = 假 则
弹出提示("连接失败,请重试！")
结束 如果
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据(位置)
结束 事件
事件 时钟1.创建完毕()
时钟1.时钟周期 = 10000
结束 事件
事件 时钟1.周期事件()
位置传感器1.开始监测()
纬度 = 位置传感器1.取纬度()
经度 = 位置传感器1.取经度()
编辑框1.内容 = "经度:" & 经度 & ";" & "纬度:" & 纬度 & "\n"
位置 = 文本到字节(编辑框1.内容,"GBK")
客户1.发送数据( 位置 )
结束 事件
事件 客户1.收到数据(数据 为 字节型())
信息 = 字节到文本(数据,"GBK")
编辑框2.内容 = 信息
结束 事件
事件 按钮1.被单击()
信息2 = 文本到字节(编辑框3.内容,"GBK" )
客户1.发送数据(信息2)
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间() - 启动时间 >2000 则
弹出提示("再按一次退出程序")
启动时间 = 取启动时间()
否则
结束程序()
结束 如果
结束 如果
结束 事件
求解决方法！！！！！
