а подскажите - существует модель для протеуса на WS2812B?
WS2812B
Сообщений 31 страница 60 из 128
Поделиться332018-05-07 20:40:26
radan
хм. и ведь восьмерку поставил, а сам пользуюсь семеркой.
спасибо! 
Поделиться342018-05-10 06:14:08
и снова здрассьте. а есть у кого описание на Rainbow 1.21? не могу понять, как вызывать функции Shift_Right и прочие. пытаюсь декларировать подпрограмму - пишет Lable not found
немецкое описание на 1ю версию у меня есть, но и там синтаксис другой...
Поделиться352018-05-10 13:47:31
Всё есть в хелпе.
Поделиться362018-05-10 14:26:24
RDW
в хелпе каком? на версию 1 или на ту, что в 2.0.7.9 прошита? они разные
Поделиться372018-05-10 14:40:32
У тебя в программе есть по кнопке F1 хелп! Нажми и читай!
Поделиться382018-05-10 14:42:15
Ну или так: https://avrhelp.mcselec.com/index.html? … ainbow.htm Если последняя версия сборки Баскома.
Поделиться392018-05-10 14:48:10
RDW
в том-то и дело.
у меня 2.7.0.8 и библиотека 1.21, у которой синтаксис
Declare Sub Select_Rainbow(byval Channel As Byte)
Declare Sub SetColor(byval LedNr As Word , Color() as Byte)
Declare Sub Send()
в последней сборке подпрограммы вообще не описываются, сразу операторы. а в немецком мануале от v.1 тоже синтаксис вызова подпрограмм другой. я попробовал схитропопить и вызвать
Declare Sub SHIFT_RIGHT(byval Parametr As не важно ) и прочитал про Lable not found
Поделиться402018-05-10 14:50:30
У тебя в программе есть по кнопке F1 хелп! Нажми и читай!
кнопка есть! и хэлп есть!! rainbow нет!!!
!

Поделиться412018-05-10 15:32:57
Всё время забываю, что вы там пиратской кривизной всё пользуетесь...
Поделиться422018-05-10 15:59:47
IDok
Вот попробуй,точно не помню,но вроде работало.
Поделиться432018-05-10 16:11:02
Sergik07
спасибо, вроде оно 
Поделиться442018-05-12 19:44:59
хосспади, коллеги! как вы со светотехникой работаете? я уже минут через 10 цветные мультики смотрю.
протеус конечно облегчает задачу, но не всегда.
ЗЫ это не вопрос, это всхнык. отвечать не обязательно 
ну а дабы не флудить, теперь вопрос:
есть код, он реализует переливание цветов на 4х светиках. он работает. есть мысли, как его облагородить? а то я сделал тупо в лоб...
Поделиться452018-05-16 01:40:06
хосспади, коллеги! как вы со светотехникой работаете? я уже минут через 10 цветные мультики смотрю.
Наглым образом выцыганил у жены коробку из под крема, плотная молочно-белая пластмасса, внутри светики, очень выручила.
Поделиться462018-05-16 21:24:54
есть мысли, как его облагородить?
If A > 15 Then Call Swap_Color(0 ,1)
If A > 30 Then Call Swap_Color(0 ,2)
If A > 45 Then Call Swap_Color(0 ,3)Call Swap_Color(0 ,1)
Call Swap_Color(0 ,2)
Call Swap_Color(0 ,3)
Эти участки повторяются более одного раза.
Можно выделить в подпрограмму.
Это чисто "с моей колокольни"... 
Поделиться472018-05-17 08:12:44
Nord
смысла нет. участки короткие, используются только здесь. громадянить ради этого две подпрограммы....
Поделиться482018-05-17 11:52:00
смысла нет. участки короткие, используются только здесь. громадянить ради этого две подпрограммы....
А что тогда облагораживать ? 
Поделиться492018-05-17 15:43:00
Nord
если б я знал - чай сам бы ублагородил! 
Поделиться502018-05-17 15:51:06
просто может есть более изящные решения
Поделиться512018-05-18 09:31:10
просто может есть более изящные решения
Нужно переходить с RGB на HSV.
Вот статья - http://bascom.at.ua/publ/hsv_to_rgb/1-1-0-100
Там ещё кое что можно оптимизировать.
Поделиться522018-05-18 10:53:21
radan
интересно, буду экспериментировать 
Поделиться532018-05-18 11:28:51
Нужно переходить с RGB на HSV.
Вот статья - http://bascom.at.ua/publ/hsv_to_rgb/1-1-0-100
Ничего не понял, если "Hue от 0 до 255", то как оно стыкуется с выше написанный "Для любых оттенка H ∈ [0°, 360°)"?
Н - тогда должна быть двухбайтовой переменой.
Поделиться542018-05-18 11:33:47
Далее, если весь код в итоге свелся к данным/таблицам нелинейностей светодиодов, то проще её использовать напрямую и обработка сведется к примитивному коду и быстрой работе (плюс не придется менять восприятие мира).
Поделиться552018-05-18 11:48:36
RDW
"Для любых оттенка H ∈ [0°, 360°), насыщенности S ∈ [0, 100], и яркости V ∈ [0, 100]:
(Мне пришлось перестроить все параметры на 256, так удобнее, не нужно проверять на корректность - используем полностью байт)"
если весь код в итоге свелся к данным/таблицам нелинейностей светодиодов
да там же вроде разнообразные вычисления идут, после выборки из таблицы. и как напрямую вбить таблицу нелинейностей? для каждого эффекта составлять дикую ручную матрицу?
тут как я понял, меняем входящие параметры на переменные и их уже крутим\вертим хоть по циклу хоть по генератору. но базара нет - задавать входящие сложнее чем с обычным RGB. надо придумывать как крутить яркость и насыщенность
Поделиться562018-05-18 12:02:11
как напрямую вбить таблицу нелинейностей?
Вообще тема известная, в инете куча инфы, можно заранее рассчитать так же таблицу нелинейности и всё. Вообще вся суть вычислений сводится как раз к отказу от таблиц, а тут гибрид. По мне нерационально. Если хотелось упростить делание эффектов, то надо пилить движок просто...
Поделиться572018-06-13 09:18:26
Нужно переходить с RGB на HSV.
поэкспериментировал. ну... или это надо применять на больших массивах светодиодов или я лыжи не смазал. банальный переход по цветовому пространству визуально хуже, чем обычный RGB. оттенки проскакивают слишком быстро, а основные цвета наоборот - горят долго. неравномерность в общем. хотя для больших и сложных цветовых схем оно может и лучше будет
Поделиться582019-12-10 22:16:59
Пробую прочитать данные из памяти чипа:
Declare Sub GetColor(byval a As Word) : $external Use_Getcolor
Rainbow0_len = 20
Const Rainbow0_port = PortB
Const Rainbow0_pin = PB4
Call Select_Rainbow(0)Dim Color(3) As Byte
Dim a As Word
For a = 0 To Rainbow0_len
Color(1) = GetColor(a)
Next a
Выдает ошибку для выделенной строки:
В подключаемой Rainbow1.21 эта подпрограмма (GetColor) есть, её условия соблюдены.
В чем грабли ?
Отредактировано Nord (2019-12-10 22:37:12)
Поделиться592019-12-10 22:25:01
Попробуйте так:
Color(1) = GetColor(a)
Поделиться602019-12-10 22:38:14
Попробуйте так:Код:Color(1) = GetColor(a)
Биг сорри, в оригинале так и есть...
Очепятка при подготовке сообщения... 
Исправил.
Отредактировано Nord (2019-12-10 22:38:49)
Похожие темы
| Ох уж эта RAINBOW О_О | Световые эффекты | 2022-06-03 |
| 3D Spectrum Analyzer uses 1280 LEDs | Световые эффекты | 2015-03-25 |
| Покупки на Aliexpress - актуально и дешево | Ищу/продам/куплю/услуги | 2019-12-24 |
| Вопросы-ответы писать только здесь | Часы на газоразрядных лампах | 2024-04-25 |
| Разработки | Часы на газоразрядных лампах | 2024-05-06 |
