comment faire une temporisation de 500 ms

Question

Salur à tous.

J'ai un soucis, je dois réaliser une interface pour un banc de test. J'aimerais faire une temporisation entre deux actions de 500 ms et j'ai du mal à utiliser la fonction timer. Le programme doit être tout automatique. 

Voilà ce que je voudrais faire : 
afficher une image pendant 1s, puis faire une action, ensuite afficher une autre image 1 seconde et ainsi de suite.
Je penses que je ne peux pas le faire avec Private Sub timer1_Timer()

Je voudrais trouver un équivalent à Delay(500)

Merci pour vos réponse.

Pyromane 120 · Answer

meme sans timer, cele doit fonctioner  (en ms)


Sub Pause(Temps As Long)
    Dim Start As Long
    Dim Check As Long
    Start = Timer
    Do Until Check >= Start + Temps
        Check = Timer
        DoEvents
    Loop
End Sub

Midtisam · Answer

tu as raison ça marche aussi en ms apparement.

merci bien

mokonaxxjp · Answer

jai essaye ce code et ca ne marche pas trop

jai mis 1 comme parametre et ca envoie ttes les sec
mais si je mets 0.5 (500ms) ca va hyper vite en tous cas plus vite que 500ms
KKun voit le pb?
Merci

cs_futurist · Answer

Merci ca m'a beaucoup aider :):):):):)

rahimabdou · Answer

salue a tous, je veux faire un petit programme qui comporte :
_un image d'un led
_un textbox( c'est la ou je veux écrire le temps )
_et un bouton ON

le principe ce que quant j'écris le temps la textbox et je click sur ON alors quant temps terminer alors image led s'allume

Comment faire une temporisation de 500 ms

5 réponses

Discussions similaires