Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Как сделать вращение чего-либо?   Найти похожие ветки 

← →
Alexey-neo ©   (2002-05-08 22:34) [0]

Как мне заставить, примером, курсор мыши "летать" по кругу? Тоесть, как переместить курсор я знаю, но как по кругу, какая формула???

---

← →
Song ©   (2002-05-08 22:56) [1]


procedure TForm1.Button1Click(Sender: TObject);
Const Radius=100;
Var t:Integer;
begin
For t:=0 to 360 Do
Begin
SetCursorPos(100+Round(Sin(t*Pi/180)*Radius),100+Round(Cos(t*Pi/180)*Radius));
Sleep(10);
End;
end;


---

← →
JC ©   (2002-05-09 00:31) [2]

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

---

← →
ION T ©   (2002-05-09 00:37) [3]

Дык ему-ж ещё и пяти лет нет - в его яслях для детей программистов графики строить ещё не начали, а вот пранки писать - это пожалуйста, с первого года;)))))))))

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.511 c