timer и shape

[гера]

Привет!
пример простой но до меня не доходит почему рисуется не последоваетльно, а как попало скачет...

procedure TForm1.Timer_1Timer(Sender: TObject);
begin
timer_2.Enabled:=true;
Timer_1.Enabled:=false;
shape2.Left:=160;
shape2.top:=88;
end;
procedure TForm1.Timer_2Timer(Sender: TObject);
begin
timer_3.Enabled:=true;
Timer_2.Enabled:=false;
shape2.Left:=296;
shape2.top:=88;
end;

procedure TForm1.Timer_3Timer(Sender: TObject);
begin
timer_4.Enabled:=true;
Timer_3.Enabled:=false;
shape2.Left:=296;
shape2.top:=216;
end;

procedure TForm1.Timer_4Timer(Sender: TObject);
begin
timer_1.Enabled:=true;
Timer_4.Enabled:=false;
shape2.Left:=168;
shape2.top:=216;
end;


Zain'ka (11:09:25 14/04/2007)
там в центре квадрат, а вокруг него дожен двигаться круг.

[Сильванович Михаил]

Мне кажется, что ответ на этот вопрос уже был в форуме -> http://www.programmersforum.ru/showthread.php?t=2946

[гера]

ну у меня же по другому принципу движение. тут задано 4 точки в которых должен появиться шарик. а он или нормально двигается или не правильно...(((

что делать?

а! и по тому примеру, (который указан), у меня тоже не получается красивого движения а что то типа быстрого рывка и малеьких шажков потом, как со вторым согласовать чтоб один вокруг другого?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 ang, //текущее положение в радианах
spd, //скорость (на сколько радиан передвигать каждый раз)
rad: Double; //радиус окружности
cx, cy, //координаты центра окр. 
x, y: Integer; //текущие коорд. точки
k: integer;
implementation

{$R *.dfm}
Procedure Dvij;
Begin
if Form1.Shape1.Width>Form1.Shape1.Height then
k:=Form1.Shape1.Width
else
k:=Form1.Shape1.Height;
cx:=Form1.Shape1.Left+Form1.Shape1.Width div 2;
cy:=Form1.Shape1.Top+Form1.Shape1.Height div 2;
//k:=k div 2;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 begin
Dvij;
ang:=ang + spd;
Shape2.Left:=cx + Round(Cos(ang) * k);
Shape2.Top:=cy + Round(Sin(ang) * k);
end;
 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 ang:=10;
spd:=0.15;
end;

end.

[Сильванович Михаил]

а! и по тому примеру, (который указан), у меня тоже не получается красивого движения а что то типа быстрого рывка и малеьких шажков потом, как со вторым согласовать чтоб один вокруг другого?

Стартовое значение ang=pi и никаких скачков (т.к. Мировая СК, а не Декартовая СК). Нужна скорость - наращивай spd до pi/2.

ну у меня же по другому принципу движение. тут задано 4 точки в которых должен появиться шарик. а он или нормально двигается или не правильно...(((

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

З.Ы. Напомню школьный курс.
Уравнение окружности: y=y0+R*sinA; x=x0+R*cosA.

[гера]

Спасибо большое)))