Вопрос по Timer и измерение времени отработки операции...

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Nataliak
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 10.03.2004 (Ср) 0:10

Вопрос по Timer и измерение времени отработки операции...

Сообщение Nataliak » 30.03.2004 (Вт) 18:06

Есть база. В ней я листаю документы по клавишам (точнее программа на VB6 смотрит базу на Lotus Domino сервере). Все работает, но... мне нужно произвести замеры времени реакции системы - сколько времени тратится на ту или иную операцию, рузультат выводить с статус ную строку.
Что-то типа: затрачено 00:01:03 (часы:минуты:секунды).
Поскажите как правильно использовать и что? Timer? :?:

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.03.2004 (Вт) 20:23

Ну, например:
Код: Выделить всё
Dim Vremya As Date

Private Sub Command1_Click()
Timer1.Enabled = True
DoEvents
Timer1.Interval = 1000
DoEvents
DoSomeMethods
DoEvents
DoSomeMethods
DoEvents
Timer1.Enabled = False
Debug.Print Vremya
End Sub

Private Sub Timer1_Timer()
Vremya = DateAdd("s", 1, Vremya)
DoEvents
End Sub

Sub DoSomeMethods()
For i@ = 0 To 999999@
DoEvents
Next
End Sub
Нет меня больше

Nataliak
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 10.03.2004 (Ср) 0:10

Сообщение Nataliak » 30.03.2004 (Вт) 22:08

Спасибо!!!

:P Получается в секундах. А более точно - в милисекундах, есть способ?
Оказалось, что нужно более точно :(

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.03.2004 (Вт) 22:40

Тогда придется использовать GetTickCount.
Код: Выделить всё
Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Dim T&
DoEvents
T = GetTickCount
DoSomeMethods
Debug.Print GetTickCount - T
End Sub

Sub DoSomeMethods()
For I@ = 0 To 999999@
DoEvents
Next
End Sub


Результат получится в миллисекундах.
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 11

    TopList  
cron