Raising message timer

Question

0.00/5 (No votes)

See more:

I have this sub in a class:

VB

Private Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs) Handles myTimer.Tick
            If alarmTime < Date.Now Then
            myTimer.Stop()
            RaiseEvent TimerComplete(&quot;Your time is up&quot;)
        Else
            RemainingTime = alarmTime.Subtract(Date.Now)

            RaiseEvent Elapsed(RemainingTime)
        End If
        If RemainingTime.Minutes <  1 Then
            RaiseEvent OnAlert("1 minute left")
        End If
    End Sub

Problem is when I raise the last event OnAlertEvent in the form with messagebox, at evey timer tick a new messagebox is shown tick filling up screen.Can anyone help

Posted 29-May-13 21:19pm

Diremadire

Updated 29-May-13 22:35pm

CHill60

v3

Add a Solution

Comments

CHill60 30-May-13 4:38am

How about If RemainingTime.Minutes < 1 And RemaningTime.Minutes > 0 Then

Akinmade Bond 30-May-13 8:13am

The problem is that If RemainingTime.Minutes < 1 will always evaluate to true when the time is less than a minute and hence, a the function RaiseEvent OnAlert("1 minute left"); will run.

To stop that from happening, change that line to If RemainingTime.Minutes = 1

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Aarti Meswania · Answer 1 · 2013-05-29T23:19:00

VB

Private Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs) Handles myTimer.Tick
            If alarmTime < Date.Now Then
            myTimer.Stop()
            RaiseEvent TimerComplete(&quot;Your time is up&quot;)
        Else
            RemainingTime = alarmTime.Subtract(Date.Now)

            RaiseEvent Elapsed(RemainingTime)
        End If
        If RemainingTime.Minutes = 1 Then
            RaiseEvent OnAlert("1 minute left")
        End If
    End Sub

set timer control's Interval for 60000, so it will fire tick event on every one minute

Happy Coding!
:)