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

radan · [1970-03-27]

http://www.bralug.de/wiki/3D-LED-Display

radan · [1970-03-27]

http://computerchristmas.com/christmas/ … LowLimit-5
How to Control Christmas Lights - How to do almost anything with Christmas Displays.

0

radan · [1970-03-27]

Holiday Lights Controller - Compiler BASCOM-AVR
http://www.avrfreaks.net/index.php?module=Freaks Academy&func=viewItem&item_id=1241&item_type=project

AVR ATbanned68 based controller PCB with RTC and AC power supply to control up to four 8-channel AC load IO PCBs over an I2C bus. Total system of five cards fits in a NEMA outdoor box. Each channel can be dimmed or turned on and off. The system is self-contained, does not require a PC connection (except during AVR programming) and does not offer music sync or features found on more costly commercial lighting controllers. This project was featured on the cover of the November issue of Nuts and Volts magazine.

Controller PCB: The Controller also includes a two digit seven segment LED and rotary encoder (with switch) for user programming of the RTC clock and show start and stop times. An optional 16 x 1 LCD shows the clock time, start and stop times and other data for system set up. An EEPROM on the I2C bus can be preprogrammed with sequences, or the fixed patterns generated by the uC code. The use of random timing and random seeds in the patterns removes the 'mechanical effect' of some low end commercial lighting controllers. The Controller PCB is protected by its own 5Amp fuse, and has additional AC terminals to allow easy wiring of the IO cards. The I2C bus and 5V power are daisy-chained through the IO cards with ribbon cables.

IO PCB: Each IO PCB is protected by a 5Amp fuse, and has monitor LEDs for each channel. IO cards use a three position DIP switch to set the I2C base address.

0

radan · [1970-03-27]

http://dclausen.net/projects/ledcyl/

LED Cylinder
This is a little art project I made with 95 RGB LEDs arranged in a 3D cylinder shape

0

radan · [1970-03-27]

Наш уважаемый модератор Ведущий специалист прислал исходники программы цветомузыки с преобразованием псевдо-Фурье. За что ему честь и хвала.

Я добавил схемку в псевдографике и комментарии. Попробовал собрать на макетке сам, правда на Меге16.
Често сказать, не ожидал, что она так забойно работать будет. Очень здорово передаёт музыкальную композицию. Я очень доволен. "Всё гениальное просто"!
Аудиосигнал брал с линейного выхода звуковой карты. Чтобы обеспечить работу ЦМУ с таким низким уровнем сигнала, необходимо установить подстроечным резистором
соответствующее напряжение на АРЕФ. Это единственная регулировка, которую необходимо провести для уверенной работы ЦМУ.
Вижу возможные пути модернизации - подключить стерео выход и разложить сигналы уже на 8 каналов, добавить микрофонный усилитель, чтобы не иметь шнуровой привязки.
Добавить режим бегущих огней ну и т.д. и т.п. Усовершенствуйте, модернизируйте, не забывайте присылать нам. Лучшие конструкции будут размещены на сайте.
Ну вот и всё, а далее сама схема и программа:

Код:

'****************************************************************************
'*                                                                          *
'* Filename   : ZMU LED 4channel + 1 (psevdo FFT)                           *
'* Revision   : 1.0                                                         *
'* Controll   : ATMEGA8-16PU                                                *
'* Compiler   : BASCOM-AVR 1.11.9.1                                         *
'* FORUM      : https://bascomavr.bbok.ru                                     *
'*                                                                          *
'****************************************************************************
'*                                                                          *
'*                         ATMEGA 8                                         *
'*                         +--\/--+                                         *
'*                      /--|1   28|                                         *
'* LED1  /--|<|--[510]--+--|2   27|                                         *
'* LED2  *--|<|--[510]--+--|3   26|                                         *
'* LED3  *--|<|--[510]--+--|4   25|-----------------------------------\     *
'* LED4  *--|<|--[510]--+--|5   24|                                   |     *
'*       |              |  |6   23|                                   |     *
'*       |           /--+--|7   22|----------\                        |     *
'*       *-----------+--+--|8   21|----------+---------\              |     *
'*       |           |  |  |9   20|--------\ |         |              |     *
'*       |           |  |  |10  19|------\ | |         v              |     *
'*       |           |  |  |11  18|----\ | | |     /-[10k]-\          |     *
'*       |           |  |  |12  17|--\ | | | |     |       |          |     *
'*       |           |  |  |13  16|  | | | | |     |       |          |     *
'*       |           |  |  |14  15|  | | | | |     |       |          |     *
'*       |           |  |  +------+  | | | | |     |       |          |     *
'*       |           |  \----------\ | | | | |     |       |          |     *
'*       |           *-------------+-+-+-+-*-+-----*-------+-\        |     *
'*       |           | 0,1         | | | | | |    +| 470,0 | |        | 1,0 *
'*       |          ---            | | | | | |    ---      | |       ---    *
'*       |          ---            | | | | | |    ---      | |       ---    *
'*       |           |             | | | | | |     |       | |        |     *
'*       *-----------*-------------+-+-+-+-+-*-----*-------*-+------\ |     *
'*       |                         | | | | | |             | |      | |     *
'*       |                         V V V V V V             V V      V V     *
'*      ---                                                                 *
'*                                 R M M S V G             - +      G A     *
'*                                 E O I C C N             5 5      N U     *
'*                                 S S S K C D             V V      D D     *
'*                                   I O                              I     *
'*                                                                    O     *
'****************************************************************************

$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Output
Config Adc = Single , Prescaler = 32
Enable Adc
Start Adc

Dim Channel As Byte , C As Byte , X(4) As Byte , Rychag As Byte
Dim A1 As Word , A2 As Word , A3 As Word , A4 As Word
Dim X1 As Single , X2 As Single , X3 As Single , X4 As Single
Dim Temp5 As Single , Temp6 As Single , A(1) As Single

'****************************************************************************

Channel = 2
Rychag = 0

'Начало цикла
Do

'Делаем 4 выборки музыкального сигнала
A1 = Getadc(channel)
A2 = Getadc(channel)
A3 = Getadc(channel)
A4 = Getadc(channel)

'Перевод замеры (0...1024) в формат (-127...128)
X1 = A1 / 4
X1 = X1 - 128
X2 = A2 / 4
X2 = X2 - 128
X3 = A3 / 4
X3 = X3 - 128
X4 = A4 / 4
X4 = X4 - 128

'Вычисляем спектр - Псевдо Фурье
   'НЧ
   Temp5 = X1 + X2
   Temp6 = X3 + X4
   C = Temp5 + Temp6
   X(1) = 255 - C
   'СЧ1
   Temp5 = X1 - X4
   A(1) = Temp5
   Temp5 = X2 - X3
   Temp6 = Temp5 / 2
   Temp5 = A(1)
   C = Temp5 + Temp6
   X(2) = 255 - C
   'СЧ2
   Temp5 = X1 - X2
   Temp6 = X3 + X4
   C = Temp5 - Temp6
   X(3) = 255 - C
   'ВЧ
   Temp5 = X1 - X4
   Temp6 = 0.38 * Temp5
   A(1) = Temp6
   Temp5 = X2 + X3
   Temp6 = Temp5 * 0.92
   Temp5 = A(1)
   C = Temp5 + Temp6
   X(4) = 255 - C

'Обнуляем выходы
Portd = 0

'Включаем выходы, если  уровень спектра превысил заданное значение
If Rychag = 1 Then

If X(1) > 127 Then Portd.1 = 1 Else Portd.1 = 0
If X(2) > 127 Then Portd.2 = 1 Else Portd.2 = 0
If X(3) > 127 Then Portd.3 = 1 Else Portd.3 = 0
If X(4) > 127 Then Portd.4 = 1 Else Portd.4 = 0

End If

Return
'Конец цикла
Loop

'****************************************************************************

УДАЧИ! :cool:

0

Ведущий специалист · [1979-02-04]

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

http://www.ianpaterson.org/projects/spo … /index.htm
Механическая развёртка на колесо велосипеда. Исходники и плата присутствуют.

а я дополню, тут на авре... http://www.ladyada.net/make/spokepov/index.html

да, кстати. бит rychag в начале программы нужно установить в единицу, либо убрать вообще условие

Отредактировано Ведущийспециалист (2008-09-26 21:08:35)

0

Ведущий специалист · [1979-02-04]

Код:

$regfile = "m48def.dat"
$crystal = 8000000                                          'âíóòðåííèé ãåíåðàòîð

Config Portb = Output

Config Portc = Input
Dim Tik As Byte , Chunk(16) As Byte
Dim Channel As Byte                                         'íîìåð êàíàëà
Dim L As Word , C As Byte , D As Byte                       'äîïîëíèòåëüíàÿ ïåðåìåííàÿ
Dim X(8) As Byte                                            'ÿðêîñòü ñâåòîäèîäîâ èç òàáëèöû ÿðêîñòè
Dim Temp As Byte , S As Byte                                'ñêîðîñòü ïîâòîðîâ
Dim Mass(16)as Byte
Dim A1 As Word , A2 As Word , A3 As Word , A4 As Word
Config Adc = Single , Prescaler = Auto , Reference = Internal
Enable Adc
Start Adc
Dim X1 As Single , X2 As Single , X3 As Single , X4 As Single
Dim Temp5 As Single , Temp6 As Single
Dim A(1) As Single , T1 As Byte , T2 As Byte , T3 As Byte
Rychag Alias Pind.0
'****************************************************************************
Channel = 4
Do
A1 = Getadc(channel)
Waitus 10
A2 = Getadc(channel)
Waitus 10
A3 = Getadc(channel)
Waitus 10
A4 = Getadc(channel)
X1 = A1 / 4
X1 = X1 - 128
X2 = A2 / 4
X2 = X2 - 128
X3 = A3 / 4
X3 = X3 - 128
X4 = A4 / 4
X4 = X4 - 128

Temp5 = X1 + X2
Temp6 = X3 + X4
C = Temp5 + Temp6
X(1) = 255 - C
Temp5 = X1 - X4
A(1) = Temp5
Temp5 = X2 - X3
Temp6 = Temp5 / 2
Temp5 = A(1)
C = Temp5 + Temp6
X(2) = 255 - C
Temp5 = X1 - X2
Temp6 = X3 + X4
C = Temp5 - Temp6
X(3) = 255 - C
Temp5 = X1 - X4
Temp6 = 0.38 * Temp5
A(1) = Temp6
Temp5 = X2 + X3
Temp6 = Temp5 * 0.92
Temp5 = A(1)
C = Temp5 + Temp6
X(4) = 255 - C
Portb = 0
If X(1) < 127 Then Portb.4 = 1                              'Medium
If X(1) < 200 Then Portb.1 = 1
If X(4) < 200 Then Portb.2 = 1
If X(4) < 157 Then Portb.3 = 1                              'Bass
Loop

вот!!!
Седня полвечера потратил на проверку и подгонку. Вроде бы как реальные результаты. Ареф убрал внутрь, так что никаких регулировок. Втыкаете адц4 на выход наушников, подстраиваете громкость, и наслаждаетесь светомузыкой. Сразу оговорюсь, что проект как бы живой, и мною дорабатывается. Но поверьте это уже можно собирать. Проверял визуально и двухканальным осциллом. Поэтому так и назвал прогу BASS Shifter потому как бас у нее выделяется лучше остальных

0

radan · [1970-03-27]

Я так понял анализ ведётся по двум частотам - X(1) и X(4), только на разном уровне?

Вечером попробую, сравню.

0

Ведущий специалист · [1979-02-04]

так и есть. Остальные ввиду всего 4х выборок работают сами по себе либо срабатывают от шумов

0

radan · [1970-03-27]

До спектроанализатора схемка конечно не дотягивает, но как для мигалки - самое то. Хочется приделать микрофонный усилитель, чтобы отвязаться от проводов. Вчера попробовал на одном транзисторе слепить, работает, но чувствительности не хватает. Может у кого-нибудь есть готовая схемка простого микрофонного усилителя (для электректника)?
И ещё хотелось бы сделать программное АРУ....

0

Ведущий специалист · [1979-02-04]

Поставь операционник. Будет и усиление и ару

0

radan · [1970-03-27]

http://www.toroid.ru/fos.html - куча книг по цифровой обработке сигналов.

0

radan · [1970-03-27]

Подборка схем световых эффектов - http://www.onlinedisk.ru/file/56826/
Бегущие огни и строки, свето и цветомузыки, стробоскопы, матричные табло, эффекты с круговой развёрткой, 3D - куб.
Простые и сложные на все случаи жизни. Сделал подборку к Новогодним праздникам.

0

radan · [1970-03-27]

http://www.electroavto.narod.ru/sdu.html
ЦМУ/СДУ на микроконтроллере
Это устройство объединяет в себе цветомузыку (ЦМУ) и светодинамическое устройство (СДУ) на 8 каналов, с множеством световых эффектов. Выходы устройство рассчитаны на подключение достаточно мощной нагрузки.

0

Juris3D

Dobrij djenj!
(izvinjajus za otsutstvije kirillici)
Ja hotel bi zadatj vopros Veduschemu Specialistu Ja dolgo i uporno ischu prilichnije reshenija cvetomuziki chtobi bilo vsjo realizovanno v mikrokontrollere: adc, fft, pwm, vsjo takoje. Natknulsja na napisannij Vami tekst:
"Я сам щас вплотную занимаюсь цветомузыкой под процем с шимом.Столько потов сошло чтобы разделить мегой только 4 канала музыки. Ушли все ресурсы меги 48(20 мегагерц). Зато добился разделения частот под 4 канала цвета.И плавно меняется свечение. "
Eto rech idjot ob opubikovannom zdesj vishe resheniji, ili jestj chto-to boleje uzhe prodvinutoje? I jesli jestj, mozhno li eto uvidjetj
Zaraneje ogromnoje spasibo!

0

radan · [1970-03-27]

Я не Ведущий специалист, но кое что можно посмотреть здесь:
http://bascom.at.ua/publ/1-1-0-5

А Ведущий специалист я думаю тоже ответит.

0

Ведущий специалист · [1979-02-04]

Привет всем, извиняюсь за столь долгое отсутствие! В ближайшее время постараюсь опубликовать проект, как только его доделаю

0

Juris3D

Ochen nadejemsa na Vas, uvazhajemij VeduschijSpecialist, nadejemsja i zhdjom. Nu, ja vo vsjakom sluchaje zhdu ochenj
Uspehov, i zaranjeje spasibo!

0

Pasha · [1987-04-17]

Ведущийспециалист написал(а):

вот!!!Седня полвечера потратил на проверку и подгонку. Вроде бы как реальные результаты. Ареф убрал внутрь, так что никаких регулировок. Втыкаете адц4 на выход наушников, подстраиваете громкость, и наслаждаетесь светомузыкой. Сразу оговорюсь, что проект как бы живой, и мною дорабатывается. Но поверьте это уже можно собирать. Проверял визуально и двухканальным осциллом. Поэтому так и назвал прогу BASS Shifter потому как бас у нее выделяется лучше остальных

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

Вроде мысль следующаяя..... синтаксис не правильный, но смысл понятен.

Код:

If gatadc(4) < 300 Then Portb.4 = 1                            
If gatadc(4) < 600 and > 300 Then Portb.1 = 1
If gatadc(4) > 600 and < 900 Then Portb.2 = 1
If gatadc(4) >600 Then Portb.3 = 1

0

Pasha · [1987-04-17]

Готовый вариант цветомузыки с преобразованием фурье на асме.

http://airylight.nm.ru/cm8/shem.htm

http://airylight.nm.ru/cm8/cm8prog.rar

0

Juris3D

Ja sobiral i proboval cvetomuziku po airylight linku, no na moj vzgljad ona kak to stranno i njeponjatno rabotajet. Pravda, sam avtor odin iz rezhimov nazivajet "abstrakcija", tak chto eto navernoje tak vsjo i zadumanno. Navernjaka komu-to ponravitsa, no mne lichno kak to nje ochenj.

0

radan · [1970-03-27]

http://www.gerold-online.de/cms/uc-proj … oller.html

DMX512 исходники на BASCOM в разделе Downloads

0

radan · [1970-03-27]

Как вам такие часики?
http://www.evilmadscientist.com/article.php/bulbdial

0

Yrec24

Всем здраствуйте,подскажите пожалуста,мне нужна схема ЦМУ/СДУ на микроконтроллере Atmega 8 или Attiny2313.Либо схема бегущих огней с микрофонным управлением на этих же контроллерах,за ранее благодарю.

0