Timing Problem 3

[anastasia]

Hi,

I am wanting to start a timer going once a form is loaded for 3 mins, after the 3 mins is up a Msg Box will be displayed. After I want the timer to start timing again another 3 mins and then display another MsgBox. I need this to happen roughly 5 times throughout the application I am creating.

I have done this type of thing before but only in MS word using the following code:

Application.OnTime when:=Now + Timevalue ("00:15:00&quot, Name:= "ProjectCompany.Module1.Macrostart".

The code when run did so for 15 mins and then ran the code within the MacroStart. this code is for word is their any code similar but for use in Visual Basic.

Thanks

A

 

[x508]

Create a timer control, with interval of 1000 ' 1 second and use it like this

Option Explicit
dim varCount as Integer

varCount = 0

Sub Timer1()

 varCount = varCount +1  

If varCount >= 180 then       'the timer fires every second
   whatever                   'so count them and when it
end if                        'gets to 180 (3mins) do something

End Sub

*****************************************
May the Code Be With You...
----------
x50-8 (X Fifty Eigt)

 

[zemp]

You can also just set the timer

.Interval

property to 180,000 (3 min). You will also need a variable to track the number of times the event fires. Only allow the code to fire 5 times.

To continue with what x508 posted.

Sub Timer1_Timer()
  Static i as Integer
  If i <= 4 then           
    MsgBox &quot;Timer&quot;
    i= i + 1                     
  end if                        
End Sub

This way you only fire the timer event every three mins and only increment the counter as long as it is needed.


Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[BrianLW]

Sorry, but the maximum you can set the interval property to is 65,536.


- B

 

[zemp]

True, then set the

.Interval

to 60,000 (1 min) and change the code to this.

Private Sub Timer1_Timer()
   Static i As Integer, j As Integer
   
   If i < 5 Then 'allow to run only five times 
      j = j + 1
      If j = 3 Then  'run every three mins
         MsgBox &quot;Timer&quot;
         i = i + 1
         j = 0
      End If
   End If
End Sub

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[anastasia]

Thanks Guys for your reply.
The code above works perfect problem solved
Thank you very much

 

[x508]

Plsr

*****************************************
May the Code Be With You...
----------
x50-8 (X Fifty Eigt)