| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать вращение чего-либо? [D6, Win95/98, WinXP]
Alexey-neo © (2002-05-08 22:34:00)Как мне заставить, примером, курсор мыши "летать" по кругу? Тоесть, как переместить курсор я знаю, но как по кругу, какая формула???
ION T (2002-05-09 00:37:00) [1]Дык ему-ж ещё и пяти лет нет - в его яслях для детей программистов графики строить ещё не начали, а вот пранки писать - это пожалуйста, с первого года;)))))))))
JC (2002-05-09 00:31:00) [2]Ты догадываешься как строится график функции... вот тоже самое, только вместо точки мышку перемещай.
Song (2002-05-08 22:56:00) [3]
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;
| |
