Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Таймер в Delphi   Найти похожие ветки 

 
G.I.   (2010-04-17 13:09) [0]

Как сделать таймер, который будет вести обратный отсчет (например от 60) и доходя до 0 начинает заново с 60 (бесконечное колличество раз, пока не закроют форму). Отсчет должен отображаться в Label.


 
DVM ©   (2010-04-17 13:36) [1]

что конкретно непонятно? и что пробовал сделать?


 
Anatoly Podgoretsky ©   (2010-04-17 13:59) [2]

> G.I.  (17.04.2010 13:09:00)  [0]

Старндатный таймер именно так и работает.


 
Loginov Dmitry ©   (2010-04-17 14:12) [3]


> Старндатный таймер именно так и работает.


не, к нему еще нужно влепить операцию "отнять"


 
Anatoly Podgoretsky ©   (2010-04-17 14:14) [4]

Таймеру это не надо, это он делает сам без G.I.


 
Юрий Зотов ©   (2010-04-17 14:42) [5]

> G.I.   (17.04.10 13:09)  

implementation

var
 Count: integer = 60;

procedure TForm1.Timer1Timer(Sender: TObject); // Timer1.OnTimer
begin
 Dec(Count);
 if Count = 0 then Count := 60;
 Label1.Caption := IntToStr(Count);
end;


 
DVM ©   (2010-04-17 14:44) [6]


> Юрий Зотов ©   (17.04.10 14:42) [5]

непедагогично это


 
Palladin ©   (2010-04-17 15:45) [7]

конечно не педагогично, до нуля никогда не дойдет )


 
Anatoly Podgoretsky ©   (2010-04-17 16:06) [8]

Переход через Нуль имеет два значения.


 
Leonid Troyanovsky ©   (2010-04-17 16:28) [9]


> G.I.   (17.04.10 13:09)

> Как сделать таймер, который будет вести обратный отсчет
> (например от 60) и доходя до 0 начинает заново с 60 (бесконечное
> колличество раз, пока не закроют форму). Отсчет должен отображаться
> в Label.


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with Label do
   begin
     Caption := IntToStr(60-(60-StrToInt(Caption)+1) mod 61);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Label.Caption := "60";
 Timer1.Enabled := True;
end;

--
Regards, LVT.


 
И. Павел ©   (2010-04-17 16:44) [10]


> G.I.


А это, случайно, не секундомером будет?


 
Leonid Troyanovsky ©   (2010-04-17 16:46) [11]


> И. Павел ©   (17.04.10 16:44) [10]

> А это, случайно, не секундомером будет?

А тогда что?

--
Regards, LVT.


 
И. Павел ©   (2010-04-17 17:10) [12]


> А тогда что?

Тогда лучше все сделать через Time или Now. причины:
1. При добавлении часов и минут (если, конечно, автор не хочет сделать таймер просто по секундам) не придется заморачиваться.
2. Если таймер проработает больше секунды, пойдет отставание.


 
И. Павел ©   (2010-04-17 17:11) [13]


> Если таймер проработает

То есть не таймер, а обработчик


 
DVM ©   (2010-04-17 17:48) [14]

При определенных условиях, стандартный таймер может вместо 60 раз тикнуть 40, а то и 30 раз. Полагаться на его интервалы и количество тиков нельзя.


 
Юрий Зотов ©   (2010-04-17 17:57) [15]


> DVM ©   (17.04.10 14:44) [6]

Наоборот.

Когда нас в первом классе учили азбуке, нам показывали, как произносятся буквы? Голосом?

Или просто показывали написаннную букву и говорили "произнеси"?


 
Anatoly Podgoretsky ©   (2010-04-17 18:05) [16]

> DVM  (17.04.2010 17:48:14)  [14]

Не может, он будет тикать пока его не отключат.


 
DVM ©   (2010-04-17 18:14) [17]


> Anatoly Podgoretsky ©   (17.04.10 18:05) [16]

Я не о том, понятно, что он тикать будет пока не отключат, но рассчитывать на тик в секунду и 60 тиков через минуту не следует. Тут же число 60 наводит на мысли о минуте.


> Юрий Зотов ©   (17.04.10 17:57) [15]

Но в первом классе нам не показывали как читать слова ДО ТОГО как не были разобраны нужные буквы и звуки.

Тут такая же ситуация. Если человек читал про переменные то о приращении оных вопросов не должно возникать. Если человек читал про ветвления то о том как сравнить два значения и в нужный момент изменить ход программы - тоже.

А больше и не требуется.

А так он пойдет и удовлетворит свою сиюминтную потребность в сдаче какой то лабы вероятно. В следующий раз он спросит абсолютно аналогичную вещь.


 
Leonid Troyanovsky ©   (2010-04-17 19:48) [18]


> DVM ©   (17.04.10 18:14) [17]

> в сдаче какой то лабы вероятно. В следующий раз он спросит
> абсолютно аналогичную вещь.

Не спросит.
Он сейчас в армии
будет.

--
Regards, LVT.


 
Anatoly Podgoretsky ©   (2010-04-17 20:56) [19]

> DVM  (17.04.2010 18:14:17)  [17]

число 60 наводит на мысль о числе 60



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.047 c
3-1238582092
VlGrig1961
2009-04-01 14:34
2010.08.27
При подключении сетевого кабеля не работает база????


2-1274515199
Fantasy
2010-05-22 11:59
2010.08.27
ICS THttpCli иза тсутствие help-а, пршу подсказать.


2-1267947335
tippa
2010-03-07 10:35
2010.08.27
по структуре LVITEM


15-1274208004
xayam
2010-05-18 22:40
2010.08.27
Игровой сервер


15-1271190602
Юрий
2010-04-14 00:30
2010.08.27
С днем рождения ! 14 апреля 2010 среда