Android Question Scheduled Events

Declan · Sep 22, 2016

Reading this topic about Calculating the next scheduled time:

https://www.b4x.com/android/forum/threads/b4x-calculating-the-next-scheduled-time.65041/

How can I incorporate this into a Service where I can use CallSubDelayed to trigger an event in Activity Main when one of the three times are met?
The code from above link:

B4X:

Dim t As Long = FindNextTime(Array As Double(5, 6.5, 20))
Log($"Next time is: $DateTime{t}"$)

Sub FindNextTime(Times As List) As Long
   Times.Sort(True)
   For Each st As Double In Times
     If SetHours(st) > DateTime.Now Then
       Return SetHours(st)
     End If
   Next
   Return DateTime.Add(SetHours(Times.Get(0)), 0, 0, 1)
End Sub

Sub SetHours(st As Double) As Long
   Dim hours As Int = Floor(st)
   Dim minutes As Int = 60 * (st - hours)
   Return DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), _
       DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), hours, minutes, 0)
End Sub

Erel · Sep 22, 2016

Please don't make duplicate posts.

You should call StartActivity from Service_Start of the relevant service. CallSubDelayed will not start the activity if the app is in the background.

Declan · Sep 22, 2016

I have two Services - Service "Starter" and Service "Schedule"
From "Starter" I am starting the "Schedule" Service:

B4X:

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

Sub Process_Globals

End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    StartService("Schedule")
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

In Service "Schedule" I have:

B4X:

#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.

End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    Dim t As Long = FindNextTime(Array As Double(10.75,11, 12))
    Log($"Next time is: $Time{t}"$)  
    Dim now = DateTime.Time(DateTime.Now) As String
  
    If now = $"$Time{t}"$ Then
        Log ("Gotcha The current time is: " & now)
        Log($"Gotcha Next time is: $Time{t}"$)
    '        CallSubDelayed(Main, "ActionPop")
    Else
        Log("Not Time The Time now is: " & now)
        Log($"Not Time Next Time is: $Time{t}"$)
    '     Do Nothing
    End If
End Sub

Sub FindNextTime(Times As List) As Long
   Times.Sort(True)
   For Each st As Double In Times
     If SetHours(st) > DateTime.Now Then
       Return SetHours(st)
       Log("This is SetHours: " & SetHours(st))
     End If
   Next
   Return DateTime.Add(SetHours(Times.Get(0)), 0, 0, 1)
End Sub

Sub SetHours(st As Double) As Long
   Dim hours As Int = Floor(st)
   Dim minutes As Int = 60 * (st - hours)
   Return DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), _
       DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), hours, minutes, 0)
End Sub

Sub Service_Destroy

End Sub

The "Schedule" Service does start, but I do not get a "trigger" on the next time?
Log:

B4X:

** Service (starter) Create **~i:** Service (starter) Start **
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (schedule) Create **
** Service (schedule) Start **
Next time is: 10:45:00
Not Time The Time now is: 10:41:08
Not Time Next Time is: 10:45:00

Erel · Sep 22, 2016

1. Where is the call to StartServiceAt?
2. Don't assume that the event will be raised at the exact second.

B4X:

If Abs(DateTime.Now - t) < 30 * DateTime.TicksPerSecond Then

Declan · Sep 22, 2016

Where is the call to StartServiceAt?

In my app (Service "Starter") I have:

B4X:

Sub PE_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, BatteryIntent As Intent)
    CallSub3(Menu, "BatteryChange",Level,Plugged)
    StartService("Schedule")
End Sub

I am using this to StartService
This does work, but will it cause any other problems?

IfAbs(DateTime.Now - t) < 30 * DateTime.TicksPerSecond Then

This works, thanks

Erel · Sep 22, 2016

I don't see how this code is related. If you want to start your app at a specific time then you should use StartServiceAt.

Declan · Sep 22, 2016

Where would I place the StartServiceAt?
I have read loads about it, but confused.

Erel · Sep 22, 2016

Create another service that starts at boot and call Service.StartServiceAt to schedule the other service to start at the specified time.

Remove any other calls to the "schedule" service.

Declan · Sep 22, 2016

I don't see how this code is related

The code that I posted in #3 is from a small app to test the scheduling.
The code in #5 is from my actual app that I wish to include the scheduling function.
As I am using the PhoneEvents in this app and the BatteryChanged function to monitors the battery state etc.
As BatteryChanged "fires" every 10sec, I thought I would use this to StartService("Schedule").
So, this would use StartService("Schedule") and not StartServiceAt.
I don't know if I am going about this correctly?

Erel · Sep 22, 2016

Declan said:
I don't know if I am going about this correctly?

You are not. PhoneEvents creates dynamic receivers. The events will only be raised while your app is running.

More information about receivers / intent filters: Intent Filters - Intercepting SMS messages in the background

Declan · Sep 22, 2016

StartServiceAtto schedule the other service to start at the specified time.

I do not understand where I get the time from for StartServiceAt(Schedule,time,True)

DonManfred · Sep 22, 2016

You need to calculate the time by yourself. You can use the sub you already posted above (FindNextTime).

Declan · Sep 22, 2016

I now have the following.
Service "Starter":

B4X:

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

Sub Process_Globals
Dim t As Long
End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    t = FindNextTime(Array As Double(16.7,16.8, 16.9))
    Log($"Next time is: $Time{t}"$)   
   
    StartServiceAt(Schedule,t,True)

End Sub
Sub FindNextTime(Times As List) As Long
   Times.Sort(True)
   For Each st As Double In Times
     If SetHours(st) > DateTime.Now Then
       Return SetHours(st)
       Log("This is SetHours: " & SetHours(st))
     End If
   Next
   Return DateTime.Add(SetHours(Times.Get(0)), 0, 0, 1)
End Sub

Sub SetHours(st As Double) As Long
   Dim hours As Int = Floor(st)
   Dim minutes As Int = 60 * (st - hours)
   Return DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), _
       DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), hours, minutes, 0)
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

Service "Schedule":

B4X:

#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.

End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
   
    If Abs(DateTime.Now - Starter.t) < 30 * DateTime.TicksPerSecond Then
        LogColor("Gotcha",Colors.Magenta)
    '        CallSubDelayed(Main, "ActionPop")
    Else
        LogColor("NOT Time",Colors.Magenta)
    '     Do Nothing
    End If
End Sub


Sub Service_Destroy

End Sub

I only receive the first time of t = FindNextTime(Array As Double(16.7,16.8, 16.9))

Log:

B4X:

** Service (starter) Create **
** Service (starter) Start **
Next time is: 16:41:00
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **~i:** Service (schedule) Create **
** Service (schedule) Start **
Gotcha

The Service "Schedule" never starts on the additional times.
What am I doing wrong?

DonManfred · Sep 22, 2016

Declan said:
I only receive the first time of t = FindNextTime(Array As Double(16.7,16.8, 16.9))

That´s how the sub works... it calculates the NEXT time... Set a servicestartat to this time....

When the service starts at the given time you calculate the next... It should then point you to the next shedule...

Declan · Sep 22, 2016

DonManfred said:
That´s how the sub works... it calculates the NEXT time... Set a servicestartat to this time....

When the service starts at the given time you calculate the next... It should then point you to the next shedule...

That is where I am stuck.
How do I calculate the next...
Once I have "LogColor("Gotcha",Colors.Magenta)"
How do I restart the Service("Schedule") at the next time?

DonManfred · Sep 22, 2016

Declan said:
How do I restart the Service("Schedule") at the next time?

DonManfred said:
Set a servicestartat to this time....

Declan · Sep 22, 2016

I am sorry, but I just do not understand.

lemonisdead · Sep 22, 2016

Hello,
You will schedule the next service's execution time using StartServiceAt : https://www.b4x.com/android/help/core.html#keywords_startserviceat

Declan · Sep 23, 2016

Set a servicestartat to this time....

Where in my code do I place the ServiceStartAt to get the NextTime?

lemonisdead · Sep 23, 2016

Declan said:
Where in my code do I place the ServiceStartAt to get the NextTime?

I hope to have understood, so please forgive me if I don't reply correctly : I would say you could put it Inside your Schedule service or at the end of Service_Start or in Service_Destroy (depending of your workflow of course).

Android Question Scheduled Events

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Similar Threads