Particularité de la function Sleep

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/03/2009, 23h24
ucfoutu

Citation:

Envoyé par DarkVader

Il semble de plus en plus probable qu'il s'agit d'un jeu de composant hardware :
horloge carte mère ?

Cà, c'est clair...
(raison pour laquelle, j'avais carrément supprimé, dans cet esprit, l'affichage lui-même... seule chose que je pouvais supprimer...===>> donc une intervention hardware en moins)
Après, tu as les "voies" pour passer de ton disque à ta mémoire, puis de ta mémoire au processeur (et retour)... entre autres... et ...leur encombrement à un instant t...
Bonne nuit (et non, je ne suis pas de Marseille ...:lol:.. ni d'Utopia...d'ailleurs...)
10/03/2009, 00h29
DarkVader

1 pièce(s) jointe(s)

Une synthèse des données collectées pour qui cela intéresse.

Bonjour,

petites mesures matinales :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
    Private Type LARGE_INTEGER
        LowPart As Long
        HighPart As Long
    End Type
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long
    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
    Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
 
 
 
    Private Sub Command1_Click()
        Dim x As Long, y As Long, ret As String, t As Currency, debut As Long, duree_fictive As Long, duree_reelle As Long
        Dim frequency As Currency, liStart As LARGE_INTEGER, liStop As LARGE_INTEGER, cStart As Currency, cStop As Currency
 
        Const k0 As Long = 0
        Const k1 As Long = 250
 
 
'Me.ProgressBar1.Min = k0
'Me.ProgressBar1.Max = k1
 
        frequency = GetFrequency()
        If frequency <> 0 Then
            Dim zzz As Long
            debut = Timer
 
            For x = k0 To k1
                zzz = x
                zzz = 10
                QueryPerformanceCounter liStart
                    SleepEx zzz, False
                QueryPerformanceCounter liStop
                cStart = LargeInteger2Currency(liStart)
                cStop = LargeInteger2Currency(liStop)
                t = (cStop - cStart) / frequency
 
                ret = ret & IIf(ret <> "", vbCrLf, "") & x & vbTab & t
'Me.ProgressBar1.Value = x  ' (on oublie cette barre, carrément).
                duree_fictive = duree_fictive + zzz
            Next
        End If
            duree_reelle = Timer - debut
            duree_fictive = duree_fictive / 1000
            Clipboard.Clear
            Clipboard.SetText vbTab & frequency & vbCrLf & ret
 
        MsgBox "j'aurais du durer " & duree_fictive & " secondes , mais j'ai finalement duré " & duree_reelle & " secondes" & _
        vbCrLf & "perte absolue au titre des différentes tares ====>>> " & duree_reelle - duree_fictive & " seconde(s)" & _
        vbCrLf & "soit " & ((duree_reelle - duree_fictive) / duree_fictive) * 100 & " %"
        Unload Me
    End Sub
 
                Private Function GetFrequency() As Currency
                    Dim liFrequency As LARGE_INTEGER
 
                    If QueryPerformanceFrequency(liFrequency) <> 0 Then GetFrequency = LargeInteger2Currency(liFrequency)
                End Function
                Private Function LargeInteger2Currency(liInput As LARGE_INTEGER) As Currency
                    CopyMemory LargeInteger2Currency, liInput, LenB(liInput)
                    LargeInteger2Currency = LargeInteger2Currency * 10000
                End Function

C'est ton code, mais avec des repères...

Refais maintenant l'expérience, mais en "forçant" la duree du sleep à 10 millisecondes, uniformément. (c'est volontairement que j'ai choisi cette petite valeuir)
suffit d'alterner le commentaire ici :

Code:

1
2
zzz = x
'zzz = 10

Citation:

Envoyé par ucfoutu

Bonjour,

petites mesures matinales :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
    Private Type LARGE_INTEGER
        LowPart As Long
        HighPart As Long
    End Type
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long
    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
    Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
 
 
 
    Private Sub Command1_Click()
        Dim x As Long, y As Long, ret As String, t As Currency, debut As Long, duree_fictive As Long, duree_reelle As Long
        Dim frequency As Currency, liStart As LARGE_INTEGER, liStop As LARGE_INTEGER, cStart As Currency, cStop As Currency
 
        Const k0 As Long = 0
        Const k1 As Long = 250
 
 
'Me.ProgressBar1.Min = k0
'Me.ProgressBar1.Max = k1
 
        frequency = GetFrequency()
        If frequency <> 0 Then
            Dim zzz As Long
            debut = Timer
 
            For x = k0 To k1
                zzz = x
                zzz = 10
                QueryPerformanceCounter liStart
                    SleepEx zzz, False
                QueryPerformanceCounter liStop
                cStart = LargeInteger2Currency(liStart)
                cStop = LargeInteger2Currency(liStop)
                t = (cStop - cStart) / frequency
 
                ret = ret & IIf(ret <> "", vbCrLf, "") & x & vbTab & t
'Me.ProgressBar1.Value = x  ' (on oublie cette barre, carrément).
                duree_fictive = duree_fictive + zzz
            Next
        End If
            duree_reelle = Timer - debut
            duree_fictive = duree_fictive / 1000
            Clipboard.Clear
            Clipboard.SetText vbTab & frequency & vbCrLf & ret
 
        MsgBox "j'aurais du durer " & duree_fictive & " secondes , mais j'ai finalement duré " & duree_reelle & " secondes" & _
        vbCrLf & "perte absolue au titre des différentes tares ====>>> " & duree_reelle - duree_fictive & " seconde(s)" & _
        vbCrLf & "soit " & ((duree_reelle - duree_fictive) / duree_fictive) * 100 & " %"
        Unload Me
    End Sub
 
                Private Function GetFrequency() As Currency
                    Dim liFrequency As LARGE_INTEGER
 
                    If QueryPerformanceFrequency(liFrequency) <> 0 Then GetFrequency = LargeInteger2Currency(liFrequency)
                End Function
                Private Function LargeInteger2Currency(liInput As LARGE_INTEGER) As Currency
                    CopyMemory LargeInteger2Currency, liInput, LenB(liInput)
                    LargeInteger2Currency = LargeInteger2Currency * 10000
                End Function

Code:

1
2
zzz = x
'zzz = 10

Bonjour,
Soit tu es très fatigué (il est trop tôt), soit tu vieillis, soit tu ne veux pas comprendre (lecture en diagonale), dans tous les cas, tu trolles inutilement,
d'abord parce que tu es hors sujet
(la question étant la mise en évidence d'une particularité de sleep et non celle admise par tous des artéfacts de déroulement d'un code)
et ensuite parce que tu démontres le contraire uniquement parce que tu ne prends pas en compte ce qui a été mis en évidence auparavant :
le comportement de la fonction sleep par paliers de 15.625ms sur certaines configurations (dont la tienne fait partie de toute évidence),
car chez moi, 251*15.625=±4s soit une erreur d'environ 1‰ et non 33%.

Tu connaissant buté, je te colle le 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    Private Sub Command1_Click()
        Dim x As Long, y As Long, ret As String, t As Currency, debut As Long, duree_fictive As Long, duree_reelle As Long
        Dim frequency As Currency, liStart As LARGE_INTEGER, liStop As LARGE_INTEGER, cStart As Currency, cStop As Currency
        Dim liStart0 As LARGE_INTEGER, liStop0 As LARGE_INTEGER, cStart0 As Currency, cStop0 As Currency, duree_reelle0 As Currency
        Const k0 As Long = 0
        Const k1 As Long = 250  '   1000
 
 
'Me.ProgressBar1.Min = k0
'Me.ProgressBar1.Max = k1
 
        frequency = GetFrequency()
        If frequency <> 0 Then
            Dim zzz As Long
            debut = Timer
            QueryPerformanceCounter liStart0
 
            For x = k0 To k1
                zzz = x
                zzz = 10
                QueryPerformanceCounter liStart
                    SleepEx zzz, False
                QueryPerformanceCounter liStop
                cStart = LargeInteger2Currency(liStart)
                cStop = LargeInteger2Currency(liStop)
                t = (cStop - cStart) / frequency
 
                ret = ret & IIf(ret <> "", vbCrLf, "") & x & vbTab & t
'Me.ProgressBar1.Value = x  ' (on oublie cette barre, carrément).
                duree_fictive = duree_fictive + zzz
            Next
            QueryPerformanceCounter liStop0
                cStart0 = LargeInteger2Currency(liStart0)
                cStop0 = LargeInteger2Currency(liStop0)
                duree_reelle0 = (cStop0 - cStart0) / frequency
        End If
            duree_reelle = Timer - debut
            duree_fictive = duree_fictive / 1000
            Clipboard.Clear
            Clipboard.SetText vbTab & frequency & vbCrLf & ret
 
Dim duree_previsible_en_fct_du_palier As Single
duree_previsible_en_fct_du_palier = 15.625 * (k1 - k0 + 1) / 1000 ' si & seulment si x=10
 
        MsgBox "j'aurais du durer " & duree_fictive & " secondes , mais j'ai finalement duré " & duree_reelle & " secondes" & _
        vbCrLf & "perte absolue au titre des différentes tares ====>>> " & duree_reelle - duree_fictive & " seconde(s)" & _
        vbCrLf & "soit " & ((duree_reelle - duree_fictive) / duree_fictive) * 100 & " %" & vbCrLf & vbCrLf & "durée réelle en précision max : " & duree_reelle0 & vbCrLf & _
        "la durée attendue non linéaire aurait du être de : " & duree_previsible_en_fct_du_palier & "" & vbCrLf & "soit une erreur relative de : " & Format(duree_previsible_en_fct_du_palier / duree_reelle0 - 1, "0.##%") & " par rapport à la prévision"
        Unload Me
    End Sub

10/03/2009, 11h44
ucfoutu

Je suis buté si tu veux, DarkVader.
Celà ne me gêne pas du tout... (encore que j'utiliserais plutôt l'adjectif opiniatre).

Je ne crois absolument pas que la fonction Sleep soit vraiment celle essentiellement concernée par ce que tu constates.*

Tes "paquets" de 15.625ms (soit environ 16 millisecondes) sont normaux pour moi. Il s'agit là d'un problème fort connu de précision maximum (quelle que soit la méthode utilisée), constaté à diverses reprises (pas uniquement ici).
C'est, plutôt que Sleep, cette précision qui est en cause. L'écart constaté (la durée donc) entre deux mesures n'est pas vraiment fiable (taré) et est limité par cette précision. Lorsque, par chance, tu es proche d'un multiple (>1) de cet écart(1.6 ms en fait) , la justesse de la mesure est meilleure.

Ce n'est par ailleurs pas la prise de mesure seule (une fois de plus) qui est concernée, mais également tout ce qui est mis en oeuvre pour mesurer.
10/03/2009, 14h37
DarkVader

Pour qui cela peut intéresser, je remonte cette excellent tutoriel qui traite du «high-resolution performance counter» et ses applications,
en rapport direct avec le sujet puisqu'il permet d'évaluer une durée avec une précision supérieure au 1/10 000 000éme de sec.

Voir 40 message(s) de cette discussion en une page