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