自带GPS库例子及移值方法

IPSC1978.GICP.NET

自带GPS库例子及移值方法 - 文章首页→返回版区

■标题:自带GPS库例子及移值方法

■作者:IPSC [2026/2/11 10:38:32]
通过网盘分享的文件：GPS库获取坐标例子MyLocation.zip

链接: https://pan.baidu.com/s/1aSdtrYygnzgAV50oLHrlcw?pwd=0759 提取码: 0759

库自带，这是例子，获取的例子在日志里，用B4A以DEBUG模式生成APK并连接手机调试可见坐标出现

如何移植到自己APP

把两个库文件解压到库文件文件夹，在打开的B4A库列表右键刷新，把GPS库打上勾

在要使用的页面文件里
[vb]
Sub Class_Globals'这个模块加下面这行
Private GPS As GPS[/vb]

[vb]
Public Sub Initialize As Object'这个模块加下面这行
GPS.Initialize("gps")

[/vb]

然后在要定位的按钮模块里加上 GPS.START

坐标在以下模块里不断被获取:

[vb]

'这是获取坐标的，不断运行停止可以用 GPS.STOP

Sub GPS_LocationChanged(Location1 As Location)

Log("GPS_LocationChanged→newgps<>空 newgps:" & newgps)

'If DateTime.Now > LastUpdateTime + 8 * DateTime.TicksPerSecond Then
Log("GPS_LocationChanged→开始获取坐标...")

Dim body As String = $"$2.5{Location1.Longitude},$2.5{Location1.Latitude}"$

Log("获取坐标:" & body)

'
要转换为中国测绘局标准GCJ-02坐标经度+0.004391 纬度-0.002471

Dim gcj02 As String

gcj02="g" & (GeoLoc.Longitude+0.004391) & "," & (GeoLoc.Lattitude-0.002471)

End Sub

[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
54 毫秒 .