VPF::Добавление к таймеру - Форум программистов

Romikgy

Дата 16.9.2009, 10:04 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Alkash @ 16.9.2009, 07:01

)

Добавляю минуты к минутам

по коду похоже что работаешь с секундами ,
да и таймер секундный

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alkash

Дата 16.9.2009, 10:10 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Точно, уплю...просто весь день работал с минутами - а под конец уже начал с секундами...Однако - как быть то в этой ситуации? Я уже чё только не перепробовал

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

Подпись >> /dev/null

Keeper89

Дата 16.9.2009, 10:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Как можно из MinutesLeft выражать секунды, там из попросту нет.
Судя по коду работа ведется в секундах, а таймер идет в минутах smile

Поэтому, чтобы прибавить 30 минут надо выразить это в секундах:

Код


  minutesleft := minutesleft + 30*60;

З.Ы. Я бы советовал привести все у секундам (если уже выбрали этот путь), чтобы код стал читаемым.

Добавлено через 5 минут и 8 секунд
Гы, Romikgy меня опередил smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Alkash

Дата 16.9.2009, 10:18 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

MinutesLeft - переменная глобальная.
И я как то не понимаю, чем

Код


minutesleft:=minutesleft+ (strtoint(mtimeedit.text)*60)

отличается от

Код


 minutesleft := minutesleft + 30*60;

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

Подпись >> /dev/null

Keeper89

Дата 16.9.2009, 10:18 (ссылка)

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

Загрузка ...

Эксперт

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

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

З.Ы. И еще - если не хочется работать с TTime, можно сделать свой маленький класс и считать значения там с функциями декремента и добавления времени.

Добавлено через 43 секунды
Alkash, у меня инкремент в 30 минут работает исправно...

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Alkash

Дата 16.9.2009, 10:28 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

MinutesLeft - переменная глобальная.
И я как то не понимаю, чем

Код


minutesleft:=minutesleft+ (strtoint(mtimeedit.text)*60)

отличается от

Код


 minutesleft := minutesleft + 30*60;

Добавлено через 43 секунды
Моя конструкция как-то не может этим похвастаться)))

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

Подпись >> /dev/null

Keeper89

Дата 16.9.2009, 10:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

А так

Код


minutesleft := minutesleft + 30*60;

тоже не работает?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Alkash

Дата 16.9.2009, 10:35 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Неа, ни в какую

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

Подпись >> /dev/null

Keeper89

Дата 16.9.2009, 10:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

У меня в проекте только это:

Код


procedure TForm2.Button1Click(Sender: TObject);
begin
  MinutesLeft := MinutesLeft + 30*60;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  MinutesLeft := 60*60;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  hr, mn, sc: Integer;tmp: string;
begin
  MinutesLeft := MinutesLeft - 1;
  hr := MinutesLeft div 3600;
  mn := (MinutesLeft - hr * 3600) div 60;
  sc := MinutesLeft - hr * 3600 - mn * 60;
  //sc:= sc-1;
  tmp := Format('%2.2d:%2.2d:%2.2d', [hr, mn, sc]);
  Caption:= tmp;
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Alkash

Дата 16.9.2009, 10:43 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Вот собрал тестовую конструкцию. Которая не хочет работать)

Присоединённый файл ( Кол-во скачиваний: 3 )

Test.rar 5,13 Kb

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

Подпись >> /dev/null

Alkash

Дата 16.9.2009, 10:46 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

А-а-а-а, заработало) Всем спасибо)

Присоединённый файл ( Кол-во скачиваний: 5 )

Test.rar 5,13 Kb

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

Подпись >> /dev/null

Keeper89

Дата 16.9.2009, 11:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

В чем же было дело?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Romikgy

Дата 16.9.2009, 11:28 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Alkash @ 16.9.2009, 09:10

)

Однако - как быть то в этой ситуации? Я уже чё только не перепробовал

брекпоинты пробовал ?

Цитата(Alkash @ 16.9.2009, 09:43

)

Вот собрал тестовую конструкцию. Которая не хочет работать)

полностью тестовое )) даже пас файл девственно чист smile

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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