Attendre moins d'une secondeRésolu

Question

Bonjour,
J'utilise cette technique pour attendre mais celle-ci ne permet pas d'attendre des temps < 1 seconde.

Private Sub Attendre()
    Dim MaDate As Date
    MaDate = Now
    Do While Abs(DateDiff("s", MaDate, Now)) < 1
        DoEvents
    Loop
End Sub

Il y a bien instruction Sleep mais elle ne me plait pas dit tout.

Quelqu'un aurait-il une solution ?

jmfmarques · Accepted Answer

Bonsoir,

En dépit de ce qu'en dit l'aide en ligne, la fonction Timer est xapable de compter en dessous de la seconde et je m'en sers dans certaines circonstances (appréciation de clicks longs, distinction entre un double et un simple click sur certains contrôles

Si tu n'as pas besoin de la plus grande précision, regarde ceci

Private Sub Command1_Click()
  depart = Timer
  Do While Timer < depart + 0.1
   DoEvents
  Loop
  MsgBox Timer - depart
End Sub

cs_Exploreur · Answer

Salut,

Ben, utilise un timer !!!

A+
Exploreur

jrivet · Answer

Salut,
Pas mieux.
Tu prends un timer avec lequel tu joues sur les propiétés .Enabled et Interval 
Mais le problème c'est que tu n'attends pas au même endroit dans le code.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Morinaux · Answer

Ouai en effet ça peut être une solution, je vais y travailler.

Utilisateur anonyme · Answer

Salut,

Utilise l'api GetTickCount qui est en milisecondes.





__________
 Kenji

cs_DARKSIDIOUS · Answer

Heu pourquoi ne pas utiliser Sleep ???

Car c'est pas pour dire, mais ta méthode elle occupe 100% du proc pendant l'attente, contrairement à Sleep !

Renfield · Answer

j'avoue qu'utiliser DateDiff ici, c'est chasser les mouches au bazooka !

qu'attends tu de particulier ?

as tu besoin d'un intervalle précis ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Morinaux · Answer

En fait ce serai pour réaliser une opération différente à chaque à un intervalle plus petit que la seconde.
Donc l'utilisation d'un timer serait une tâche plutôt ardue.

Le programme doit garde le focus et doit rester actif pendant l'attente c'est pour cela que je n'utilise pas Sleep.

Et je souhaiterais si possible ne pas utiliser d'api mais si je n'y arrive pas sans, je me tournerai vers GetTickCount, il doit surement y avoir des exemples d'utilisation sur vbfrance.

Merci

Renfield · Answer

utilises un Timer, c'est le plus simple....

"Le programme doit garde le focus et doit rester actif pendant l'attente"

pour quelle raison ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Morinaux · Answer

Le programme doit déplacer la souris, cliquer, attendre puis recommencer X fois.

Si j'utilise Sleep le programme cesse de répondre et ça ne marche pas.
Avec le timer je n'ai pas trouvé de solutions simple a mettre en place.

Merci de ton intéressement.

cs_Morinaux · Answer

Je ne savait pas que Timer pouvait compter en dessus de la seconde, merci beaucoup de ton aide.

azer · Answer

Ou trouve-t-on la fonction sleep sur une calculatrice CASIO graph 95?

Attendre moins d'une seconde

12 réponses

Votre réponse

Discussions similaires