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

[Kristian]

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

я делаю с 3 таймерами потому что я не знаю как сделать это в одном(

я выше сделал , оттуда и возьми пример и не тупи!

[Вадим Мошев]

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

я делаю с 3 таймерами потому что я не знаю как сделать это в одном(

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// интервал таймера = 1000
// s - объявить как глобальную переменную и присвоить ей значение 0 при запуске программы
if  s = 3 then ShowMessage('АЬОКЕ!');
if  s = 5 then ShowMessage('тролололо');
if  s = 7 then ShowMessage('тыц-тыц-тыц');
inc(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=0;
// s объявлять не здесь!!!!

timer1.Enabled:=true;
end;

[mss]

не знаю как сделать это в одном

Так тебе уже двое не считая меня в этой теме практически разжевали как это сделать

[megostudent]

var
  Form1: TForm1;
  r,z:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 r:=1; z:=0;
    timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   r:=r+2; //1+2=3    3+2=5  5+2=7
ShowMessage('1');
z:=r*1000; //Делаем секунды в милисекунды
Timer1.Interval:=z;  //Дадим интервал
if r=3 then timer1.enabled:=false;
timer1.Enabled:=true;
r:=r+4; //1+2=3    3+2=5  5+2=7
ShowMessage('2');
z:=r*1000; //Делаем секунды в милисекунды
Timer1.Interval:=z;  //Дадим интервал
if r=5 then timer1.enabled:=false;
timer1.Enabled:=true;
 r:=r+6; //1+2=3    3+2=5  5+2=7
ShowMessage('3');
z:=r*1000; //Делаем секунды в милисекунды
Timer1.Interval:=z;  //Дадим интервал
if r=7 then timer1.enabled:=false;

end;

end.

по идеи должно пройти все так:
запускаем прогу выбивает сообщение "1" через 3 сек таймер останавливается и запускается после чего выбивается сообщение "2", проходит 5 сек и он вырубается и врубается и выбивается сообщение "3" и через 7 сек он останавливается окончательно, Чего в это программе НЕ ПРОИСХОДИТ выбиваются сразу все сообщения подряд, обьясните что не так?

[Step_UA]

var
  Form1: TForm1;
  r:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(r);
case r of
 3:ShowMessage('1');
 5:ShowMessage('2');
 7:begin
    ShowMessage('3');
    Timer1.Enabled:=false
   end
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
r:=0;
Timer1.Interval:=1000;
Timer1.Enabled:=true;
end;

end.

[Kristian]

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

[megostudent]

ну как еще обьяснить даже записал свой вопрос)
ну попробую еще раз:
и так моя прога через 3сек выбивает сообщение 1 потом через 5 сек выбивает сообщение 2 и через 7сек выбивает сообщение 3, а потом опять идет круг и через 3 сек выскакивает сообщение 1 и т.д.
а я хочу замутить чтобы сначало выбивалося сообщение а потом аж проходило 3 сек и появлялось второе сообщение, проходило 5 сек и появлялось третье сообщение потом выбивалось сообщение 3 и проходило 7 сек и пошел круг заново: выбивается 1 сообщение проходит 3 сек выбивается второе сообщение и т.д.
уловили?)
могу даж в скайпе обьяснить) со звучком то круче)))

[Step_UA]

так замени в моем коде выше

Timer1.Enabled:=false

на

r:=0;

[megostudent]

результата не дало выбивает 3 сообщения и становится, а должно перевх предыдущих сообщений еще выбиваться те же(

[wowsel]

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 
   c:integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case c of
3:showmessage('1');
8:showmessage('2');
15:begin showmessage('3'); c:=0; end;
end;
c:=c+1;
end;

end.