Показать сообщение отдельно
Старый 13.11.2019, 16:21   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Bunvsem Посмотреть сообщение
Как в этом коде добавить минутную стрелку, скажите пожалуйста!
Так она у Вас рисуется! Вот только...
1. Для значений секунд и минут нужно ввести по паре значений — например, sec_old, sec_new, min_old, min_new, т.е. "старые" и "новые". Исходные значения "старых" минут и секунд взять нулевыми.
2. Цикл построить так:
а) Сосчитать (как это сделано у Вас) новые координаты ("_new") ОБЕИХ стрелок.
б) Нарисовать стрелки (линии).
в) Установить цвет, соответствующий цвету фона (белый).
Если значения УГЛОВ минут и секунд НЕ СОВПАДАЮТ (тут можно несколькими способами это проверять, например, введя раздельные координати Xs, Ys, Xm, Ym и поставив соответствующее условие), то нарисовать линию секунд БЕЛЫМ цветом, используя sec_old.
г) Присвоить СТАРЫМ секундам значения НОВЫХ (sec_old:=sec_new).
д) Если значение минут ИЗМЕНИЛОСЬ, т.е. min_new>min_old, то нарисовать линию минут БЕЛЫМ цветом с использованием min_old. Присвоить СТАРЫМ минутам значение НОВЫХ (min_old:=min_new).
д) Установить контрастный (черный) цвет.
ВСЁ!

P.S. К сожалению, Паскаля АВС не имею. Будь это Borland-графика, я бы Вам отладил программу.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070