Как заставить точку двигаться по кругу?, Вграфическом режиме нарисовать вращающийся радиус окружности |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Как заставить точку двигаться по кругу?, Вграфическом режиме нарисовать вращающийся радиус окружности |
Gendalf |
Сообщение
#1
|
Новичок Группа: Ожидающие Сообщений: 27 Пол: Мужской Реальное имя: Юрий Репутация: 0 |
Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус.
|
APAL |
Сообщение
#2
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Уравнение окружности: X^2+Y^2=R^2
-------------------- |
Gendalf |
Сообщение
#3
|
Новичок Группа: Ожидающие Сообщений: 27 Пол: Мужской Реальное имя: Юрий Репутация: 0 |
Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0.
|
APAL |
Сообщение
#4
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0. С чего это вдруг переполнение стека??? Я думаю просто реализовано было все не очень правильно... -------------------- |
volvo |
Сообщение
#5
|
Гость |
|
LOSOS |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Lamer Репутация: 0 |
Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус. разбей окружность на четыре сектора и опиши случаи я так когдато делал |
volvo |
Сообщение
#7
|
Гость |
LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора...
А во-вторых, ты по ссылке ходил? |
LOSOS |
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Lamer Репутация: 0 |
LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора... А во-вторых, ты по ссылке ходил? да посотрел но там тоже не коротко а на сектора когда разбиваешь просто тупо скопировал и слегка поменял |
LOSOS |
Сообщение
#9
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Lamer Репутация: 0 |
|
volvo |
Сообщение
#10
|
Гость |
Цитата но там тоже не коротко А знаешь, почему? Потому, что та программа позволяет ОДНОВРЕМЕННО отрисовывать до 10 (а может и больше) таких вот крутящихся "радаров"... Если делать для одного, то решение займет 3 строки...Цитата а на сектора когда разбиваешь просто тупо скопировал и слегка поменял Вообще-то программировать с умом надо... |
han |
Сообщение
#11
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: Хан Башкирский Репутация: 0 |
а я использовал полярную систему координат...
---R=x*cos(a)+y*sin(a)--- честно говоря не помню точно, как это выглядело, но работало все прекрасно... здесь ведь надо указать "следующие" координаты точки и практически все... поправьте меня, если я не прав, но по моему так проще всего... ---R=x*cos(a)+y*sin(a)--- прошу прощения за ошибку: x=x0+r*cos(a) y=y0+r*sin(a) если интересно - вот примерно так(см файл) Сообщение отредактировано: han - Прикрепленные файлы point.pas ( 537 байт ) Кол-во скачиваний: 400 -------------------- завтра будет.
лучше... |
volvo |
Сообщение
#12
|
Гость |
han,
еще раз ссылку привести? Неужели трудно кликнуть, посмотреть, как СОВЕТУЮТ делать, а потом комментировать? Или ты не заметил, что там именно полярная система и используется? |
han |
Сообщение
#13
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: Хан Башкирский Репутация: 0 |
все все
больше не буду -------------------- завтра будет.
лучше... |
Gendalf |
Сообщение
#14
|
Новичок Группа: Ожидающие Сообщений: 27 Пол: Мужской Реальное имя: Юрий Репутация: 0 |
Извините, что долго не был на форуме, дела. Volvo за ссылку огромное спасибо, она мне очень помогла
|
where can i buy plaquenil withou |
Сообщение
#15
|
Гость |
Amoxil For Ear Infections
|
propecia online pharmacy new yor |
Сообщение
#16
|
Гость |
Non Prescription Viagra Reviews
|
best place to buy furosemide onl |
Сообщение
#17
|
Гость |
Priligy Modo De Usar
|
better business bureau online ph |
Сообщение
#18
|
Гость |
Cialis Medikament Bestellen
|
Текстовая версия | 22.11.2024 20:23 |