Is there a Sub_Pause() routine ?

[skoda777]

Hi, is there a Pause routine or equivalent in b4a? I haven't come across one yet, and i have been searching for a while. If anybody can let me know I would greatly appreciate it.

 

[klaus]

There is no Pause routine in B4A.
You should use a Timer instead.

Best regards.

 

[skoda777]

K, thanks.

 

[Discorez]

...or simple equivalent

'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

 

[Jost aus Soest]

You could use a sub like this:

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!

 

[skoda777]

...or simple equivalent

'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

Thank you very much, i'll try it.

 

[skoda777]

You could use a sub like this:

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!

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

 

[Jost aus Soest]

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

Both subs are doing the same.