Is there a better way to "Wait"?

[Terry Olsen]

I wanted to do this "inline" and not use a timer. Is there a better way?

Do
zipError = UnzipFile(datPath & zipFileName, datPath, False)
If zipError = "Success" Then Exit Do
UpdateStatus("File in use, waiting 5 minutes")
Wait(5)
Loop

Public Sub Wait(ByVal minutes As Integer)
Dim startTime As Integer = Minute(Now)
Dim curTime As Integer
Do
curTime = Minute(Now)
If curTime < startTime Then curTime += 60
If curTime = startTime + minutes Then Exit Sub
Application.DoEvents()
Loop
End Sub

[Steven Campbell]

Yes , there is a better way.
System.Threading.Thread.Sleep(new TimeSpan(0, 5, 0))
~Steve

"Terry Olsen" <to******@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

I wanted to do this "inline" and not use a timer. Is there a better way?

Do
zipError = UnzipFile(datPath & zipFileName, datPath, False)
If zipError = "Success" Then Exit Do
UpdateStatus("File in use, waiting 5 minutes")
Wait(5)
Loop

Public Sub Wait(ByVal minutes As Integer)
Dim startTime As Integer = Minute(Now)
Dim curTime As Integer
Do
curTime = Minute(Now)
If curTime < startTime Then curTime += 60
If curTime = startTime + minutes Then Exit Sub
Application.DoEvents()
Loop
End Sub

[Tom Shelton]

On Tue, 24 Aug 2004 23:31:13 -0500, Steven Campbell wrote:

Yes , there is a better way.
System.Threading.Thread.Sleep(new TimeSpan(0, 5, 0))
~Steve

Sure, if you want your application to be locked up for 5 minutes... :)

--
Tom Shelton [MVP]

[Tom Shelton]

On Tue, 24 Aug 2004 22:09:14 -0600, Terry Olsen wrote:

I wanted to do this "inline" and not use a timer. Is there a better way?

Do
zipError = UnzipFile(datPath & zipFileName, datPath, False)
If zipError = "Success" Then Exit Do
UpdateStatus("File in use, waiting 5 minutes")
Wait(5)
Loop

Public Sub Wait(ByVal minutes As Integer)
Dim startTime As Integer = Minute(Now)
Dim curTime As Integer
Do
curTime = Minute(Now)
If curTime < startTime Then curTime += 60
If curTime = startTime + minutes Then Exit Sub
Application.DoEvents()
Loop
End Sub

As has been mentioned, there is System.Threading.Sleep - but I wouldn't use
that for extended periods of time or someones going to give your
application the 3-finger salute... You might want to use a timer control
or a System.Threading.Timer to reschedule your method.

--
Tom Shelton [MVP]

[Cor Ligthert]

Terry,

When it is 5 minutes I would not use that long time I would give the user
some information how long it is to go.

That can be done either by the treading sleep or with one of the timers what
I prefer (for this form handling I prefer the forms.form.timer because it is
so easy to use and this is very easy timer handling).

To use the time sleep (all types here and not tested so nothing more as
almost complete pseudo)
\\\
Dim frm as new SplashForm
For i as integer = 1 to 100
frm.label = i * 300 ('you may translate it yourself nice using the
timespan)
frm.show
thread.threading.sleep(1000)
Next
frm.close
////
With the forms.form.timer event it is even easier to do.
(mostly is forgotten to enable that and set the correct wait time)

I hope this helps?

Cor

[Cor Ligthert]

One error I saw beside the types (typed) the wait time in this sample
should be 3000 what is 3 seconds what is the normal time a user does not
recognise as wait time.

Cor

[Herfried K. Wagner [MVP]]

* "Terry Olsen" <to******@hotmail.com> scripsit:

I wanted to do this "inline" and not use a timer. Is there a better way?

'System.Threading.Thread.Sleep'. If you are using a Windows Forms
application, this will block the app's main UI thread. To avoid that,
perform the waiting in a separate thread.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>