Alarm using timedialog

[mkvidyashankar]

I am trying to create an alarm using timedialog. But not clear how to use the time picked by the dialog to start activity. I refered service module and from that part i can continue. But not able to get time for Service start and I got reference in http://www.b4x.com/forum/basic4andr...n-widget-more-frequently-than-30-minutes.html

But how to add time picked by time dialog. please help with code.

 

[Erel]

This should help you get started:

Sub Process_Globals
   Dim alarmHours, alarmMinutes As Int
End Sub
Sub Globals

End Sub
Sub Activity_Create(FirstTime As Boolean)

End Sub
Sub Activity_Click
   Dim td As TimeDialog
   td.Hour = alarmHours
   td.Minute = alarmMinutes
   If td.Show("Select time", "", "Ok", "Cancel", "", Null) = DialogResponse.POSITIVE Then
      alarmHours = td.Hour
      alarmMinutes = td.Minute
      Dim today, alarmTime As Long
      today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM
      alarm = today + td.Hour * DateTime.TicksPerHour + td.Minute * DateTime.TicksPerMinute
      If alarm < DateTime.Now Then alarm = DateTime.Add(alarm, 0, 0, 1)
      Log(DateTime.Date(alarm) & " " & DateTime.Time(alarm)) 'check the logs to see the set date and time
      'Calculate time to alarm
      Dim h, m As Int
      h = Floor((alarm - DateTime.Now) / DateTime.TicksPerHour)
      m = ((alarm - DateTime.Now) - h * DateTime.TicksPerHour) / DateTime.TicksPerMinute
      ToastMessageShow("Time to alarm: " & NumberFormat(h, 2, 0) & ":" & NumberFormat(m, 2, 0), True)
      StartServiceAt(AlarmService, Alarm, True)
   End If
End Sub

 

[mkvidyashankar]

Thank you very much Erel !!!!!!!!!1

 

[mcmanu]

Hi Erel

I have a problem

when i use the time dialog and i set the time for example to 12:01
Then its saved as 12:1 and not 12:01
How can i fix this?

Sorry because of my bad English

Thanks in andvance

 

[lagore]

Hi,
You just need to use the 'Numberformat,

btnBlockOnTime.Text = NumberFormat(td.Hour, 2, 0) & ":" & NumberFormat(td.Minute, 2, 0)

 

[mcmanu]

Thx

Alright Thank you
I will try it

 

[kaputo]

Hello, Is there any posibility to put a text into this alarms, when you put a alarm into the OS clock you can do it but with this function I cannot find it.

Thanks

 

[awakenblueheart]

No timedialog

Why I can not use timedialog type?

 

[Erel]

TimeDialog is an object from the dialogs library.

 

[GMan]

Hoi Erel,

how is the AlarmService and the Alarm declared ?
AlarmService should be service, but how and which one ?

I created a button "TimerButton" and change the first line of your sampe to the following:

Sub Timerbutton_Click

When i hit it a error occurs: activity must be initalized first, but i did this above with

AlarmService.Initialize("AlarmService")

 

[Erel]

AlarmService should be a regular service. You should not initialize it.

 

[GMan]

If i not DIM it in any way an error occurs:

Error description: Undeclared variable 'alarmservice' is used before it was assigned any value.
Occurred on line: 753
        StartServiceAt(AlarmService, alarm, True)

I DIMed it as it, so only Dim AlarmService !
The variable alarm i DIMed as Long.

After that, the popup appears and ask for the time (btw: can i set it to 24h format ?)

I read some other threads about StartServiceAt and this one looked good:

Sub AlarmService_Tick
Msgbox("Alarmtime","Hint")
End Sub

But when the alarm time is arrived, nothing happens.

 

[Erel]

I recommend you to go over the services tutorial:
Service Modules

 

[GMan]

i will go through

 

[Mashiane]

Hi Erel. I have used your code and placed in a class module but its always returning minus time in the toast message . What could I be doing wrong?

Public Sub NextTimeRun(sHour As Int, sMinute As Int) As Long
     Dim today, alarm As Long
      today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM
      alarm = today + sHour * DateTime.TicksPerHour + sMinute * DateTime.TicksPerMinute
      If alarm < DateTime.Now Then alarm = DateTime.Add(alarm, 0, 0, 1)
      Log(DateTime.Date(alarm) & " " & DateTime.Time(alarm)) 'check the logs to see the set date and time
      'Calculate time to alarm
      Dim h, m As Int
      h = Floor((alarm - DateTime.Now) / DateTime.TicksPerHour)
      m = ((alarm - DateTime.Now) - h * DateTime.TicksPerHour) / DateTime.TicksPerMinute
      ToastMessageShow("Time to alarm: " & NumberFormat(h, 2, 0) & ":" & NumberFormat(m, 2, 0), True)
      Return alarm
     'StartServiceAt(AlarmService, Alarm, True)
End Sub

 

[Mashiane]

Hi Erel. I have just done a check. Your code is actual correct. Thanks, The problem happens when I open the TimeDialog control and set a new alarm date. My system is recording alarm times in a database in HH:mm format. When the app starts it checks the times and allocates a sleeping time for each of the alarms that have been set.

This is what happens...

1. I compile the app to my phone.
2. the apps starts and reads the alarms and runs your code and produces this log..
3. the sleep time for each alarm is updated as these need to run everyday same time.

' this log is working perfectly..
Table_GetCursor: SELECT * FROM SiteIntervals
2:36
07/24/2013 02:36:00
Alarm: 1374626160000
UpdateRecord: UPDATE [SiteIntervals] SET [SleepTime] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimerDate] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimeRemaining] = ? WHERE [ID] = ?
5:20
07/23/2013 05:20:00
Alarm: 1374549600000
UpdateRecord: UPDATE [SiteIntervals] SET [SleepTime] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimerDate] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimeRemaining] = ? WHERE [ID] = ?

Now I open a TimeDialog to set an alarm, now the calculations become gooblygook.
When a new alarm is added, turned off or deleted, the app must re-rerun the alarms settings applying new sleeping times and turn on the next alarm.
The problem is after I open the timedialog to add a new date. It seems like the tickcounts get confused. Any suggestions. Below is the log after I add a new date. 5:30 becomes 5:48 and 2:36 becomes 2:54 with no dates.

Table_GetCursor: SELECT IntervalHour,IntervalMinutes,AlarmTime,SleepTime,TimeRemaining FROM SiteIntervals WHERE OnOff = 'Y' AND AlarmTime >= '05:18' ORDER BY AlarmTime
* open timedialog and create new alarm
5:30
48 05:48:00
Alarm: 100080000
InsertMaps (first query out of 1): INSERT INTO [SiteIntervals] ([ID], [SiteID], [AlarmTime], [OnOff], [IntervalHour], [IntervalMinutes], [SleepTime], [TimerDate], [TimeRemaining]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)
ExecuteCSV: SELECT ID, AlarmTime, OnOff from SiteIntervals where SiteID = '125045' order by AlarmTime
Table_GetCursor: SELECT * FROM SiteIntervals


2:36
54 02:54:00
Alarm: 89640000
UpdateRecord: UPDATE [SiteIntervals] SET [SleepTime] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimerDate] = ? WHERE [ID] = ?
UpdateRecord: UPDATE [SiteIntervals] SET [TimeRemaining] = ? WHERE [ID] = ?

 

[Mashiane]

Hi Erel, for some reason, after the timedialog close, this code

today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM

returns a different today value for subsequent times.

 

[Erel]

The code is quite old. I don't recommend you to use it. You should instead use DateUtils module.

Please start a new thread for your question.

 

[Mashiane]

Ok thank you. I will check the wiki on that.