Главная страница
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.014 c
14-64823
DeMoN-777
2002-04-11 04:15
2002.05.20
Чем С++ лучше Delphi ?


1-64608
Talvin
2002-05-07 23:56
2002.05.20
Pascal!!!


3-64537
Beverson
2002-04-23 18:00
2002.05.20
Проблема при работе с BLOB ами через BDE.


1-64629
kserg@ukr.net
2002-05-08 11:12
2002.05.20
TStringGrid - как раскрасить строки/ячейки ?


14-64800
perov
2002-04-10 13:57
2002.05.20
что случилось с сайтом www.delphiplus.org?