всё просто: Засеки время перед и после цикла, потом отними. Например:

Private Sub Form_Load()
Me.AutoRedraw = True
Print Timer
For i = 0 To 1000000
  'твоя сортировка
Next i
Print Timer
End Sub

Ответить

Есть одно НО... Поставлю вопрос по другому - цикл (не сортировка) выполняется бесконечно(!) - как быть?

Ответить

"... эк тебя тыркнуло... " (C) кино ДМБ

Дай хоть кусок кода что-ли. А то представить сложно

Ответить

Грубый пример.

i=1

do until i=2 ' бесконечный цикл

'действие

loop

Прерывается при i=2 (принудительно)

Нужно - скорость выполнения действия (раз/сек).

Ответить

>Нужно - скорость выполнения действия (раз/сек).

ну так и замеряй время до и после выполнения действия.

Ответить

OK!

Ответить

Опять засада!

Вот код-

k = 0

j=50000

For i = 0 To j

iSpeedBegin = Timer

'действие

Form1.Refresh

iSpeed = Timer - iSpeedBegin

k = 1 / iSpeed ' iSpeed--->0 и k ---> деление на ноль

Label7.Caption = k & " k/s "

Next i

Как быть?

Ответить

Этот код выполнился рактически мгновенно, соответственно iSpeed = Timer - iSpeedBegin получилось равным нулю. Что мешает сделать так:

    k = 0
    j = 50000
    iSpeedBegin = Timer

    For i = 0 To j
        'действие
        Form1.Refresh
        DoEvents
        If Timer - iSpeedBegin > 0 Then
            iSpeedBegin = Timer - iSpeedBegin
            k = 1 / iSpeedBegin
            Label1.Caption = k & " k/s "
            iSpeedBegin = Timer
        End If
    Next i

Ответить

Ok... Но мешает то , что я не увижу реальной скорости выполнения программы - ты ограничил ее возможным верхним пределом ... Нужно Реально посчитать скорость (пусть даже она будет 1.000.000 циклов/сек)Как я понял Timer этого не позволяет ....Если только умножать показания таймера на 100000 ....

Кто делал такую фигню- помогите, зачем изобретать велосипед.

Ответить

Private Declare Function GetTickCount Lib "kerne132" () as long

Вчера в книге прочитал! GetTickCount - даетвремя от начала работы Windows в милисекундах! Но я пробовал, лично у меня не находит библиотеку "kerne132". ну попробуй в цикле на форму:

...

lngMS=GetTickCount

print lngMs

...

Ответить

Ответить

Пришел вот к какому варианту -

iVerySpeed = 1

For i = 0 To j - 1

iSpeedBegin = Timer

DoEvents

iSpeedEnd = Timer

If iSpeedEnd - iSpeedBegin > 0 Then

k = (iVerySpeed * 1000) / (Timer - iSpeedBegin) ' интервал в миллисекундах, 'поэтому *1000

Label7.Caption = k & " k/s "

iVerySpeed = 1

Form1.Refresh

Else

iVerySpeed = iVerySpeed + 1 ' кол-во проп. интервалов из-за =0

End If

Next i

Но для удобства - как сделать, чтобы в Label7 значение показывалось с интервалом (а то цифирки бегут...) Через таймер пробовал - может руки сильно кривые...

Ответить

StartDebug -начало отсчета

EndDebug - конец

В модуль:

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim sTick As Long, eTick As Long
Enum Times
милисекунды = 1
секунды = 2
минуты = 3
часы = 4
End Enum

Public Sub StartDebug()
sTick = GetTickCount()
End Sub

Public Function EndDebug(ReturnType As Times) As Long
eTick = GetTickCount()
Select Case ReturnType
Case 1
EndDebug = eTick - sTick
Case 2
EndDebug = (eTick - sTick) / 1000
Case 3
EndDebug = (eTick - sTick) / 1000 / 60
Case 4
EndDebug = (eTick - sTick) / 1000 / 60 / 60
End Select
End Function

Ответить