движение шарика и отскок от стенок

[legendary]

ни у кого нет реализованного алгоритма? язык любой.

[Тутонхамон]

procedure shar();

// Текущая координата шарика + скорость 
PosX:= PosX+VelX;
PosY:= PosY+VelY;

// Что бы шарик не вылетал за границы поля по ширине
// Если X координата шарика больше ширины формы - ширины самого //шарика то 
if PosX > ClientWidth - Shape1.Width then
begin
//X координата шарика присвоит значение ширина формы - ширина //шарика 
PosX:= ClientWidth - Shape1.Width;
// Включаем заднюю скорость) или меняем значение скорости на минус
VelX:= - VelX;
end
else if PosX < 0 then
begin
POsX:= 0;
VelX:= - VelX;
end;

// Здесь по аналогии только работаем с Y координатой
if PosY > ClientHeight - Shape1.Width then
begin
POsY:= ClientHeight - Shape1.Width;
VelY:= - VelY;
end
else if PosY < 0 then
begin
POsY:= 0;
VelY:= - VelY;
end;
// Перемещаем шарик в пространстве
Shape1.Left:= Round(PosX);
Shape1.Top:= Round(PosY);

Переменные PosX и PosY хранят координаты положение шарика в пространстве, VelX и VelY отвечают за скорость его перемещения. ClientWidth, ClientHeight - ширина и высота формы. Shape1.Width ширина шарика.

[Serge_Bliznykov]

вот, ответ Тутонхамон в виде исходника...

[rrrinat]

Спасибо! Искал!

[denisbrain]

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

ни у кого нет реализованного алгоритма? язык любой.

не большой пример визуальных эффектов про шарики, может кому пригодиться.
демонстрирует возможность перетаскивания объекта по сложному фону (картинка bmp)
http://netsoftware.ucoz.ru/news/vizu.../2012-02-29-16

[studen]

unit Unit1;

interface

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

const
  FieldWidth          = 640;
  FieldHeight         = 400;
  BallWidth           =  24;
  BallHeight          =  24;
  BallSpeed           =  10;

type
  TForm1              = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender:    TObject);
    procedure FormClose(Sender:     TObject;
              var Action:           TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TBall               = object
    Width, Height:                  Word;
    x, y:                           Extended;
    vx, vy:                         Extended;
    procedure           initialize;
    procedure           move;
    procedure           print;
  end;

var
  Form1:                            TForm1;
  pryg:                             TBall;
  main, back, ball:                 TBitmap;

implementation

{$R *.dfm}

procedure TBall.initialize;
var
  angle:                            Byte;                   //   0 =   0° ->
begin                                                       //  64 =  90°
  x:=                   Random(FieldWidth - BallWidth);     // 128 = 180° <-
  y:=                   Random(FieldHeight - BallHeight);   // 192 = 270°
  angle:=               Random(256);
  vx:=                  Cos(angle / 256 * pi) * BallSpeed;
  vy:=                  Sin(angle / 256 * Pi) * BallSpeed;
end;

procedure TBall.move;
begin
  x:=                   x + vx;
  y:=                   y + vy;
  if x < 0 then begin
    x:=                 -x;
    vx:=                -vx;
  end;
  if x > FieldWidth - BallWidth then begin
    x:=                 2 * (FieldWidth - BallWidth) - x;
    vx:=                -vx;
  end;
  if y < 0 then begin
    y:=                 -y;
    vy:=                -vy;
  end;
  if y > FieldHeight-BallHeight then begin
    y:=                 2 * (FieldHeight - BallHeight) - y;
    vy:=                -vy;
  end;
end;

procedure TBall.print;
begin
  main.Canvas.          Draw(Trunc(x), Trunc(y), ball);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientWidth:=         FieldWidth;
  ClientHeight:=        FieldHeight;

  main:=                TBitmap.Create;
  main.Width:=          FieldWidth;
  main.Height:=         FieldHeight;

  back:=                TBitmap.Create;
  back.                 LoadFromFile('back.bmp');

  ball:=                TBitmap.Create;
  ball.                 LoadFromFile('ball.bmp');
  ball.Transparent:=    True;
  ball.TransparentColor:=//rgb(255,0,255)
                        clFuchsia;
  Randomize;

  pryg.                 initialize;

  Canvas.               Draw(0, 0, main);
end;

procedure TForm1.FormClose(Sender:  TObject;
      var Action:                   TCloseAction);
begin
  main.                 Free;
  back.                 Free;
  ball.                 Free;
end;

procedure TForm1.Timer1Timer(
          Sender:                   TObject);
begin
  pryg.                 move;
  main.Canvas.          Draw(0, 0, back);
  pryg.                 print;
  Canvas.               Draw(0, 0, main);
end;

procedure TForm1.FormPaint(Sender:  TObject);
begin
  Canvas.               Draw(0, 0, main);
end;

procedure TForm1.FormMouseDown(
          Sender:                   TObject;
          Button:                   TMouseButton;
          Shift:                    TShiftState;
          X, Y:                     Integer);
begin
  pryg.                 initialize;
end;

end.