Timer+

[amer]

Обнаружил интересную вещь: когда в TimerX.interval задаешь разные значения то срабатывает процедура по правилам только если эти самые интервалы равны 1000, 500, 250, 125 в остальных случаях - не предсказуемо... т.о. получается, что точность до 1/8 секунды, а хотелось бы больше...
вопрос: как написать самому "ТИПА ТАЙМЕР"?
попробовал следующее:

Dim i As Integer, j As Long, min As Long, max As Long
Dim k(9) As Double

Private Sub Command1_Click()
Timer1.Enabled = True
Do
DoEvents
If i > 9 Then
Timer1.Enabled = False
For i = 0 To 9
s = s + k(i)
Next i
s = s / 10
tInt = s / 1000
s = 0
j = 0
i = 0
Exit Do
End If
j = j + 1
Loop
End Sub

Private Sub Timer1_Timer()
k(i) = j
If min > j Then min = j
If max < j Then max = j
i = i + 1
j = 0
End Sub

в итоге получаю число tInt =операций процессора в секунду
но проблема в следующем
1. проц сильно грузится
2. tInt - всегда разное
3. нельзя на компе ничего делать больше...

[amer]

коряво получилось....
попробую сформулировать вопрос иначе:
мне нужен таймер, в котором можно установить миллисекунду
у кого-нить есть идеи, как написать такой?

[Yurich]

Старый проверенный в 3Д для определения ФПС способ:

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Long) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Long) As Long

Dim QFreq As Long
Dim QTime As Long
Dim dQtime As Single

Private Sub Form_Load()
QueryPerformanceFrequency QFreq
Do
DoEvents
QueryPerformanceCounter QTime
QTime = Abs(QTime)
dQtime = Abs(QTime) / QFreq * 100!
'Debug.Print QTime
Debug.Print dQtime
Loop
End
End Sub

Достаточно обработать dQtime

[amer]

спасибо ща попробую.....

[Yurich]

PS. Желательно будет учесть переход Qtime в отрицательные/положительные значения. Проследи сам, как это происходит.

[amer]

попробовал....загрузка проца такая же....
я в своей проге в начале определяю среднее значение (tInt) операций в секунду, а уже в основной программе это значение использую для определения, допустим, промежутка времени между двумя нажатиями на клавиатуре (скорости) у меня проц 2-х ядерный и загрузка соответственно 50%...

[Yurich]

Если надо определить разницу во времени добавь типа
Do
...
dQTime = Abs(QTime - QTimeOld) / QFreq * 100!
...
QTimeOld = QTime
Loop
Повторюсь, этот цикл, не жрет ресурсов. К тому-же точен. Если загрузка проца высока, ищи проблему в другом.

[amer]

а можно расшифровать QFreq - частота чего?
QTime - время какое?

[amer]

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Long) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Long) As Long
Dim QFreq As Long
Dim QTime As Long
Dim dQtime As Double
Dim oldQtime As Double
Dim TXT As String
Dim i As Long

Private Sub Command1_Click()
i = 0
TXT = ""
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
QueryPerformanceFrequency QFreq
QueryPerformanceCounter QTime
dQtime = Abs(QTime) / QFreq
i = i + 1
TXT = TXT & i & " " & (dQtime - oldQtime) & vbCrLf
oldQtime = dQtime
If i > 9 Then
Timer1.Enabled = False
Text1.Text = TXT
End If
End Sub

Получаем:

2 0,11980049341366
3 -0,999917936318625
4 0,135553005288038
5 1,00006444099273
6 -0,390923994157299
7 -0,999866258326892
8 0,646085540427817
9 0,99994477183817
10 -0,901330535748148

Кто знает в чем беда?

На другом компе разница в значениях не более 0,007

[amer]

а кто-нить знает где взять системное время, формат его записи там, с какой точностью оно там хранится...?
идея в чем... format(time,"hh:nn:ss") - точность до секунды, может оттуда можно большую изъять?

[Lumen]

Уж лучше тогда GetTickCount юзать...

[Nord777]

Попробуй мультимедиа-таймер. У него кажись разрешение 1 мс.
слова для поиска:
timeBeginPeriod
timeEndPeriod
timeGetDevCaps
timeGetSystemTime
timeGetTime
timeKillEvent
TimeProc
timeSetEvent

MMTIME
TIMECAPS

[ALX_2002]

Удалил свой пост, потому что перечитал начало и понял, что написал гупость

[Yurich]

а можно расшифровать QFreq - частота чего?
QTime - время какое?

QFreq? Что это в точности - не задумывался, похоже на частоту шины/чипсета. Надо будет почитать MSDN.
QTime - текущее значение системного таймера
dQTime - разница между текущим и прежде зафиксированными.

[amer]

кажися помогло вот это:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

[Хакер]

Yurich

Freq - это не частота шины/чипсета, это frequency, что в переводе на русский означает "частота" - любая частота.