Летающие шарики (Delphi)

[Alena_44]

Помогите написать программу. У меня никак не выходит
Нужно написать программу в которой по экрану летают шарики и сталкиваясь с друг другом - большие шары поедают маленькие.
Сами шарики нужно сделать в отдельном классе.
Кто поможет??

[Serge_Bliznykov]

Алёна, в поиск ходили? На форуме были примеры реализации движения шариков.
Кроме того, помочь написать - это не написать за Вас!
Вы сами хоть что-то сделали?! Тогда давайте Ваши наработки...

[Alena_44]

Уж извините что мой уровень программирования не позволяет сейчас написать такую программу.
Подскажите хоть как сделать столкновения с краями формы
Пишу вот такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=5;
Image1.Left:=Image1.Left+n;
if Image1.Left=Form1.Left then
Image1.Left:=Image1.Left+n;
if Image1.Left+Image1.Width=Form1.Left+Form1.Width then
Image1.Left:=Image1.Left-n;

end;

А мой шарик всё равно улетает внекуда...

Так, с движениями шаров разобралась. Как удалять меньший шар при столкновении?Да и вообще со столкновениями проблема- код получается громозким (((

[Stilet]

Алена, предлагаю тебе подумать вот над таким примером бубльгума:

unit Unit1;

interface

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

type
  TShar=class
   private
    Fy: double;
    Fx: double;
    FRadius: Double;
    angle:Double;
    procedure draw;
    procedure Setx(const Value: double);
    procedure Sety(const Value: double);
    procedure SetRadius(const Value: Double);
    function dist:Boolean;
   public
    Form:TForm;
    property Radius:Double read FRadius write SetRadius;
    property x:double read Fx write Setx;
    property y:double read Fy write Sety;
    procedure Step(ByStep:Double=30);
    constructor Create(f:TForm);
  end;

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private  shars:TObjectList;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TShar }

constructor TShar.Create(f: TForm);
begin
 Form:=f;
 angle:=random(7);
end;

function TShar.dist;
var dis:Double;
begin
 dis:=sqrt(sqr(x)+sqr(y));
 Result:=((x-radius)>0)and((x+radius)<form.Width)and((y-radius)>0)and((y+radius)<form.Height);
end;

procedure TShar.draw;
begin
 with form.Canvas do begin
  Brush.Style:=bsClear;
  Ellipse(round(fx-Radius/2),round(fy-Radius/2),round(fx+Radius/2),round(fy+Radius/2));
 end;
 Step;
end;

procedure TShar.SetRadius(const Value: Double);
begin
  FRadius := Value;
end;

procedure TShar.Setx(const Value: double);
begin
  Fx := Value;
end;

procedure TShar.Sety(const Value: double);
begin
  Fy := Value;
end;

procedure TForm1.FormCreate(Sender: TObject);
var s:TShar;  i:integer;
begin              Randomize;
 shars:=TObjectList.Create;
 for i:=1 to 4 do begin
  s:=TShar.Create(self); shars.Add(s);
  s.Radius:=random(200);
  s.x:=random(Width-round(s.Radius));
  s.y:=random(Height-round(s.Radius));
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 shars.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
 for i:=0 to shars.Count-1 do TShar(shars[i]).draw;
end;

procedure TShar.Step;
begin
 if not dist then angle:=angle+pi/(4+random(2));
 fx:=fx+ByStep*cos(angle);
 fy:=fy+ByStep*sin(angle);
end;

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

end.

Я лично бы именно от такой схемы отталкивался, если бы писал прогу летящих шариков.

[Alena_44]

Спасибо за пример .)
проблема в том что для меня он слишком сложный(((

... Почему он не запускается? Точнее запускается, но на экране появляется пустая форма ...

[Serge_Bliznykov]

вот пример от Stilet собранный в проект.

[Alena_44]

Спасибо! Теперь работет)
В этом примере можно в цикле задать количество шариков, мне интересно можно ли сделать такой цикл, если я буду вставлять шарики в Image?
Или придётся тогда для каждого шарика расписывать свой алгоритм движения?

[Stilet]

Или придётся тогда для каждого шарика расписывать свой алгоритм движения?

Дык у меня для каждого свое движение расписано.

если я буду вставлять шарики в Image?

Можно, но какой смысл? Что именно тебя в моем примере смутило - я да и форумчане смогут пояснить механизм.

[Alena_44]

Ну вот самое непонятное:

Не понимаю как работает конструктор...

constructor TShar.Create(f: TForm);
begin
 Form:=f;
 angle:=random(7);
end;

Вот в этой функции, я так поняла, мы прописываем столкновение с формой? Зачем тут dis вычисляется?

function TShar.dist;
var dis:Double;
begin
 dis:=sqrt(sqr(x)+sqr(y));
 Result:=((x-radius)>0)and((x+radius)<form.Width)and((y-radius)>0)and((y+radius)<form.Height);
end;

И вот эти 3 процедуры... Как они работают?

procedure TShar.SetRadius(const Value: Double);
begin
  FRadius := Value;
end;

procedure TShar.Setx(const Value: double);
begin
  Fx := Value;
end;

procedure TShar.Sety(const Value: double);
begin
  Fy := Value;
end;

[Stilet]

Не понимаю как работает конструктор...

В него я передаю ссылку на форму, где будет отрисовываться

s:=TShar.Create(self);

В данном случае self указывает на форму. С таким же успехом я мог написать

s:=TShar.Create(Form1);

Но не написал...

Зачем тут dis вычисляется?

Да я хотел через расчет между дистанциями для коллизий вычислить, но потом решил оставить это тебе. Не все же мне писать за тебя. А поскольку форма не круглая - расчет коллизий упростился.

И вот эти 3 процедуры... Как они работают?

Когда я прописал

   property Radius:Double read FRadius write SetRadius;
    property x:double read Fx write Setx;
    property y:double read Fy write Sety;

в описании класса, и жмакнул CTRL+SHIFT+C Делфи сам создал мне обработчики этих свойств. Собственно можно было и без них, просто полями, но я подумал на будущее, например при изменении одного из свойств перерисовывать форму...
А так это всего лишь пустышки для обработки события изменения свойства X Y или Радиуса.