2D модель солнечной системы

[GaLiof]

Здравствуйте. Мне выпало экзаменационное задание "2d модель солнечной системы". И сразу возникло несколько вопросов(пар по программированию не было почти, преподаватель думает. что мы и так всё знаем ). Задумка такая: призапуске появляется наша солнечная система( в центре солнце, вокруг кружаться планеты). Вот вопросы:
1. Как лучше это реализовать?( я думаю просто, по верх формы разместить чёрную картинку, на ней расставить картинки солнца и планет, но сейчас задумался, есть ли какиенить другие способы реализации?)
2. Как заставить обьект(image)передвегаться по кругу?
3. Как заставить обьект(image)вращаться вокруг своей оси?
Заранее спасибо

[HouK]

Я конечно тоже новичок в этом но все же мысли есть
1. Незнаю
2. Мб прописать систему координат и заставить объект двигаться от точки к точке
3. Для каждого объекта который должен кружиться, прописать свою систему координат и заставить вертеться вокруг нуля

Конечно понимаю помог ничтожно мало, но мб по этим догадкам сможешь сам чтонить сделать увы сам только учусь, а это мои догадки на твое задание

Или сделать тоже самое только через гиф покадрово

[Levsha100]

X:=X0+Cos(Angle*Pi/180)*R;
Y:=Y0+Sin(Angle*Pi/180)*R;
Дальше, думаю, разрулите.

[raxp]

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

- либо как вы задумали, либо через opengl, либо directx, либо в 3dmax, либо mathcad... опять-же что вы знаете лучше всего на том и делайте

2. Как заставить обьект(image)передвегаться по кругу?

- вспомните школьную программу и теорему синусов и косинусов

3. Как заставить обьект(image)вращаться вокруг своей оси?

- смотря в чем решитесь делать, можно вообще ничего не вращать, а сделать анимацией (набор картинок, потом их перебирать)

[GaLiof]

Всем спасибо) Буда пытаться творить))

[Stilet]

Смотри:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TPlanets=record
   Orbit,pos:double; Diametr:integer;
  end;
var   pln:array[1..3] of TPlanets;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 pln[1].Orbit:=100;pln[1].Diametr:=10;
 pln[2].Orbit:=200;pln[2].Diametr:=20;
 pln[3].Orbit:=300;pln[3].Diametr:=30;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var  x,y,cx,cy,i:integer;
begin          cx:=Width div 2; cy:=Height div 2;
  with Canvas do begin
   MoveTo(cx,cy);
   for i:=low(pln) to high(pln) do begin
    x:=cx+Round(pln[i].Orbit*cos(pln[i].pos));
    y:=cy+Round(pln[i].Orbit*sin(pln[i].pos));
    Ellipse(x-(pln[i].Diametr div 2),y-(pln[i].Diametr div 2),x+(pln[i].Diametr div 2),y+(pln[i].Diametr div 2));
    pln[i].pos:=pln[i].pos+((2*pi)/pln[i].Orbit);
   end;
  end;
end;

end.

Практически решение твоей задачи, но без четкого учета реальной физики (впрочим ее прикрутить не сложно)
Таймер поставь в 1. Пусть побыстрее крутит.

[DeKot]

Похожая тема Солнечная система

[GaLiof]

For Stilet:Почему при запуске твоего кода появляется пустая форма...и ничего не происходит?))

[Stilet]

и ничего не происходит?)

Как это не происходит?
Все работает. Подключи события и все заработает.

[GaLiof]

for stilet: "подключи события и всё заработает" каким образом их подключить?
и ещё по поводу формул:
X:=X0+Cos(Angle*Pi/180)*R;
Y:=Y0+Sin(Angle*Pi/180)*R;
как я понимаю, я задаю:
var
X,Y,X0,Y0,R: double;
но: что означает angle? и как присвоить значения Х0 и Y0?
X0=image1.left
Yo=image1.top??? Простите за глупость, просто я довольно плохо знаю делфи...а на парах ничего не обьясняют(