Timer.interval

[GorYU]

Решил определить, насколько Timer отклоняется по времени, написал:

Код: Выделить всё


Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim T As Long
Dim k As Long
Dim m(500)
Dim i As Integer

Private Sub Timer1_Timer()
k = GetTickCount - T - Timer1.Interval
If i <> 10 Then
    k = k + k
    i = i + 1
Else
    m(Timer1.Interval) = k / i
    i = 0
    k = 0
    Timer1.Interval = Timer1.Interval - 1
    Label1.Caption = Timer1.Interval
    If Timer1.Interval = 0 Then
        For i = 1 To 500
            Text1.Text = Text1.Text & i & vbTab & m(i) & vbCrLf
        Next i
    End If
End If
T = GetTickCount
End Sub


На форме TextBox, Label, Timer.
Кинул в Excel результаты, получил, см. прикреплённые файлы.
интересно это реально

[keks-n]

На низких значенях Interval таймер для точных измерений времени лучше не использовать

[tyomitch]

Решил определить, насколько Timer отклоняется по времени, написал

Здесь ты принимаешь за данность, что GetTickCount выдаёт абсолютно точное время. А это не так.
И вообще под Виндой точное время не получить. Она не для этого.