|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.12.2011, 20:57 | #1 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
часы
Здравствуйте! Мне необходимо создать часы следующего вида в PascalABC c движущимися стрелками: часы.jpg.
Я сделала программу в которой есть круг часов и движущаяся секундная стрелка, а вот как добавить деления в виде кругов затрудняюсь. Помогите кто может! Код:
Последний раз редактировалось Serge_Bliznykov; 06.12.2011 в 09:17. |
04.12.2011, 21:03 | #2 |
Пользователь
Регистрация: 08.01.2011
Сообщений: 28
|
ну если я не ошибаюсь надо вставить эти круги в координаты, где они нужны с помощью той же функции, которой вы рисовали основной круг.
|
04.12.2011, 21:26 | #3 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
ответ
Если я их вставляю в цикл, то круг деления двигается вместе со стрелкой. Если я их пишу перед циклом, то цикл их стирает. Если я их пишу после цикла, то сначала двигается стрелка, а потом появляются деления. А нужно чтоб были деления и двигалась стрелка. Поэтому и прошу помощи!
Последний раз редактировалось lulia; 04.12.2011 в 21:34. |
04.12.2011, 23:26 | #4 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
а как вы прорисовываете деления?
Последний раз редактировалось unbanned; 04.12.2011 в 23:40. |
05.12.2011, 06:51 | #5 |
Форумчанин
Регистрация: 13.12.2007
Сообщений: 788
|
Вспомните тригонометрию
Мысленно нарисуйте внутренний круг, на котором будут располагаться эти "деления", делений 12, соответственно разница в углах между ними - 360/12 = 30 градусов Берете начальный угол 90 градусов и начинаете в цикле считать координаты: X=cos(угол)*(Радиус мнимой окружности) Y=sin(угол)*(рад. мн. окр) и добавляете к текущему углу 30 градусов. все в общем то просто (не забудьте только про то, что в паскале нужно оперировать радианами)
благодарность - сюда (не забываем писать от кого)
|
05.12.2011, 20:49 | #6 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
Прорисовка делений
Я прорисовываю деления так:
PHP код:
Как же мне поправить прогу? |
05.12.2011, 21:17 | #7 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
05.12.2011, 21:30 | #8 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
Подскажите какая функция стирает стрелку? Я знаю только как очистить экран.
|
05.12.2011, 21:34 | #9 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
из поста Zer0
Код:
Последний раз редактировалось unbanned; 05.12.2011 в 21:39. |
05.12.2011, 21:45 | #10 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Часы | vadiprog | Помощь студентам | 1 | 03.10.2011 07:36 |
Часы | ВалекFCRK | Общие вопросы Delphi | 3 | 19.06.2011 22:43 |
Часы | DRAgon™ | Операционные системы общие вопросы | 9 | 08.01.2011 09:59 |
Часы в С++ | voffka_C++ | Помощь студентам | 1 | 14.11.2010 21:29 |
Часы | Bingam Vici | Свободное общение | 5 | 18.05.2009 14:50 |