Счетчик

[Юджин]

как сделать счетчик времени выполнения процедуры, отображаемый на форме?

[Amed]

В таймере вычитаем время начала выполнения процедуры из текущего времени. Результат пишем на форме.

Какой пункт непонятен?

[Arcanoid]

dim t as long

t = GetTickCount()
'... выполнение процедуры
t = GetTickCount() - t

form.caption = t & " ms"

[Amed]

Юджин, задайте вопрос еще раз. Какой нужен таймер? Динамический (сколько уже выполняется процедура) или статический (сколько она выполнялась)?

[SeT]

Небусь динамическо-статистический, к чему такие сложности.

[Юджин]

нужен динамический таймер

[Firestorm]

юзай GetTickCount
чтоб не висла программа, приписывай DoEvents

[Бяка]

Наверно ето можно в ету тему написать:

КАК ЗЫДЕЛАТЬ ЗАДЕРЖКУ в 15 микросек +/- 5мксек?
а также 50

[Faust]

А тебе точно нужны именно микросекунды? Мили не подойдут? Ну да ладно. Где-то на форуме лежал материал по поводу более точных API, не юзающих единый виндовский таймер. Мне же голову приходит только дурной способ, зависимый от загрузки процессора в каждый момент времени, но все же позволяющий на больших промежутках времени получать нужную картину.

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

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim i As long, j as long, k as long, etalon as single, t as long
t=timegettime
i=0
'Десять секунд тратиться на определение быстродействия
Do
   i=i+1
Loop while timegettime-t<10000
etalon=i/200000 'количество итераций, занимающее около 50 мкс
Do While working 'working - некая булевая переменная, указатель того, что еще нужно работать
j=0
i=0
Do
j=j+1
k=clng(j*etalon)
Do
   i=i+1
Loop while i<k
Call ToChtoNado 'весь остальной код (не является же задержка в 50 мкс самоцелью?)
Loop until j=200000
Loop

По-моему, так. (с) Винни-пух