French Comment créer un moment d'attente

[brossden69]

Bonjour

Je m'explique, je voudrais réaliser la même commande qui est codée dans d'autres langages par :

- Delay(Entier)
- Sleep(Entier)
- Wait((Entier)
- Multitache(Entier)

et j'en passe, mais comment faire sous Basic4Android ?? :BangHead:

Merci de votre sollicitude !

 

[nico78]

On peut faire ainsi, trouver sur le forum:

Sub Wait(Sekunden As Int)
   Dim Ti As Long
   Ti = DateTime.Now + (Sekunden * 1000)
   Do While DateTime.Now < Ti
      DoEvents
   Loop
End Sub

 

[brossden69]

Merci beaucoup !:sign0098: