cheveguerra/AREstrategicas
1
0
Fork 0
mirror of https://github.com/KeymonSoft/AREstrategicas.git synced 2026-04-21 21:29:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Modificacion del GPS 4.10.10

Browse Source
This commit is contained in:
cvaldes1201
2024-10-14 12:32:21 -06:00
parent 208a7c4b98
commit 618966b8b5
6 changed files with 46 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/Tracker.bas
View File

@@ -124,9 +124,9 @@ Private Sub CreateLocationRequest As LocationRequest
If logger Then Log("CreateLocationRequest")
Dim lr As LocationRequest
lr.Initialize
lr.SetInterval(10000) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetInterval(1) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
lr.SetSmallestDisplacement(75) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetSmallestDisplacement(0) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr
Return lr
@@ -188,6 +188,9 @@ Sub flp_LocationChanged (Location1 As Location)
' End Try
' End If
If B4XPages.MainPage.datos.IsInitialized Then
CallSub2(B4XPages.GetPage("datos"), "GPS_LocationChanged", Location1)
End If
End Sub