Задание: курсор мышки должен крутиться с заданным радиусом, скоростью и направлением.
Код программы (без заданного направления):
float x, y, a, r;
do
{
r=StrToFloat(Edit1->Text);// радиус
a+=StrToFloat(Edit2->Text);
x=sin(a)*r;
y=cos(a)*r;
SetCursorPos(x+512, y+384);// функция, задающая положение курсора
Sleep(1);
}
while(1);
Код программы (без заданного направления):
float x, y, a, r;
do
{
r=StrToFloat(Edit1->Text);// радиус
a+=StrToFloat(Edit2->Text);
x=sin(a)*r;
y=cos(a)*r;
SetCursorPos(x+512, y+384);// функция, задающая положение курсора
Sleep(1);
}
while(1);