I'm stuck with service module

[susu]

I tried to write a little alarm app by using service module.

Main activity code:

Sub SetSchedule_ItemClick (Position As Int, Value As Object)
   Dim start, now, atTime As Long
   DateTime.TimeFormat = "HH:mm"
   start = DateTime.TimeParse(Value)   ' parse time from xml, format like 14:32
   now = DateTime.Now
   
   If start > now Then
      atTime = start - now
      Msgbox("It's OK", "Set schedule")
      StartServiceAt(notischedule, atTime, False)
   Else
      Msgbox("Cannot set schedule in past time","Error")      
   End If
End Sub

Service module name "notischedule" code:

Sub Process_Globals
   Dim Noti As Notification
End Sub

Sub Service_Create
   Noti.Initialize
   Noti.Icon = "icon"
   Noti.Light = True
   Noti.Sound = True
   Noti.Vibrate = True
   Noti.AutoCancel = True
End Sub

Sub Service_Start
   Noti.SetInfo("Hey, it's time now!", "Alarm", Main)
   Noti.Notify(1)
End Sub

Compile ok but it doesn't work and there's no notification icon. What did I miss? Please help.

 

[agraham]

I think this is wrong

atTime = start - now

The example in the help implies you need the actual future time not an increment from the present time.

Example:
StartServiceAt(SQLService, DateTime.Now + 30 * 1000, false) 'will start after 30 seconds.

 

[susu]

Thanks Agraham, I edited my code:

StartServiceAt(notischedule, DateTime.Now + atTime, False)

but it doesn't work.
Can anyone share an alarm example?

 

[Cor]

Can you export it as a zip file so i can look at it

 

[susu]

Hi Cor, the code is in first post because it's just a test app.
I don't know why there's no icon in notification bar.

 

[Erel]

Did you check the logs and make sure that the service is indeed created and started (a line should appear for each of the events)?

 

[susu]

There's nothing in LogCat
Can you give me an alarm example?

 

[Erel]

You can check the Twitter example which periodically checks for updates: http://www.b4x.com/forum/basic4andr...rials/7618-twitter-feed-reader.html#post43332

 

[susu]

Yes, I did read it and wrote the code as below but I can't make it work

 

[Erel]

Here is a very simple example that starts the service in 10 seconds:

Sub Process_Globals
End Sub
Sub Globals

End Sub
Sub Activity_Create(FirstTime As Boolean)
    StartServiceAt(s1, DateTime.Now + 10 * DateTime.TicksPerSecond, False)
End Sub

Service module named S1:

Sub Process_Globals
    Dim Noti As Notification
End Sub

Sub Service_Create
    Noti.Initialize
    Noti.Icon = "icon"
    Noti.Light = True
    Noti.Sound = True
    Noti.Vibrate = True
    Noti.AutoCancel = True
End Sub

Sub Service_Start
    Noti.SetInfo("Hey, it's time now!", "Alarm", Main)
    Noti.Notify(1)
End Sub

 

[susu]

Thanks Erel, it seems to work but I got error in LogCat:

Unable to start service Intent { flg=0x4 cmp=abc.xyz.test/.s1 (has extras) }: not found

My service module is named "s1"

 

[Erel]

Can you upload your project (export as zip)?

 

[susu]

I mailed you zip file.

 

[Cor]

Hello Susu,

Is it possible to post the zip file on this forum.

so i can also look at it

 

[susu]

Sorry Cor, this is my next project to publish to Market so I can't post it here. I can mail you zip file if you PM me your email

 

[Cor]

Please look in your PM

 

[Erel]

My guess is that you set AndroidManifest.xml to be read-only before adding the service. The service affects the manifest file.

 

[susu]

Thanks Erel, now I know what's the problem.

When we use Service, AndroidManifest.xml will be modified and in my case it's read-only (because I used AdMob lib before). I think you should mention about AndroidManifiest.xml in Service tutorial.

More questions: How to set 3 alarms on 3 different times? How to list down all the alarms that set? How to remove 1 alarm? And why there's no document about Service (I only found your tutorials).

 

[Erel]

The documentation for the two methods available in the Service object is here:
Basic4android - Core
There are three tutorials about services:
http://www.b4x.com/forum/basic4android-getting-started-tutorials/7542-service-modules.html#post42973
http://www.b4x.com/forum/basic4andr...2-downloading-files-using-service-module.html
http://www.b4x.com/forum/basic4andr...rials/7618-twitter-feed-reader.html#post43332
Documentation for StartServiceAt: Basic4android - Core

You can only have one alarm scheduled. You will need to set the next alarm in Service_Start each time.

 

[susu]

Thanks Erel.
I used so many alarm apps that I can set 3-4 or even 5 alarm schedule. How did they do that?