[RESOLVED] Timer Interval?

[wxmancanada]

Hey folks,

I am looking to make a timer so that every 5 minutes it will activate a line of code, like a timer would.. But I can't get the timer to go over a certain amount of time..

I've tried "Timer1.Interval = 300000" but that doesnt seem to work, does anyone know a way around this or a peice of code that will do the same thing?

[Hack]

The standard VB timer is only good for 65 seconds.

[Hack]

CVMichael post a timer submission in our CodeBank that I just went and retrieved the URL for. It might help you out.

http://www.vbforums.com/showthread.php?t=511995

[CVMichael]

wxmancanada, if your gonna use my code, then make sure you compile QPTimerThread, then open QPTimerTestSingleThread to see how the timer thread is loaded and used. (Also make sure the reference to the QPTimer is selected)

You can remove all the code in the TimerEvent() call except the line where ContinueTimer = True

You can put any interval you want when you start the timer.

[__Russell__]

Set the timer for 60000 (60 seconds) and use a counter:

Private Sub Timer1_Timer()
 
    Dim iMinutes As Integer
    iMinutes = iMinutes + 1
    
    If iMinutes = 5 Then
        '   5 minutes have passed, run code:
        
 
        MsgBox "5 minutes have passed", vbInformation, "Notice:"
        
        iMinutes = 0    '   Reset
    End If
    
End Sub

[LaVolpe]

Many options; here is another one:
1. in declarations section: Private tmrEventTime As Date
2. When ready to enable timer: tmrEventTime = DateAdd("n",5,Now())
3. In timer event: If Now()>tmrEventTime then ' 5 minutes elapsed

[wxmancanada]

Set the timer for 60000 (60 seconds) and use a counter:

Private Sub Timer1_Timer()
 
    Dim iMinutes As Integer
    iMinutes = iMinutes + 1
    
    If iMinutes = 5 Then
        '   5 minutes have passed, run code:
        
 
        MsgBox "5 minutes have passed", vbInformation, "Notice:"
        
        iMinutes = 0    '   Reset
    End If
    
End Sub

That's perfect! Thank you!

[__Russell__]

Simple is best.