infinite loop

[questionit]

Hi

The loop inside my code runs infinite. I couldn't figure out why.

Private Sub Command50_Click()
Dim bFlag As Boolean
    bFlag = False
 
   Do While (bFlag = False)
      Me.timeDisplay = Time()
 
      If Me.txtHour = CStr(Hour(Time())) And _
         Me.txtMinute = CStr(Minute(Time())) And _
         Me.txtSecond = CStr(Second(Time())) Then
         MsgBox "Some message"
         bFlag = True
      End If
   Loop
 
End Sub
 

I put in hour, minute, second in textboxes on form and comparing thier values with system time. If time matches, MsgBox will run.
The loop runs all the time - as if condition is never met ?

Can anyone help?
Thanks
Qi

[istya]

Hi

The loop inside my code runs infinite. I couldn't figure out why.

Private Sub Command50_Click()
Dim bFlag As Boolean
    bFlag = False
 
   Do While (bFlag = False)
      Me.timeDisplay = Time()
 
      If Me.txtHour = CStr(Hour(Time())) And _
         Me.txtMinute = CStr(Minute(Time())) And _
         Me.txtSecond = CStr(Second(Time())) Then
         MsgBox "Some message"
         bFlag = True
      End If
   Loop
 
End Sub
 

I put in hour, minute, second in textboxes on form and comparing thier values with system time. If time matches, MsgBox will run.
The loop runs all the time - as if condition is never met ?

Can anyone help?
Thanks
Qi

Try displaying the values of Hours, Mins and seconds to see if they actually match.

Atlernatively, to stop you having a infinite loop, you can have a counter and when it reaches a value, exit the loop.

like

dim counter as integer
dim value as integer
 
If Me.txtHour = CStr(Hour(Time())) And _
         Me.txtMinute = CStr(Minute(Time())) And _
         Me.txtSecond = CStr(Second(Time())) Then
         MsgBox "Some message"
         bFlag = True
else
        counter = counter +1
        if counter = value then
              bFlag = True
        end if
End If

[questionit]

istya

its working now..

thanks

qi

Try displaying the values of Hours, Mins and seconds to see if they actually match.

Atlernatively, to stop you having a infinite loop, you can have a counter and when it reaches a value, exit the loop.

like
dim counter as integer
dim value as integer

If Me.txtHour = CStr(Hour(Time())) And _
Me.txtMinute = CStr(Minute(Time())) And _
Me.txtSecond = CStr(Second(Time())) Then
MsgBox "Some message"
bFlag = True
else
counter = counter +1
if counter = value then
bFlag = True
end if
End If

[questionit]

Hi

There is one problem left. The same code:

Private Sub Command50_Click()
Dim bFlag As Boolean
    bFlag = False
 
 
    Do While (bFlag = False)
 
       Me.timeDisplay = Time()           <----- never displayed on Form
 
       If Me.txtHour = CStr(Hour(Time())) And _
          Me.txtMinute = CStr(Minute(Time())) And _
          Me.txtSecond = CStr(Second(Time())) Then
 
          MsgBox "Some message"
          bFlag = True
       End If
 
    Loop
 
End Sub
 

When the above while loop is running, the first statement : Me.timeDisplay = Time() runs but its result is not shown on the Form because the form is disabled/inactivated while the loop runs. what is the solution to this problem?

thanks
Qi

istya

its working now..

thanks

qi

[questionit]

I have sorted my problem out by just adding DoEvents within the Loop.

I have still 2 questions:

1- How can i stop that loop or exit from the Sub (Command50_Click()) on a Button Click

2- DoEvents uses 100% PC's resource, is there any alternative?

Code:

Private Sub Command50_Click()
 
    bFlag = False
 
    Do While (bFlag = False)
 
       Me.timeDisplay = Time()          
 
       If Me.txtHour = CStr(Hour(Time())) And _
          Me.txtMinute = CStr(Minute(Time())) And _
          Me.txtSecond = CStr(Second(Time())) Then
 
          MsgBox "Some message"
          bFlag = True
       End If
      DoEvents
    Loop
 
End Sub
 

Thanks
Qi

Hi

There is one problem left. The same code:

Private Sub Command50_Click()
Dim bFlag As Boolean
    bFlag = False
 
 
    Do While (bFlag = False)
 
       Me.timeDisplay = Time()           <----- never displayed on Form
 
       If Me.txtHour = CStr(Hour(Time())) And _
          Me.txtMinute = CStr(Minute(Time())) And _
          Me.txtSecond = CStr(Second(Time())) Then
 
          MsgBox "Some message"
          bFlag = True
       End If
 
    Loop
 
End Sub
 

When the above while loop is running, the first statement : Me.timeDisplay = Time() runs but its result is not shown on the Form because the form is disabled/inactivated while the loop runs. what is the solution to this problem?

thanks
Qi

[Rabbit]

This question has already been answered in another one of your posts a while back. This one will be closed.