Секундомер...

← →
hatchy © (2004-02-03 07:34) [0]

Как сделать секундомер, который бы считал не только секунды, а также минуты и часы. Чтобы он ,был вот такого типа 00:00:00,
как в игре lines.

← →
mfender © (2004-02-03 07:45) [1]

Можно попытать счастья, набросав что-то типа
var CurrTime: TDateTime; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin CurrTime:=CurrTime+EncodeTime(0,0,1,0); label1.Caption:=FormatDateTime("hh:nn:ss",CurrTime); end; procedure TForm1.FormCreate(Sender: TObject); begin CurrTime:=EncodeTime(0,0,0,0); end;

← →
Думкин © (2004-02-03 08:08) [2]

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

← →
mfender © (2004-02-03 08:14) [3]

А как его можно использовать в данной ситуации?

← →
Думкин © (2004-02-03 08:17) [4]

> [3] mfender © (03.02.04 08:14)

А в чем принципиальная трудность?

← →
mfender © (2004-02-03 08:19) [5]

Не могу постичь, как использовать эти цифры (милисекунды неизвестно отчего).

← →
Думкин © (2004-02-03 08:21) [6]

1. засекаем когда запустили таймер.
2. в например таймере или потоке считываем текущее значение.
3. вычисляем разность - переводим ее в наш формат визуализации.

← →
mfender © (2004-02-03 08:32) [7]

Все понятно. Не понятно одно: как эти милисекунды привести к традиционному виду TDateTime?

← →
Думкин © (2004-02-03 08:33) [8]

А посчитать?

← →
mfender © (2004-02-03 08:35) [9]

Считаю. Что-то не то выходит. Уже даже завтрак пригорел :))

← →
Думкин © (2004-02-03 08:37) [10]

Например, так:
function dToStr(n : integer) : string; var T,h,m,ss : integer; s : string; begin T := n; T := T div 1000; ss := T mod 60; T := (T - ss) div 60; m := (T mod 60); T :=(T - m) div 60; h := T mod 100; if h<10 then s := "0"+IntToStr(h) else s := IntToStr(h); if m<10 then s := s + ":0"+IntToStr(m) else s := s + ":" + IntToStr(m); if ss<10 then s := s + ":0"+IntToStr(ss) else s := s + ":" + IntToStr(ss); Result := s end;

← →
Verg © (2004-02-03 08:40) [11]

TDateTime - количество дней в вещественном представлении (double)

Так что, если умеешь переводить, например граммы в тонны, то и здесь все будет просто.

← →
mfender © (2004-02-03 08:45) [12]

Понятно. Ну, с математикой у меня всегда были проблемы. До такого бы сроду не догадался.
А чем предложенный мною способ хуже?

> А чем предложенный мною способ хуже?

А при переводе секунды в TDateTime будет погрешность (очень маленькая, но будет). Продложенный тобой способ предлагает накапливать эти секунды вместе с этой погрешностью. Т.е. по мере счета суммарная погрешность будет накапливаться.
Лучше на каждом "тике" вычислять разность абсолютных величин. Тогда погрешность будет постоянной малой величиной (не будет накапливаться).

Спасибо. Подумаю над этим.

mfender ты чего в чужую ветку лезешь? Тебе что места не хватает, задай свой вопрос в своей отдельной ветке.

hatchy © (03.02.04 07:34)
Для этого не надо ограничивать секундомер 59 секундами, сделай его без размерный и лучше всего на основе функции NOW и одной вспомогательной переменной.

Но ведь GetTickCount работает только до 4294967295 а потом обнуляется. А если нужно, чтобы он считал, скажем, два месяца? :)

Еще он хуже тем, что таймер работает не точно, а с погрешностью. Поэтому через какое-то время, он начнет обманывать.
В приведенном выше коде можно многое улучшить.
Но можно остановиться и на [11] Verg © (03.02.04 08:40).

Секундомер... Найти похожие ветки