Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.10.2022, 21:04   #61
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,351
По умолчанию

Код:
PictureBox1.Left := round(100 + 50 * sin(angle));
PictureBox1.Top := round(100 + 50 * cos(angle));
(100; 100) - центр, вокруг которого крутится верхний левый угол PictureBox, а (50; 50) - радиус окружности. Вот и подгоняйте их под желаемые.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABCNET. Найти сколько зёрен поместится на шахматной доске и их вес a_clarke Помощь студентам 8 13.10.2015 15:17
Помогите пожалуйста. (Pascal) Amfetamin Помощь студентам 19 15.12.2014 23:59