Интервал Timer'a перевести на Min

[Rebel123]

Сообщение от Altera

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

Например нужен интервал 8 часов, 32 минуты и 59 секунд. Как перевести его в миллисекунды?
Отвечаю:

function toMilliSeconds(const aHours, aMinutes, aSeconds: byte): cardinal;
begin
   result := (aHours*3600 + aMinutes*60 + aSeconds)*1000;
end;
...
timer1.interval := toMilliSeconds(8, 32, 59); // интервал получится 30 780 000

Есть ещё что-то не понятное по этой теме?

Спасибо!!! меня интересует еще кое что: как это реализовать? Если В ЧекБоксе выбран самый первый Айтемс, то тогда Таймер ставиться на 5 мин? то есть с Таймером ясно а вот с ЧекБоксом что-то не допер слегка(

[Anatole]

от с ЧекБоксом что-то не допер слегка(

Обрабатывай для него событие OnCheck, в котором и устанавливай значение для таймера в зависимости от выбраной позиции.

[Altera]

2Rebel123, Anatole

Сообщение от Anatole

Обрабатывай для него событие OnCheck, в котором и устанавливай значение для таймера в зависимости от выбраной позиции.

Он не чекБокс скорее всего имел виду, а комбо бокс.

Объясняю: Вот, допустим, у тебя tComboBox.items выглядит так:

10 мин.
45 час.
32 мин. 50 сек.
4 час. 32 сек.
6 час. 12 мин. 46 сек.

Нумерация идёт с нуля (!).

0: 10 мин.
1: 45 час.
2: 32 мин. 50 сек.
3: 4 час. 33 сек.
4: 6 час. 12 мин. 46 сек.

Теперь, (это я объясняю, если у тебя уже заранее всё заданно) пишешь такой код на установку интервала

{toMilliSeconds описанна выше}
case intSelect_box.itemIndex of { intSelect_box - это твой комбоБокс (выпадающий список) }
0: timer.interval := toMilliSeconds(0, 10, 0);
1: timer.interval := toMilliSeconds(45, 0, 0);
2: timer.interval := toMilliSeconds(0, 32, 50);
3: timer.interval := toMilliSeconds(4, 0, 33);
4: timer.interval := toMilliSeconds(6, 12, 46);
end;

И ещё, я тебя послал уже в отдел книг? Видать ты не долетел.

[Rebel123]

case intSelect_box.itemIndex of { intSelect_box - это твой комбоБокс (выпадающий список) }
0: timer.interval := toMilliSeconds(0, 10, 0);
1: timer.interval := toMilliSeconds(45, 0, 0);
2: timer.interval := toMilliSeconds(0, 32, 50);
3: timer.interval := toMilliSeconds(4, 0, 33);
4: timer.interval := toMilliSeconds(6, 12, 46);

а начало кода где? куда его вставлять?

[Altera]

Сообщение от Rebel123

case intSelect_box.itemIndex of { intSelect_box - это твой комбоБокс (выпадающий список) }
0: timer.interval := toMilliSeconds(0, 10, 0);
1: timer.interval := toMilliSeconds(45, 0, 0);
2: timer.interval := toMilliSeconds(0, 32, 50);
3: timer.interval := toMilliSeconds(4, 0, 33);
4: timer.interval := toMilliSeconds(6, 12, 46);

а начало кода где? куда его вставлять?

Господи помилуй. Да куда хочешь вставляй, в любую процедуру.
Допустим у тебя кнопка Задать, создай ей событие onClick и в нём напиши этот

procedure tForm1.set_btnClick(sender: tObject);
begin
   case intSelect_box.itemIndex of 
   0: timer.interval := toMilliSeconds(0, 10, 0);
   1: timer.interval := toMilliSeconds(45, 0, 0);
   2: timer.interval := toMilliSeconds(0, 32, 50);
   3: timer.interval := toMilliSeconds(4, 0, 33);
   4: timer.interval := toMilliSeconds(6, 12, 46);
   end;
end;

[vovk]

простите за оффтоп
не подскажете откуда у них растёт репутация?
несколько человек просматривал которые задают подобные вопросы а репутация неуклонно растёт.. все посты проглядывал, так и не нашол за что могл прибавить, ни у одного.. может я гдкто от жизни отстал, или чего недопонимаю.. ведь ктото ему репутацию в 2.1 раза поднял.. скоро вообше на эту циферку смотреть нельзя будет..

действительно зря написал

[Rebel123]

Сообщение от vovk

простите за оффтоп
не подскажете откуда у них растёт репутация?
несколько человек просматривал которые задают подобные вопросы а репутация неуклонно растёт.. все посты проглядывал, так и не нашол за что могл прибавить, ни у одного.. может я гдкто от жизни отстал, или чего недопонимаю.. ведь ктото ему репутацию в 2.1 раза поднял.. скоро вообше на эту циферку смотреть нельзя будет..

Ну раз я топик создал это не значит что я не могу другим людям помогать! я заглядываю другие топики и если могу помочь то тогда помогаю!

[Altera]

Сообщение от vovk

простите за оффтоп
не подскажете откуда у них растёт репутация?
несколько человек просматривал которые задают подобные вопросы а репутация неуклонно растёт.. все посты проглядывал, так и не нашол за что могл прибавить, ни у одного.. может я гдкто от жизни отстал, или чего недопонимаю.. ведь ктото ему репутацию в 2.1 раза поднял.. скоро вообше на эту циферку смотреть нельзя будет..

Смотрите, что-бы за такие оффтопики у вас репа не слетела, а то ещё и на рушение выдадут.