[moullla]

Не могу разобраться вообще с анимацией в делфи
задача состоит в том чтобы прямоугольник(желтый) с вписанной в нем окружностью (зеленой)
вращался по окружности и вокруг своей оси одновременно!
знаю что делать через таймер как то надо а как вообще не знаю(
умею ток в канве рисовать и то фигова а завтр над сдать эту лабу а то отчислят(

[Pilot_Red]

внимание подсказка:
Для того чтобы вращать точку вокруг какой-то оси нужно нужно изменять ее КООРДИНАТЫ!!!

x=x_центр+радиус_вращения*cos(a);
y=y_центр+радиус_вращения*sin(a);

х_центр/y_центр -это координаты оси

зная это подумайте как все это организовать с прямоугольником(у него ч-е точки которые надо вращать)

[moullla]

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

внимание подсказка:
Для того чтобы вращать точку вокруг какой-то оси нужно нужно изменять ее КООРДИНАТЫ!!!

x=x_центр+радиус_вращения*cos(a);
y=y_центр+радиус_вращения*sin(a);

х_центр/y_центр -это координаты оси

зная это подумайте как все это организовать с прямоугольником(у него ч-е точки которые надо вращать)

формулы движения я знаю не понимаю как в коде организовать
на данный момент имею ток

Код:

procedure TForm1.Button3Click(Sender: TObject);

 begin
  x:=100;
 y:=100;
 x1:=150;
 y2:=150;
   With Form1.Canvas do
   begin
       Brush.Color:=clRed;
     Pen.Color:=clRed;
    Rectangle(x,y,x1,y2);
    Brush.Color:=clBlue;
    Pen.Color:=clBlue;
    Ellipse(x,y,x1,y2);
   end;
end;

[Pilot_Red]

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

формулы движения я знаю не понимаю как в коде организовать
на данный момент имею ток

Код:

procedure TForm1.Button3Click(Sender: TObject);

 begin
  x:=100;
 y:=100;
 x1:=150;
 y2:=150;
   With Form1.Canvas do
   begin
       Brush.Color:=clRed;
     Pen.Color:=clRed;
    Rectangle(x,y,x1,y2);
    Brush.Color:=clBlue;
    Pen.Color:=clBlue;
    Ellipse(x,y,x1,y2);
   end;
end;

Разбирайтесь...

[robt]

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

а то отчислят(

и правильно сделают, я за

[moullla]

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

и правильно сделают, я за

Добрый ты)у меня по специальности вообще инфы не должно быть(

[robt]

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

Добрый ты)у меня по специальности вообще инфы не должно быть(

ну зайди к декану, предъяви, в суд подай