Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
6-64756
fixxxer
2002-03-06 17:04
2002.05.20
Работа с Е-mail-ом


1-64590
Толик
2002-05-07 14:19
2002.05.20
И снова про копирование файлов, правда теперь по сетке.


3-64529
Vasilii
2002-04-22 15:44
2002.05.20
проблемы с IBEvents?


14-64783
Alex999
2002-04-09 04:17
2002.05.20
О жизни тяжелой :))))


1-64710
demon-777
2002-05-06 18:04
2002.05.20
Как скрыть и показать курсор