VPF::Откритикуйте алгоритм времени

developer2007

Дата 24.1.2011, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 5.11.2007

Репутация: нет
Всего: -2

Есть свои собственные часы в которых идёт время вот так, но почему-то за минуту убегают на 2 секунды, таймер срабатывает каждую 1000 мсек и происходит следующее:

Код


  if Sec = 59 then
  begin
    Sec := 0;
    if Min = 59 then
    begin
      Min := 0;
      if Hour = 23 then
        Hour := 0
      else
        Hour := Hour + 1;
    end
    else
      Min := Min + 1;
  end
  else
    Sec := Sec + 1;

Что может быть не так?

--------------------

У настоящего програмёра прога пишется на асме с использованием натив апи

kami

Дата 24.1.2011, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(developer2007 @ 24.1.2011, 12:59

)

таймер срабатывает каждую 1000 мсек

таймер - штука неточная. Может сработать раньше, может - позже. И вообще, я бы делал так:
1. Если нужно считать время от определенного момента:
- при запуске таймера:

Код


  FStartTime:=Now; // (объявить переменную FStartTime:TDateTime, к примеру, в private секции формы)

- в таймере:

Код


var
  CurrTime:TDateTime;
  Hour, min, sec, msec:Word;
begin
  CurrTime:=Now - FStartTime;
  DecodeTime(CurrTime, Hour, Min, Sec, mSec);
end;

И всё. Если же нужно, чтобы время совпадало с системными часами, то просто ликвидируем из всего кода переменную FStartTime

Это сообщение отредактировал(а) kami - 24.1.2011, 13:47

developer2007

Дата 24.1.2011, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 5.11.2007

Репутация: нет
Всего: -2

Дело в том, что время берётся с сервера и затем надо чтобы у себя оно шло.

--------------------

У настоящего програмёра прога пишется на асме с использованием натив апи

developer2007

Дата 24.1.2011, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 5.11.2007

Репутация: нет
Всего: -2

всё разобрался тему можно закрыть

--------------------

У настоящего програмёра прога пишется на асме с использованием натив апи

Keeper89

Дата 24.1.2011, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Советую почитать вот это и это.

Цитата

If you need a higher resolution timer, use a multimedia timer or a high-resolution timer.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »