| Вопрос: Как посчитать время цикла? | Добавлено: 20.06.03 14:00 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
|
Короче, е меня в проге огромный по времени цикл. Как мне програмно определить сколько времени(в мс. или сек.)он длился? Заранее благодарен. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа: grizzly Вопросов: 1 Ответов: 2 |
Профиль | | #1 | Добавлено: 20.06.03 16:36 |
|
Используй класс DATETIME. Присвой одной переменной время до цикла, выполни цикл, отнеми от текущего времени первое. |
||
|
Номер ответа: 2 Автор ответа:  Alex3 ICQ: 9481061 Вопросов: 18 Ответов: 132 |
Профиль | | #2 | Добавлено: 20.06.03 18:15 |
|
dim t as double t=timer for ............. next msgbox timer-t Время в секундах. |
||
|
Номер ответа: 3 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #3 | Добавлено: 21.06.03 10:37 |
|
спасибо вввооооттт тттааакккооооееееееееее! всё работает! |
||
|
Номер ответа: 4 Автор ответа:  univercal ICQ: 173084484 Вопросов: 5 Ответов: 76 |
Web-сайт: Профиль | | #4 | Добавлено: 21.06.03 14:30 |
|
Хм... Глупость... Declare Function GetTickCount lib "kernel32" () as Long Dim NS as long '... NS = GetTickCount 'Цикл TimeSpent=GetTickCount - NS В TimeSpent будет время действия цикла в миллисекундах, кроме того! вызов GetTickCount запимает намного меньше времени, чем Time. |
||
|
Номер ответа: 5 Автор ответа: Alex3ICQ: 9481061 Вопросов: 18 Ответов: 132 |
Профиль | | #5 | Добавлено: 21.06.03 18:41 |
|
To univercal: Ну, да, очень здорово оптимизировал. Съэкономил какую-нибудь одну милионную секунды. А с функцией Timer результат точнее, т.к. выводится куча знаков после запятой. Если надо можно и в миллисекунды перевести. |
||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 22.06.03 06:17 |
|
Всё отлично! С Timer'ом всё получилось. Т.К мне суперточность не нужна пока, я его округлил. Очен благодарен за совет! |
||
Страница: 1 |