gifts2017

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

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

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

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

 

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

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

 

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

 

попытка 

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

исключение

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

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

 

нсом.StartTimer();

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

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

нсом.StopTimer();

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

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

 

 

________________________

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

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

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

См. также

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

4. Вячеслав Н. Бойко (boy13) 30.05.09 12:18
5. Василий Демидов (Душелов) 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) 30.05.09 23:08
(5) Василий, я не сомневался в Ваших знаниях и умениях :) , но я ведь только учусь... :)
8. Алексей Константинов (alexk-is) 01.06.09 06:02
9. Alexey Markin (markinleha) 02.07.09 12:42
10. Алексей Миронов (a_mironov) 11.12.11 04:19
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа