[Nancy90]

Задачка такая: Изобразить на экране точку, которая движется по окружно-сти с постоянной угловой скоростью. Эту угловую скорость можно задавать.
Код написала, но программа не работает! (А в чем дело непонятно... И что следует писать в TForm1.Timer1Timer?

Код:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Timer1: TTimer;     Image1: TImage;     procedure Button1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;    a, //угол в рад..    s, //скорость передвижения точки в рад.    r: double; //радиус    x0, y0, //центр окружности    x, y: integer; // координаты точки   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject);   begin   a:=90;  s:=30;  x0:=133;  y0:=133;  x:=133;  y:=31;  r:=30;  Image1.Canvas.Pixels[x,y]:=clRed;  a:=a*(pi/180) + s*(pi/180);  x:=x0 + Round(Cos(a)*r);  y:=y0 - Round(Sin(a)*r);  Image1.Canvas.Pixels[x,y]:=clBlack;  Timer1.Enabled:=true;   end;   procedure TForm1.Timer1Timer(Sender: TObject); begin   end;   end.

Админ: Пользуемся тегами для оформления кода!

[DelphiM0ZG]

С этим кодом я не разбирался, а набрал по-быстрому пример. Там рисуется окружность, но если раскомментировать 2 строки кода (там указано какие) - будет по окружности ездить точка.

[Pyro]

страшно жить...

[Nancy90]

DelphiM0ZG спасибо вам огромное!!!)))