Счётчик успешных операций в минуту на Delphi?

Question

[Yam0lod5y]

Пытаюсь сделать счётчик операций в минуту, уже подустал, нашёл данный код на c++, как его можно перенести в delphi?

var temp = 0;
for (int i = FailedList.Count() - 1; i >= 0; i--) { if ((DateTime.Now - FailedList[i].Time).TotalSeconds > 60) break; temp++; }
cpm = temp;

вот пример моего кода где считаю, но не хватает мозгов додумать, был вариант, но ругается на 0, хотя в другой среде всё работает, тут проблема с остатком, почему то при деление только 0 выдаёт, без сотых и т.д. и есть совсем не приятный момент, что тут показывает результат только спустя минуту

CPM := CHECKEDCount div ((DATENOWunix - STARTTIMEunix) div 60000);

Comments

[Kot-da-Vinci]

Для начала было бы неплохо выяснить, что оператор div это "оператор целочисленного деления", т.е. без остатка. По этому "без сотых".

Answer 1

[Hemul GM]

Используй тики. GetTickCount это счетчик ОС.

var Save := GetTickCount;
<do something>
var Delta := GetTickCount - Save; <- Тут кол-во миллисекунд, потраченное на действие выше

Comments

[Yam0lod5y]

Это работает отлично, но всё равно, не тот результат.
Мне нужно чтобы он считал сколько раз он пройдёт поток в течении минуты.
Пример

var Save := GetTickCount;
<do something>
inc(TestedCount);
var Delta := TestedCount div ((GetTickCount - Save) div 60000);

Данная функция не работает должным образом и результат спустя минуту или же поток может вообще удалится

[Hemul GM]

Yam0lod5y, всё зависит от вашей реализации, а не от функции

[Hemul GM]

Yam0lod5y, я по вашему отрывку кода не могу понять что вы хотите сделать. Где и как это происходит. Что в какой момент замеряется.

[Hemul GM]

Yam0lod5y, счетчик операций в минуту это, когда у вас есть:
1. Кол-во выполненных задач
2. И таймер, который будет забирать значение выше каждую секунду (или реже/чаще)

Таймер смотрит на кол-во выполненных задач (count). Сравнивает его с предыдущим значением (old_count).
delta _count := count - old_count <- это кол-во операций за интервал таймера.

Таймер всё же стоит делать раз в секунду.
И тогда, просто умножь delta_count на 60. Столько операций у тебя будет за минуту.

[Yam0lod5y]

Hemul GM,
Вот пример где count CPM, но нужно чтоб он показывал кол-во в минуту, а не за всё время

[Yam0lod5y]

Решение было сделано через таймер

procedure TFormChase.Timer1Timer(Sender: TObject);
begin
CPM :=  (CheckCount - OldCount);
OldCount := CheckCount;
end;

Answer 2

[OCTAGRAM]

Обычно календарь юникса измеряется в секундах, и только в JS исключение с миллисекундами. Если там правда миллисекунды, может, тогда заменить целочисленное деление div на операцию с плавающей точкой /

Также хорошей практикой будет использовать по возможности не гражданский календарь, а монотонное время. В языке Ada это приложение к стандарту D.8 Monotonic Time, описывающее пакет Ada.Real_Time. В Delphi тот же функционал спрятан в модуль с не очевидным названием System.Diagnostics. Это если программа не перезапускается в течение всего интересующего интервала.

Answer 3

[acwartz]

Ну и зачем вам юникстайм для этого?
Есть же функция ОС GetTickCount , а если работать с датами то в DateUtils есть MillisecondsBetween который вернет ровно тот же результат что и GetTickCount. Дальше хоть в секунды хоть в часы...