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

- Logs

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-11 04:34:01 -06:00
parent 59b0831740
commit 5ac97a7827
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Subs.bas
View File

@@ -208,16 +208,14 @@ Sub mandaLoc2(loc As Location, id As String) 'ignore
Private minsTranscurridosLoc As String = ticksAMins(loc.time - traeVar("locAntTime", 0)) 'Minutos transcurridos desde la ultima ubicacion ACTUALIZADA.
Private minsTranscurridos As String = ticksAMins(DateTime.Now - traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada.
Dim el_texto As String = ""
' If Starter.logger Then
LogColor("Guardada: " & minsTranscurridos & " mins., Actualizada: " & minsTranscurridosLoc & " mins.", Colors.green)
If Starter.logger Then LogColor("Guardada: " & minsTranscurridos & " mins., Actualizada: " & minsTranscurridosLoc & " mins.", Colors.green)
If traeVar("solicitudFM", 0) = 1 Or minsTranscurridos >= 3 Or minsTranscurridosLoc >= 3 Then ' Para que no mande mensajes constantes, minimo 1 minuto entre mensajes.
' CallSubDelayed(Tracker,"CreateLocationRequest")
Tracker.flp.RequestLocationUpdates(Tracker.locReqNormal)
'Solo mandamos la ubicacion si la precision es dentro de XX mts
el_texto = $"LocChange - Coords NO enviadas (Acc:${loc.Accuracy})."$
If loc.Accuracy < 50 Then
' If Starter.logger Then
LogColor("Guardamos y enviamos ubicacion.", Colors.green)
If Starter.logger Then LogColor("Guardamos y enviamos ubicacion.", Colors.green)
mandaLocAServer(loc, id)
FirebaseMessaging.locRequest = "Activa"
CallSubDelayed2(FirebaseMessaging, "mandaLocFM", loc)