Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public PhoneWake As PhoneWakeState
Private CalCheckmSecsInterval As Long
Private CalCheckMinsInterval As Long : CalCheckMinsInterval = 5 ' This is the interval between each running of the CalCheck service
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.
' Convert the interval to millisecs
CalCheckmSecsInterval = CalCheckMinsInterval*60*1000
' Make sure the device doesn't sleep
PhoneWake.PartialLock
End Sub
Sub Service_Start (StartingIntent As Intent)
CalCheck_Timer
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
Sub CalCheck_Timer
CallSubDelayed(MTO_Run, "Run_CalCheck")
Sleep(CalCheckmSecsInterval)
' Reiterate
CalCheck_Timer
End Sub