Анимация на форме.

[Nektarinka]

Вот у меня такое задание..., Нарисовать кружок и заставить его каждую секунду двигаться по формЕ.... С кругом разобралась.... А вот движение это даже не представляю как запрограммировать.... Помогите пожалуйсто...

[Дима я]

Код давай свой

[spamer]

В таймере например с интервалом 100, перерисовывай кружок, при этом затирая старый.

[Nektarinka]

Сообщение от Дима я

Код давай свой

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,R,p,x_n,y_n:integer;
begin
 x_n:=StrToInt(Edit1.Text);
 y_n:=StrToInt(Edit2.Text);
 R:=StrToInt(Edit3.Text);

 p:=1-R;

 x:=0;

 y:=R;
  Form1.Canvas.Pixels[x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[y+y_n,x+x_n]:=CLRed;
   Form1.Canvas.Pixels[y+y_n,-x+x_n]:=CLRed;
    Form1.Canvas.Pixels[-y+y_n,x+x_n]:=CLRed;
     Form1.Canvas.Pixels[-y+y_n,-x+x_n]:=CLRed;

 while x<=y do
 begin
 if p<0 then
 begin
 x:=x+1;
 y:=y;
 p:=p+2*x+1;
 Form1.Canvas.Pixels[x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[y+y_n,x+x_n]:=CLRed;
   Form1.Canvas.Pixels[y+y_n,-x+x_n]:=CLRed;
    Form1.Canvas.Pixels[-y+y_n,x+x_n]:=CLRed;
     Form1.Canvas.Pixels[-y+y_n,-x+x_n]:=CLRed;
 end
 else
 begin
 x:=x+1;
 y:=y-1;
 p:=p+2*x+1-2*y;
 Form1.Canvas.Pixels[x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,-y+y_n]:=CLRed;
  Form1.Canvas.Pixels[-x+x_n,y+y_n]:=CLRed;
  Form1.Canvas.Pixels[y+y_n,x+x_n]:=CLRed;
   Form1.Canvas.Pixels[y+y_n,-x+x_n]:=CLRed;
    Form1.Canvas.Pixels[-y+y_n,x+x_n]:=CLRed;
     Form1.Canvas.Pixels[-y+y_n,-x+x_n]:=CLRed;
 
 end;
 end;


end;

end.

[DeKot]

Цикл for i:= 1 to N do
// нарисовал круг
// задержка ( 100 - 500 мсек)
// стер круг
//изменил координату (ы) рисования
// конец итерации цикла и возврат на новую итерацию

[Вавел из ГМТУ]

Жёсткий код А почему ты не заюзал Ellipse(...)?

[Nektarinka]

Сообщение от Вавел из ГМТУ

Жёсткий код А почему ты не заюзал Ellipse(...)?

заюзалА.... не умею ещё....

[Nektarinka]

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

Цикл for i:= 1 to N do
// нарисовал круг
// задержка ( 100 - 500 мсек)
// стер круг
//изменил координату (ы) рисования
// конец итерации цикла и возврат на новую итерацию

Спасибочки.... Попробую сделать так...

[Karp_13]

Как-то писал подобную прогу(уже год на компе пылится))) - вот выкладываю всё с потрохами(там много разных процедур и функций... уж всего и не помню... шарик при ударе о стенку также изменяет свой радиус... только отражение от стенки бональное - под 45 градусов... хотели сделать возможность задавать угол падения и просчитывать отражение... но сказали и этого хватит)) - может пригодится))))

http://karp13.do.am/sharik_Karpova.zip

ps: багов там тоже много..)))

[Вавел из ГМТУ]

Да, там действительно есть баги и действительно мудрено

Вот набросал мой исходничек.

заюзалА.... не умею ещё....

Ах да, недочитал имя