Timer - Внешняя компонента, позволяющая "засечь" время выполнения вашей обработки.

Опубликовал Вячеслав Н. Бойко (boy13) в раздел Программирование - Внешние компоненты

У вас когда-нибудь возникала необходимость в подсчете времени, которое затрачивается на выполнение той или иной обработки? Я создал внешнюю компоненту, которая упрощает эту задачу.

В архиве два файла. Сама DLL и внешняя обработка (8.1), показывающая методы работы с компонентой.

 

Установка компоненты осуществляется общепринятым способом регистрации в Windows.

regsvr32 [путь к dll]\btimer.dll

 

Пример использования:

 

попытка 

нсом = НОВЫЙ COMОбъект("bTimer.Timer1");

исключение

предупреждение("Не могу СОЗДАТЬ СОМ-объект!");

конецпопытки;

 

нсом.StartTimer();

сообщить("Время-старт: "+нсом.GetTimeStart());

для й=1 по 2000000 цикл i=1; конеццикла;

нсом.StopTimer();

сообщить("Время-стоп: "+нсом.GetTimeStop());

сообщить("Время работы: "+нсом.GetTimeSpan());

 

 

________________________

PS. Знаю, что не оригинал, но это моя первая внешняя компонента. Если кого-то заинтересует, выложу релиз.

Скачать файлы

Наименование Файл Версия Размер
-
.1243635787 40,70Kb
23.12.14
98
.1243635787 40,70Kb 98 Скачать

См. также

Добавить вознаграждение
Комментарии
1. Serj (Serj1C) 458 30.05.09 08:49 Сейчас в теме
Ждем чего-то более серьезного )
2. Игорь Белышев (biv75) 30.05.09 09:12 Сейчас в теме
За старание в плане освоения ВК +
3. Алексей Константинов (alexk-is) 6075 30.05.09 11:28 Сейчас в теме
Может быть текст примера раскрасить?

4. Вячеслав Н. Бойко (boy13) 165 30.05.09 12:18 Сейчас в теме
5. Василий Демидов (Душелов) 3773 30.05.09 13:34 Сейчас в теме
Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language = "javascript";

ВремяНачала = Формат(Скрипт.eval("new Date().getTime()"),"ЧГ=0");

....

ВремяОкончания = Формат(Скрипт.eval("new Date().getTime()"),"ЧГ=0");
Сообщить("Выполнение заняло: " + Строка(ВремяОкончания - ВремяНачала) + " мсек. "
6. Сhe Burashka (CheBurator) 30.05.09 13:38 Сейчас в теме
ндя.. в клюшках это штатно.. _GetPerformanceCounter()
7. Вячеслав Н. Бойко (boy13) 165 30.05.09 23:08 Сейчас в теме
(5) Василий, я не сомневался в Ваших знаниях и умениях :) , но я ведь только учусь... :)
8. Алексей Константинов (alexk-is) 6075 01.06.09 06:02 Сейчас в теме
9. Alexey Markin (markinleha) 02.07.09 12:42 Сейчас в теме
10. Алексей Миронов (a_mironov) 11.12.11 04:19 Сейчас в теме
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа