Движение Луны вокруг Земли. Delphi

[vic7or]

Добрый день, форумчане.

Есть вопрос, как сделать чтобы при изменении размеров формы Земля всегда находилась центре формы, а Луна двигалась по новой орбите?
И уменьшалась и увеличивалась Луна с Землей в зависимости от изменения размеров формы ?

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    img1: TImage;
    tmr1: TTimer;
    shp1: TShape;
    shp2: TShape;
    procedure FormActivate(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure FormResize(Sender: TObject);

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

var
  Form2: TForm2;

implementation
 uses Unit1;
{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
var i:Integer;
begin
  Form2.Width:=form2.Height;
  alfa := 0;  // начальные значения
  MoonR:=15;
  EarthR:=30;
  Raduis:=img1.Width div 2 - 30;     {установим цвет закраски}
  img1.Canvas.Brush.Color:=clBlack;   {зальем окно черным цветом}
  img1.Canvas.FloodFill(10,10,clBlack,fsBorder);    {установим цвет пера}
  img1.Canvas.Pen.Color:=clWhite;                {нарисуем орбиту}
  img1.Canvas.Ellipse(img1.Width div 2 - Raduis, 
                             img1.Height div 2 - Raduis,
                             img1.Width div 2 + Raduis,
                             img1.Height div 2 + Raduis);
  
{устанавливает Землю в центре формы}
 shp1.Left := img1.Width div 2- EarthR;
 shp1.Top := img1.Height div 2- EarthR;
{устанавливаем размеры Земли}
 shp1.Width:= EarthR*2;
 shp1.Height:= EarthR*2;
{устанавливаем Луну на орбите справа от Земли на той же высоте}
 shp2.Left:= img1.Width div 2 + Raduis- MoonR ;
 shp2.Top:= img1.Height div 2 - MoonR;
{устанавливаем размеры Луны}
 shp2.Width:=MoonR*2;
 shp2.Height:=MoonR*2;
end;procedure TForm2.FormResize(Sender: TObject);
begin
  begin
    if form2.height>=form2.Width then
    form2.height:=form2.Width else
    form2.Width:=form2.height;
  end;
end;

procedure TForm2.tmr1Timer(Sender: TObject);
begin
  shp2.Left:=img1.Width div 2+trunc(Raduis*cos(alfa))-MoonR;
  shp2.Top:=img1.Height div 2-trunc(Raduis*sin(alfa))-MoonR;
  alfa:=alfa+0.1;
end;
end.

[Utkin]

Для этого нужно ввести специальную переменную которая бы характеризовала изменения (в абсолютной величине или в процентах). И уже перемножая этот коэффициент, считать поправку на размер и расстояние.

[type_Oleg]

А почему Луна всего в 2 раза меньше Земли? На самом деле - где-то в 3,5 раза.
И модуле формы2, можно вместо

  Form2.Width:=form2.Height;

писать просто

  Width:=Height;

Вы ведь радиус орбиты масштабируете

Raduis:=img1.Width div 2 - 30;

Ну и с размерами Земли и Луны так же.

Например:

begin
  Width:=Height;
  alfa := 0;  // непонятно, что за альфа
  MoonR:=Height div 100; // например 
  EarthR:=7*MoonR div 2;
// и т .д.

[vic7or]

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

А почему Луна всего в 2 раза меньше Земли? На самом деле - где-то в 3,5 раза.
И модуле формы2, можно вместо

  Form2.Width:=form2.Height;

писать просто

  Width:=Height;

Вы ведь радиус орбиты масштабируете

Raduis:=img1.Width div 2 - 30;

Ну и с размерами Земли и Луны так же.

Например:

begin
  Width:=Height;
  alfa := 0;  // непонятно, что за альфа
  MoonR:=Height div 100; // например 
  EarthR:=7*MoonR div 2;
// и т .д.

Земля не меняет даже положение на форме при ее уменьшении\увеличении. Луна бегает, но не по радиусу.. хотя всегда во круг центра. Оба объекта не меняют размер..

Альфа - угол вращения Луны

Весь день сижу над этой задачей.. растолкуйте, пожалуйста, как нужно

[Utkin]

Земля не меняет даже положение на форме при ее уменьшении\увеличении. Луна бегает, но не по радиусу.. хотя всегда во круг центра. Оба объекта не меняют размер..

Это нам ясно
У Вас в комментах к программе все расписано (очевидно писали не Вы сами). Вам нужно выразить одну константу (MoonR) через другую (EarthR). Например

MoonR:=EarthR div 3.5;

А дальше пробуйте.

[vic7or]

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

Это нам ясно
У Вас в комментах к программе все расписано (очевидно писали не Вы сами). Вам нужно выразить одну константу (MoonR) через другую (EarthR). Например

MoonR:=EarthR div 3.5;

А дальше пробуйте.

Забыл написать... радиусы Луны, Земли и орбиты вводятся с клавиатуры..
Кто-то так..

  MoonR:=strtoint(form1.edt1.text);
  EarthR:=strtoint(Form1.edt2.text);
  Raduis:=strtoint(Form1.edt3.Text);

[type_Oleg]

vic7or, наверное вы сами ничего не поняли в задании. И хотите, чтобы кто-то понял вместо вас ?
Сначала ну вас
И уменьшалась и увеличивалась Луна с Землей в зависимости от изменения размеров формы..
.. а потом
радиусы Луны, Земли и орбиты вводятся с клавиатуры..

[vic7or]

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

vic7or, наверное вы сами ничего не поняли в задании. И хотите, чтобы кто-то понял вместо вас ?
Сначала ну вас
И уменьшалась и увеличивалась Луна с Землей в зависимости от изменения размеров формы..
.. а потом
радиусы Луны, Земли и орбиты вводятся с клавиатуры..

Да.. фигня получилась. Перечитал еще раз задание. В общем начальные значения вводятся с клавиатуры, а потом при изменении формы Луна с Землей меняются в размерах в зависимости от изменения размера формы.