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

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

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

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

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

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

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

Плата модуля SIM900D и AVR

RD3AVJ — Sun, 26 May 2019 13:28:47 GMT

Коллеги, кто сталкивался, разъясните пожалуста следующий момент: есть отладочная плата с модулем SIM900D, и отладочная с Атмега32. Цель: построение GSM сигнализации для дачи с различными функциями. Объеденены платы по UART для обмена. Внимание, знатокам: даташит на Sim900D говорит, что напряжение на шинах ТХ и RX не должно превышать 3х вольт, а тем временем на плате с Атмегой32й оно составляет 5В. Вопрос: как правильно построить согласование уровней, нужно ли оно в принципе или SIM900D слопает то, что подадут и не превратиться в головешку. Так же интересно услышать мнения по поводу правильной организации питания обоих плат в связке, с учетом резервного аккумулятора. Платы модуля SIM и отладочнуую для Атмеги 32 я использую те, что разработал всеми нами уважаемый exersizze, владелец данного интернет ресурса (см статьи).

Копировальщик ключей DS1990

Dmitriy — Fri, 19 Oct 2018 12:25:27 GMT

Любопытная штуковина, можно клонировать ключи, можно самостоятельно набирать код, который необходимо записать в болванку RW1990. Питается от одного аккумулятора, например 18650, не имеет выключателя питания, погружается после некоторого времени бездействия в Powerdown, пробуждается любой кнопкой. Печатка не разрабатывалась. Микроконтроллер посажен на переходник TQFP-DIP и припаян через штырьки на индикатор.

осциллограф

bulat — Mon, 15 Oct 2018 18:53:55 GMT

собираю осциллограф для себя,большая частота особо не нужна-до 500 кгц мне достаточно
пока входная часть собрана на AD9820(ацп),атмега32 управляет всем процессом,индикатор заказал(и получил) 480*320 точек на контроллере ILI9481(библиотеку для него не нашел,пришлось переделывать от ili9125,делал инициализацию,очистка/закрашивание экрана и вывод пикселя)
пока все работает,но зашел в тупик-как опрашивать порт со строгой дискретностью?
за 3 такта нашел на этом же форуме ,мне надо за 4,16,32 и тд тактов
ниже программа(довольно большая)

rds в rda5807m

bulat — Wed, 18 Apr 2018 18:23:34 GMT

Форум: В разработке
Описание темы: как декодировать?
Автор темы: bulat
Автор последнего сообщения: bulat
Количество ответов: 3

TFT на SPFD5408 2.4 дюйм

bulat — Wed, 14 Sep 2016 16:22:42 GMT

купил ардуино и дисплей

в ардуино запустился без проблем,есть ли библиотека управления этим дисплеем на баском авр?или пните в нужную сторону...дисплей работает по SPI 8 бит(9325 нашел,не подходит...)

CAN шина и Bascom

KolesikNN — Mon, 15 Aug 2016 10:29:17 GMT

Форум: В разработке
Автор темы: KolesikNN
Автор последнего сообщения: Sheptilos
Количество ответов: 2

пульт протокол NEC

bulat — Sat, 04 Jun 2016 02:33:31 GMT

пытаюсь собрать пульт протокола NEC,на си получилось но я в нем не разбираюсь толком,можно ли переделать в баском авр?исходник на си на аттини13,просто перебор команд(адрес устройсва 128)
#include
#include
#define PulseON TCCR0A=0x42;TCCR0B=0x01
#define PulseOFF TCCR0A=0x00;TCCR0B=0x00
unsigned char com=0;
void Gen_NEC_Byte(unsigned char dat) //Генерация одного байта по NEC
{
unsigned char i;
for(i=0;i<8;i++) {PulseON; //подать частоту 36000
delay_us(540);
PulseOFF; //выключить частоту 36000
if(dat&1)delay_us(1629);//если бит = 1 то ждем 1,58 мс
else delay_us(540); //если бит = 0 то ждем 0,46 мс
dat>>=1; }}
void Gen_NEC_Code(unsigned char adr, unsigned char cmd) // Генерация всей комманды по NEC
{ PulseON; // стартовая последовательность
delay_us(8678);
PulseOFF;
delay_us(4339);
Gen_NEC_Byte(adr); // генерация адресса
Gen_NEC_Byte(~adr); // генерация инверсии адресса
Gen_NEC_Byte(cmd); // генерация комманды
Gen_NEC_Byte(~cmd); // генерация инверсии комманды
PulseON; // завершающий синхроимпульс
delay_us(660);
PulseOFF;}

void main(void)
{#pragma optsize-
CLKPR=0x80;
CLKPR=0x00;
#ifdef _OPTIMIZE_SIZE_
#pragma optsize+
#endif
PORTB=0x00;
DDRB=0x01;
TCCR0A=0x42;
TCCR0B=0x01;
TCNT0=0x00;
OCR0A=0x3F;
OCR0B=0x00;
GIMSK=0x00;
MCUCR=0x00;
TIMSK0=0x00;
ACSR=0x80;
ADCSRB=0x00;

while (1)
{Gen_NEC_Code(128,com);
com++;
delay_ms(150);

};
}

FM радиомодуль tea5767

sany2 — Wed, 01 Jun 2016 18:22:49 GMT

Как-то были куплены до кучи вот такие FM=модули http://www.ebay.com/itm....a27b74a
Собирал таймер для кухни ну и решил приёмничек встроить.
Качество вполне приемлемое.Выход стерео( усилитель сделал на LM386(моно)-схема чисто по даташиту)
Важно:команду на линию I2 подать всего ОДИН раз-иначе будет щёлкать в динамик с частотой рабочего цикла.
Код на tea5767 (уж не помню-кажись у немцев нарыл) и распиновку на модуль прилагаю.

Большие цифры

sany2 — Tue, 29 Mar 2016 09:40:53 GMT

Тут как-то упоминался стиль больших цифр с дружественного форума.Но цифры там не очень понятные были.Предлагаю свой вариант написания больших цифр.Вернее сами цифры подсмотрел на каком-то китайском приборе и нарисoвал их в Bascome.Может кому ещё пригодятся.

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.1 , E = Portc.2 , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6
Cursor Off
Cls
Deflcdchar 0 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 15
Deflcdchar 1 , 30 , 31 , 31 , 31 , 31 , 31 , 31 , 30
Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 24 , 28
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 24 , 28
Deflcdchar 6 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31
Deflcdchar 7 , 28 , 28 , 32 , 32 , 32 , 32 , 24 , 28

Dim Pos As Byte
Dim Incoming As String * 8
Dim I As Byte
Dim Stroka As String * 8
Dim Fm1 As Word
Dim Fm2 As String * 6

Declare Sub Style
Declare Sub Digit

Fm1 = 0

Do
Cls

Call Style
Incr Fm1
Waitms 500
Loop

Sub Style
Fm2 = Str(fm1)
Incoming = Fm2
Pos = 1
For I = 1 To 8
Stroka = Mid(incoming , I , 1)
Call Digit
Next I

End Sub

Sub Digit:
Select Case Stroka
Case "0":
Locate 1 , Pos
Lcd Chr(0) ; Chr(2) ; Chr(1)
Locate 2 , Pos
Lcd Chr(0) ; Chr(3) ; Chr(1)
'--------------------------------------
Case "1":
Locate 1 , Pos
Lcd Chr(2) ; Chr(1) ; " "
Locate 2 , Pos
Lcd Chr(3) ; Chr(0) ; Chr(3)
'--------------------------------------
Case "2":
Locate 1 , Pos
Lcd Chr(2) ; Chr(6) ; Chr(1)
Locate 2 , Pos
Lcd Chr(0) ; Chr(3) ; Chr(3)
'--------------------------------------
Case "3":
Locate 1 , Pos
Lcd Chr(6) ; Chr(6) ; Chr(1)
Locate 2 , Pos
Lcd Chr(3) ; Chr(3) ; Chr(1)
'--------------------------------------
Case "4":
Locate 1 , Pos
Lcd Chr(1) ; " " ; Chr(3)
Locate 2 , Pos
Lcd Chr(2) ; Chr(2) ; Chr(0)
'--------------------------------------
Case "5":
Locate 1 , Pos
Lcd Chr(0) ; Chr(6) ; Chr(4)
Locate 2 , Pos
Lcd Chr(3) ; Chr(3) ; Chr(1)
'--------------------------------------
Case "6":
Locate 1 , Pos
Lcd Chr(0) ; Chr(6) ; Chr(7)
Locate 2 , Pos
Lcd Chr(0) ; Chr(3) ; Chr(1)
'--------------------------------------
Case "7":
Locate 1 , Pos
Lcd Chr(2) ; Chr(2) ; Chr(1)
Locate 2 , Pos
Lcd " " ; " " ; Chr(1)
'--------------------------------------
Case "8":
Locate 1 , Pos
Lcd Chr(0) ; Chr(6) ; Chr(1)
Locate 2 , Pos
Lcd Chr(0) ; Chr(3) ; Chr(1)
'--------------------------------------
Case "9":
Locate 1 , Pos
Lcd Chr(0) ; Chr(6) ; Chr(1)
Locate 2 , Pos
Lcd " " ; Chr(3) ; Chr(1)
'--------------------------------------
Case ":":
Locate 1 , Pos
Lcd " o "
Locate 2 , Pos
Lcd " o "
Pos = Pos

End Select
Pos = Pos + 3
End Sub

Помогите разобраться с таймером

Dmitry_SH — Mon, 01 Feb 2016 21:37:44 GMT

Здравствуйте!
Помогите пожалуйста разобраться с настройкой. Собираю реле времени для управления насосом. Под рукой была AtTiny13.
Вопросы:
1. не работает пределитель;
2. если я правильно понял кол-во переполнений считается так: время ожидания / ( 1/частота*255).
Тогда почему расчитанное кол-во переполнений сильно не совпадает с
реальным (железку уже собрал). Например: необходимо ожидать 5 минут до
включения таймера. расчет показывает, что надо ожидать 300 /
(1/4800000*255) = 5647058 переполнений таймера. Но когда я
запрограммировал микроконтроллер с этой цифрой то так и не дождался его
срабатывания. реальное кол-во прерываний для 5 минут ожидания составляет
примерно 450000. почему такая разница, где я ошибся в программе.

Спасибо

Код

$regfile = "attiny13.dat"
$crystal = 4800000
$hwstack = 8
$swstack = 16
$framesize = 32

Config Pinb.3 = Output
Config Pinb.4 = Output
Config Pinb.1 = Input
Config Pinb.2 = Input

Config Timer0 = Timer  ', Prescale = 256

Enable Timer0
'Stop timer0

Dim I As Long
Start Timer0

Do
   Incr I
   '--------------  8 : 3 ------------
   If Portb.1 = 0 And Portb.2 = 0 Then
      If I = 560000 Then
         Set Portb.3
         Set Portb.4
      End If
      If I = 3654000 Then
         Reset Portb.3
         Reset Portb.4
         I = 0
      End If
   End If

   '--------------  10 : 5 ------------
   If Portb.1 = 0 And Portb.2 = 1 Then
      If I = 3305000 Then
         Set Portb.3
         Set Portb.4
      End If
      If I = 4957000 Then
        Reset Portb.3
        Reset Portb.4
         I = 0
      End If
   End If

   '--------------  20 : 8 ------------
     If Portb.1 = 1 And Portb.2 = 0 Then
      If I = 6615000 Then
         Set Portb.3
         Set Portb.4
      End If
      If I = 9268000 Then
         Reset Portb.3
         Reset Portb.4
         I = 0
      End If
   End If

  '--------------  30 : 10 ------------
   If Portb.1 = 1 And Portb.2 = 1 Then
      If I = 9930000 Then
         Set Portb.3
         Set Portb.4
      End If
      If I = 13235000 Then
        Reset Portb.3
        Reset Portb.4
         I = 0
      End If
   End If

Loop
End

PS: 8 : 3 это 8 минут ожидаем до включения, 3 минуты держим включенным и выключаем

ESP8266

vikov — Mon, 15 Jun 2015 09:32:39 GMT

Добрый день!
Получил с ebay модули. Цена на них более чем интересная от 140 руб. Самый правый на фото это NRF24L01 для сравнения. Сегодня наконец получил от них ответ по UART (разобрался , оказалось что питание проседало в момент передачи в сеть Ps::: Питание несмотря на конденсатор 1000 mf проседает стабилизатор стандартный китаец 3,0а завтра поставлю резюк 0,1 ом
и проверю падение по заявленному пику тока 210ma ). Сигнал esp при заявленных прямых 400м проверил пока только в квартире 2 ж/б стены потеря - 25%. Планирую сделать сбор данных nrf и передача в email В сети есть общие примеры работы ардуинами. Попробую переписать на Барсик.

Увлажнитель воздуха

sany2 — Mon, 26 Jan 2015 18:54:36 GMT

После сбора нескольких измерителей влажности я заметил,что влажность в доме очень маленькая.
Купил вот такие таблетки http://www.ebay.com/itm....DX%3AIT В описании написано только 1,7 мгц .Кто знает что с ними делать?Подавать на них 1.7 мгц?чего и сколько знать бы...Может кто сталкивался?

Терморегулятор для аквариума

kirex — Sat, 08 Nov 2014 16:01:04 GMT

Собрал вот такой терморегулятор http://pakhom.weebly.com/r10-2012.html
Всё работает без проблем, но хотелось бы изменить порог срабатывания.

Т.е. сейчас он работает так: Например температура в аквариуме +24 градуса, в качестве нагрузки подключен нагревательный элемент, установленное пороговое значение температуры +28 градусов. Нагреватель будет включен до достижения температуры выше +28 (т.е. при +29) градусов. При измеренном значении температуры +29, нагреватель отключится и вновь включится при снижении температуры ниже +28 (т.е. при +27).
Как изменить код, чтобы пороги срабатывания были не 1 градус, а 0,5 ?
Т.е. нагреватель будет включен до достижения температуры выше +28 (т.е. при +28,5) градусов. При измеренном значении температуры +28,5, нагреватель отключится и вновь включится при снижении температуры ниже +28 (т.е. при +27,5).

Заранее спасибо.

Светодиоды не мигают или мигают неправильно (таймер ATMega8)

liosha — Sun, 14 Sep 2014 07:28:52 GMT

Всем привет!
Решил вот сделать ребенку мигающие светодиоды на велосипед (а заодно наконец покодить под микроконтроллеры).
Сам я по професии электрик (не радиотехника), но было это давно. Сечас программист на Java. Си тоже учил, но опять же давно.
Купил я ATMega8A, программатор TL866A и несколько светодиодов.
Позапускал пару простых примеров, посмотрел/почитал мануалы и решил
приступить к самому главному.
Мигать светодиодами надо программно и чтоб была возможность мигать одновременно с разной частотой.
В связи с этим решил не использовать delay, а сделать правильно, через таймеры.
В общем написал код для таймера, для мигания, отладил в Atmel Studio 6
(AVR Studio) и попытался проэмулировать это дело в протеусе.
Вот тут началось неладное. Светодиоды мигали на глаз со случайной
частотой. В отладчике студии время между вызовами таймера примерно
совпадает с ожидаемым (+- пару миллисекунд).
Упростил немного код, пробовал менять частоту мигания таймера, ничего не
помогает. Я подумал что в протеусе что-то со временем во время
эмуляции, и решил проверить на реальной МК.
Но когда залил код в МК, оказалось что на нем светодиод вообще не мигает
а просто светит. Думал дело в частоте МК, посмотрел фьюзы, вроде
частота такая же как в отладке студии.
Вот код:

Код

#include
// Установить бит в 1
#define SB(reg, bit) reg |= (1< // Установить бит в 0
#define CB(reg, bit) reg &= ~(1< // Проверить установлен ли бит
#define VB(reg, bit) reg & (1< // Инвертировать бит
#define TB(reg, bit) reg ^= (1< // 0b00000001
#define T100MS 0
// 0b00000010
#define T500MS 1
// 0b00000100
#define T1000MS 2
// 0b00001000
#define T2000MS 3
// 0b00010000
#define T5000MS 4
uint8_t timer500ms = 0;
uint8_t timer1000ms = 0;
uint8_t timer2000ms = 0;
uint8_t timer5000ms = 0;
uint8_t dataTimer = 0b00000000;
// Прерывание каждые 100 миллисекунд
// Устанавливает флаг в соответствии с прошедшим временем
ISR(TIMER2_COMP_vect) {
          SB(dataTimer, T100MS);
          if ((++timer500ms) == 5) {
                  timer500ms = 0;
                  SB(dataTimer, T500MS);
          }
          if ((++timer1000ms) == 10) {
                  timer1000ms = 0;
                  SB(dataTimer, T1000MS);
          }
          if ((++timer2000ms) == 20) {
                  timer2000ms = 0;
                  SB(dataTimer, T2000MS);
          }
          if ((++timer5000ms) == 50) {
                  timer5000ms = 0;
                  TB(PORTC, 2);
                  TB(PORTC, 3);
                  TB(PORTC, 4);
                  TB(PORTC, 5);
                  SB(dataTimer, T5000MS);
          }
}
int main(void)
{
          DDRB |= 0b00000000;
          DDRC |= 0b00111111;
          DDRD |= 0b00001111;
          // Пределитель 1:1
          SB(TCCR2, CS20);
          // Режим сброс при совпадении
          CB(TCCR2, WGM20);
          SB(TCCR2, WGM21);
          // Прерывание при совпадении
          CB(TIMSK, TOIE2);
          SB(TIMSK, OCIE2);
          // Количество тактов перед прерыванием
          OCR2 = 100; // 1мгц
          // Разрешить глобальные прерывания
          asm("sei");
          while(1)
          {
                  if (VB(dataTimer, T5000MS)) {
                          // TB(PORTC, 2);
                          // TB(PORTC, 3);
                          // TB(PORTC, 4);
                          // TB(PORTC, 5);
                          // Сброс времени
                          CB(dataTimer, T5000MS);
                  }
          }
}

Думал что что-то с МК, добавил в основной цикл мигание с delay, примерно такое:

Код

TB(PORTC, 5);
_delay_ms(1000);
TB(PORTC, 5);
_delay_ms(1000);

При этом в реальном МК светодиод мигал, но не через 1 секунду, а реже. К
стати в это время другие светодиоды (оставшиеся на таймере) тоже
мигали, но так же с неправильной частотой (вроде гораздо чаще чем
должны).
Прикрепляю схему подключения МК. но при тесте я подключал только один
слабенький светодиод с резистором. Всего остального небыло.
Очень прошу вашей помощи в решении этой проблемы.

Прикрепленные миниатюры

Tiny13 + энкодер

SimBB — Tue, 15 Jul 2014 07:58:57 GMT

Всем привет.В программировании не силён,только начал осваивать bascom,поэтому прошу помощи здесь.
В общем хочу сделать регулятор яркости светодиодной ленты с управлением энкодером.
Помогите пожалуйста в написании прошивки.

Часы-пропеллер

sany2 — Sat, 07 Jun 2014 19:01:09 GMT

Прочитал давно статью MrShilov bascom.at.ua/publ/termometr_i_begushhaja_stroka_v_ventiljatore/1-1-0-21.Но руки так и не доходили попробовать да и опыта совсем маловато было .У меня уже есть часы на Пике.Но своё оно всегда интереснее.Решил совместить часы с радиоомодулем.Мотор взял от компьютерного вентилятора.Сразу возникла первая проблема-у него вращение в другую сторону-пришлось переписывать таблицу символов.Стрелка состоит из 16 RGB светодиодов,Mega32,воздушный трансформатор.В общем пока разобрался с исходником и вывел в статике разноцветные цифры и знаки.Далее дело вывести время с дс-ки через радиомодуль(пока ещё не собирал),ну и стрелки всякие.
Если кому интересно начало проекта-выложу печатку стрелки(переделывать вряд ли буду-вроде нормально работает,отцентровать только немног надо).Сам буду по мере свободного времени допиливать проект до ума.Пока ещё даже не придумал, что мне от них требуется.
Черновик исходника тоже прилагаю.