Problème de boucle avec Timer
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:
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 |
