работа с таймером

@OneXend · Регистрация: 20.10.2016

Студворк — интернет-сервис помощи студентам

здравствуйте работаю с таймеров впервые и есть вопросы застрял когда переменная stol равна 1 идет отчет обратный в label1 а когда stol равен 2 то он почему то выполняет cобытие ontime первого таймера а потом второго только и тогда он в двух label ставит значения последнего выставленого обратного отчета. мне нужно чтобы они работали независимо друг от друга допустим таймер первый на час а второй на 3 часа и у каждого свой обратный отчет

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm3.Button1Click(Sender: TObject);
begin
 case stol of
   1 : begin
         Timer1.Enabled :=true;
       end;
   2 : begin
         Timer2.Enabled :=true;
       end;
   3 : begin
         Timer3.Enabled :=true;
 
       end;
   4 : begin
         Timer4.Enabled :=true;
       end;
 end;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm3.Timer1Timer(Sender: TObject);
var h,m,s :word;
begin
 h :=(time-k )div 3600;
 m :=((time-k)-h*3600) div 60;
 s :=(time-k)-h*3600-m*60;
 if k<time then begin
   form1.lb1.Caption := Format('%d : %d :  %d',[h,m,s]);
 end;
inc(k);
end;
 
procedure TForm3.Timer2Timer(Sender: TObject);
var h,m,s :word;
begin
 h :=(time-k1 )div 3600;
 m :=((time-k1)-h*3600) div 60;
 s :=(time-k1)-h*3600-m*60;
 if k1<time then  begin
  form1.lb2.Caption := Format('%d : %d :  %d',[h,m,s]);
 
 
 
end;
inc(k1);
end;

@AzAtom · 25.06.2019, 11:26

OneXend, понятно. Потом происходит жесть. При изменении ComboBox меняется значение переменной time и тут же меняются значения Label с таймерами.

Лучше в обработчике нажатия кнопки сделай:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm3.Button1Click(Sender: TObject);
begin
 case stol of
   1 : begin
         Timer1.Enabled :=true;
         k1 := time;
       end;
   2 : begin
         Timer2.Enabled :=true;
         k2 := time;
       end;
   3 : begin
         Timer3.Enabled :=true;
         k3 := time;
       end;
   4 : begin
         Timer4.Enabled :=true;
         k4 := time;
       end;
 end;
end;

А в обработчиках таймера:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Timer1Timer(Sender: TObject);
var h,m,s :word;
begin
  if k1 > 0 then begin
    h :=(k1 )div 3600;
    m :=((k1)-h*3600) div 60;
    s :=(k1)-h*3600-m*60;
    form1.lb1.Caption := Format('%d : %d :  %d',[h,m,s]);
    dec(k1);
  end else begin
    Timer1.Enabled := false;
    form1.lb1.Caption := 'End of time!';
  end;
end;

и будет обратный отсчёт независимо по каждому таймеру и независимо от выбранного значения в ComboBox.

k1 это для первого таймера. Для второго будет k2 и т.д.

@OneXend · 25.06.2019, 11:27 **[ТС]**

https://www.cyberforum.ru/atta... 1561451118

@OneXend · 25.06.2019, 11:28 **[ТС]**

щас попробую

@AzAtom · 25.06.2019, 11:30

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

@OneXend · 25.06.2019, 13:21 **[ТС]**

всем спс помогло

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@OneXend 0 / 0 / 1 Регистрация: 20.10.2016 Сообщений: 86
	25.06.2019, 11:28 [ТС]
	щас попробую 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	25.06.2019, 11:30
	Считать в одной форме и выводить на другую форму тоже не понятно зачем... Вообще, много форм редко когда нужны. И то, другие формы в основном вспомогательные. 2

@OneXend 0 / 0 / 1 Регистрация: 20.10.2016 Сообщений: 86
	25.06.2019, 13:21 [ТС]
	всем спс помогло 0

работа с таймером

Решение