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

- Algunos logs deshabilitados en release mode.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-17 13:15:25 -06:00
parent ea3e8fefe8
commit ce2628e313
4 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
FLP_2.0.b4a
View File

@@ -187,7 +187,7 @@ End Sub
Sub chkPermisosEstadoTelefono Sub chkPermisosEstadoTelefono
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
wait for Activity_PermissionResult(permission As String, result As Boolean) wait for Activity_PermissionResult(permission As String, result As Boolean)
Log("READ_PHONE_STATE: " & result) if starter.logger then Log("READ_PHONE_STATE: " & result)
End Sub End Sub
Sub getSSID Sub getSSID

2
FLP_2.0.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Subs,traeUltimaUbicacionGuardada,245,0,Starter,Service_Start,54,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,NotificationService,NotiMon_NotificationPosted,85,0,FirebaseMessaging,fm_MessageArrived,94,0,Tracker,CreateLocationRequest,116,0,Tracker,CreateLocationRequest2,128,0,Tracker,flp_LocationChanged,158,6 NavigationStack=Tracker,CreateLocationRequest2,128,0,Starter,Process_Globals,19,0,Main,chkPermisosLeerLlamadas,145,0,Starter,Service_Start,52,0,Subs,revisaYmandaUUC,259,2,Tracker,flp_ConnectionSuccess,77,0,Tracker,StartFLP,102,0,NotificationService,NotiMon_NotificationPosted,68,0,Tracker,flp_LocationChanged,147,6,Main,chkPermisosEstadoTelefono,150,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=7,3,9,4,8,5,6,2 VisibleModules=7,3,9,4,8,5,6,2

2
Subs.bas
View File

@@ -263,7 +263,7 @@ Sub revisaYmandaUUC
If ultimaLoc.IsInitialized Then If ultimaLoc.IsInitialized Then
Starter.UUC = ultimaLoc Starter.UUC = ultimaLoc
Private minsTranscurridos As String = ticksAMins(DateTime.Now - ultimaLoc.Time) 'Minutos transcurridos desde la ultima ubicacion guardada. Private minsTranscurridos As String = ticksAMins(DateTime.Now - ultimaLoc.Time) 'Minutos transcurridos desde la ultima ubicacion guardada.
Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$) if starter.logger then Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$)
If minsTranscurridos > 10 And minsTranscurridos < 20 Then If minsTranscurridos > 10 And minsTranscurridos < 20 Then
bitacora("Mas de 10 mins - REQ-UPDATE") bitacora("Mas de 10 mins - REQ-UPDATE")
LogColor($"Ubicacion vieja (mas de 10 mins.)"$, Colors.Red) LogColor($"Ubicacion vieja (mas de 10 mins.)"$, Colors.Red)

8
Tracker.bas
View File

@@ -81,7 +81,7 @@ Sub flpReConnect
End Sub End Sub
Sub flp_ConnectionSuccess Sub flp_ConnectionSuccess
Log("FLP - Connected to location provider") If Starter.logger Then Log("FLP - Connected to location provider")
Subs.bitacora("FLP - Connection Success") Subs.bitacora("FLP - Connection Success")
End Sub End Sub
@@ -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)
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
@@ -151,9 +151,9 @@ Public Sub StopFLP
End Sub End Sub
Sub flp_LocationChanged (Location1 As Location) Sub flp_LocationChanged (Location1 As Location)
LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue) if starter.logger then LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue)
Private minsTranscurridos As String = Subs.ticksAMins(DateTime.Now - Subs.traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada. Private minsTranscurridos As String = Subs.ticksAMins(DateTime.Now - Subs.traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada.
LogColor(">>>>>>>>>>>>>>>>>>>>>>> " & minsTranscurridos, Colors.red) If Starter.logger Then LogColor(">>>>>>>>>>>>>>>>>>>>>>> " & minsTranscurridos, Colors.red)
If Not(IsPaused(Main)) Then If Not(IsPaused(Main)) Then
Main.laUbicacion = Location1 Main.laUbicacion = Location1
If Starter.logger Then Log("Main.laubicacion actializada") If Starter.logger Then Log("Main.laubicacion actializada")