Главная страница
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.012 c
1-64626
alkmas
2002-05-08 12:22
2002.05.20
Вызов объекта класса из DLL


1-64671
anod
2002-05-05 20:16
2002.05.20
DragDrop в ListView


1-64681
Марина
2002-05-06 10:45
2002.05.20
FastReport и строковые поля


1-64593
GUYARD
2002-05-06 21:01
2002.05.20
Есть вопрос к Мастерам!


3-64489
Filippov Stas
2002-04-21 00:27
2002.05.20
Функции в SQL.