Is there a Sub_Pause() routine ?

Discorez said:

...or simple equivalent

B4X:

'Interval in milliseconds
Sub Pause (Interval As Int) 
    Dim EndTime As Long
    EndTime = DateTime.Now + Interval
    Do While DateTime.Now < EndTime
        DoEvents
    Loop
End Sub

Click to expand...

Jost aus Soest said:

You could use a sub like this:

B4X:

Sub Sleep(ms As Long)

  ms = DateTime.Now + ms
  Do While DateTime.Now < ms
    'DoEvents
  Loop

End Sub

If you want to pause for more than one second you should activate the DoEvents above - or really use a timer as suggested by Klaus.

___
OK, notice to myself: Don't phone while answering - you will be to late!

Click to expand...

skoda777 said:

Thank you very much, i'll try em both.

Click to expand...