Discussion :

[tom box]

Bonjour a tous
J'aimerais créé une temporisation entre deux meme instruction, je m'explique
lorsque je click sur un boutton de commande, je repete 120 fois la meme instruction et j'aimerais qu'entre chaque instruction lorsque je fait fonctionner mon programme 2 secondes s'écoule si c'est possible
Gros bizou

[Pierre Fauconnier]

Bonjour

Tu peux placer un contrôle TIMER sur ta feuille et déterminer son intervale à 2000 ( millisecondes )...
En laissant sa propriété ENABLED à TRUE, il déclenche dès le chargement de la feuille. L'évènement TIMER se déclenchera à chaque durée révolue précisée dans l'intervale, tant que la propriété ENABLED restera à TRUE

Ok?

[Lucas42]

salut , je te conseil d'utiliser le composant TIMER qui permet d'effectuer un bout tous les intervalles X , c'est toi qui definit la valeur de ton intervalle :

exemple : X =2000ms

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Timer1_Timer()
TaFonction
end sub

[Flup]

Bonjour à tous,


Personnellement j'utilise la petite procédure suivante après avoir placé un contrôle TIMER sur la feuille en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub tempo(pause)
Start = Timer
Do While Timer < Start + pause
DoEvents
Loop
End Sub
 
L'appel de cette procédure pour 2 secondes de temporisation sera donc :
 
call tempo(2)

Je vais peut-être les chercher un peu loin mais ça fonctionne très bien.

Bonne journée à tous,

Philippe

PS : Je retourne à mes problèmes de résolution d'écran, je vais péter mon câble

[SfJ5Rpw8]

...
Je vais peut-être les chercher un peu loin mais ça fonctionne très bien.
...

oui pour ce code tu n'as pas besoin de contrôle timer ... remplace timer par now..

[Flup]

oui pour ce code tu n'as pas besoin de contrôle timer ... remplace timer par now..

Salut Bbil,


J'ai du louper kek chose, j'ai essayé ton astuce et ça ne marche pas ... Faut dire aussi qu'il y a un sacré moment que je n'ai plus mis le nez dans VB, ceci explique certainement cela

Bonne journée

Philippe

[jmfmarques]

J'ai du louper kek chose

Tu as surtout confondu un contrôle Timer (totalement inutile ici) avec la fonction Timer (qui est autre chose)

[Pierre Fauconnier]

Bonjour

Ce qui m'étonne dans la fonction Tempo de Flup, c'est que l'on ne gère pas l'évènement "temps révolu".

Il me semble que les solutions de Flup et Bbil ne répondent pas à la question initiale...

Et en fait, je ne vois pas bien à quoi sert la proc Tempo, puisque le "Do events" laisse la main et que rien ne se pass en fin de proc...

Je pense, mais le questionneur de base ne se manifeste pas, que pour gérer un évènement qui doit survenir toutes les x secondes, utiliser un objet timer avec la propriété "intervale" spécifiée à 1000x est la plus judicieuse...

[jmfmarques]

Ce qui m'étonne dans la fonction Tempo de Flup, c'est que l'on ne gère pas l'évènement "temps révolu".

Et c'est quoi, alors, la variable Pause ?
Un contrôle timer est là inutile

[Pierre Fauconnier]

Cela étant, on peut utiliser la fonction Timer pour bloquer l'exécution du code durant x secondes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Do
        Debut = Timer
        Do While Timer() < Debut + 2
        Loop
        MaProc
    Loop

Dans ce cas, pas besoin du contrôle Timer

Ok?

[Commodore]

il y a aussi l'API Sleep pour faire attendre le prog...
(cf FAQ)

[tom box]

Merci a tous je v essayer cela
gros bizou

[Flup]

Bonjour

Ce qui m'étonne dans la fonction Tempo de Flup, c'est que l'on ne gère pas l'évènement "temps révolu".

Il me semble que les solutions de Flup et Bbil ne répondent pas à la question initiale...

Et en fait, je ne vois pas bien à quoi sert la proc Tempo, puisque le "Do events" laisse la main et que rien ne se pass en fin de proc...

Je pense, mais le questionneur de base ne se manifeste pas, que pour gérer un évènement qui doit survenir toutes les x secondes, utiliser un objet timer avec la propriété "intervale" spécifiée à 1000x est la plus judicieuse...

Bonjour Pierre,

A la relecture du problème initial, je me demande effectivement si j'ai réellement bien compris la question.

Pour expliquer ma solution voilà une petite bêtise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
for i=0 to 3
label1(i)= "Ceci"
CALL Tempo(1)
lable1(i)= "est"
CALL Tempo(1)
lable1(i)= "un exemple"
next i

L'utilité (toute relative) est de créer une temporisation d'une seconde entre l'affichage de chaque label. Parfois, cela donne au programme une figure plus "humaine".

Pour répondre à Jmfmarques, la variable "pause" est reprise en argument dans la déclaration de la procédure Tempo pour régler la durée de la temporisation.

Comme je le disais plus haut, il y a vraiment très longtemps que je n'ai plus utilisé VB, je crois d'ailleurs que je vais en rester là (je bute sur un problème d'affichage qui commence à me gaver grave, après 3 jours, c'est bon ) et je demande donc votre indulgence si je tourne autour du pot

Bonne journée à tous et merci pour les commentaires et critiques, c'est cela qui fait avancer (dans mon cas, vous allez avoir un boulot monstre )

Philippe

[jmfmarques]

Flup bonjour,

Ta temporisation est bonne, sois rassuré !
Simplement : elle n'a nul besoin d'être accomapgnée de l'insertion d'un Timer dans le projet
Elle tourne avec la fonction Timer, qui suffit ....
Quant à ma remarque sur Pause, ce n'est pas à toi qu'elle s'adressait, mais à celui qui se demandait où était défini le temps d'attente

[Flup]

Flup bonjour,

Ta temporisation est bonne, sois rassuré !
Simplement : elle n'a nul besoin d'être accomapgnée de l'insertion d'un Timer dans le projet
Elle tourne avec la fonction Timer, qui suffit ....
Quant à ma remarque sur Pause, ce n'est pas à toi qu'elle s'adressait, mais à celui qui se demandait où était défini le temps d'attente

Bonjour Jmfmarques,

Et en plus j'ai besoin de nouvelles lunettes .... Toutes mes excuses pour t'avoir indûment mis en cause, encore une fois, j'avais mal lu.

J'ai comme l'impression que je fais un potage super classe avec la FONCTION et le CONTROLE Timer. C'est décidé, je reprends le tricot, pfffffffff

Très bonne journée à toi

[SfJ5Rpw8]

Salut Bbil,
....

J'ai du louper kek chose, j'ai essayé ton astuce et ça ne marche pas ...
..
Philippe

oui j'ai oublié ... la covertion en format date de la valeur de pause...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub tempo(pause)
FinTempo = Now + TimeSerial(0, 0, 2)
Do While Now < Start + FinTempo
DoEvents
Loop
End Sub
 
Sub test()
 Debug.Print Now
 Call tempo(2)
 Debug.Print Now
 End Sub

sinon tu ne peu pas utiliser timer du moins pour une temporisation se déroulant au alentour de minuit.. - pause... , timer représentant le nombre de secondes depuis minuit..

[Pierre Fauconnier]

Bonjour

Je viens de comprendre ( style: mon euro vient de tomber ) avec l'exemple de Flup, à quoi servait sa proc et comment l'utiliser... tout bon...

Je l'ai reprise pour moi, sur base de Now() pour tenir compte de la remarque de Bbil concernant la proximité de minuit, et j'y ai ajouté un paramètre pour déterminer si l'on utilise le DoEvents ou non durant la pause.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Tempo(Duree As Double, Optional Events As Boolean)
    ' Durée est exprimé en secondes
    ' Si Events = True, les évènements sont gérés durant la pause,
    ' Si Events est False ou omis, la proc bloque les évènements
 
    ' Par rapport à Now, les secondes doivent être divisées par (24*3600)
 
    Dim Debut As Date
 
    Debut = Now
    Do While Now < Debut + (Duree / 24 / 3600)
        If Events Then DoEvents
    Loop
End Sub

J'espère que vous y trouverez votre bonheur. Merci à Flup pour l'idée

[tom box]

j'ai essayé les differents code que vous avait proposé mais je n'y arrive pas pouvais vous expliqué les lignes des programmes par des commentaire simplement pour que je puisse comprendre et ainsi adapter a ma situation

[Pierre Fauconnier]

Salut.

Cela dépend du code de ton bouton. Tu peux le donner en copie si tu le souhaites.

Tu places la proc de Flup ou la mienne dans un module standard.

Le code événementiel de ton bouton ressemblera à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub Monbouton_Click()
    dim Comtpeur as integer
    for compteur = 1 to 120
        ProcRepetee
        Tempo 2
    next compteur

Ok?

Ok?