Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Световые эффекты » Часы с эффектами


Часы с эффектами

Сообщений 61 страница 82 из 82

1

Вот почти довёл до кондиции часы с анимированной сменой информации и эффектами.

http://lightportal.at.ua/2014/TermoClockEff/circl2.jpg

https://www.youtube.com/watch?v=pw-9iIeffSI

Для этого был написан Визуальный конструктор световых эффектов для семисегментных индикаторов.

https://www.youtube.com/watch?v=8qcUhBgws_o

И Визуальный конструктор световых эффектов для секундной светодиодной стрелки.

https://www.youtube.com/watch?v=3TN-Wy-r_Zo

Впервые разработку вёл от начала и до конца в Протеусе.

https://www.youtube.com/watch?v=YGcyPPAA848

По времени почти 2 года получилось, небольшими наскоками в перерывах между основной работой.

+4

61

radan написал(а):

Продолжаю развлекаться.

Офигеть красота.

0

62

Да, красиво. Правда в некотрых местах анимации недостаточно плавная, но и так красиво.

зы: а так конечно задротство, столько светодиодов ровно паять. :)

0

63

RDW написал(а):

зы: а так конечно задротство, столько светодиодов ровно паять.

Обижаете старого, шаблон на принтере распечатал, чтобы ровно было.
http://s3.uploads.ru/t/7kcjz.jpg

+2

64

Новые часы запилил.

+5

65

Прикольненько, вот только непонятненько. А какое время было на часах? Минуты нашел, секунды нашел. Часов не нашел. Старею наверное. :dontknow:

0

66

Andrusha написал(а):

Прикольненько, вот только непонятненько. А какое время было на часах? Минуты нашел, секунды нашел. Часов не нашел. Старею наверное.

На заставке видео 23 часа 8 минут. Второй режим - в центре минуты, часы считаем по периметру. они идут по 3 включенных светодиода. Подробнее на Радиокоте

0

67


Ещё одни часы.

+6

68

Давно хотел нечто подобное заделать в рекламных целях. Получился такой себе арт-объект.

+4

69

Видео недоступно
Автор заблокировал просмотр на других сайтах

0

70

А снизу подчёркнутая надпись: Посмотреть на ютубе.  :jumping:

0

71

Очень оригинально, однозначно зачёт!
Зелёные светодиоды - просто одноцветные зелёные?

0

72

Kasym написал(а):

Очень оригинально, однозначно зачёт!
Зелёные светодиоды - просто одноцветные зелёные?

Да, с градациями яркости. Плюс немного камера при съёмке искажает.

0

73

теперь надо ещё и на RGB светодиодах сделать, причём сразу работать в цветовом пространстве HSV - очень приятные глазу перетекания оттенков и яркости достигаются

0

74

Kasym написал(а):

причём сразу работать в цветовом пространстве HSV

У вас есть рабочие примеры?

0

75

Тут уже выкладывали эту ссылку https://bascom.at.ua/publ/hsv_to_rgb/1-1-0-100
код вполне рабочий

0

76

А что самое интересное, автор той статьи наш многоуважаемый radan :cool:

0

77

Самое интересное, что я думал, появился новый код. А тот что в статье, с небольшими доработками, я до сих пор использую.

+1

78

Вот рабочая ПП HSV в RGB.
H от 0 до 360, S и V от 0 до 1
Dim Hv As Word , Sv as Single , Vv as Single                'HSV
Dim Tred As Byte, Tgreen As Byte, Tblue As Byte           'Выходной цвет в RGB

Код:
'Для примера генерим случайный цвет
      Hv = RND(360)
      Tmp = RND(101) : Sv = Tmp / 100
      Tmp = RND(101) : Vv = Tmp / 100
'Преобразуем HSV в RGB
      Call HSV_RGB(Hv , Sv , Vv)

Sub HSV_RGB(H as Word , S as Single , V as Single)
   Local Hi as Word
   Local f as Single , p as Single , q as Single , t as Single
   Local Ra As Single , Ga As Single , Ba As Single   
   Hi = H \ 60
   Hi = Hi mod 6
   f = H / 60
   p = H \ 60
   f = f - Int(p)
   p = 1 - S
   p = p * V
   q = 1 - f
   q = q * S
   q = q * V
   t = 1 - f
   t = t * S
   t = 1 - t
   t = t * V
   if Hi = 0 then
      Ra = V : Ga = t : Ba = p
   End If
   if Hi = 1 then
      Ra = q : Ga = V : Ba = p
   End If
   if Hi = 2 then
      Ra = p : Ga = V : Ba = t
   End If
   if Hi = 3 then
      Ra = p : Ga = q : Ba = V
   End If
   if Hi = 4 then
      Ra = t : Ga = p : Ba = V
   End If
   if Hi = 5 then
      Ra = V : Ga = p : Ba = q
   End If
   Ra = Ra * 255 : Tred = Int(Ra)
   Ga = Ga * 255 : Tgreen = Int(Ga)
   Ba = Ba * 255 : Tblue = Int(Ba)
End Sub

Отредактировано sva-don (2021-02-25 14:31:07)

0

79

sva-don написал(а):

Вот рабочая ПП HSV в RGB.

Насколько быстр этот код, если сразу нужно просчитать много светодиодов?

0

80

radan написал(а):

Насколько быстр этот код, если сразу нужно просчитать много светодиодов?

Код от Sva-don работает в 2.7 раза медленнее вашего

0

81

radan написал(а):

Насколько быстр этот код, если сразу нужно просчитать много светодиодов?

Честно говоря никогда этим не заморачивался. Просто это классика жанра. Надо пробовать.

0

82

Оффтоп

Чтобы этот код работал быстро нужен как минимум 16-ти битный МК с аппаратной поддержкой умножения, деления и плавающей точки.

0


Вы здесь » Программирование ATMEL в BASCOM. » Световые эффекты » Часы с эффектами