cheveguerra/FLP_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/FLP_2.0.git synced 2026-04-20 12:49:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-23 22:20:44 -06:00
parent e1219c5050
commit 8524dcd75e
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
FLP_2.0.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Tracker,StartFLP,102,0,Main,chkPermisosEstadoTelefono,150,0,FirebaseMessaging,fm_MessageArrived,94,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,Subs,revisaYmandaUUC,254,2,NotificationService,NotiMon_NotificationPosted,83,0,Tracker,flp_LocationChanged,158,6,Subs,borraArribaDeXXXBitacora,226,0,Subs,ConvertMillisecondsToString,210,0 NavigationStack=Main,chkPermisosEstadoTelefono,150,0,FirebaseMessaging,fm_MessageArrived,94,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,Subs,borraArribaDeXXXBitacora,226,0,Starter,Service_Start,54,0,Subs,revisaYmandaUUC,254,2,NotificationService,NotiMon_NotificationPosted,69,0,Tracker,flp_LocationChanged,150,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=7,3,9,4,8,5,6,2 VisibleModules=7,3,9,4,8,5,6,2

4
Tracker.bas
View File

@@ -106,7 +106,7 @@ Public Sub StartFLP
Private cont As Int = 0 Private cont As Int = 0
Do While flp.IsConnected = False Do While flp.IsConnected = False
Sleep(500) Sleep(500)
if starter.logger then Log($"FLP Sleeping - ${cont}"$) If Starter.logger Then Log($"FLP Sleeping - ${cont}"$)
Subs.bitacora($"Sleeping - ${cont}"$) Subs.bitacora($"Sleeping - ${cont}"$)
cont = cont + 1 cont = cont + 1
If cont > 70 Then If cont > 70 Then
@@ -162,7 +162,7 @@ Sub flp_LocationChanged (Location1 As Location)
Starter.UUC = Location1 Starter.UUC = Location1
If Starter.logger Then LogColor("FLP_LocationChanged", Colors.Red) If Starter.logger Then LogColor("FLP_LocationChanged", Colors.Red)
If Starter.logger Then Log(Location1.Accuracy&" - "&Location1.AccuracyValid) If Starter.logger Then Log(Location1.Accuracy&" - "&Location1.AccuracyValid)
If minsTranscurridos > 1 Then If minsTranscurridos > 1 Then ' Para que no mande mensajes constantes, minimo 1 minuto entre mensajes.
flp.RequestLocationUpdates(CreateLocationRequest) flp.RequestLocationUpdates(CreateLocationRequest)
'Solo mandamos la ubicacion si la precision es dentro de XX mts 'Solo mandamos la ubicacion si la precision es dentro de XX mts
el_texto = $"LocChange - Coords NO enviadas (Acc:${Location1.Accuracy})."$ el_texto = $"LocChange - Coords NO enviadas (Acc:${Location1.Accuracy})."$