B4A=true Group=Default Group ModulesStructureVersion=1 Type=Service Version=9.9 @EndOfDesignText@ #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. Public rp As RuntimePermissions Public GPS1 As GPS Private gpsStarted As Boolean Public ValidGPS As Boolean Public Location2 As Location 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. GPS1.Initialize("GPS") Location2.Initialize End Sub Public Sub StartGps If gpsStarted = False Then GPS1.Start(0, 0) gpsStarted = True End If End Sub Public Sub StopGps If gpsStarted Then GPS1.Stop gpsStarted = False End If End Sub Sub GPS_LocationChanged (Location1 As Location) CallSub2(Main, "LocationChanged", Location1) Location2 = Location1 ValidGPS = True 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