Bonjour,
J'ai un programme qui contient une temporisation dans une boucle et je souhaiterai mettre une deuxième boucle dans la première mais ça me pose
problème. Dans cette deuxième boucle j'aimerai faire une simple action pendant un temps appelé "purge" définit par l'utilisateur
Est-ce parce que j'utilise deux fois la fonction Timer ?
Voici mon code :
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
16
17
18
19
20
21
22
23
24
25
26 Tim = TimeSerial(Hour(Now()), Minute(Now()), Second(Now())) Do While Tim < TimeSerial(a, b, 0) 'Première boucle ' mon code k = Timer: Do Until Timer > k + delai: DoEvents: Loop 'la tempo m = Timer Do While Timer > m + Purge 'Deuxième boucle qui ne marche pas phid.OutputState(0) = False phid.OutputState(1) = False Loop 'fin du code Tim = TimeSerial(Hour(Now()), Minute(Now()), Second(Now())) Exit Do End If DoEvents Loop
Partager