[boxep]

Я, понимаю, что все просто..но, что то никак не могу додуматься, как реализовать, чтобы сначала работала 1button, а потом 2button, ну или сначала таймер отсчитывает 3 мин, а потом сразу без остановки 1 минуту и снова 3 минуты, а потом снова одну и так до бесконечности
вот мой код, помогите, что надо исправить, добавить?

var
Form1: TForm1;
var Min3: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
Min3:=3*60;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3 < 0 then
begin
timer1.enabled:=false;
showmessage ('stop');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=true;
Min3:=1*60;
end;

end.

[Bargest]

Timer1.interval:=Min3
кстать не 3*60 а 3*60000

[Bargest]

Это будет по нажатию кнопки смена таймера.
А если надо чтоб он САМ тикал то 3 мин, то 1 мин - то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var fl:byte=0; .. procedure TForm1.Timer1Timer(Sender: TObject); begin //... fl:=1-fl; if fl=0 then  Timer1.interval:=3*60000 else  Timer1.interval:=1*60000 //... end;

[boxep]

спасибо! сейчас попробую!

[Bargest]

А если с отображением времени - то

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var fl:byte=0; ...   procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]); Dec(Min3); if Min3 < 0 then begin showmessage ('stop'); fl:=1-fl; if fl=0 then Min3:=3*60 else Min3:=1*60; end; end;

кнопки тут не нужны.

З.Ы. ток с 3го раза понял, что тебе надо. Пожалуйста в следующий раз чуть почётче выражай задание

[boxep]

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

[boxep]

Скажите, как сделать, что бы в моей программе, когда таймер приближается к нулю, то есть за 10 секунд до конца счета выводил звук? То есть он отсчитывается время 3 минуты и когда остается 0.10 секунд выдается звук

var
Form1: TForm1;
var fl:byte=0;
var Min3: integer;
var k:integer;
implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
begin
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Label2.caption:=IntToStr(k div 2);
Dec(Min3);
if Min3 < 0 then
begin
fl:=1-fl;
if fl=0 then Min3:=1*60
else Min3:=3*60;
inc(k);
if k mod 2 = 0 then
label1.Font.color:=clred
else
label1.Font.color:=clblue;
If k mod 2 <> 0 then
label4.Caption := 'Rest'
else
label4.Caption := '';
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
k:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=false;
button3.Visible:=True;
button1.Visible:=False;
button2.Visible:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
k:=2;
if label4.Caption = 'Rest' then
label4.Caption := '';
If label1.font.color = clblue then
label1.Font.color := clred;
Min3:=3*60;
timer1.enabled:=true;
button2.Visible:=False;
button3.Visible:=False;
button1.Visible:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.enabled:=true;
button3.Visible:=False;
button1.Visible:=True;
button2.Visible:=False;
end;

end.

[v1s2222]

В стандартном таймере вроде узнать сколько осталось до конца не льзя.
Поэтому я бы делал как-то так:
1) создал еще один таймер, с интервалом на 100 меньше и в нем бы проигрывал мелодию.
2) с помощью функции GetTickCount: в таймере бы сверял старые и новые значения и если они на 100 отличаются, то проиграть звук.

[boxep]

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

В стандартном таймере вроде узнать сколько осталось до конца не льзя.
Поэтому я бы делал как-то так:
1) создал еще один таймер, с интервалом на 100 меньше и в нем бы проигрывал мелодию.
2) с помощью функции GetTickCount: в таймере бы сверял старые и новые значения и если они на 100 отличаются, то проиграть звук.

а вот как в коде это реализовать? что,то не очень понимаю, как это сделать? Спасибо за совет!

[v1s2222]

Ну если чтоб было понятнее, то идем 1 способом: создаем еще один таймер.

Код:

1 2 3 4 5 6

//button2.click: бла бла бла ... timer1.enabled:=true; timer2.Interval := timer1.Interval - 100; timer2.Enabled := True;

А теперь само проигрывание музыки:

Код:

1 2 3 4

uses MMSystem; ... // timer2timer:   PlaySound(PChar(ExtractFilePath(ParamStr(0)) + '\Music\music.wav'),     0, SND_ASYNC);

[Bargest]

С твоим кодом, boxer, все в разы проще:

Код:

1 2 3 4

onTimer: ... if Min3=10 then //играем ...

[deltas]

Код:

1 2 3 4 5 6 7

procedure TForm1.Timer1Timer(Sender: TObject); ... ... ... if Min3=10 then begin ... end; ... ...

[boxep]

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

С твоим кодом, boxer, все в разы проще:

Код:

Почему, он ошибку выдает?

[deltas]

необходимо включить в раздел uses модуль mmsystem

[boxep]

Огромнейшее Вам всем спасибо, вы меня очень выручили!