09/09/23 - Panel de configuración y servicio al arranque

Se agregó´un panel para cambiar algunos parametros de la aplicación y se agregó´un servicio para que el monitor arranque junto con el dispositivo, para esto es necesario darle permisos para accesar las notificaciones del sistema.

B4A/NotificationService.bas

@@ -0,0 +1,53 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Service
+Version=11
+@EndOfDesignText@
+#Region  Service Attributes 
+	#StartAtBoot: False
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim rp As ReplyAuto
+'	Dim activo As Boolean = True
+	Dim ultimaNoti As String
+	Dim logger As Boolean = False
+End Sub
+
+Sub Service_Create
+	rp.Initialize("MonitorKeymon")
+	#if not(DEBUG)
+		logger = False
+	#end if
+	If logger Then Log("**************** Iniciamos Monitor Keymon   ***********************")
+End Sub
+
+Sub Service_Start (StartingIntent As Intent)
+	If rp.HandleIntent(StartingIntent) Then Return
+	DateTime.DateFormat = "mm"
+	ultimaNoti = DateTime.Date(DateTime.now)
+	If logger Then LogColor($"Ultima noti en el minuto ${ultimaNoti}"$, Colors.green)
+End Sub
+
+Sub Service_Destroy
+
+End Sub
+
+Sub MonitorKeymon_NotificationPosted (SBN As StatusBarNotification)
+	If ultimaNoti = "" Then ultimaNoti = 0
+	DateTime.DateFormat = "mm"
+	Private estaNoti As String = DateTime.Date(DateTime.now)
+	If estaNoti > 60 Then estaNoti = estaNoti - 60
+	If logger Then LogColor("Diferencia de tiempo entre notis = " & (estaNoti - ultimaNoti), Colors.blue)
+	If logger Then LogColor($"Esta noti en el minuto ${DateTime.Date(DateTime.now)}, ultima noti = ${ultimaNoti}"$, Colors.green)
+	If logger Then Log(SBN.PackageName)
+	If ultimaNoti < estaNoti Then
+		If logger Then LogColor($"******** TIEMPO   *******"$, Colors.red)
+		ultimaNoti = estaNoti
+		If IsPaused(Monitor) Then StartService(Monitor)
+	End If
+	If logger Then LogColor("Monitor inicializado:" & Monitor.Timer1.IsInitialized, Colors.Magenta)
+End Sub