VPF::Как переместить фигуру? - Форум программистов

Shadex

Дата 23.5.2005, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 23.5.2005

Репутация: нет
Всего: 1

Подскажите пожалуйста, как заставить нарисованный в форме круг двигаться с определенной скоростью? Пользователь задает координаты 2х точек и скорость. И кружочек должен перемещаться между этими точками с заданной скоростью! Как мне все это учесть и рассчитать? Нужно ли для этого использовать Таймер, если да, то как? Заранее благодарен! smile

poor_yorik

Дата 3.6.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 12.1.2005
Где: Общаги г. Киева

Репутация: нет
Всего: 8

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

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;
  x1,y1,x2,y2:integer;
  v,vx,vy,x,y:real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 Var
  hlp:real;
begin
// Определение данных скорость круга (пикселей в секунду)
/// и координаты точек.
 x1:=20; y1:=20;
 x2:=400; y2:=200;
 V:=1000;
// Начало работы.
 shape1.Shape:=stCircle;
 timer1.Interval:=1;
 hlp:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 x:=x1; y:=y1; // Координаты круга в вещественных числах.
 shape1.Left:=trunc(x); shape1.Top:=trunc(y);
 vx:=(x2-x1)*v/hlp; // Вычисление горизонтальной скорости
 vy:=(y2-y1)*v/hlp; // Вычисление вертикальной скорости
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
 x:=x+vx/1000;
 y:=y+vy/1000;
 shape1.Left:=trunc(x);
 shape1.Top:=trunc(y);
 if (x>=x2) or (x<=x1) then vx:=-vx;
 if (y>=y2) or (y<=y1) then vy:=-vy;
end;

end.

Попробуй.

--------------------

Семь раз отмерь, один раз - откомпиль.... Семь раз отпей, один раз - отлей... Семь раз отъешь, один раз - не жадничай и другим дай...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »