Android Question Run GPS Tracker Service in Sleep Mode

Sub Service_Start (StartingIntent As Intent)
    Service.StartForeground(nid, CreateNotification("..."))
    StartServiceAt(Me, DateTime.Now + 30 * DateTime.TicksPerMinute, True)
    Track
End Sub

#Region  Project Attributes
    #ApplicationLabel: gps test1
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
#BridgeLogger:True

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If Not(Tracker.rp.Check(Tracker.rp.PERMISSION_ACCESS_FINE_LOCATION)) Then
        Tracker.rp.CheckAndRequest(Tracker.rp.PERMISSION_ACCESS_FINE_LOCATION)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    End If
    Activity.LoadLayout("Layout")
    StartService(Tracker)
End Sub

Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello world!", "B4X")
End Sub

Sub Update_location(loc As Location)
    ToastMessageShow(loc.Latitude & "/" & loc.Longitude,True)
End Sub

#Region  Service Attributes
    #StartAtBoot: True
#End Region
#StartCommandReturnValue: android.app.Service.START_STICKY

Sub Process_Globals
    Private nid As Int = 1
    Private GPS As GPS
    Private Tracking As Boolean
    Private LastUpdateTime As Long
    Private lock As PhoneWakeState
    Dim gpslong, gpslat As Double
    Dim tmrTracker As Timer
    Dim counter As Int
    Dim rp As RuntimePermissions
    Dim LastLocation As Location
    
End Sub

Sub Service_Create
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER 'we are handling it ourselves
    GPS.Initialize("gps")
    lock.PartialLock
    Try
        tmrTracker.Initialize("Timer1",1000)
        
    Catch
        Log(LastException)
    End Try
    tmrTracker.Enabled=True
    
End Sub

Sub Service_Start (StartingIntent As Intent)
    Service.StartForeground(nid, CreateNotification("..."))
    StartServiceAt(Me, DateTime.Now + 30 * DateTime.TicksPerMinute, True)
    Log("Tracker Service start")
    Track
End Sub

Public Sub Track
    If Tracking Then Return
    If rp.Check(rp.PERMISSION_ACCESS_FINE_LOCATION) = False Then
        Log("No permission")
        Return
    End If
    GPS.Start(22, 88)
    'LastUpdateTime = DateTime.Now
    Tracking = True
End Sub

Sub GPS_LocationChanged (Location1 As Location)
    Dim strLoc As String
    If DateTime.Now > LastUpdateTime + 10 * DateTime.TicksPerSecond Then
    ToastMessageShow(Location1.Latitude & "/" & Location1.Longitude,True)
    LastLocation=Location1
    'GPS.Start(LastLocation.Latitude,LastLocation.Longitude)
    LastUpdateTime = DateTime.Now
    
    Else
    ToastMessageShow("else 1",True)
            
    End If
End Sub

Sub CreateNotification (Body As String) As Notification
    Dim notification As Notification
    notification.Initialize2(notification.IMPORTANCE_LOW)
    notification.Icon = "icon"
    notification.SetInfo("Tracking location", Body, Main)
    Return notification
End Sub

Sub Service_Destroy
    ToastMessageShow("Service Destroy",True)
    If Tracking Then
        GPS.Stop
    End If
    Tracking = False
    lock.ReleasePartialLock
End Sub
private Sub RunCounter
    
    Try
        Dim IsP_Main As Boolean
        IsP_Main=IsPaused(Main)
        If IsP_Main  Then
            counter = counter + 1
            If counter = 6 Then
                counter=0
                'GPS.Start(LastLocation.Latitude,LastLocation.Longitude)
            End If
        Else
            counter = 0
        End If
    
    Catch
        Log("RunCounter " & LastException)
    End Try
    
End Sub

Sub timer1_tick
    
    Try
        RunCounter
        'Log("Counter=" & counter & " " & DateUtils.TicksToString(DateTime.Now))
    Catch
        Log("timer1_tick " & LastException)
    End Try
    
    
End Sub

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.

End Sub

Sub Service_Start (StartingIntent As Intent)
    Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.DarkTheme)
'End of default text.

SetServiceAttribute(Tracker, android:foregroundServiceType, "location")