Как заставить Shape двигаться по окружности?

← →
Евгения (2004-04-10 21:25) [0]

subj

← →
TButton © (2004-04-10 21:26) [1]

руками и да поможет тебе таймер =)

← →
Анатолий Ксюндзский (2004-04-10 21:35) [2]

> руками и да поможет тебе таймер =)

и синус с косинусом ;)

← →
TButton © (2004-04-10 21:37) [3]

>и синус с косинусом ;)

таймер есть материя первичная, и может сделать все что угодно нужно только прикрутить к нему нужные плагины.

← →
Евгения (2004-04-10 21:46) [4]

Ну вы бы хоть пример привели для приличия...
Я лишь могу заставить его двигаться по прямой :))
А насчёт окружности, никаких идей нет.
Помогите бедной девушке, please....

← →
TButton © (2004-04-10 21:58) [5]

люблю помогать бедным девушкам =)
x:=cx+Cos(ang)*r;
y:=cy+Sin(ang)*r;
примечание:
x - Shape1.Left
y - Shape1.Top
cx, cy - координаты центра обращения (центра окружности)
ang - угол поворота в радианах (DegToRad), меняй по таймеру
r - радиус обращения
Sin, Cos - тригонометрические функции

← →
Анатолий Ксюндзский (2004-04-10 22:55) [6]

> люблю помогать бедным девушкам =)
> x:=cx+Cos(ang)*r;
> y:=cy+Sin(ang)*r;
> примечание:
> x - Shape1.Left
> y - Shape1.Top
> cx, cy - координаты центра обращения (центра окружности)
> ang - угол поворота в радианах (DegToRad), меняй по таймеру
> r - радиус обращения
> Sin, Cos - тригонометрические функции

Я добавлю:
:= — конструкция "присвоить значение"
+ — сумма
* — произведение

---оффтопик---
а еще я люблю, когда девушки двигают своими Shape"ами по окружности... но это уже совсем другая история.
---оффтопик---

Правильно так 8)
<оффтопик>
</оффтопик>

Как заставить Shape двигаться по окружности? Найти похожие ветки