Sub Process_Globals
Dim EachMinut As Timer
Dim Counter As Int = 0
End Sub
Sub Service_Create
ShowNotification("Service_Create", "FIRST")
EachMinut.Initialize("EachMinut", 60000)
EachMinut.Enabled = True
End Sub
Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground
End Sub
Sub Service_TaskRemoved
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub Service_Destroy
End Sub
Sub EachMinut_Tick
Counter = Counter + 1
ShowNotification("Timer", Counter)
End Sub
Sub ShowNotification (Title As String, Body As String)
Dim Notif As Notification
Notif.Initialize
Notif.Icon = "icon"
Notif.Sound = True
Notif.Vibrate = False
Notif.Light = False
Notif.OnGoingEvent=False
Notif.SetInfo(Title, Body, Main)
Notif.Notify(1)
End Sub