Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 235
  • Last Modified:

How do I set an Alarm?

I have a time program that I wrote (in VB 6). It shows the time of several major cities around the world on a map.

I made a menu item listing all of the cities on the map, and now I want to make it so that users can enter an alarm for each time zone through the menu.  I would like more than one alarm per time zone, but one at least.

If it were at all possible, I would like to be able to archive the message that the user enters with their alarm, so that they could edit or delete them if they wanted to.

I am lost now.  Any idea....  I am a beginner!
0
CnC
Asked:
CnC
1 Solution
 
RuchiCommented:
There is a program on your CD or in your pc -- C:\Program Files\Microsoft Visual Studio\MSDN...\Alarm\Alarm. This might help you how to set alarm.
0
 
rovermCommented:
Place a timer on your form and set the interval to 1000 (millisecs).
Then in the Timer1_Timer irritate through an array containting possible alarm-times:

Private Sub Timer1_Timer()
Dim counter As Integer

    Timer1.Enabled = False 'disable timer
   
    For counter = 0 To UBound(MyArray)
        If CStr(Time) = MyArray(counter) Then Call GoAlarm(counter)
    Next counter
   
    Timer1.Enabled = True 'enable timer
   
End Sub

Every second the times are checked.
The alarm-times are placed (as a string) in MyArray(0...Ubound).

The GoAlarm sub plays an alarmsound, gives visual notification and so on. With the parameter passed to it you can collect the text the user entered from another array.

Of course you can use a recordset or a collection instead of an array, this is just an example!

Good luck!

D'Mzzl!
RoverM
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now