Is There any function to sleep one or two second?

sally3599 · Sep 9, 2012

Is There any function to delay the app execution for a given number of seconds?

cammel8 · Sep 9, 2012

sally3599 said:
Is There any function to delay the app execution for a given number of seconds?

you could set up a timer and when it fires execute your code then you could set the interval to whatever you wanted.

Ricky D · Sep 9, 2012

Using the timer seems the only way

pseudo code

Init Timer

Do something

Enable Timer
.
.
.
Timer Tick - continue doing stuff after the pause.

It would be nice to be able to pause it at the line then after the pause continue. Using the timer breaks up the code.

regards, Rick

Erel · Sep 9, 2012

Pausing the main thread will make your app unresponsive. Pausing for more than 5 seconds will crash your app with: "Application Not Responding" dialog.

You can implement a "busy loop" method:

B4X:

Sub WaitFor(Milliseconds As Int)
 Dim s As Long
 s = DateTime.Now
 Do While DateTime.Now < s + Milliseconds

 Loop
End Sub

Ricky D · Sep 9, 2012

Thanks Erel.

I've tested that and it works perfect.

B4X:

Dim starttime, endtime As Long
   Msgbox("Start waiting", "")
   starttime = DateTime.Now
   u.WaitFor(2000) '2 seconds
   endtime = DateTime.Now
   Msgbox(((endtime-starttime)/1000) & " seconds", "")

There is a 2 second delay before the 2nd msgbox pops up and I can't click any of my other views on the screen.

regards, Ricky

Is There any function to sleep one or two second?

sally3599

Member

cammel8

Member

Ricky D

Well-Known Member

Erel

B4X founder

Ricky D

Well-Known Member

Is There any function to sleep one or two second?

sally3599

Member

cammel8

Member

Ricky D

Well-Known Member

Erel

B4X founder

Ricky D

Well-Known Member

Privacy & Transparency

Privacy & Transparency