Проекты на микроконтроллерах AVR

Парни а кто небудь играет в Танчики (Worl of Tanks)

Aleks8383 — Thu, 14 May 2020 04:31:10 GMT

Форум: Курилка
Описание темы: какие ещё увлечения есть кроме электронники.
Автор темы: Aleks8383
Автор последнего сообщения: Sup24exchange
Количество ответов: 13

Мультик на осцилографе

Aleks8383 — Tue, 12 May 2020 16:33:36 GMT

Поприветствую всех,увидел классное видео на Ютубе меня очень впечатлило.Всётаки наши парни самые толковые чтобы на них не говорили.Посмотрте что с1-65 может в умелых руках.

Направлятор

kestrel — Sun, 19 Apr 2020 07:19:12 GMT

всем привет, возникла проблемка, хотелось бы разобраться,
решил в железе прогнать код направлятора, и у меня появляется разница в расстоянии между двумя точками,
по координатам GPS приемника расстояние равно 584 метра, а расстояние между этими же точками по Google maps
495 метра, соответственно сам вопрос в коде есть строка Dist = Dist * 6372795, что это за число 6372795?

интересное из интернета

sherman — Tue, 14 Apr 2020 05:46:22 GMT

сколько раз натыкался в интернете на офигенные задумки, что решил выкладывать здесь.
первый на очереди календарь промокашка)))

краска оооочень медленно смачивает и окрашивает цифры, по одной в день. интересно из подручных материалов такое собрать?))

Канал для начинающих электронщиков

arduboy — Wed, 18 Mar 2020 10:23:10 GMT

Форум: В разработке
Описание темы: Канал для любителей механики и роботостроения
Автор темы: arduboy
Автор последнего сообщения: oxygene
Количество ответов: 3

AVR web-сервер

implex — Tue, 17 Mar 2020 19:22:26 GMT

Всем привет! Может кто сталкивался с таким проектом на bascom? Суть в следующем: контроллер связан по spi с ethernet модулем и в браузер может выдавать простенькие странички. Можно было б связать эту тему с охранным устройством и смотреть состояние нагрузок и датчиков, состояние счета на симке (а возможно и управлять нагрузкой, только опасно ). Есть даже проект в стандартных примерах баскома, но мне не все там понятно.

bascom + Python+ web управление

seny — Tue, 31 Dec 2019 11:48:11 GMT

Делаю ребенку маленького робота с управлением через web server flask, попутно изучая тему понял что на bascom нет интеграции.
Будем развивать тему и развивать вместе?
Для начала прилагаю файлы с прошивкой, исходниками , и сервером на Python3. переключает светодиод по com порту.
Flask на 7 и на 10 из ide не запускается у меня. Так что:
cmd
путь к файлу test_flask.py
(c:\python\test_flask.py) - как пример.

Устройство подачи звонков в учебных учреждениях.

Dmitriy — Tue, 24 Dec 2019 22:33:25 GMT

Когда узнал, что в техникуме, куда ходит сын, звонки подаются вручную, решил собрать это устройство. В видео рассказано, что это такое и с чем его едят. Если кого то заинтересует, выложу прошивку, исходник и схему. Самое дорогое в этой штуке, индикатор с кириллицей.
https://www.youtube.com/watch?v=V4UZU5rOzfo

RGB Новогодняя елочка.

Dmitriy — Tue, 24 Dec 2019 09:35:13 GMT

Захотел я изготовить красивую и сложную елку. Каркас из формата А1, насверлены отверстия под 5мм. светодиоды количеством 160 штук. Спаян контроллер на Меге 2560. На данный момент готовы две нитки по 16 светодиодов из десяти. Будет 80 каналов, организован трех канальный программный ШИМ, удалось получить практически любой цвет. Питание будет автономное, от 18650, для них подготовлен балансир на ICL 7660, проверен в работе, результат удовлетворительный. Пробное включение двух ниток показало просто удивительные возможности поиграться с цветами, розовый, бирюзовый, сиреневый и т.д. в общем очень красиво. Если к концу сборки этой игрушки меня не заберут в психушку, обязательно сниму видео на хорошую камеру и поделюсь. Сейчас предлагаю только фото. Исходники, схема и подробное описание будут немного позднее. Памяти в контроллере предостаточно для написания самых различных световых эффектов.
https://drive.google.com/open?id=0B4u67oh2vLxOVEhrSmtSdGVYMU0

Управление пином через регистры?

twinsen_kiev — Tue, 24 Dec 2019 09:33:26 GMT

Нужно на ножку повесить устройство, которое на свой вход от МК может принимать три возможных состояния: землю, питание и обрыв - тоесть ничего, по каждому из которых оно совершает три разных действия.
Будет ли работать такая схема? (Для примера условный пин А1 и три подпрограммы).

1:                                    'на ножке земля
Ddra.1 = 1                            'ставим на выход
Porta.1 = 0                           'на землю
Return

2:                                    'на ножке питание
Ddra.1 = 1                            'ставим на выход
Porta.1 = 1                           'на питание
Return

3:                                    'на ножке высокий импеданс (Hi-Z) - обрыв
Ddra.1 = 0                            'ставим на вход
Port a.1 = 0                          'на землю
Return

LCD Дисплей Nextion и Bascom

vlad-sf — Sat, 21 Dec 2019 09:19:46 GMT

Добрый день. Прикупил вот такой дисплей: http://ru.aliexpress.com/item....2.html. Общается с контроллером по UART. Программирование на Bascom осваиваю потихоньку, но здесь попал в ступор. Дисплей выдает данные в UART при нажатии на кнопки на нем и заканчивает отсылку такой последовательностью: 0XFF 0XFF 0XFF (пример, код нажатия клавиши на сенсорном экране: 0X65 0X00 0X02 0X01 0XFF 0XFF 0XFF). А Bascom "ждет" в завершении команды код возврата каретки и поэтому программа дальше не выполняется. Как "заставить" Bascom понять нужную последовательность (0XFF 0XFF 0XFF) без ожидания "Enter" ?

MAX7456

IgorBorNN — Fri, 22 Nov 2019 11:26:47 GMT

Доброго здравия !!! Вопрос по max7456 о выводе знаков на монитор. В каждой ячейки памяти маха есть знаки, буквы, цифры, у меня есть программа вывода знаков на монитор, но проблема заключается в том, как увеличить знак при выводе его на монитор программно, по данному вопросу не могу найти инфу. Если кто знает, помогите пожалуйста !!! С Уважением !!!

Дисплеи от мобильников

ya-zp — Fri, 22 Nov 2019 11:26:33 GMT

Бродя по просторам интернета в поисках электронных "вкусняшек" нахожу все больше интересных конструкций с использованием различных дисплеев от мобильных телефонов. Посему вполне логично заинтересовало желание осилить какой-нить цветной дисплей. Но так опыта в подобных делах не особо много - хотелось бы поинтересоваться, может у кого есть примеры использования каких-либо дисплеев. Наибольшей популярностью (как я понял) пользуются (из цветных дисплеев)- это Siemens CX(S)65 на контроллере LS020
( как пример : http://bascomavr.3bb.ru/viewtopic.php?id=72
http://robozone.su/2009....0.html)
и L2F50 Siemens (http://bascomavr.3bb.ru/viewtopic.php?id=72)
И вот еще интересный проэктик, правда не С баскомом, но ведь идея есть! :
http://phreakerclub.com/464

Энкодер и Bascom-AVR. Счетчик импульсов

Dumon — Fri, 22 Nov 2019 10:43:11 GMT

В статье "Энкодер и Bascom-AVR. Счетчик импульсов" для обнаружения вращения энкодера применяется этот код:

Код

Encod:  ' тут узнаем в каком направлении вращают ручку энкодера
  Waitms 2' ждем пока утихнет дребезг контактов
  If Pind.5 = 1 Then  ' если на ноге единица (импульс не пришел) тогда
  Incr W  ' инкременируем переменную (увеличиваем на 1)
  Else ' в обратном случае
  Decr W  ' декрементируем переменную (уменьшаем на 1)
  End If

  Gifr = 64 ' сбрасываем регистр хранения прерывания INT0

Я использую вот этот и хочу спросить кто что думает ?

Код

'=========================================================
'                    АнтиДребезг!!!
Enc_0 = 0
Do
Incr Enc_0 : Reset Watchdog
If Pind.2 = 0 And Pind.0 = 1 Then : Incr Enc_1 : Exit Do : End If
If Pind.2 = 0 And Pind.0 = 0 Then : Incr Enc_2 : Exit Do : End If
Loop Until Enc_0 > 20000
Enc_0 = 0
Do
Incr Enc_0 : Reset Watchdog
If Pind.2 = 1 And Pind.0 = 0 Then : Incr Enc_1 : Exit Do : End If
If Pind.2 = 1 And Pind.0 = 1 Then : Incr Enc_2 : Exit Do : End If
Loop Until Enc_0 > 20000
'=========================================================
If Enc_1 > Enc_2 Then                    ' вращение в право
Elseif Enc_1 < Enc_2 Then                    ' вращение в лево Код
End If
Gifr = 64
Return
'=====================================================

Метеостанция с видеовыходом.

klazarev — Fri, 22 Nov 2019 10:36:11 GMT

Вот наваял. Состав: Arduino Pro Mini + MAX7456 + TinyRTC + BMP085 + DHT22 . Выводит время, дату, информацию с BMP085 (давление и температуру в квартире), информацию с DHT22 (температуру и влажность за бортом), мин. и макс. температуры за прошедшие 24 часа, фазу и день Луны. Ведет лог давления за последние трое суток. Будет все это показывать через свободный канал домашнего видеорегистратора (Сейчас там трудится зверь попроще на Parallax Propeller).

Задумывалось все это как простые часы с видеовыходом, а потом обросло датчиками и разными плюшками. Так что код не очень стройный. К тому-же я не программист и Бэйсик я знаю на уровне Спектрума 25 летней давности. Так что сильно не пинайте.

Управление тремя кнопками. Set, - и +. Нажатие на Set включает режим установки. Соответствующий параметр начинает мигать. Кнопками + и - меняется его значение. Зажав + или - получите автоперебор с частотой ~0,5 сек. Нажав на Set еще раз Вы перейдете к изменению следующего параметра и т.д. После этого начинают мигать все параметры. В это время Вы можете нажать на кнопку + и сохранить изменения в часах (секунды обнулятся) или еще раз нажать Set и выйти без сохранения.

Вот несколько изображений устройства:

Вот небольшое видео:

Схема на россыпи, исходники и шрифт для MAX7456 во вложении. Там-же скетч для загрузки шрифта в MAX7456 через Гипертерминал (прилагается). И еще программка для редактирования шрифтов. Код я в ключевый местах вроде прокомментировал, но если будет непонятно - пишите.

Велокопьютер

Psyhoput777 — Mon, 18 Nov 2019 17:28:57 GMT

Давно хочу реализовать "гибкий" в настройке и информативный велокомпьютер. Вот наконец-то не давно определился на каком "камне"(Atmeha32 или Atmeha32L) буду делать и с каким дисплеем (nokia 3310).Хочу поставить 2 герконовых датчика ("каденс" и "скорость"), датчик температуры ds18s20 (для понтов и информативности ), ну естественно часы реального времени ds1302, 4 кнопки для управления компом под дисплеем. Схему и печатку приложил в DIP Trace

Передатчик с обратной связью на NRF24L01

igrok_by — Wed, 30 Oct 2019 08:56:36 GMT

День добрый. Может кто желал подобную связь???
Алгоритм работы просто. Получили команду - обработали (сняли показания с датчиков) - выкинули ответ.
Я тут пробовал воято но что-то не чего путно не получается. То вроде как цифры растут то опять скинутся. В чем проблема не знаю. Может у кого есть свой пример.

Код

$regfile = "m8def.dat"
$crystal = 8000000
'$regfile = "m328pdef.dat"
'$crystal = 16000000
'конфигурация дисплея
'=================================================================
Config Lcdpin = Pin , Rs = Portd.4 , E = Portd.3 , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3
Config Lcd = 16 * 2
Cursor Off
Cls

'Для передатчика
'--------------------------------------------------------------
'Заявить отдельные подпрограммы
Declare Sub R_register(byval Command As Byte , Byval C_bytes As Byte)
Declare Sub W_register(byval C_bytes As Byte)

'SPI (nRF24L01) команды
Const Write_reg = &H20                    'Определить Команду Записи В Реестр
Const Rd_rx_pload = &H61                    'Define Rx Полезной Нагрузки Адрес Регистра
Const Wr_tx_pload = &HA0                    'Определить Tx Полезной Нагрузки Адрес Регистра
Const Flush_tx = &HE1                    'Определить Флеш Tx Зарегистрировать Команду

'SPI (nRF24L01) регистры (адреса)
Const Config_nrf = &H00                    'Config адрес регистра
Const En_aa = &H01                    'Включить Автоматическое Подтверждение регистрации адрес
Const En_rxaddr = &H02                    'Включено Rx адреса " адрес регистра"
Const Rf_ch = &H05                    'RF channel' адрес регистра
Const Rf_setup = &H06                    'РФ Setup " (Настройка) адрес регистра"
Const Status = &H07                    'Статус " адрес регистра"
Const Rx_addr_p0 = &H0A                    'rx адрес Pipe0 " зарегистрировать адрес"
Const Rx_pw_p0 = &H11                    'rx полезной нагрузки ширина , Pipe0 " зарегистрировать адрес"
Const Fifo_status = &H17                    'fifo - Регистр Состояния " регистрация адреса"
Const Tx_addr = &H10                    'TX address (адрес)

'Переменные кеша
Dim D_bytes(6) As Byte , B_bytes(5) As Byte
Dim Q As Byte , W As Byte , E As Byte , R As Byte , T As Byte

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 1

'Программное обеспечение SPI НЕ работает с nRF24L01, используйте оборудование SPI только, но эсэсовцы pin-код должен управляться нашей функцией
Config Pind.5 = Output                    'CE pin is output
Config Pinb.2 = Output                    'SS pin is output
Config Pind.7 = Input                    'IRQ pin is input
   Ce Alias Portd.5
   Ss Alias Portb.2
   Irq Alias Pind.7

'основная прога
Spiinit

Set Ce
Waitms 10
Reset Ce
Reset Ss
Cls
Lcd "RX_device"

Call R_register(status , 1)                    'Читать Регистр СОСТОЯНИЯ
Reset Ce                    'Set CE низко, чтобы получить доступ к регистрам

Gosub Setup_rx                    'Настройка nRF24L01 для RX
Waitms 2
Set Ce                    'Set nRF20L01 в режиме приема

Do

If Irq = 0 Then                    'Подождите, пока IRQ происходит, pin-код становится низким на прерывание
   Reset Ce                    'Ресивер должен быть включен до чтения pload

   Call R_register(rd_rx_pload , 5)                           'Читать 5 байт RX pload регистрации
   Q = B_bytes(1)
   W = B_bytes(2)
   E = B_bytes(3)
   R = B_bytes(4)
   T = B_bytes(5)
   Cls
   Lcd "q=" ; Q ; "w=" ; W ; "e=" ; E
   Lowerline
   Lcd "r=" ; R ; "t=" ; T ; " " ;

   D_bytes(1) = Write_reg + Status                            'Сброс RX_DR бит состояния
   D_bytes(2) = &B01000000                    'Напиши 1 до RX_DR бит для сброса IRQ
   Call W_register(2)
   Set Ce                    'Включить приемник снова

    Wait 2

   Incr T
   Incr Q
   Incr W
   Incr E
   Incr R

   If T = 250 Then
    T = 0
   End If
   If Q = 250 Then
    Q = 0
   End If
   If W = 250 Then
    W = 0
   End If
   If E = 250 Then
    E = 0
   End If
   If R = 250 Then
    R = 0
   End If

Set Ce
Waitms 10
Reset Ce
Reset Ss
Call R_register(status , 1)                    'Читать Регистр СОСТОЯНИЯ
Reset Ce                    'Set CE низко, чтобы получить доступ к регистрам

Gosub Setup_rx                    'Настройка nRF24L01 для RX
Waitms 2
Set Ce                    'Set nRF20L01 в режиме приема

   D_bytes(1) = Flush_tx                    'Flush the TX_fifo буфера
   Call W_register(1)
   D_bytes(1) = Write_reg + Status                            'Reset IRQ бит
   D_bytes(2) = &B00110000
   Call W_register(2)

   Gosub Setup_tx                    'Настройка nrf240l01 для TX
   D_bytes(1) = Wr_tx_pload                    'Положи 5 байт в TX pload буфера
   D_bytes(2) = Q                    'Байт 1
   D_bytes(3) = W                    'Байт 2
   D_bytes(4) = E                    'Байт 3
   D_bytes(5) = R                    'Байт 4
   D_bytes(6) = T                    'Байт 5 будет увеличиваться каждый цикл
   Call W_register(6)                    'Запись 6 байт для регистрации

   Cls
   Lcd "q=" ; Q ; "w=" ; W ; "e=" ; E
   Lowerline
   Lcd "r=" ; R ; "t=" ; T ; " " ;

   Waitms 2
   Set Ce                    'Set CE на короткий миг, чтобы передать буфер fifo
   Waitms 1
   Reset Ce

   Waitms 20

   Set Ce
   Waitms 10
   Reset Ce
   Reset Ss

   Call R_register(status , 1)                    'Читать Регистр СОСТОЯНИЯ
   Reset Ce                    'Set CE низко, чтобы получить доступ к регистрам

   Gosub Setup_rx                    'Настройка nRF24L01 для RX
   Waitms 2
   Set Ce                    'Set nRF20L01 в режиме приема

    Wait 2
End If

Loop

'Sub подпрограмм
Sub W_register(byval C_bytes As Byte)                       'Пишите зарегистрировать с SPI
   Reset Ss                    'Руководство управления СС контакт, установить СС низких до смещение, байт
   Spiout D_bytes(1) , C_bytes                    'Shiftout байты данных SPI корыта, C_bytes это количество байт, которые будут написаны
   Set Ss                    'Set СС высокого
End Sub

Sub R_register(byval Command As Byte , Byval C_bytes As Byte) As Byte       'C_bytes = Count_bytes, номер off байт для чтения
   Reset Ss                    'Ручное управление СС контакт, установить на низком уровне до переход в/из байт
   Spiout Command , 1                    'Первый shiftout в реестр, который будет читать
   Spiin B_bytes(1) , C_bytes                    'Прочитал назад байты из SPI направлять по nRF20L01
   Set Ss                    'Установить СС обратно на высоком уровне
End Sub

Setup_rx:                    'Подготовка к RX
   D_bytes(1) = Write_reg + Rx_addr_p0                        'RX адрес для pipe0
   D_bytes(2) = &H34
   D_bytes(3) = &H43
   D_bytes(4) = &H10
   D_bytes(5) = &H10
   D_bytes(6) = &H01
   Call W_register(6)                    'Отправить 6 байт для SPI
   D_bytes(1) = Write_reg + En_aa                             'Enable auto ACK на pipe0
   D_bytes(2) = &H01
   Call W_register(2)
   D_bytes(1) = Write_reg + En_rxaddr                         'Включить RX адрес для pipe0
   D_bytes(2) = &H01
   Call W_register(2)
   D_bytes(1) = Write_reg + Rf_ch                             'Настройка каналов
   D_bytes(2) = 40                    'Частота 2440 MГц
   Call W_register(2)
   D_bytes(1) = Write_reg + Rx_pw_p0                          'Set RX pload ширина для pipe0
   D_bytes(2) = 5
   Call W_register(2)
   D_bytes(1) = Write_reg + Rf_setup                          'Настройка РФ -> Выходной мощности 0 дБм, datarate 2 Мбит / с и МШУ прибыль по
   D_bytes(2) = &H0F
   Call W_register(2)
   D_bytes(1) = Write_reg + Config_nrf                        'Настройка CONFIG -> I=1 (RX_device), PWR_UP=1, CRC 2bytes, Включить CRC
   D_bytes(2) = &H0F
   Call W_register(2)
Return

Setup_tx:                    'Подготовка к TX
   D_bytes(1) = Write_reg + Tx_addr                           'TX адрес
   D_bytes(2) = &H34
   D_bytes(3) = &H43
   D_bytes(4) = &H10
   D_bytes(5) = &H10
   D_bytes(6) = &H01
   Call W_register(6)
   D_bytes(1) = Write_reg + Rx_addr_p0                        'RX адрес для pipe0
   D_bytes(2) = &H34
   D_bytes(3) = &H43
   D_bytes(4) = &H10
   D_bytes(5) = &H10
   D_bytes(6) = &H01
   Call W_register(6)
   D_bytes(1) = Write_reg + En_aa                             'Enable auto ACK на pipe0
   D_bytes(2) = &H01
   Call W_register(2)
   D_bytes(1) = Write_reg + En_rxaddr                         'Включить RX адрес для pipe0
   D_bytes(2) = &H01
   Call W_register(2)
   D_bytes(1) = Write_reg + Rf_ch                             'Настройка каналов
   D_bytes(2) = 40                    'Частота 2440 MГц
   Call W_register(2)
   D_bytes(1) = Write_reg + Rf_setup                          'Настройка РФ -> Выходной мощности 0 дБм, datarate 2 Мбит / с и МШУ прибыль по
   D_bytes(2) = &H0F
   Call W_register(2)
   D_bytes(1) = Write_reg + Config_nrf                        'Настройка CONFIG -> I=0 (TX_device), PWR_UP=1, CRC 2bytes, Включить CRC
   D_bytes(2) = &H0E
   Call W_register(2)
Return

ATMega48/88/168

301992 — Wed, 28 Aug 2019 15:25:26 GMT

Подскажите, какой таймер работает с часовым кварцем.

Вот что про эти МК написано:
два 8 битных таймера/счетчика;
один 16 битный таймер/счетчик (с захватом);
таймер реального времени (часы)
шесть ШИМ каналов;
6/8 канальный 10ти битный АЦП
аналоговый компаратор;
SPI последовательный интерфейс
I2C интерфейс
USART (это компьютерный COM RS232, только с другими уровнями ).
Watchdog таймер, внешние прерывания на всех ножках.

Подтверждение перехода

Spuerdo — Thu, 20 Jun 2019 15:37:09 GMT

Приветствуем, для продолжения нажмите

http://premiamail.ru

делимся ресурсами по bascom AVR

Scorpushka — Thu, 20 Jun 2019 15:35:30 GMT

всем привет.
http://www.mcselec.com/index.p....emid=54
интересная книжка, правда на английском, но при желании понятно