Discussion :

[michaelclary]

Bonjour,
Sur mon application en VB6, j'ai une fonction qui me permet d'attendre un certain temps en laissant la main au système (doevents), le problème c'est que cette fonction me fait monté le CPU à 100% alors que le système en lui même n'est pas ralenti. D'ou ma question, est-ce un bug du gestionnaire de tâche, ou un problème avec ma fonction?

Merci.

Code :

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

1
2
3
4
5
6
7
8
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
 
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        DoEvents
    Loop
End Sub

[DarkVader]

Bonjour,
Pour marquer une pause, utilise l'api Sleep.

... alors que le système en lui même n'est pas ralenti

?

[real_achilles]

bonjour
problème ave cton code
fait un "sleep" dans ta boucle

[real_achilles]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'déclaration de l'api sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
 
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        sleep 500 'pause d 1/2 seconde puis continue
        DoEvents
    Loop
End Sub

[DarkVader]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'déclaration de l'api sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
 
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        sleep 500 'pause d 1/2 seconde puis continue
        DoEvents
    Loop
End Sub

Ça c'est du tordu et j'm'y connais.