Discussion :

[snoopy69]

Bonjour à tous,

Je travaille avec VB6 et j'ai du faire un programme qui scann un port com de mon pc toute les "X" secondes sur une durée de "Y" heures, minutes, secondes.

Le programme fonctionne à merveille mais lorsque l'on passe le cap de 23h59 59" mon timer se réinitialise à la valeur "0" et ma procédure "Delay" tourne en boucle.

Voici la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub proDelay(nSecond As Single)
    Dim t0 As Single
    'temps de référence
    t0 = Timer
    Do While Timer - t0 < nSecond
        DoEvents
        If nSecond - (Timer - t0) > 0.5 Then
            Sleep (400) 'milliseconde
        ElseIf nSecond - (Timer - t0) > 0.1 Then
            Sleep (90)
        End If
    Loop
End Sub

(je crois même que cette procédure vient de la FAQ si je ne me trompe pas)

Comment puis-je faire pour que mon timer ne se réinitialise pas à "0" lorsque l'on change de date (automatiquement) ? ...

Merci d'avance pour vos réponses.

Si vous avez besoin de plus d'information / code, merci de me le dire ...

Bonne journée à vous tous ... ;-)

[OhMonBato]

Je n'ai pas essayé le code suivant mais ça devrait faire l'affaire je pense :

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
 
Public Sub proDelay(nSecond As Single)
Dim t0 As Single
'temps de référence
t0 = Timer 
Do While Timer - t0 < nSecond
  DoEvents
  If nSecond - (Timer - t0) > 0.5 Then
    Sleep (400) 'milliseconde
  ElseIf nSecond - (Timer - t0) > 0.1 Then
    Sleep (90)
  End If
  If Timer < t0 then t0 = t0 - 86400
Loop
End Sub

[snoopy69]

Ouahhh ... super ...

Cela fonctionne super bien ... ;-) ...

Merci pour ce code ...

C'est vraiment génial ...