multi stage timer

[jaykappy]

Looking to create a simply form that has a button on it.
When depressed it starts counting (say 5 seconds)
when it reaches 5 seconds it turns the background a different color
then counts 5 seconds again and turns background a different color.

I need to be able to set the time interval and the amount of times through a loop. when it gets to the set number of loops it resets itself waiting for the button to be clicked again.



Any ideas on how to do this?

[jaykappy]

I am doing this nad I get the timer working well...I am waiting....

The back ground turns colors BUT ONLY when I have the msgbox in there....if I comment that out it does not turn colors??????/


Option Compare Database
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub AppSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Sub PauseApp(PauseInSeconds As Long)

Call AppSleep(PauseInSeconds * 1000)

End Sub

Private Sub StartButton_Click()
Dim i As Integer
i = 0
For i = 1 To 3

If i = 1 Then
Forms!Form1.Detail.BackColor = vbGreen
ElseIf i = 2 Then
Forms!Form1.Detail.BackColor = vbyellow
ElseIf i = 3 Then
Forms!Form1.Detail.BackColor = vbRed
End If

MsgBox i
PauseApp 2
Next i

Forms!Form1.Detail.BackColor = vbWhite

End Sub

[ssanfu]

Try this:

Private Sub StartButton_Click()
   Const vbGray = -2147483633
   Dim i As Integer

   'i = 0   ' <<-- this is not needed

   For i = 1 To 3
      If i = 1 Then
         Forms!Form1.Detail.BackColor = vbGreen
      ElseIf i = 2 Then
         Forms!Form1.Detail.BackColor = vbYellow
      ElseIf i = 3 Then
         Forms!Form1.Detail.BackColor = vbRed
      End If

      'MsgBox i
      DoEvents
      PauseApp 2
   Next i

   'Forms!Form1.Detail.BackColor = vbWhite
   Forms!Form1.Detail.BackColor = vbGray
   
   'comment out next line when debugging complete
   MsgBox "Done"
   
End Sub

[jaykappy]

why does it ONLY work with the message box...what am I doign wrong....

[ssanfu]

There needs to be time for the screen to update........

[jaykappy]

Was missing teh DoEvents THANKS