а можно както дополнить скетч #531 чтобы так и остался пин импульно на массу вк\вкл , индикатор о вкл котла , и пин на включение помпы с таймером отключение помпы ?
К примеру по импульсу вкл вкл можно подключить к сигналке канала 3 , так как есть котлы без одключение помпы и нужно чтобы после вкл котла помпа еще поработала для остывание пламени .
проще другой скетч переделать, в котором все твои хотелки уже есть. надеюсь я найду время и доделаю его. А у тебя разве работает индикация пламени? у тебя ж другая версия протокола w-bus - 3.1 помнится. Там должно по другому пламя определяться
Do you have complete list of 98xx/xx series fault codes . I tried to google but couldn't get much info about these codes . There is lack of info about these codes on our country websites but i saw lots of info in your language . I tried to translate those websites to english and found some code . If you have complete list of codes and can list it here will really appriciate .
when i send 81 51 F1 A1 64 error request command , boiler reply back with fault codes command where index 4 gives 98 and index 5 gives rest of code(00,01,02 etc) . Index 7 gives value after /xx . Following are few codes i found .
Какой скетч самый послдений рабочий , полнофунциональный , или такого еще нет? Пришли заказанные детальки , сегодня вытравил плату , которую любезно выложил MaksVV, только обкосячился забыл галку отзеркалить поставить, теперь придется извращаться , с припайкой модулей наоборот. Делаю для себя в одном экземпляре, так что сойдет и так , текстолита жалко , да и время тоже.
Какой скетч самый послдений рабочий , полнофунциональный , или такого еще нет? Пришли заказанные детальки , сегодня вытравил плату , которую любезно выложил MaksVV, только обкосячился забыл галку отзеркалить поставить, теперь придется извращаться , с припайкой модулей наоборот. Делаю для себя в одном экземпляре, так что сойдет и так , текстолита жалко , да и время тоже.
Какой скетч самый послдений рабочий , полнофунциональный , или такого еще нет?
ещё толком нет. Вот что есть на данный момент. для платы 8.5 - 8.6.
перед заливкой основного скетча заливаем этот для подготовки еепром (смотрим коменты и там же выполняем какие настройки будут по умолчанию, чтобы потом это смс_ками не настраивать) . Ждём когда встроенный LED загорится, далее можно заливать основной скетч.
//#define debugW_bus // раскоментировать эту строку для отладки, при этом нужно вынуть SIM800 и подключить юсб<->уарт, т.к. отладка идёт в УАРТ, предназначенный для GSM
0002
//#define debugSIM800
0003
0004
#include <EEPROM.h>
0005
enumCells {
0006
ResetNumber_cell, //0
0007
TimeWebasto_cell, //1
0008
ProtocolSTART_cell, //2
0009
Zapusk_cell, //3
0010
ProtocolSTATUS_cell, //4
0011
Heater_cell, //5
0012
delta_cell, //6
0013
TelNumber1_cell =20, //20
0014
TelNumber2_cell =40 //40
0015
};
0016
0017
#include <Button.h>
0018
0019
Button test;
0020
0021
// для GSM модуля *********************
0022
#include <SoftwareSerial.h>
0023
0024
#ifndef debugW_bus
0025
SoftwareSerial SIM800 (10, 11);//Rx, Tx //UART для соединения с GSM модулем
0026
#else
0027
SoftwareSerial DEBUG (10, 11); //Rx, Tx //UART для соединения с отладкой (используется юсб<->УАРТ вместо SIM800)
0028
#endif
0029
0030
#define K_LINE Serial //UART для соединения с шиной котла
0031
#define TX 1
0032
0033
String currStr = "";
0034
String TelNumber1 = "000000000000";
0035
String TelNumber2 = "000000000000";
0036
String BufferNumber = "000000000000";
0037
boolSaveNumber2 = 0; // флаг когда необходима запись номера#2, он true
0038
byteisStringMessage = 0;
0039
byteKTOzapros = 0;
0040
byteKTOreport = 1;
0041
0042
//************************
0043
0044
0045
0046
//_______Все для цикла void voltmetr()*************
0047
floatvout = 0.0; // Напряжение на входе аналового входа
0048
floatVpit = 0.0; // Измеряемое напряжение на выходе ИБП
0049
intvolt = 0; // Напряжение на входе АЦП
0050
0051
0052
0053
// дефайны входов выходов на соостветствующие пины ************** (плата 8.5 с разъемом)
0054
0055
#define OutWebasto_12V 2 // это +12В выход потенциала вкл/выкл вебасто (напрямую к котлу без таймера).
0056
#define Dallas_pin 3 // пин шины OneWire для датчиков даллас
0057
#define DopOn 4 // сюда доп канал от сигналки на включение вебасто
0058
#define DopOff 5 // сюда доп канал от сигналки на выключение вебасто
0059
#define Ohrana 6 // Сюда состояние охраны сигналки
0060
#define Trevoga 7 // Сюда состояние тревоги
0061
#define IGN 8 // Сюда состояние зажигания
0062
#define Sost 9 // Сюда состояние вебасто (+12В когда работает)
0063
#define ResetGSM 12 // пин ресета GSM подключен к реле, разрывающее питание модуля.
0064
#define Eng 14 // (А0) Сюда состояние работы ДВС
0065
#define StatusWebastoLED 15 // (А1) пин LED индикация включенности котла
0066
#define StartButtonpin 16 // (А2) пин тактовой кнопки вкл/выкл котла
elseif(!currStr.compareTo("Webasto-ON")) { if(!webasto) {StartWebasto (); // если получили команду на включение и вебаста в настоящий момент выключена - включаем
elseif(!currStr.compareTo("Webasto-OFF")) {if(webasto){StopWebasto (); // если получили команду на выключение и вебаста в настоящий момент включена - выключаем
elseif(!currStr.compareTo("Engine-ON")) {if(!engine) { digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine = true; EndReportEngine = timerStartEng; // если получили команду на включение ДВС и он в настоящий момент выключен - включаем
elseif(!currStr.compareTo("Engine-OFF")) {if(engine){ digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine = false; // если получили команду на выключение ДВС и он в настоящий момент работает - выключаем
elseif(currStr.endsWith("min")) {if(!webasto) {TimeWebasto = currStr.toInt(); // для задания время цикла работы отправить сообщение вида "25 min", где 25 время работы в мин
и пин на включение помпы с таймером отключение помпы ?
добавил транзистор управления помпой с пина 13. Управляет минусом помпы. Как раз в разъеме один пин был неиспользуемый. Но такая плата теперь уже получается двусторонняя (до этого по сути на второй стороне только перемычки были, а сейчас дорожка одна появилась), поэтому вручную тяжело сделать.
и пин на включение помпы с таймером отключение помпы ?
добавил транзистор управления помпой с пина 13. Управляет минусом помпы. Как раз в разъеме один пин был неиспользуемый. Но такая плата теперь уже получается двусторонняя (до этого по сути на второй стороне только перемычки были, а сейчас дорожка одна появилась), поэтому вручную тяжело сделать.
Мерил от БП 7В. на 12В может ещё меньше потребление будет)
ардуино в стоке 12,2 мА
с отпаянным LED питания 10,9 мА
с отпаянным LED и стабом (диодом) 9,4мА
Вот замерил как положено от 12В. Считаю этот вопрос закрыт. 8,5 мА. Даже с 8 мгц ардуиной заморачиваться не стОит - дефицитная она в таком форм факторе. 8,5 мА - отличный показатель.
//#define debugW_bus // раскоментировать эту строку для отладки w-bus, при этом нужно вынуть SIM800 и подключить юсб<->уарт, т.к. отладка идёт в УАРТ, предназначенный для GSM
if(engine){ digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine = false;} // если получили команду на выключение ДВС и он в настоящий момент работает - выключаем
elseif(currStr.endsWith("min")) {if(!webasto) {TimeWebasto = currStr.toInt(); // для задания время цикла работы отправить сообщение вида "25 min", где 25 время работы в мин
Мерил от БП 7В. на 12В может ещё меньше потребление будет)
ардуино в стоке 12,2 мА
с отпаянным LED питания 10,9 мА
с отпаянным LED и стабом (диодом) 9,4мА
Вот замерил как положено от 12В. Считаю этот вопрос закрыт. 8,5 мА. Даже с 8 мгц ардуиной заморачиваться не стОит - дефицитная она в таком форм факторе. 8,5 мА - отличный показатель.
Потребление даже не очем . Если в машине оборудование тяниться до 250мА смотря еще как магнитола подключена и доп .
Печатку переделал , собираю на плату , выяснилось что нет у меня лм393 в дип корпусе и реле такого нет , надо покупать, в моем городе нет торгашей радиодеталями , вернее есть небольшие лавки , где всякой хренью торгуют . типо разъемов и пультов, а серьезные с выбором микросхем и транзисторов всяких только в Иркутске , а у нас сейчас морозы под 45 градусов , ехать туда только за одной микросхемой и реле обламываюсь 90 км до Иркутска. Может кто поедет на днях , закажу им. Еще вопрос , ардуину лучше впаять на плату или на разъемах делать, и если в скетче выствить получать данные от вебасто по W-Bus . то нужно ли городить датчик температуры на выхлоп? И нужно ли в скетче впсывать калибровку на измерение напряжения в борт сети и если нужно то в какую строку?
Lm393 найдёте легко, а вот такое реле даже в у нас в многочисленных радиомагазинах бывает сложно найти, поэтому не спеша ждал из китая (можно временно пока перемычку вместо реле запаять, ну не будет ресета GSM ничё страшного, это ж перестраховка на случай зависания). Ардуину обязательно на постельки (пинхидеры), иначе не прошьёте когда LM393 будет уже запаяна (кстати её тоже можно на постель). Да и вообще ардуина лучше чтоб вытаскивалась. Датчик на выхлоп можно не городить, но t ДВС лучше вывести. В случае, если не получится данные по w-bus вытянуть, датчик на выхлоп можете позже добавить (все датчики t подключаются паралелльно, поэтому подцепитесь к шине ДВС-ного датчика). Напряжение если вытянуть по в-бус, с калибровкой можно не заморачиваться.
Приехала комне webasto top v . Теперь думаю она лучше чем старенький Тор с ? . Просто неудержался по цене 100 уе за полный комплект . Сейчас к ТТ тесту подключу гляну чё оно там . Сегодня ещё две помпы ремонтировал , додумались пеной всю плату задули . На вид как монтажная пена , только плотная . Идея появилась как вслед раз ее розрушить , кварцевой лампой . Плату сотрудника попросил вытравить. Так как сам не успиваю и.
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
У меня сейчас на машине стоит top c , подключен через w-bus и к Ардуино , на ней только микросхема к-лине и 5 в кренка . И идёт один провод в салон на кнопку включает Ардуино и все . Жду пока мне плату вытравят и буду играться с котлом ево , сейчас ремонтируют помпу .
Я так понял что у вас другое управление сейчас стоит . не то которое здесь обсуждаем, и нет родного таймера ? Плату можно за час с утюгом и хлорным железом изготвить, я сам вообщето фоторезист предпочитаю , но для этого девайса за час Лутом плату сварганил, правда потом выяснилось что я ее не отзеркалил, но не сложно переделать. Сейчас занят распайкой деталей на плату , реле такого как нужно не нашел, так взял маленокое реле с автосигнализации старой и на спину его на плату приклеел и проводками подпаял. Тут еще идея возникла , если w-bus шина рабоатет , то как бы сделать что бы еще и ошибки по смс можно было считывать, было бы вообще сдорово , и скидывать их тоже можно , команды же известные , только бы памяти в ардуине хватило бы. Правда из меня прогарммер хреновый , еще чужой исходник смогу разобрать по коментариям. а сам еще не умею прогрммировать даже в ардуино . И еще вопрос по помпе, если вы ее разобрали , что там в нутри, почему она ометром звониться 10 килоом, по ходу там полевик какой стоит , который включает саму помпу , потому что если просто подать на нее 12 вольт .то она тоже работает, я это почему спрашиваю , по тому что оригинальная помпа на вебасто очень не прилично стоит , а аналогичтные подобные помпы , которые просто как элетромотор прозваниваются в несколько раз дешевле , но их вебасто не признает и выдает ошибку , я не думаю что там что то цифровое внутри , думаю что просто полевой транзистор с резистором в затворе, а по резистору вебасто опознает свой чужой.
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
под TTE/C никаких кучи деталей и нету. Так что лишнего не напаяешь)) датчики температуры все параллельно подключаются. Можно не подключать, которые не нужны. Температуру ДВС кстати, по идее , можно приравнять к температуре в котле, а её через в-бус считывать. Так что только забортная нужна.
Паша про TTC/E который у тебя это скорее исключение, чем правило, т.к. TTC у тебя штатный, поэтому имеет шину w-bus. А универсальные запускаются потенциалом плюс 12В и шина у них не W-bus, а просто K-line.
родной овальный пульт можно не подключать, если по шине решишь цепляться. т.к. этот овальный таймер и мой девайс, если одновременно включить, могут конфликтовать.
И еще вопрос по помпе, если вы ее разобрали , что там в нутри, почему она ометром звониться 10 килоом, по ходу там полевик какой стоит , который включает саму помпу , потому что если просто подать на нее 12 вольт .то она тоже работает, я это почему спрашиваю , по тому что оригинальная помпа на вебасто очень не прилично стоит , а аналогичтные подобные помпы , которые просто как элетромотор прозваниваются в несколько раз дешевле , но их вебасто не признает и выдает ошибку , я не думаю что там что то цифровое внутри , думаю что просто полевой транзистор с резистором в затворе, а по резистору вебасто опознает свой чужой.
там стоит целая плата, которая из постоянного тока создает вращающееся магнитное поле. По сути эл. двигатель переменного тока получается (полость антифриза герметична никаких сальников нет, там ротор просто вал с магнитом). Читайте выше по теме. я выкладывал парт номер помпы bosch. Она как раз такая, и стОит не дорого, до 3 тыс. по-моему. Так стартвольт ещё какая то есть, тоже выше читайте.
Понятно про помпу , я ее не разбирал , и у меня она рабочая , это так на всякий случай. У меня на автомобиле стоит еще дополнительная помпа на печку от бош , и она гоняет антифриз когда двигатель работает и после выключения еще немного что бы небыло теплового удара. На крайний случай ее можно задействовать, только я не мерял ее сопротивление. А про лишние детали для моего котла . это я про оптроны , и их обвязку. и сигнализации старлайн у меня нет , есть сталкер 600 тый. А что вы думаете про функцию считывания ошибок , вроде не лишней будет, если не запускается котел И . то можно посмотреть причину , или это слишком сложно реализовать? При подключении к сигнализации еще бы не помешала функция автозаводки двигателя для подзарядки аккумулятора , если напряжение опасно просело , например в процессе прогрева котлом напряжение просело до опасного предела . но двигатель уже успел немного прогреться до приемлемого значения , тогда идет автозапуск двигателя и при включенном котле , с подзарядкой аккума. Но думаю что памяти уже не хватит на это .
Функцию чтения и сброса ошибок добавить можно. Но нужно оттестировать уже имеющийся функционал, а то если он не работает. Какой смысл добавлять что либо еще. И так в скетче уже трудно становится разбираться из за его размера. Подход то дилетантский у меня. Ниразу не программист.
Понятно, я только что допаял плату , собираюсь проверять , в какой строке в скетче прописываются адреса датчиков тепмпературы? и какой стартовый байт у котла TTEvo ? Вообще был хорошо расписать поподробней первоначальную настройку ?
Что то не работает , залил подготовителный скетч , залил основной , подал питание, отпраляю смс ZAPROS приходит уведомление что доставлено , и тишина , пробовал звонить на симку , идут длинные гудки. Светодиод на сим 800 мигает , на адруине горят оба светодиода . Что не так?
Ура заработало, просто сначало криво прошился скетч, эта промини такой плахой человек , кое как его уговарил прошиться :) . Может дело в моём адаптере он у меня на СР2102 , но скетч ни как не хотел заливаться в ардуину , пришлось зажимать рессет на ней а потом включать загрузку в плату , и то с 100500 раза прошло. Завтра попробую на машину установить. Еще вопрос, я еще датчики не прописывал в скетче , если я потом в скетч пропишу их адреса и залью в ардуину , то телефон не надо будет заного приписывать , он вроде в епроме сохраняется? Я правильно понимаю? И как изменить команду на запрос баланса , а то она не работает на мегафоне?
Да еепром не нужно больше прописывать. Там в коде старался довольно подробно все комментировать. Датчики даллас смотри вверху самом массив DS18B20 Левые 8 байт это адреса датчиков. На старт команда 20 , реже 21
Команда на запрос баланса. Строка 609 скетч#568. Далласы строка 108 и далее.
Две оптопары можно не запаивать и резисторы к ним. Но тот оптрон, который под ардуино, он нужен. Он считывает кнопку включения вебасто.
В стоке 609 нужно будет в место #100#\ поставить *100# ? Или обратный слеш тоже нужен? С далласами вроде сам разобрался но у меня их только 3 оставалось и те в виде обычных микросхем, нужно будет их в трубку упаковывать с термопастой.
вместо #100# ставишь *100# , оставльное оставляешь как есть. Далласы я тоже поначалу в виде микросхем брал. а сейчас иногда в колбах по 50р./шт. бывают если по одному заказывать . беру их, удобнее.
а #100# не работает чтоли? Набор цифар потому что на русском приходит, а надо на английском чтобы приходило. Узнай у оператора как сделать чтобы баланс на английском приходил
С чего бы сколхозить разъем , тобы был такой же как на родном овальном пульте вебасты, не охота резать или подпаивать , та так воткнул родной провод в устройство , и ни чего резать не надо , если не заработает по W-bus то обратно пультик воткнул и через подпайку управлять, и еще хочу кнопку на 3.5 джек вывести и на далласы тоже , что бы меньше соплей было , сигу не буду подцеплять , хотя может на автозапуск двигателя попробую в 600 сталкере есть вывод состояния для автозапуска.
У меня симка мегафон а у него запрос баланса *100# , а решетка сто решетка не работает почему то , просто ни чего не происходит , а на звездочка сто решетка приходит ответ в виде +CUSD: 0, "куча цифр и букв,
скрутками подматайся к проводам разъема вебасто и сделай свой разъем, который найти можно. И будет два разъема торчать - один для штатного таймера. второй для сего девайса.
Долбаный Мегафон у нас убрал услугу поговорить с девушкой из службы поддержки , посадили робота вместо девченок . надо в офис идти что бы с ними пообщаться. Как я понял нужно ставить кнопку с подсветкой светодиодной , эта подсветка какое нибудь еще занчение имеет кроме как электричестово жечь ? Ну типо статус работы вебасты , может это где и говорилось но я не понял , а так можно что бы блинки ошибок выдавала , есл что не так , типо как чек инжин .
лампа показывает включен котёл или нет . Кнопка то без фиксации. Хотел в будущем сделать, что если включили котёл и он НЕ запустился , то лампа будет быстро мигать. Типа незапуск. А ошибки нех по миганию считать, проще в смске их получить.
Ну да в хексе их считывать не удобно, но ошибки дело нужное , не всегда удобно , или есть возможность тащить в авто ноутбук со шнурком , сброс блокировок котла тоже бы не помешал, у меня было так когда устанавливал котел насос не дощелкнул . и вебаста в блокировку ушла , и сброс с помощью предохранителя не помогал, но не всегда и не у всех есть возможность ошибки считать, у нас в городе установщики котлов барыги конченные хотят за диагностику ( тупо подключить шнурок к котлу и считать ошибки) хотят 1000руб.
да не вопрос сделаем мы ошибки. нужен только лог где идет запрос ошибок и ответ котла без ошибок, а также ответ с ошибками (лучше 2 ошибки для анализа). ну и удаление.
постараюсь сделать лог где без ошибок , к выходным а может и раньше , завтра сварганю корпус для устройсва , хочу его из металла сдеать из алюминия . У меня внешняя антена , думаю проблем не будет. Подключу пока без датчиков , если по шине будет работать , то и не буду заморачиватся пока с датчиками, один сделаю на внешнюю температуру.
Класс . Интересно какой минемальный заказ .?
Уже жсм модуль у меня . ручки чешуться уже поставить и проверить связь . Хотя и от сигналки толку хватит .
минимально 10 плат. Примерно 800 руб. за все вместе с доставкой получается.
а можно както дополнить скетч #531 чтобы так и остался пин импульно на массу вк\вкл , индикатор о вкл котла , и пин на включение помпы с таймером отключение помпы ?
К примеру по импульсу вкл вкл можно подключить к сигналке канала 3 , так как есть котлы без одключение помпы и нужно чтобы после вкл котла помпа еще поработала для остывание пламени .
проще другой скетч переделать, в котором все твои хотелки уже есть. надеюсь я найду время и доделаю его. А у тебя разве работает индикация пламени? у тебя ж другая версия протокола w-bus - 3.1 помнится. Там должно по другому пламя определяться
Hi MaksVV
Do you have complete list of 98xx/xx series fault codes . I tried to google but couldn't get much info about these codes . There is lack of info about these codes on our country websites but i saw lots of info in your language . I tried to translate those websites to english and found some code . If you have complete list of codes and can list it here will really appriciate .
when i send 81 51 F1 A1 64 error request command , boiler reply back with fault codes command where index 4 gives 98 and index 5 gives rest of code(00,01,02 etc) . Index 7 gives value after /xx . Following are few codes i found .
No start 9800/00
Flame failure 9801/01
Operating voltage too low 9802/01
Flame Was Detected Prior to Combustion 9803/00
Metering pump interruption 9820/01
Compustion air fan interruption 9821/01
To be honest, nothing is clear. Give an example of the boiler response with at least one error .
Please check details . Thanks
Error summery from WTT software
Error:
------
Fault 1..................................Glow plug / flame monitor interruption
Code..................................................................9822/01
Counter.....................................................................1
Temperature................................................................22 [°C]
Operating state................................Flame detector interrogation 1
Data collected from Arduino serial :
Error Request Command
————————
81
51
F1
A1
64
————————
Response from Webasto ( Fault 1 Detail )
88
F1
51
E1
98 -> First 2 digits of error
22 -> Last 2 digits of error
10
1 -> xxxx/01 value after \ in error code
1 -> Fault Counter ( How many times same fault occured )
1 -> Boiler state
B7 -> Temp at time error was recored in memory
2F
-----------------------------------
Error request reply
84
F1
51
E1
FF
FF
1 -> Number of faults present in controller
A6
—————————————
Какой скетч самый послдений рабочий , полнофунциональный , или такого еще нет? Пришли заказанные детальки , сегодня вытравил плату , которую любезно выложил MaksVV, только обкосячился забыл галку отзеркалить поставить, теперь придется извращаться , с припайкой модулей наоборот. Делаю для себя в одном экземпляре, так что сойдет и так , текстолита жалко , да и время тоже.
Какой скетч самый послдений рабочий , полнофунциональный , или такого еще нет? Пришли заказанные детальки , сегодня вытравил плату , которую любезно выложил MaksVV, только обкосячился забыл галку отзеркалить поставить, теперь придется извращаться , с припайкой модулей наоборот. Делаю для себя в одном экземпляре, так что сойдет и так , текстолита жалко , да и время тоже.
Походу #282
я бы все таки заново вытравил, замучаетесь додумывать.
ещё толком нет. Вот что есть на данный момент. для платы 8.5 - 8.6.
перед заливкой основного скетча заливаем этот для подготовки еепром (смотрим коменты и там же выполняем какие настройки будут по умолчанию, чтобы потом это смс_ками не настраивать) . Ждём когда встроенный LED загорится, далее можно заливать основной скетч.
Ниже скетч подготовки еепром:
01#include <EEPROM.h>020304enumCells {05ResetNumber_cell,//006TimeWebasto_cell,//107ProtocolSTART_cell,//208Zapusk_cell,//309ProtocolSTATUS_cell,//410Heater_cell,//511delta_cell,//612sizeCells,13TelNumber1_cell =20,//2014TelNumber2_cell =40//4015};1617181920// возможные протоколы чтения статуса котла:2122enumProtocolSTATUS_ {23STATUSBUS,// статусы котла читаются по цифровой шине24ANALOG// статусы котла считываются силами ардуино - по датчикам25};262728// возможные протоколы запуска котла:2930enumProtocolSTART_ {31STARTBUS,// запуск котла происходит по цифровой шине32IMPULSE,// запуск котла происходит импульсом GND (для подпайки к кнопке пуск на таймере котла)33POTENCIAL// запуск котла происходит подачей потенциала +12В (пока плюс висит - котёл работает)34};3536// тип котла:3738enumHeater_ { TTC_E, VEVO, EVO, HYDRONIC};394041/////////////// ниже здесь устанавливаем какие настройки у девайса будут по умолчанию4243byteProtocolSTATUS = STATUSBUS;// в данном случае статусы читаются по цифровой шине44byteProtocolSTART = STARTBUS;// в данном случае запуск котла происходит по цифровой шине45byteHeater = TTC_E;// в данном случае тип котла Termo Top C / E (будет шина не w-bus, а просто к-лайн, к которой настройки 10400 8N1)46byteZapusk = 0x20;// в данном случае байт на старт котла 0x20 (для шины w-bus)47byteworktime = 30;// в данном случае время цикла работы котла 30 минут48bytedeltaT = 45;// разница температур улицы и выхлопа, выше которой считается, что котёл успешно стартанул49///////////////////////////////////////////////505152voidsetup() {5354pinMode(13, OUTPUT);55digitalWrite(13, 0);56EEPROM.write(TimeWebasto_cell, worktime);57EEPROM.write(ProtocolSTART_cell, ProtocolSTART);58EEPROM.write(ProtocolSTATUS_cell, ProtocolSTATUS);59EEPROM.write(Heater_cell, Heater);60EEPROM.write(ResetNumber_cell, 0);61EEPROM.write(Zapusk_cell, Zapusk);62EEPROM.write(delta_cell, deltaT);63for(inti = sizeCells ; i < EEPROM.length() ; i++) EEPROM.write(i,'0');646566digitalWrite(13, HIGH);67}6869voidloop() {}Ниже основной скетч:
0001//#define debugW_bus // раскоментировать эту строку для отладки, при этом нужно вынуть SIM800 и подключить юсб<->уарт, т.к. отладка идёт в УАРТ, предназначенный для GSM0002//#define debugSIM80000030004#include <EEPROM.h>0005enumCells {0006ResetNumber_cell,//00007TimeWebasto_cell,//10008ProtocolSTART_cell,//20009Zapusk_cell,//30010ProtocolSTATUS_cell,//40011Heater_cell,//50012delta_cell,//60013TelNumber1_cell =20,//200014TelNumber2_cell =40//400015};00160017#include <Button.h>00180019Button test;00200021// для GSM модуля *********************0022#include <SoftwareSerial.h>00230024#ifndef debugW_bus0025SoftwareSerial SIM800 (10, 11);//Rx, Tx //UART для соединения с GSM модулем0026#else0027SoftwareSerial DEBUG (10, 11);//Rx, Tx //UART для соединения с отладкой (используется юсб<->УАРТ вместо SIM800)0028#endif00290030#define K_LINE Serial //UART для соединения с шиной котла0031#define TX 100320033String currStr ="";0034String TelNumber1 ="000000000000";0035String TelNumber2 ="000000000000";0036String BufferNumber ="000000000000";0037boolSaveNumber2 = 0;// флаг когда необходима запись номера#2, он true0038byteisStringMessage = 0;0039byteKTOzapros = 0;0040byteKTOreport = 1;00410042//************************0043004400450046//_______Все для цикла void voltmetr()*************0047floatvout = 0.0;// Напряжение на входе аналового входа0048floatVpit = 0.0;// Измеряемое напряжение на выходе ИБП0049intvolt = 0;// Напряжение на входе АЦП0050005100520053// дефайны входов выходов на соостветствующие пины ************** (плата 8.5 с разъемом)00540055#define OutWebasto_12V 2 // это +12В выход потенциала вкл/выкл вебасто (напрямую к котлу без таймера).0056#define Dallas_pin 3 // пин шины OneWire для датчиков даллас0057#define DopOn 4 // сюда доп канал от сигналки на включение вебасто0058#define DopOff 5 // сюда доп канал от сигналки на выключение вебасто0059#define Ohrana 6 // Сюда состояние охраны сигналки0060#define Trevoga 7 // Сюда состояние тревоги0061#define IGN 8 // Сюда состояние зажигания0062#define Sost 9 // Сюда состояние вебасто (+12В когда работает)0063#define ResetGSM 12 // пин ресета GSM подключен к реле, разрывающее питание модуля.0064#define Eng 14 // (А0) Сюда состояние работы ДВС0065#define StatusWebastoLED 15 // (А1) пин LED индикация включенности котла0066#define StartButtonpin 16 // (А2) пин тактовой кнопки вкл/выкл котла0067#define DTR 17 // пин (А3), управляющий энергосберегающим режимом GSM модуля0068#define StartEng 18 // (A4) это импульсный минусовой выход вкл/выкл ДВС. подключать на вход событий сиги.0069#define OutWebasto_GndImp 19 // (A5) это импульсный минусовой выход вкл/выкл вебасто (к впайке к кнопке таймера).0070#define Voltmeter_pin A7 // пин, которым измеряем напряжение питания0071#define StartButton 0 // программный номер тактовой кнопки вкл/выкл котла0072constboolRelayON = 1;// логика управления реле ресета GSM, в данном случае включается высоким уровнем на пине007300740075/*00760077#define Dallas_pin 2 // пин шины OneWire для датчиков даллас0078#define OutWebasto_12V 3 // это +12В выход потенциала вкл/выкл вебасто (напрямую к котлу без таймера).0079#define DopOn 4 // сюда доп канал от сигналки на включение вебасто0080#define DopOff 5 // сюда доп канал от сигналки на выключение вебасто0081#define Ohrana 6 // Сюда состояние охраны сигналки0082#define Trevoga 7 // Сюда состояние тревоги0083#define StartEng 8 // это импульсный минусовой выход вкл/выкл ДВС. подключать на вход событий сиги.0084#define Sost 9 // Сюда состояние вебасто (+12В когда работает)0085#define IGN 10 // Сюда состояние зажигания0086#define Eng 11 // Сюда состояние работы ДВС0087#define OutWebasto_GndImp 12 // это импульсный минусовой выход вкл/выкл вебасто (к впайке к кнопке таймера).0088#define StatusWebastoLED 13 // пин индикация включенности котла0089#define ResetGSM 16 // пин ресета GSM (A2) подключен к реле, разрывающее питание модуля.0090#define StartButtonpin 17 // пин тактовой кнопки вкл/выкл котла0091#define DTR 19 // пин (А5), управляющий энергосберегающим режимом GSM модуля0092#define StartButton 0 // программный номер тактовой кнопки вкл/выкл котла0093constboolRelayON = 0;// логика управления реле ресета GSM, в данном случае включается низким уровнем на пине00940095*/00960097// для шины 1-wire и датчиков DS18B20****************00980099#include <OneWire.h> // библиотека для DS18B200100OneWire ds(Dallas_pin);// датчики DS18B20 на нужный пин01010102enumTempC {VyhlopC, EngineC, UlicaC, SalonC, size_arrayTemp};// перечисление нужных температур (в конце размер массива температур)01030104// ниже соответствие адресов датчиков различным температурам (изначально =20*С)0105byteDS18B20 [size_arrayTemp][10] = {0106{0x28, 0xFF, 0xB2, 0xB5, 0xC1, 0x17, 0x05, 0xD1, VyhlopC, 20},0107{0x28, 0xFF, 0xD3, 0xE2, 0xC1, 0x17, 0x04, 0x0D, EngineC, 20},0108{0x28, 0xFF, 0xF8, 0xBC, 0xC1, 0x17, 0x04, 0x48, UlicaC, 20},0109{0x28, 0xFF, 0x3F, 0xB7, 0xC1, 0x17, 0x05, 0xF1, SalonC, 20}0110};0111bytedelta = 50;// разница температур выхлопа и улицы, выше которой считается, что пламя в котле есть.01120113// для организации W-BUS и различные таймеры********************01140115byteheader = 0;// состояние заголовка0116bytemessage_size = 0;// размер тела принимаемого сообщения, кол-во байт01170118bytej = 2;// инкремент0119byten = 2;0120constbytebufsize = 140;// размер буфера принятого сообщения0121bytebuf [bufsize] = {0};// буфер принятого сообщения0122bytechecksum = 0;// контрольная сумма входящего сообщения0123uint32_t curmillis = 0;// снимок системного времени0124bytedelaybyte_TX = 0 ;// задержка между байтами отправляемого сообщения0125bytewaitbyte_RX = 1;// задержка, мс для успевания заполнения буфера RX (подрегулировать в зависимости от уровня жизнидеятельности на Марсе)0126uint32_t timerdelay = 0;// таймер ожидания байт (для успевания заполнения буфера УАРТ)0127boolDelay = 0;// таймер ожидания байт (для успевания заполнения буфера УАРТ)0128#define TIMER_DELAY Delay = 0; timerdelay = curmillis // включение этого таймера01290130uint32_t prevRESETheader=0;// таймер сброса заголовка если в момент приёма сообщения данные оборвались0131boolRESETheader_timer = 0;// таймер сброса заголовка если в момент приёма сообщения данные оборвались013201330134// ниже строка даже не спрашивайте что это)) это так... кот по клаве прошёл0135#define ConstArray(...) [](void)->size_t{ const byte _[] = { __VA_ARGS__}; return sizeof(_)/sizeof(_[0]); }(),[](void)->const byte *{ const static byte _[] = { __VA_ARGS__}; return _; }()01360137// команды для котлов ЭВО0138byteZapusk = 0x20;0139#define HEATER_START ConstArray (Zapusk, 0x3B)0140#define HEATER_PRESENCE ConstArray (0x44, Zapusk, 0x00)0141#define HEATER_STOP ConstArray (0x10)0142#define HEATER_STATUS_VEVO ConstArray (0x50, 0x05)0143#define HEATER_STATUS_EVO ConstArray (0x50, 0x30, 0x0A, 0x10)0144014501460147// команды для котлов ТТС/TTE0148#define START_SESSION ConstArray (0x81)0149#define REQUSET_2A10101 ConstArray (0x2A, 0x01, 0x01)0150#define REQUSET_2A10102 ConstArray (0x2A, 0x01, 0x02)0151#define REQUSET_2A10105 ConstArray (0x2A, 0x01, 0x05)0152#define REQUSET_DTC ConstArray (0xA1)0153#define START_TTC ConstArray (0x31, 0x22, 0xFF)0154#define STOP_TTC ConstArray (0x31, 0x22, 0x00)015501560157enumProtocolSTATUS_ {STATUSBUS, ANALOG};// возможные протоколы чтения статуса котла0158enumProtocolSTART_ {STARTBUS, IMPULSE, POTENCIAL};// возможные протоколы запуска котла0159enumHeater_ {TTC_E, VEVO, EVO, HYDRONIC};// тип котла01600161byteProtocolSTATUS = STATUSBUS;0162byteProtocolSTART = STARTBUS;0163byteHeater = EVO;01640165bytew_bus_init = 0;//флаг проведена или нет инициализация шины w-bus (25мс LOW, 25мс HIGH для ЭВО0166// либо 300ms LOW, 50ms HIGH, 25ms LOW, 3025ms HIGH для TTC0167boolflagStartPresence = 1;//флаг что отправляем в момент периодического поддержания связи W-Bus status или start0168byteStartMessageRepeat = 0;//количество отправленных сообщений на старт котла0169byteStopMessageRepeat = 0;//количество отправленных сообщений на остановку котла01700171byteTimeWebasto = 30;//время работы котла, = 30мин0172uint32_t EndReportMillis = 0;//переменная для таймера отправки отчета об успешности запуска котла0173uint32_t EndReportEngine = 0;//переменная для таймера отправки отчета об успешности запуска ДВС0174uint32_t Prev_PeriodW_BusMessage = 0;//переменная для таймера периодической отправки сообщений состояния котла в шину W-Bus0175uint32_t Prev_PeriodW_BusStartStop = 0;//переменная для таймера периодической отправки сообщений старта/стопа котла в шину W-Bus0176uint32_t prevdelSMS = 0;//переменная для таймера периодического удаления СМС0177uint32_t prevVpit = 0;//переменная для таймера периодического измерения напряжения АКБ01780179//для таймера создания импульса GND - для протокола запуска котла импульсом GND0180uint32_t timer=0;0181booltimerenabled=false;0182#define TIMEREXPIRED (curmillis-timer)>800018301840185//для таймера - старт двигателя - импульс +5В на транзистор, в итоге минусовой импульс 1.5 сек на вход событий сигналки для запуска ДВС)0186uint32_t timerStartEng=0;booltimerenabledStartEng=false;0187#define TIMEREXPIRED_StartEng (millis()-timerStartEng)>1500018801890190//для таймера - старт котла по W-BUS )0191uint32_t timerStart_W_BUS=0;booltimerenabledStart_W_BUS=false;0192#define TIMEREXPIRED_Start_W_BUS (curmillis-timerStart_W_BUS)> (uint32_t)TimeWebasto * 60000UL01930194//для таймера инита шины W-BUS0195uint32_t timerInit = 0;booltimerInitflag = 0;01960197//для таймера контроля жив или мертв обмен по W-bus0198uint32_t last_W_bus = 0;boolkotel_zhiv = 0;01990200//ниже всё для организации ресета GSM модуля, если с ним отсутствует связь****************02010202uint32_t prevReset=0;// для таймера периодичности проверки (командой "АТ")0203byteintervalReset = 2;// каждые столько мин будет проверка жив ли GSM модуль0204uint32_t timerWaitOK=0;// для таймера ожидания ответа после посылки команды "АТ"0205booltimerenabledWaitOK=false;// для таймера ожидания ответа после посылки команды "АТ"0206byteerrors=0;// количество неответов от GSM модуля0207boolgsmOK = 1;// флаг есть связь с GSM модулем или нет0208boolresettimer = 0;// для таймера удерживания реле в режиме сброс питания0209uint32_t resetTimer=0;// для таймера удерживания реле в режиме сброс питания0210byteResetNumber = 0;// количество ресетов GSM модуля для статистики (хранится в еепром)02110212//**************************02130214//Основные переменные0215boolwebasto = 0;// флаг команды на работу Webasto. 0 - котел выключен, 1 - котел включен0216boolstartWebasto_OK = 0;// флаг успешного запуска котла0217boolreport =false;// флаг нужности отправки отчета false - не нужно отправлять, true - нужно отправлять0218boolreportEngine =false;// флаг нужности отправки отчета false - не нужно отправлять, true - нужно отправлять0219boolengine =0;// флаг работает ли ДВС или нет0220boolignition=0;// флаг включено ли зажигание или нет0221boolohrana=0;// флаг включена ли охрана или нет0222booltrevoga=0;// флаг включена ли тревога или нет0223boolalarmSMS = 0;// флаг отправлена ли смс о тревоге или нет022402250226// СТАРТОВЫЙ ЦИКЛ02270228voidsetup()0229{0230delay (3500);023102320233test.NO();0234test.pullUp();0235test.duration_bounce ( 50);0236test.duration_click_Db ( 250);0237test.duration_inactivity_Up(5000);0238test.duration_inactivity_Dn(1000);0239test.duration_press ( 500);0240test.button(StartButtonpin);// в скобках пин тактовой кнопки вкл/выкл котла (программный номер у неё будет 0)02410242pinMode (DopOn, INPUT_PULLUP);0243pinMode (DopOff, INPUT_PULLUP);0244pinMode (Sost, INPUT_PULLUP);0245pinMode (Ohrana, INPUT_PULLUP);0246pinMode (Trevoga, INPUT_PULLUP);0247pinMode (IGN, INPUT_PULLUP);0248pinMode (Eng, INPUT_PULLUP);02490250pinMode (OutWebasto_12V, OUTPUT); digitalWrite (OutWebasto_12V, LOW);0251pinMode (StartEng, OUTPUT); digitalWrite (StartEng, LOW);0252pinMode (13, OUTPUT); digitalWrite (13, LOW);0253pinMode (StatusWebastoLED, OUTPUT); digitalWrite (StatusWebastoLED, LOW);0254pinMode (OutWebasto_GndImp, OUTPUT); digitalWrite (OutWebasto_GndImp, HIGH);0255pinMode (DTR, OUTPUT); digitalWrite (DTR, HIGH);// делаем высокий, а низкий уровень будет для пробуждения GSM из "спячки"0256pinMode (ResetGSM, OUTPUT); digitalWrite (ResetGSM, !RelayON);// реле ресет на данный момент делаем "неактивно"02570258#ifndef debugW_bus0259SIM800.begin(19200);// сериал соединение для gsm модуля0260delay(100);0261NastroykaGSM ();0262#else DEBUG.begin(9600);0263#endif02640265TimeWebasto = EEPROM.read(TimeWebasto_cell);0266ProtocolSTART = EEPROM.read(ProtocolSTART_cell);0267ProtocolSTATUS = EEPROM.read(ProtocolSTATUS_cell);0268ResetNumber = EEPROM.read(ResetNumber_cell);0269Zapusk = EEPROM.read(Zapusk_cell);0270Heater = EEPROM.read(Heater_cell);0271delta = EEPROM.read(delta_cell);0272for(inti=0; i<12; i++) TelNumber1[i] = EEPROM.read (i+TelNumber1_cell);0273for(inti=0; i<12; i++) TelNumber2[i] = EEPROM.read (i+TelNumber2_cell);02740275#ifndef debugSIM8000276if(Heater == EVO || Heater == VEVO) K_LINE.begin(2400, SERIAL_8E1);0277elseif(Heater == TTC_E) K_LINE.begin(10400);0278#else0279K_LINE.begin(9600);0280#endif028102820283for(bytei=0; i<20; i++) {digitalWrite (13, !digitalRead(13)); delay (80);}0284digitalWrite (13,0);0285}028602870288voidloop() {0289curmillis = millis();0290test.read();02910292digitalWrite (StatusWebastoLED, webasto);0293//digitalWrite (13, startWebasto_OK);0294digitalWrite (13, webasto);029502960297//если нажали тактовую кнопку меняем состояние котла на противоположное0298if(test.event_press_short (StartButton)) {0299if(!webasto) {StartWebasto(); report =false;}0300elseStopWebasto();0301}03020303if(ProtocolSTATUS==ANALOG) {if(Temper(VyhlopC) - Temper(UlicaC) > delta) startWebasto_OK = 1;0304elsestartWebasto_OK = 0;}03050306if(ProtocolSTART==IMPULSE) webasto = !digitalRead (Sost);03070308Heater_BUS();03090310//ниже для таймера старта котла по шине и аналогу03110312if(timerenabledStart_W_BUS && TIMEREXPIRED_Start_W_BUS) StopWebasto();03130314//ниже для таймера создания импульса на старт ДВС03150316if(timerenabledStartEng && TIMEREXPIRED_StartEng) {digitalWrite (StartEng, LOW); timerenabledStartEng=false;}03170318engine = !digitalRead (Eng);0319ignition= !digitalRead (IGN);0320ohrana= !digitalRead (Ohrana);0321trevoga= !digitalRead (Trevoga);03220323if(webasto && report) timerReport ();0324if(reportEngine) timerReportEngine ();0325if(!ohrana) alarmSMS =false;03260327#ifndef debugW_bus0328if(trevoga && !alarmSMS) AlarmSMS ();0329if(gsmOK)readSMS();0330Reset_gsm();0331delSMS();0332#endif03330334WebastoOprosImpulse ();0335izmereniya();033603370338}03390340voidizmereniya() {03410342if(millis()-prevVpit>7000){03430344//измерение напряжения борт сети0345if(ProtocolSTATUS==ANALOG){0346volt = analogRead(Voltmeter_pin);0347vout = (volt * 4.13) / 1024;0348Vpit = vout / (9700.0/(98930.0+9700.0));// По формуле Vpit = vout / (R2/(R1+R2))0349if(Vpit<0.09) Vpit=0.0;// Округление до нуля0350}03510352// ниже измерение датчиков даллас0353staticbooln=0;// флаг работы: запрос температуры или её чтение0354n=!n;0355if(n) {ds.reset();// сброс шины0356ds.write(0xCC);// обращение ко всем датчикам0357ds.write(0x44);// начать преобразование (без паразитного питания)0358}0359else{0360for(bytei=0; i<size_arrayTemp; i++){0361intTemper_ = 20;bytebuff[9];0362ds.reset();0363ds.select(DS18B20[i]);0364ds.write(0xBE);// чтение регистров датчиков0365for(bytej=0; j<9; j++) buff[j]=ds.read();// читаем все 9 байт от датчика0366ds.reset();0367if(OneWire::crc8(buff, 8) == buff[8]){// если контрольная сумма совпадает0368Temper_ = buff[0]|(buff[1]<<8);// читаем температуру из первых двух байт (остальные были нужны только для проверки CRC)0369Temper_ = Temper_ / 16;0370if(Temper_<150 && Temper_>-55) DS18B20[i][9] = Temper_;0371}}}037203730374prevVpit=millis();0375}}0376037703780379int8_t Temper (byteaddressTemp) {for(bytej=0; j<size_arrayTemp; j++){if(DS18B20[j][8]==addressTemp)return(int8_t)DS18B20[j][9];}return-99;}0380038103820383voidWebastoOprosImpulse (){03840385// опрос допканалов от сигнализации включения/ выключение котла и таймер импульса старт/стоп котла03860387if(timerenabled) {if(TIMEREXPIRED) {digitalWrite (OutWebasto_GndImp, HIGH); timerenabled=false;}}0388else{if(!digitalRead (DopOn) && !webasto) {StartWebasto(); KTOreport = 1;}0389if(!digitalRead (DopOff) && webasto) StopWebasto();0390}}039103920393// цикл таймера отправки отчета об успешности запуска котла (отчёт через 6 мин после старта)0394voidtimerReport () {0395if(millis() - EndReportMillis > 360000UL)0396{EndReportMillis = millis(); report =false; SMSzapros(); }}03970398// цикл таймера отправки отчета об успешности запуска ДВС (отчёт через 90сек после старта)0399voidtimerReportEngine () {0400if(millis() - EndReportEngine > 90000ul)0401{EndReportEngine = millis(); reportEngine =false; SMSzapros();}}04020403040404050406#ifndef debugW_bus0407voidNastroykaGSM () {0408digitalWrite (DTR, LOW);// выводим из спячки GSM модуль0409delay (150);0410SIM800.println(F("AT"));//просто AT для разогреву0411delay(250);0412SIM800.println(F("AT+CMGF=1"));//устанавливает текстовый режим смс-сообщения0413delay(250);0414SIM800.println(F("AT+IFC=0, 0"));//отключает программный контроль потоком передачи данных0415delay(250);0416SIM800.println(F("AT+GSMBUSY=1"));//запрет всех входящих звонков0417delay(250);0418SIM800.println(F("AT+CNMI=1,2,2,1,0"));//включает оповещение о новых сообщениях0419delay(250);0420SIM800.println(F("AT+CMGDA=\"DEL ALL\""));// удаляем все смс, ки0421delay(1500);0422SIM800.println(F("AT+CSCLK=1"));//включает энергосберегающий режим0423delay(150);0424digitalWrite (DTR, HIGH);// вводим в спячку GSM модуль высоким уровнем на пине DTR04250426}04270428voidstartNumber1SMS()//__________________Цикл подготовки модуля к отправке СМС-сообщений по первому номеру0429{0430digitalWrite (DTR, LOW);// выводим из спячки GSM модуль0431delay (150);0432SIM800.print(F("AT+CMGF=1\r"));0433delay(150);0434SIM800.print(F("AT+CMGS=\"")); SIM800.print(TelNumber1); SIM800.println("\"");0435delay(150);0436}04370438voidstartNumber2SMS()//__________________Цикл подготовки модуля к отправке СМС-сообщений по второму номеру0439{0440digitalWrite (DTR, LOW);// выводим из спячки GSM модуль0441delay (150);0442SIM800.print(F("AT+CMGF=1\r"));0443delay(150);0444SIM800.print(F("AT+CMGS=\"")); SIM800.print(TelNumber2); SIM800.println(F("\""));0445delay(150);0446}04470448voidstartBufferNumberSMS()//__________________Цикл подготовки модуля к отправке СМС-сообщений по второму номеру0449{0450digitalWrite (DTR, LOW);// выводим из спячки SIM800 модуль0451delay (150);0452SIM800.print(F("AT+CMGF=1\r"));0453delay(200);0454SIM800.print(F("AT+CMGS=\"")); SIM800.print(BufferNumber); SIM800.println(F("\""));0455delay(150);0456}04570458voidEndSMS ()0459{0460SIM800.println((char)26);// Команда отправки СМС0461delay(1500);0462digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль04630464}04650466voiddelSMS ()0467{0468if(millis() - prevdelSMS > 7200000ul){//раз в 2 часа0469digitalWrite (DTR, LOW);// выводим из спячки SIM800 модуль0470delay (150);0471SIM800.print(F("AT+CMGDA=\"DEL ALL\"\r"));// удаляем все смс, ки0472delay(1500);0473digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль0474delay (150);04750476prevdelSMS = millis();}0477}047804790480voidreadSMS()//_____Цикл чтения входящих СМС-сообщений______________0481{0482if(!SIM800.available())return;0483charcurrSymb = SIM800.read();0484#ifdef debugSIM8000485if(currSymb!=0x13 && currSymb!=0x11) K_LINE.print (currSymb);0486#endif0487if('\r'== currSymb)0488{0489if(isStringMessage!=0&&isStringMessage!=10)//если текущая строка - SMS-сообщение, отреагируем на него соответствующим образом0490{0491if(!currStr.compareTo("ZAPROS")) {SMSzapros();}// Передача параметров по СМС0492elseif(!currStr.compareTo("ZAPROSTEL")) {SMSzaprosTEL();}// Передача номеров телефонов пользователей по СМС0493elseif(!currStr.compareTo("ServiceINFO")) {ServiceINFO();}// Передача сервисной информации по СМС0494elseif(!currStr.compareTo("Resets0")) {ResetNumber=0; EEPROM.write (ResetNumber_cell, ResetNumber); ServiceINFO();}//сброс счетчика ресетов GSM модуля04950496elseif(!currStr.compareTo("Webasto-ON")) {if(!webasto) {StartWebasto ();// если получили команду на включение и вебаста в настоящий момент выключена - включаем0497if(isStringMessage == 1) {startNumber1SMS(); KTOreport = 1;}0498elseif(isStringMessage == 2) {startNumber2SMS(); KTOreport = 2;}0499SIM800.println(F("Webasto Vkluchena")); EndSMS();}05000501else{if(isStringMessage == 1) startNumber1SMS();0502elseif(isStringMessage == 2) startNumber2SMS();0503SIM800.println(F("Webasto uzhe vkluchena")); EndSMS();}}050405050506elseif(!currStr.compareTo("Webasto-OFF")) {if(webasto){StopWebasto ();// если получили команду на выключение и вебаста в настоящий момент включена - выключаем0507if(isStringMessage == 1) startNumber1SMS();0508elseif(isStringMessage == 2) startNumber2SMS();0509SIM800.println(F("Webasto Otkluchena")); EndSMS();}051005110512else{if(isStringMessage == 1) startNumber1SMS();0513elseif(isStringMessage == 2) startNumber2SMS();0514SIM800.println(F("Webasto uzhe otkluchena")); EndSMS();}}051505160517elseif(!currStr.compareTo("Engine-ON")) {if(!engine) { digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine =true; EndReportEngine = timerStartEng;// если получили команду на включение ДВС и он в настоящий момент выключен - включаем0518if(isStringMessage == 1) {startNumber1SMS(); KTOreport = 1;}0519elseif(isStringMessage == 2) {startNumber2SMS(); KTOreport = 2;}0520SIM800.println(F("Engine Start")); EndSMS();}05210522else{if(isStringMessage == 1) startNumber1SMS();0523elseif(isStringMessage == 2) startNumber2SMS();0524SIM800.println(F("Dvigatel uzhe rabotaet")); EndSMS();}}05250526elseif(!currStr.compareTo("Engine-OFF")) {if(engine){ digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine =false;// если получили команду на выключение ДВС и он в настоящий момент работает - выключаем0527if(isStringMessage == 1) startNumber1SMS();0528elseif(isStringMessage == 2) startNumber2SMS();0529SIM800.println(F("Dvigatel ostanovlen")); EndSMS();}053005310532else{if(isStringMessage == 1) startNumber1SMS();0533elseif(isStringMessage == 2) startNumber2SMS();0534SIM800.println(F("dvigatel uzhe ostanovlen")); EndSMS(); }}05350536elseif(!currStr.compareTo("Impulse")) {if(!webasto) {ProtocolSTART = IMPULSE; EEPROM.write(ProtocolSTART_cell,ProtocolSTART);0537if(isStringMessage == 1) startNumber1SMS();0538elseif(isStringMessage == 2) startNumber2SMS();0539SIM800.println(F("zapusk GND_impulse")); EndSMS();}}05400541elseif(!currStr.compareTo("Startbus")) {if(!webasto) {ProtocolSTART = STARTBUS; EEPROM.write(ProtocolSTART_cell,ProtocolSTART); webasto = 0;0542if(isStringMessage == 1) startNumber1SMS();0543elseif(isStringMessage == 2) startNumber2SMS();0544SIM800.println(F("zapusk BUS")); EndSMS();}}05450546elseif(!currStr.compareTo("Potencial")) {if(!webasto) {ProtocolSTART = POTENCIAL; EEPROM.write(ProtocolSTART_cell,ProtocolSTART);0547if(isStringMessage == 1) startNumber1SMS();0548elseif(isStringMessage == 2) startNumber2SMS();0549SIM800.println(F("zapusk +12V Potencial")); EndSMS();}}05500551elseif(currStr.endsWith("Status")) {if(!webasto) {bytest = currStr.toInt();if(st >= STATUSBUS && st<=ANALOG )ProtocolSTATUS = st; EEPROM.write(ProtocolSTATUS_cell,ProtocolSTATUS);0552if(isStringMessage == 1) startNumber1SMS();0553elseif(isStringMessage == 2) startNumber2SMS();0554SIM800.print (F("Status: "));0555if(ProtocolSTATUS == 0)SIM800.println(F("BUS"));0556elseif(ProtocolSTATUS == 1)SIM800.println(F("Analog"));0557EndSMS();}}055805590560elseif(currStr.endsWith("HeaterType")) {if(!webasto) {bytest = currStr.toInt();if(st >= TTC_E && st<=HYDRONIC) Heater = st; EEPROM.write(Heater_cell,Heater);0561if(isStringMessage == 1) startNumber1SMS();0562elseif(isStringMessage == 2) startNumber2SMS();0563SIM800.print (F("Heater: "));0564if(Heater == 0)SIM800.println(F("TTC_E"));0565elseif(Heater == 1)SIM800.println(F("VEVO"));0566elseif(Heater == 2)SIM800.println(F("EVO"));0567elseif(Heater == 3)SIM800.println(F("HYDRONIC"));0568EndSMS();}}05690570elseif(currStr.endsWith("Delta")) {if(!webasto) {delta = currStr.toInt();//0571EEPROM.write(delta_cell, delta);0572if(isStringMessage == 1) startNumber1SMS();0573elseif(isStringMessage == 2) startNumber2SMS();0574SIM800.print(F("DeltaT: ")); SIM800.print(delta); SIM800.print(F("*C")); EndSMS();}}0575057605770578elseif(currStr.endsWith("min")) {if(!webasto) {TimeWebasto = currStr.toInt();// для задания время цикла работы отправить сообщение вида "25 min", где 25 время работы в мин0579if(TimeWebasto>59) TimeWebasto = 59;0580if(TimeWebasto<=15) TimeWebasto = 15;0581EEPROM.write(TimeWebasto_cell,TimeWebasto);0582if(isStringMessage == 1) startNumber1SMS();0583elseif(isStringMessage == 2) startNumber2SMS();0584SIM800.print(F("Webasto time: ")); SIM800.print(TimeWebasto); SIM800.print(F("min")); EndSMS();}}05850586elseif(currStr.endsWith("zapusk")) {byteZ =currStr.toInt();if(Z>=0x14 && Z<=0x17) Zapusk= Z+12;0587if(isStringMessage == 1)startNumber1SMS();0588elseif(isStringMessage == 2) startNumber2SMS();0589SIM800.print(F("Zapusk byte: ")); SIM800.print(Zapusk, HEX); SIM800.print(F("h")); EndSMS();}05900591elseif(!currStr.compareTo("ResetNumbers")) {if(isStringMessage == 1) {startNumber1SMS(); SIM800.println(F("Phone numbers are erased")); EndSMS();05920593TelNumber1 ="000000000000"; TelNumber2 ="000000000000";for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber1_cell, TelNumber1[i]); EEPROM.write (i+TelNumber2_cell, TelNumber2[i]); }}}05940595elseif(!currStr.compareTo("WriteNumber2")&& isStringMessage == 1) {0596SaveNumber2 = 1; startNumber1SMS(); SIM800.println(F("Otpravte lyuboye SMS s nomera#2 dlya sohraneniya nomera")); EndSMS();}05970598059906000601elseif(!currStr.compareTo("Balance")) SMSbalance();0602isStringMessage = 0;0603}0604elseif(isStringMessage==10){if(!currStr.compareTo("WriteNumber1")) { TelNumber1 = BufferNumber;for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber1_cell, BufferNumber[i]);}0605startNumber1SMS(); SIM800.println(F("Tel Number#1 is saving in memory")); SIM800.print("Tel#1: "); SIM800.println (TelNumber1); EndSMS();0606}0607elseif(!currStr.compareTo("ZAPROS")) { SMSzapros();}0608elseif(!currStr.compareTo("ZAPROSTEL")) { SMSzaprosTEL();}// Передача номеров телефонов пользователей по СМС0609isStringMessage = 0;06100611}06120613061406150616elseif(isStringMessage==0) {if(TelNumber1!="000000000000"&& !SaveNumber2 && TelNumber1!="яяяяяяяяяяяя"){06170618if(currStr.startsWith("+CMT: \""+TelNumber1)) { isStringMessage = 1; KTOzapros = 1; }0619elseif(currStr.startsWith("+CMT: \""+TelNumber2)) { isStringMessage = 2; KTOzapros = 2; }0620elseif(currStr.startsWith("+CUSD: 0,"))//если текущая строка начинается с "+CUSD",то следующая строка является запросом баланса0621{0622if(KTOzapros == 1) startNumber1SMS();0623elseif(KTOzapros == 2) startNumber2SMS();0624SIM800.print (currStr);0625EndSMS();0626}0627}06280629elseif(currStr.startsWith("+CMT:") && !SaveNumber2) { isStringMessage = 10;for(inti =0; i<12; i++) {BufferNumber[i]=currStr[i+7];}}0630elseif(currStr.startsWith("+CMT:") && SaveNumber2) {for(inti =0; i<12; i++) {BufferNumber[i]=currStr[i+7];} TelNumber2 = BufferNumber;for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber2_cell, BufferNumber[i]);}0631startNumber2SMS(); SIM800.println(F("Vash nomer sochranyon kak Number#2 v pamyati!"));0632SIM800.print(F("Tel#1: ")); SIM800.println(TelNumber1); SIM800.print(F("Tel#2: ")); SIM800.println (TelNumber2); EndSMS(); SaveNumber2 = 0; }06330634}06350636currStr ="";0637}06380639elseif('\n'!= currSymb && currSymb!=0x13 && currSymb!=0x11) currStr += String(currSymb);0640}0641064206430644voidSMSzaprosTEL(){0645if(isStringMessage == 1) startNumber1SMS();0646elseif(isStringMessage == 2) startNumber2SMS();0647elseif(isStringMessage == 10) startBufferNumberSMS();0648SIM800.print(F("Tel#1: ")); SIM800.println(TelNumber1);0649SIM800.print(F("Tel#2: ")); SIM800.println(TelNumber2);0650EndSMS();0651}065206530654voidSMSbalance() {0655digitalWrite (DTR, LOW);// выводим из спячки SIM800 модуль0656delay (150);0657SIM800.print(F("AT+CMGF=1\r"));0658delay(200);0659SIM800.println (F("AT+CUSD=1,\"#100#\""));// команда на замену на транслит *111*6*2# у МТС0660delay(1500);0661digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль0662delay (150);066306640665}066606670668voidAlarmSMS() {06690670startNumber1SMS();0671SIM800.println (F("Vnimanie!!! Trevoga!!! Sirena Vkl!"));0672EndSMS();0673startNumber2SMS();0674SIM800.println (F("Vnimanie!!! Trevoga!!! Sirena Vkl!"));0675EndSMS();0676alarmSMS =true;0677}06780679#endif06800681voidSMSzapros()06820683{0684#ifndef debugW_bus0685if(isStringMessage == 10){0686startBufferNumberSMS();06870688SIM800.println (F("Tel.number#1 not has been save in memory"));0689SIM800.println (F("For save Tel#1 send SMS command \"WriteNumber1\""));0690SIM800.print(F("Tel#1: ")); SIM800.println(TelNumber1);0691SIM800.print(F("Tel#2: ")); SIM800.println(TelNumber2);0692}0693069406950696else{06970698if(isStringMessage == 1) { startNumber1SMS();}0699elseif(isStringMessage == 2) { startNumber2SMS();}0700elseif(isStringMessage == 0) {if(KTOreport == 1) startNumber1SMS();0701elseif(KTOreport == 2) startNumber2SMS();}0702SIM800.print (F("Webasto "));0703if(webasto) { SIM800.println (F("ON"));0704if(startWebasto_OK) SIM800.println (F("StartWebasto OK"));0705elseSIM800.println (F("StartWebasto FAIL"));}0706elseSIM800.println (F("OFF"));0707SIM800.print (F("Engine "));0708if(engine) SIM800.println (F("ON"));0709elseSIM800.println (F("OFF"));0710SIM800.print (F("IGN "));0711if(ignition) SIM800.println (F("ON"));0712elseSIM800.println (F("OFF"));0713SIM800.print (F("Ohrana "));0714if(ohrana) SIM800.println (F("ON"));0715elseSIM800.println (F("OFF"));07160717if(trevoga) SIM800.println (F("Vnimanie!!! Trevoga!!! Sirena Vkl!"));07180719SIM800.print(F("Battery: ")); SIM800.print (Vpit); SIM800.println(F("V"));0720SIM800.print(F("Engine: ")); SIM800.print (Temper(EngineC)); SIM800.println(F("*C"));0721SIM800.print(F("Vyhlop: ")); SIM800.print (Temper(VyhlopC)); SIM800.println(F("*C"));0722SIM800.print(F("Ulica: ")); SIM800.print (Temper(UlicaC)); SIM800.println(F("*C"));0723SIM800.print(F("Salon: ")); SIM800.print (Temper(SalonC)); SIM800.println(F("*C"));0724072507260727}0728EndSMS();0729#endif0730}0731073207330734voidServiceINFO(){0735if(isStringMessage == 1) startNumber1SMS();0736elseif(isStringMessage == 2) startNumber2SMS();0737SIM800.print(F("Zapusk: "));0738if(ProtocolSTART==IMPULSE) SIM800.println(F("GND Imp"));0739elseif(ProtocolSTART==STARTBUS) {SIM800.println(F("BUS"));0740if(Heater== VEVO || Heater== EVO) {SIM800.print(F("ZapuskByte: 0x")); SIM800.println (Zapusk, HEX);}}0741elseif(ProtocolSTART==POTENCIAL) SIM800.println(F("Potencial+12V"));07420743SIM800.print(F("Status: "));0744if(ProtocolSTATUS==ANALOG) SIM800.println(F("ANOLOG"));0745elseif(ProtocolSTATUS==STATUSBUS) SIM800.println(F("BUS"));07460747SIM800.print(F("Heater: "));0748if(Heater==TTC_E) SIM800.println(F("TTC/E"));0749elseif(Heater==VEVO) SIM800.println(F("VEVO"));0750elseif(Heater==EVO) SIM800.println(F("EVO"));0751elseif(Heater==HYDRONIC) SIM800.println(F("HYDRONIC"));07520753if(ProtocolSTART!=IMPULSE) {SIM800.print(F("Webasto Time: ")); SIM800.print (TimeWebasto); SIM800.println(F("min"));}0754SIM800.print(F("SIM800 Resets: ")); SIM800.println (ResetNumber);07550756SIM800.print(F("DeltaT: ")); SIM800.print(delta);SIM800.println(F("*C"));07570758EndSMS();07590760}07610762voidStartWebasto()0763{0764if(ProtocolSTART==IMPULSE){07650766digitalWrite (OutWebasto_GndImp, LOW);0767timer=curmillis;0768timerenabled=true;}07690770else{0771StartMessageRepeat = 0;0772webasto = 1; digitalWrite (OutWebasto_12V, HIGH);0773timerStart_W_BUS=millis();0774timerenabledStart_W_BUS =true;}07750776report =true; EndReportMillis = millis();0777w_bus_init = 1;0778}07790780voidStopWebasto()0781{0782if(ProtocolSTART==IMPULSE){ digitalWrite (OutWebasto_GndImp, LOW);0783timer=curmillis;0784timerenabled=true;}07850786else{0787StopMessageRepeat = 0;0788webasto = 0; digitalWrite (OutWebasto_12V, LOW);0789timerenabledStart_W_BUS =false;}0790report =false;0791w_bus_init = 0;07920793}0794079507960797voidHeater_BUS (){07980799if(Heater == EVO || Heater == VEVO){0800if(webasto) {0801if(StartMessageRepeat<4 && (millis()-Prev_PeriodW_BusStartStop>800) && w_bus_init == 10){0802sendMessage (HEATER_START);0803StartMessageRepeat++;0804Prev_PeriodW_BusStartStop = millis();08050806}0807if(StartMessageRepeat>=4){if(millis()-Prev_PeriodW_BusMessage>5000) {08080809if(flagStartPresence) sendMessage (HEATER_PRESENCE);0810else{if(Heater == EVO) sendMessage (HEATER_STATUS_EVO);0811if(Heater == VEVO)sendMessage (HEATER_STATUS_VEVO);}0812flagStartPresence = !flagStartPresence;0813StopMessageRepeat = 0;08140815Prev_PeriodW_BusMessage = millis();0816}}}081708180819082008210822elseif(StopMessageRepeat<4 && (millis()-Prev_PeriodW_BusStartStop>800)){0823sendMessage (HEATER_STOP);0824StopMessageRepeat++;0825StartMessageRepeat = 0;0826Prev_PeriodW_BusStartStop = millis();082708280829}083008310832if(!timerInitflag && w_bus_init==1) {K_LINE.end(); pinMode (TX, OUTPUT); digitalWrite(TX, 0); timerInit = millis(); timerInitflag = 1;}0833if( timerInitflag && (millis() - timerInit>24) && w_bus_init==1) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=2; }0834if( timerInitflag && (millis() - timerInit>24) && w_bus_init==2) {K_LINE.begin (2400,SERIAL_8E1 );timerInitflag = 0; w_bus_init=10; }083508360837if(K_LINE.available()){083808390840// первый старт байт0841if(header == 0 && Delay){TIMER_DELAY ; buf[0]=K_LINE.read();0842if(buf[0]==0x4F){header = 1; RESETheader_timer=1; prevRESETheader = curmillis; }0843else{header = 0; RESETheader_timer=0;}0844}08450846// длина сообщения0847if(header == 1 && Delay){TIMER_DELAY ; buf[1]=K_LINE.read(); message_size = buf[1];if(message_size > bufsize) message_size = bufsize; header = 4;j=2;n=2;checksum = 0;}08480849// пишем тело сообщения0850if(header == 4 && Delay && j< message_size+n) {0851buf[j] = K_LINE.read();08520853if(j<message_size+n-1) checksum^= buf[j];// подсчёт КС08540855if(j==message_size+n-1) header = 5;0856TIMER_DELAY ; j++;}08570858}// end of K_LINE.available()08590860// сообщение приняли, действуем0861if(header == 5) {TIMER_DELAY ;08620863for(bytei = 0; i<n; i++) checksum^=buf[i];// прибавляем к контрольной сумме старт байты08640865// если контрольная сумма верна:0866if( checksum == buf[message_size+n-1]) {08670868if(buf[2]==0xD0 && buf[3]==0x05 && Heater == VEVO) {startWebasto_OK = buf[7]; last_W_bus = millis();}// проверяем наличие пламени у VEVO0869if(buf[2]==0xD0 && buf[3]==0x30 && buf[6]==0x10 && Heater == EVO) {startWebasto_OK = (bool)buf[7]; last_W_bus = millis();}// проверяем наличие пламени у EVO087008710872}08730874// если контрольная сумма не совпала:08750876//else K_LINE.println("CRC fail!!!" );08770878message_size = 0; header=0; RESETheader_timer=0; j=2; checksum = 0;0879}08800881088208830884}// end EVO VEVO088508860887elseif(Heater == TTC_E){08880889089008910892if(!timerInitflag && w_bus_init==1) {K_LINE.end(); pinMode (TX, OUTPUT); digitalWrite(TX, 0); timerInit = millis(); timerInitflag = 1;}0893if( timerInitflag && (millis() - timerInit>299) && w_bus_init==1) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=2; }0894if( timerInitflag && (millis() - timerInit>49) && w_bus_init==2) {timerInit = millis(); digitalWrite(TX, 0); w_bus_init=3; }0895if( timerInitflag && (millis() - timerInit>24) && w_bus_init==3) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=4; }0896if( timerInitflag && (millis() - timerInit>3024) && w_bus_init==4) {K_LINE.begin (10400); timerInitflag = 0; w_bus_init=10; sendMessage (START_SESSION);}08970898if(K_LINE.available()){089909000901// первый старт байт0902if(header == 0 && Delay){TIMER_DELAY ; buf[0]=K_LINE.read();0903if(!bitRead (buf[0],6) && bitRead (buf[0],7)){header = 1; RESETheader_timer=1; prevRESETheader = curmillis; }09040905}09060907// второй старт байт0908if(header == 1 && Delay){TIMER_DELAY ; buf[1]=K_LINE.read();if(buf[1]==0xF1){ header = 2;}else{header = 0; RESETheader_timer=0;}}09090910// третий старт байт0911if(header == 2 && Delay){0912TIMER_DELAY ;0913buf[2]=K_LINE.read();0914if(buf[2]==0x51){ message_size = buf[0];0915if(buf[0] !=0x80) {header = 4; message_size&=~0x80; j=3; n=3;}0916else{header = 3; j=4;n=4;}0917if(message_size > bufsize) message_size = bufsize; checksum = 0;}else{header = 0; RESETheader_timer=0; }09180919}0920// если размер сообщения указан в дополнительном байте (нулевой байт 0x80) читаем этот дополнительный байт:0921if(header == 3 && Delay){0922TIMER_DELAY ;0923buf[3]=K_LINE.read();0924message_size = buf[3];0925if(message_size > bufsize) message_size = bufsize;0926checksum = 0; header = 4;0927}09280929// пишем тело сообщения0930if(header == 4 && Delay && j< message_size+n+1) {0931buf[j] = K_LINE.read();0932if(j<message_size+n) checksum+= buf[j];// подсчёт КС09330934if(j==message_size+n) header = 5;0935TIMER_DELAY ; j++;}09360937}// end of K_LINE.available()09380939// сообщение приняли, действуем0940if(header == 5) {TIMER_DELAY ;09410942for(bytei = 0; i<n; i++) checksum+=buf[i];// прибавляем к контрольной сумме старт байты09430944//for (byte i=0; i<message_size+n+1; i++) {Serial.print (buf[i], HEX); Serial.print(" ");}09450946// если контрольная сумма верна:0947if(buf[message_size+n] == checksum) {09480949// if (buf[n]== 0xC1) Serial.println ("StartSession OK!!!");09500951095209530954}09550956// если контрольная сумма не совпала:0957//else Serial.println("CRC fail!!!" );0958message_size = 0; header=0; RESETheader_timer=0; j=3; checksum = 0;0959}09600961}// end TTC_E09620963// таймер ожидания байт (для успевания появления данных в буфере UART)0964if(!Delay && curmillis - timerdelay > waitbyte_RX) Delay = 1;09650966// таймер сброса заголовка если данные оборвались во время приёма заголовка0967if(RESETheader_timer && curmillis - prevRESETheader > 500) {RESETheader_timer = 0; header = 0;}09680969if(webasto && millis() - last_W_bus>30000) { startWebasto_OK=0;}0970097109720973}09740975#ifndef debugW_bus0976voidReset_gsm (){0977if(millis()-prevReset>(unsignedlong)intervalReset*60000UL){09780979digitalWrite (DTR, LOW); delay (150);0980SIM800.println (F("AT"));0981timerenabledWaitOK = 1; timerWaitOK = millis();0982gsmOK =false;0983prevReset = millis(); }09840985if(timerenabledWaitOK && millis()-timerWaitOK>6000) {0986timerenabledWaitOK = 0;0987if(!gsmOK) {0988SIM800.println (F("AT")); timerenabledWaitOK = 1; timerWaitOK = millis();0989errors++;if(errors>4) errors = 4;09900991}0992}099309940995if(!gsmOK) {0996if(SIM800.available()>0){0997charcurrSymb = SIM800.read();0998#ifdef debugSIM8000999K_LINE.print (currSymb);1000#endif1001if('\r'== currSymb) {10021003if(!currStr.compareTo("OK")) { gsmOK =true; timerenabledWaitOK = 0; errors=0; digitalWrite (DTR, HIGH);}1004currStr ="";1005}10061007elseif('\n'!= currSymb && currSymb!=0x13 && currSymb!=0x11) {currStr += String(currSymb);}}}100810091010if(errors>=4) Reset();10111012}10131014101510161017voidReset(){10181019if(!resettimer) {digitalWrite (ResetGSM, RelayON); resettimer = 1; resetTimer = millis();}1020elseif(millis()- resetTimer>6000 ) {1021resettimer = 0;1022errors=0;1023ResetNumber++;1024EEPROM.write (ResetNumber_cell, ResetNumber);1025digitalWrite (ResetGSM, !RelayON);1026delay (3500); NastroykaGSM ();}1027}10281029#endif103010311032voidsendMessage(constsize_t size,constbyte*command){10331034if(Heater == TTC_E){1035constbytesiZe = size+4;1036byteMes[siZe];1037byteChecksum = 0;1038for(bytei=0; i<siZe; i++) {1039if(i==0) {Mes[i]=size; bitWrite(Mes[i], 7 , 1);}1040if(i==1) Mes[i] = 0x51;1041if(i==2) Mes[i] = 0xF1;1042if(i==3) {for(bytet=0; t<size; t++ ) {Mes[i]=command[t]; Checksum+=Mes[i] ;K_LINE.write (Mes[i]); i++;}}1043if(i!=siZe-1) Checksum+=Mes[i];1044elseMes[i] = Checksum;1045K_LINE.write (Mes[i]);1046}10471048}1049elseif(Heater == EVO){1050constbytesiZe = size+3;1051byteMes[siZe];1052byteChecksum = 0;1053for(bytei=0; i<siZe; i++) {1054if(i==0) Mes[i] = 0xF4;1055if(i==1) Mes[i]=size+1;1056if(i==2) {for(bytet=0; t<size; t++ ) {Mes[i]=command[t]; Checksum^=Mes[i] ;K_LINE.write (Mes[i]); i++;}}1057if(i!=siZe-1) Checksum^=Mes[i];1058elseMes[i] = Checksum;1059K_LINE.write (Mes[i]);1060}10611062}1063}Ниже основной скетч:
Не подскажете ссылку на библиотеку Button.h, скачал с github , почемуто ардунка ругается.
"no matching function for call to 'Button::Button()"
титановый вел button.h для кнопки от добрейшего дяди Клапы
Уже переделал , не выдержала душа поэта.
добавил транзистор управления помпой с пина 13. Управляет минусом помпы. Как раз в разъеме один пин был неиспользуемый. Но такая плата теперь уже получается двусторонняя (до этого по сути на второй стороне только перемычки были, а сейчас дорожка одна появилась), поэтому вручную тяжело сделать.
gerber8_7 плата 8_7
добавил транзистор управления помпой с пина 13. Управляет минусом помпы. Как раз в разъеме один пин был неиспользуемый. Но такая плата теперь уже получается двусторонняя (до этого по сути на второй стороне только перемычки были, а сейчас дорожка одна появилась), поэтому вручную тяжело сделать.
gerber8_7 плата 8_7
Спасибо большое . Едет комне еще один котел
Webasto Thermo Top V . Дя експеременотов
ардуино в стоке 12,2 мА
с отпаянным LED питания 10,9 мА
с отпаянным LED и стабом (диодом) 9,4мА
Вот замерил как положено от 12В. Считаю этот вопрос закрыт. 8,5 мА. Даже с 8 мгц ардуиной заморачиваться не стОит - дефицитная она в таком форм факторе. 8,5 мА - отличный показатель.
последние изменения
подготовка еепром 3.5
01#include <EEPROM.h>020304enumCells {05ResetNumber_cell,//006TimeWebasto_cell,//107ProtocolSTART_cell,//208StartByte_cell,//309ProtocolSTATUS_cell,//410Heater_cell,//511delta_cell,//612sizeCells,13TelNumber1_cell =20,//2014TelNumber2_cell =40//4015};1617181920// возможные протоколы чтения статуса котла:2122enumProtocolSTATUS_ {23STATUSBUS,// статусы котла читаются по цифровой шине24ANALOG// статусы котла считываются силами ардуино - по датчикам25};262728// возможные протоколы запуска котла:2930enumProtocolSTART_ {31STARTBUS,// запуск котла происходит по цифровой шине32IMPULSE,// запуск котла происходит импульсом GND (для подпайки к кнопке пуск на таймере котла)33POTENCIAL// запуск котла происходит подачей потенциала +12В (пока плюс висит - котёл работает)34};3536// возможные типы котла:3738enumHeater_ { TTC_E, VEVO, EVO, HYDRONIC};394041/////////////// ниже здесь устанавливаем какие настройки у девайса будут по умолчанию4243byteProtocolSTATUS = STATUSBUS;// в данном случае статусы читаются по цифровой шине44byteProtocolSTART = STARTBUS;// в данном случае запуск котла происходит по цифровой шине45byteHeater = TTC_E;// в данном случае тип котла Thermo Top C / E (будет шина не w-bus, а просто к-лайн, у которой настройки 10400 8N1)46byteStartByte = 0x20;// в данном случае байт на старт котла 0x20 (для шины w-bus)47byteworktime = 30;// в данном случае время цикла работы котла 30 минут48bytedeltaT = 45;// разница температур улицы и выхлопа, выше которой считается, что котёл успешно стартанул49///////////////////////////////////////////////505152voidsetup() {5354pinMode(13, OUTPUT);55digitalWrite(13, 0);56EEPROM.write(TimeWebasto_cell, worktime);57EEPROM.write(ProtocolSTART_cell, ProtocolSTART);58EEPROM.write(ProtocolSTATUS_cell, ProtocolSTATUS);59EEPROM.write(Heater_cell, Heater);60EEPROM.write(ResetNumber_cell, 0);61EEPROM.write(StartByte_cell, StartByte);62EEPROM.write(delta_cell, deltaT);63for(inti = sizeCells ; i < EEPROM.length() ; i++) EEPROM.write(i,'0');646566digitalWrite(13, HIGH);67}6869voidloop() {}скетч ver 3.5
001charver[] ="Firmware 3.5";002003//#define debugW_bus // раскоментировать эту строку для отладки w-bus, при этом нужно вынуть SIM800 и подключить юсб<->уарт, т.к. отладка идёт в УАРТ, предназначенный для GSM004//#define debugSIM800005006#include <EEPROM.h>007enumCells {008ResetNumber_cell,//0009TimeWebasto_cell,//1010ProtocolSTART_cell,//2011StartByte_cell,//3012ProtocolSTATUS_cell,//4013Heater_cell,//5014delta_cell,//6015TelNumber1_cell =20,//20016TelNumber2_cell =40//40017};018019#include <Button.h>020Button test;021022// для GSM модуля *********************023024String currStr ="";025String TelNumber[] = {"","000000000000","000000000000","000000000000"};026027boolSaveNumber2 = 0;// флаг когда необходима запись номера#2, он true028byteisStringMessage = 0;029byteKTOzapros = 0;030byteKTOreport = 1;031032//************************033034035036//_______Все для цикла void voltmetr()*************037floatvout = 0.0;// Напряжение на входе аналового входа038floatVpit = 0.0;// Измеряемое напряжение на выходе ИБП039intvolt = 0;// Напряжение на входе АЦП040041042// дефайны входов выходов на соостветствующие пины ************** (плата весий 8.5-8.7)043044#define OutWebasto_12V 2 // это +12В выход потенциала вкл/выкл вебасто (напрямую к котлу без таймера).045#define Dallas_pin 3 // пин шины OneWire для датчиков даллас046#define DopOn 4 // сюда доп канал от сигналки на включение вебасто047#define DopOff 5 // сюда доп канал от сигналки на выключение вебасто048#define Ohrana 6 // Сюда состояние охраны сигналки049#define Trevoga 7 // Сюда состояние тревоги050#define IGN 8 // Сюда состояние зажигания051#define Sost 9 // Сюда состояние вебасто (+12В когда работает)052#define ResetGSM 12 // пин ресета GSM подключен к реле, разрывающее питание модуля.053#define Eng 14 // (А0) Сюда состояние работы ДВС054#define StatusWebastoLED 15 // (А1) пин LED индикация включенности котла055#define StartButtonpin 16 // (А2) пин тактовой кнопки вкл/выкл котла056#define DTR 17 // пин (А3), управляющий энергосберегающим режимом GSM модуля057#define StartEng 18 // (A4) это импульсный минусовой выход вкл/выкл ДВС. подключать на вход событий сиги.058#define OutWebasto_GndImp 19 // (A5) это импульсный минусовой выход вкл/выкл вебасто (к впайке к кнопке таймера).059#define Voltmeter_pin A7 // пин, которым измеряем напряжение питания060#define StartButton 0 // программный номер тактовой кнопки вкл/выкл котла061constboolRelayON = 1;// логика управления реле ресета GSM, в данном случае включается высоким уровнем на пине062#define GSM_RX 10 // пин софт RX Arduino для соединения с TX модуля SIM800063#define GSM_TX 11 // пин софт TX Arduino для соединения с RX модуля SIM800064065/*066067#define Dallas_pin 2 // пин шины OneWire для датчиков даллас068#define OutWebasto_12V 3 // это +12В выход потенциала вкл/выкл вебасто (напрямую к котлу без таймера).069#define DopOn 4 // сюда доп канал от сигналки на включение вебасто070#define DopOff 5 // сюда доп канал от сигналки на выключение вебасто071#define Ohrana 6 // Сюда состояние охраны сигналки072#define Trevoga 7 // Сюда состояние тревоги073#define StartEng 8 // это импульсный минусовой выход вкл/выкл ДВС. подключать на вход событий сиги.074#define Sost 9 // Сюда состояние вебасто (+12В когда работает)075#define IGN 10 // Сюда состояние зажигания076#define Eng 11 // Сюда состояние работы ДВС077#define OutWebasto_GndImp 12 // это импульсный минусовой выход вкл/выкл вебасто (к впайке к кнопке таймера).078#define StatusWebastoLED 13 // пин индикация включенности котла079#define ResetGSM 16 // пин ресета GSM (A2) подключен к реле, разрывающее питание модуля.080#define StartButtonpin 17 // пин тактовой кнопки вкл/выкл котла081#define DTR 19 // пин (А5), управляющий энергосберегающим режимом GSM модуля082#define StartButton 0 // программный номер тактовой кнопки вкл/выкл котла083constboolRelayON = 0;// логика управления реле ресета GSM, в данном случае включается низким уровнем на пине084#define GSM_RX 14 // пин софт RX Arduino для соединения с TX модуля SIM800085#define GSM_TX 15 // пин софт TX Arduino для соединения с RX модуля SIM800086087*/088089#include <SoftwareSerial.h>090091#ifndef debugW_bus092SoftwareSerial SIM800 (GSM_RX, GSM_TX);//Rx, Tx //UART для соединения с GSM модулем093#else094SoftwareSerial DEBUG (GSM_RX, GSM_TX);//Rx, Tx //UART для соединения с отладкой (используется юсб<->УАРТ вместо SIM800)095#endif096097098099// для шины 1-wire и датчиков DS18B20****************100101#include <OneWire.h> // библиотека для DS18B20102OneWire ds(Dallas_pin);// датчики DS18B20 на нужный пин103104enumTempC {VyhlopC, EngineC, UlicaC, SalonC, size_arrayTemp};// перечисление нужных температур (в конце размер массива температур)105106// ниже соответствие адресов датчиков различным температурам (изначально 0х14=20*С)107byteDS18B20 [size_arrayTemp][10] = {108{0x28, 0xFF, 0xB2, 0xB5, 0xC1, 0x17, 0x05, 0xD1, VyhlopC, 0x14},109{0x28, 0xFF, 0xD3, 0xE2, 0xC1, 0x17, 0x04, 0x0D, EngineC, 0x14},110{0x28, 0xFF, 0xF8, 0xBC, 0xC1, 0x17, 0x04, 0x48, UlicaC, 0x14},111{0x28, 0xFF, 0x3F, 0xB7, 0xC1, 0x17, 0x05, 0xF1, SalonC, 0x14}112};113bytedelta = 50;// разница температур выхлопа и улицы, выше которой считается, что пламя в котле есть.114115// для организации W-BUS и различные таймеры********************116117#define K_LINE Serial //UART для соединения с шиной котла118#define TX 1119120byteheader = 0;// состояние заголовка121bytemessage_size = 0;// размер тела принимаемого сообщения, кол-во байт122123bytej = 2;// инкремент124byten = 2;125constbytebufsize = 140;// размер буфера принятого сообщения126bytebuf [bufsize] = {0};// буфер принятого сообщения127bytechecksum = 0;// контрольная сумма входящего сообщения128uint32_t curmillis = 0;// снимок системного времени129bytedelaybyte_TX = 0 ;// задержка между байтами отправляемого сообщения130bytewaitbyte_RX = 1;// задержка, мс для успевания заполнения буфера RX (подрегулировать в зависимости от уровня жизнидеятельности на Марсе)131uint32_t timerdelay = 0;// таймер ожидания байт (для успевания заполнения буфера УАРТ)132boolDelay = 0;// таймер ожидания байт (для успевания заполнения буфера УАРТ)133#define TIMER_DELAY Delay = 0; timerdelay = curmillis // включение этого таймера134135uint32_t prevRESETheader=0;// таймер сброса заголовка если в момент приёма сообщения данные оборвались136boolRESETheader_timer = 0;// таймер сброса заголовка если в момент приёма сообщения данные оборвались137138139// ниже строка даже не спрашивайте что это)) это так... кот по клаве прошёл140#define ConstArray(...) [](void)->size_t{ const byte _[] = { __VA_ARGS__}; return sizeof(_)/sizeof(_[0]); }(),[](void)->const byte *{ const static byte _[] = { __VA_ARGS__}; return _; }()141142// команды для котлов ЭВО143byteStartByte = 0x20;144#define HEATER_START ConstArray (StartByte, 0x3B)145#define HEATER_PRESENCE ConstArray (0x44, StartByte, 0x00)146#define HEATER_STOP ConstArray (0x10)147#define HEATER_STATUS_VEVO ConstArray (0x50, 0x05)148#define HEATER_STATUS_EVO ConstArray (0x50, 0x30, 0x0A, 0x10)149150// команды для котлов ТТС/TTE151#define START_SESSION ConstArray (0x81)152#define REQUEST_2A10101 ConstArray (0x2A, 0x01, 0x01)153#define REQUEST_2A10102 ConstArray (0x2A, 0x01, 0x02)154#define REQUEST_2A10105 ConstArray (0x2A, 0x01, 0x05)155#define REQUEST_DTC ConstArray (0xA1)156#define START_TTC ConstArray (0x31, 0x22, 0xFF)157#define STOP_TTC ConstArray (0x31, 0x22, 0x00)158159160enumProtocolSTATUS_ {STATUSBUS, ANALOG};// возможные протоколы чтения статуса котла161enumProtocolSTART_ {STARTBUS, IMPULSE, POTENCIAL};// возможные протоколы запуска котла162enumHeater_ {TTC_E, VEVO, EVO, HYDRONIC};// тип котла163164byteProtocolSTATUS = STATUSBUS;165byteProtocolSTART = STARTBUS;166byteHeater = EVO;167168bytew_bus_init = 0;//флаг проведена или нет инициализация шины w-bus (25мс LOW, 25мс HIGH для ЭВО169// либо 300ms LOW, 50ms HIGH, 25ms LOW, 3025ms HIGH для TTC170boolflagStartPresence = 1;//флаг что отправляем в момент периодического поддержания связи W-Bus status или start171byteStartMessageRepeat = 0;//количество отправленных сообщений на старт котла172byteStopMessageRepeat = 0;//количество отправленных сообщений на остановку котла173174byteTimeWebasto = 30;//время работы котла, = 30мин175uint32_t EndReportMillis = 0;//переменная для таймера отправки отчета об успешности запуска котла176uint32_t EndReportEngine = 0;//переменная для таймера отправки отчета об успешности запуска ДВС177uint32_t Prev_PeriodW_BusMessage = 0;//переменная для таймера периодической отправки сообщений состояния котла в шину W-Bus178uint32_t Prev_PeriodW_BusStartStop = 0;//переменная для таймера периодической отправки сообщений старта/стопа котла в шину W-Bus179uint32_t prevdelSMS = 0;//переменная для таймера периодического удаления СМС180uint32_t prevVpit = 0;//переменная для таймера периодического измерения напряжения АКБ181182//для таймера создания импульса GND - для протокола запуска котла импульсом GND183uint32_t timer=0;184booltimerenabled=false;185#define TIMEREXPIRED (curmillis-timer)>800186187188//для таймера - старт двигателя - импульс +5В на транзистор, в итоге минусовой импульс 1.5 сек на вход событий сигналки для запуска ДВС)189uint32_t timerStartEng=0;booltimerenabledStartEng=false;190#define TIMEREXPIRED_StartEng (millis()-timerStartEng)>1500191192193//для таймера - старт котла по W-BUS )194uint32_t timerStart_W_BUS=0;booltimerenabledStart_W_BUS=false;195#define TIMEREXPIRED_Start_W_BUS (curmillis-timerStart_W_BUS)> (uint32_t)TimeWebasto * 60000UL196197//для таймера инита шины W-BUS198uint32_t timerInit = 0;booltimerInitflag = 0;199200//для таймера контроля жив или мертв обмен по W-bus201uint32_t last_W_bus = 0;boolkotel_zhiv = 0;202203//ниже всё для организации ресета GSM модуля, если с ним отсутствует связь****************204205uint32_t prevReset=0;// для таймера периодичности проверки (командой "АТ")206byteintervalReset = 2;// каждые столько мин будет проверка жив ли GSM модуль207uint32_t timerWaitOK=0;// для таймера ожидания ответа после посылки команды "АТ"208booltimerenabledWaitOK=false;// для таймера ожидания ответа после посылки команды "АТ"209byteerrors=0;// количество неответов от GSM модуля210boolgsmOK = 1;// флаг есть связь с GSM модулем или нет211boolresettimer = 0;// для таймера удерживания реле в режиме сброс питания212uint32_t resetTimer=0;// для таймера удерживания реле в режиме сброс питания213byteResetNumber = 0;// количество ресетов GSM модуля для статистики (хранится в еепром)214215//**************************216217//Основные переменные218boolwebasto = 0;// флаг команды на работу Webasto. 0 - котел выключен, 1 - котел включен219boolstartWebasto_OK = 0;// флаг успешного запуска котла220boolreport =false;// флаг нужности отправки отчета false - не нужно отправлять, true - нужно отправлять221boolreportEngine =false;// флаг нужности отправки отчета false - не нужно отправлять, true - нужно отправлять222boolengine =0;// флаг работает ли ДВС или нет223boolignition=0;// флаг включено ли зажигание или нет224boolohrana=0;// флаг включена ли охрана или нет225booltrevoga=0;// флаг включена ли тревога или нет226boolalarmSMS = 0;// флаг отправлена ли смс о тревоге или нет227228229// СТАРТОВЫЙ ЦИКЛ230231voidsetup()232{233234235delay (3500);236237238test.NO();239test.pullUp();240test.duration_bounce ( 50);241test.duration_click_Db ( 250);242test.duration_inactivity_Up(5000);243test.duration_inactivity_Dn(1000);244test.duration_press ( 500);245test.button(StartButtonpin);// в скобках пин тактовой кнопки вкл/выкл котла (программный номер у неё будет 0)246247pinMode (DopOn, INPUT_PULLUP);248pinMode (DopOff, INPUT_PULLUP);249pinMode (Sost, INPUT_PULLUP);250pinMode (Ohrana, INPUT_PULLUP);251pinMode (Trevoga, INPUT_PULLUP);252pinMode (IGN, INPUT_PULLUP);253pinMode (Eng, INPUT_PULLUP);254255pinMode (OutWebasto_12V, OUTPUT); digitalWrite (OutWebasto_12V, LOW);256pinMode (StartEng, OUTPUT); digitalWrite (StartEng, LOW);257pinMode (13, OUTPUT); digitalWrite (13, LOW);258pinMode (StatusWebastoLED, OUTPUT); digitalWrite (StatusWebastoLED, LOW);259pinMode (OutWebasto_GndImp, OUTPUT); digitalWrite (OutWebasto_GndImp, HIGH);260pinMode (DTR, OUTPUT); digitalWrite (DTR, HIGH);// делаем высокий, а низкий уровень будет для пробуждения GSM из "спячки"261pinMode (ResetGSM, OUTPUT); digitalWrite (ResetGSM, !RelayON);// реле ресет на данный момент делаем "неактивно"262263#ifndef debugW_bus264SIM800.begin(19200);// сериал соединение для gsm модуля265delay(100);266NastroykaGSM ();267#else DEBUG.begin(9600);268#endif269270TimeWebasto = EEPROM.read(TimeWebasto_cell);271ProtocolSTART = EEPROM.read(ProtocolSTART_cell);272ProtocolSTATUS = EEPROM.read(ProtocolSTATUS_cell);273ResetNumber = EEPROM.read(ResetNumber_cell);274StartByte = EEPROM.read(StartByte_cell);275Heater = EEPROM.read(Heater_cell);276delta = EEPROM.read(delta_cell);277for(inti=0; i<12; i++) TelNumber[1][i] = EEPROM.read (i+TelNumber1_cell);278for(inti=0; i<12; i++) TelNumber[2][i] = EEPROM.read (i+TelNumber2_cell);279280#ifndef debugSIM800281if(Heater == EVO || Heater == VEVO) K_LINE.begin(2400, SERIAL_8E1);282elseif(Heater == TTC_E) K_LINE.begin(10400);283#else284K_LINE.begin(9600);285#endif286287288for(bytei=0; i<20; i++) {digitalWrite (13, !digitalRead(13)); delay (80);}289digitalWrite (13,0);290}291292293voidloop() {294curmillis = millis();295test.read();296297digitalWrite (StatusWebastoLED, webasto);298digitalWrite (13, startWebasto_OK);299//digitalWrite (13, webasto);300301302//если нажали тактовую кнопку меняем состояние котла на противоположное303if(test.event_press_short (StartButton)) {304if(!webasto) {StartWebasto(); report =false;}305elseStopWebasto();306}307308if(ProtocolSTATUS==ANALOG) {if(Temper(VyhlopC) - Temper(UlicaC) > delta) startWebasto_OK = 1;309elsestartWebasto_OK = 0;}310311if(ProtocolSTART==IMPULSE) webasto = !digitalRead (Sost);312313Heater_BUS();314315//ниже для таймера старта котла по шине и аналогу316317if(timerenabledStart_W_BUS && TIMEREXPIRED_Start_W_BUS) StopWebasto();318319//ниже для таймера создания импульса на старт ДВС320321if(timerenabledStartEng && TIMEREXPIRED_StartEng) {digitalWrite (StartEng, LOW); timerenabledStartEng=false;}322323engine = !digitalRead (Eng);324ignition= !digitalRead (IGN);325ohrana= !digitalRead (Ohrana);326trevoga= !digitalRead (Trevoga);327328if(webasto && report) timerReport ();329if(reportEngine) timerReportEngine ();330if(!ohrana) alarmSMS =false;331332#ifndef debugW_bus333if(trevoga && !alarmSMS) AlarmSMS ();334if(gsmOK)readSMS();335Reset_gsm();336delSMS();337#endif338339WebastoOprosImpulse ();340izmereniya();341342343}344345voidizmereniya() {346347if(millis()-prevVpit>7000){348349//измерение напряжения борт сети350if(ProtocolSTATUS==ANALOG){351volt = analogRead(Voltmeter_pin);352vout = (volt * 4.13) / 1024;353Vpit = vout / (9700.0/(98930.0+9700.0));// По формуле Vpit = vout / (R2/(R1+R2))354if(Vpit<0.09) Vpit=0.0;// Округление до нуля355}356357// ниже измерение датчиков даллас358staticbooln=0;// флаг работы: запрос температуры или её чтение359n=!n;360if(n) {ds.reset();// сброс шины361ds.write(0xCC);// обращение ко всем датчикам362ds.write(0x44);// начать преобразование (без паразитного питания)363}364else{365for(bytei=0; i<size_arrayTemp; i++){366intTemper_ = 20;bytebuff[9];367ds.reset();368ds.select(DS18B20[i]);369ds.write(0xBE);// чтение регистров датчиков370for(bytej=0; j<9; j++) buff[j]=ds.read();// читаем все 9 байт от датчика371ds.reset();372if(OneWire::crc8(buff, 8) == buff[8]){// если контрольная сумма совпадает373Temper_ = buff[0]|(buff[1]<<8);// читаем температуру из первых двух байт (остальные были нужны только для проверки CRC)374Temper_ = Temper_ / 16;375if(Temper_<150 && Temper_>-55) DS18B20[i][9] = Temper_;376}}}377378379prevVpit=millis();380}}381382383384int8_t Temper (constbyte&addressTemp) {for(bytej=0; j<size_arrayTemp; j++){if(DS18B20[j][8]==addressTemp)return(int8_t)DS18B20[j][9];}return-99;}385386387388voidWebastoOprosImpulse (){389390// опрос допканалов от сигнализации включения/ выключение котла и таймер импульса старт/стоп котла391392if(timerenabled) {if(TIMEREXPIRED) {digitalWrite (OutWebasto_GndImp, HIGH); timerenabled=false;}}393else{if(!digitalRead (DopOn) && !webasto) {StartWebasto(); KTOreport = 1;}394if(!digitalRead (DopOff) && webasto) StopWebasto();395}}396397398// цикл таймера отправки отчета об успешности запуска котла (отчёт через 6 мин после старта)399voidtimerReport () {400if(millis() - EndReportMillis > 360000UL)401{EndReportMillis = millis(); report =false; SMSzapros(); }}402403// цикл таймера отправки отчета об успешности запуска ДВС (отчёт через 60сек после старта)404voidtimerReportEngine () {405if(millis() - EndReportEngine > 90000ul)406{EndReportEngine = millis(); reportEngine =false; SMSzapros();}}407408409410411#ifndef debugW_bus412voidNastroykaGSM () {413digitalWrite (DTR, LOW);// выводим из спячки GSM модуль414delay (150);415SIM800.println(F("AT"));//просто AT для разогреву416delay(250);417SIM800.println(F("AT+CMGF=1"));//устанавливает текстовый режим смс-сообщения418delay(250);419SIM800.println(F("AT+IFC=0, 0"));//отключает программный контроль потоком передачи данных420delay(250);421SIM800.println(F("AT+GSMBUSY=1"));//запрет всех входящих звонков422delay(250);423SIM800.println(F("AT+CNMI=1,2,2,1,0"));//включает оповещение о новых сообщениях424delay(250);425SIM800.println(F("AT+CMGDA=\"DEL ALL\""));// удаляем все смс, ки426delay(1500);427SIM800.println(F("AT+CSCLK=1"));//включает энергосберегающий режим428delay(150);429digitalWrite (DTR, HIGH);// вводим в спячку GSM модуль высоким уровнем на пине DTR430431}432433voidstartSMS(bytestat)//__________________Цикл подготовки модуля к отправке СМС-сообщений по первому номеру434{435if(stat==0) stat = KTOreport;436digitalWrite (DTR, LOW);// выводим из спячки GSM модуль437delay (150);438SIM800.print(F("AT+CMGF=1\r"));439delay(200);440SIM800.print(F("AT+CMGS=\"")); SIM800.print(TelNumber[stat]); SIM800.println("\"");441delay(200);442}443444445446voidEndSMS ()447{448SIM800.println((char)26);// Команда отправки СМС449delay(1500);450digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль451452}453454voiddelSMS ()455{456if(millis() - prevdelSMS > 7200000ul){//раз в 2 часа457digitalWrite (DTR, LOW);// выводим из спячки SIM800 модуль458delay (150);459SIM800.print(F("AT+CMGDA=\"DEL ALL\"\r"));// удаляем все смс, ки460delay(1500);461digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль462delay (150);463464prevdelSMS = millis();}465}466467468voidreadSMS()//_____Цикл чтения входящих СМС-сообщений______________469{470if(!SIM800.available())return;471charcurrSymb = SIM800.read();472#ifdef debugSIM800473K_LINE.print (currSymb);474#endif475if('\r'== currSymb)476{477if(isStringMessage!=0&&isStringMessage!=3)//если текущая строка - SMS-сообщение, отреагируем на него соответствующим образом478{479if(!currStr.compareTo("ZAPROS")) {SMSzapros();}// Передача параметров по СМС480elseif(!currStr.compareTo("ZAPROSTEL")) {SMSzaprosTEL();}// Передача номеров телефонов пользователей по СМС481elseif(!currStr.compareTo("Service-info")) {ServiceINFO();}// Передача сервисной информации по СМС482elseif(!currStr.compareTo("GSMResets-0")) {ResetNumber=0; EEPROM.write (ResetNumber_cell, ResetNumber); ServiceINFO();}//сброс счетчика ресетов GSM модуля483elseif(!currStr.compareTo("Version")) {startSMS(isStringMessage); SIM800.println (ver); EndSMS ();}//запрос версии ПО484485elseif(!currStr.compareTo("Webasto-ON")) { startSMS(isStringMessage); SIM800.println(F("Webasto "));486487if(!webasto) {StartWebasto (); KTOreport = isStringMessage;}488elseSIM800.println(F("uzhe ")); SIM800.println (F("vkluchena")); EndSMS();}489490491elseif(!currStr.compareTo("Webasto-OFF")) {startSMS(isStringMessage); SIM800.println(F("Webasto "));492if(webasto)StopWebasto ();// если получили команду на выключение и вебаста в настоящий момент включена - выключаем493elseSIM800.println(F("uzhe ")); SIM800.println(F("otkluchena"));EndSMS();}494495// если получили команду на включение ДВС и он в настоящий момент выключен - включаем496elseif(!currStr.compareTo("Engine-ON")) {startSMS(isStringMessage); SIM800.println(F("Dvigatel "));497if(!engine) { digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine =true; EndReportEngine = timerStartEng; KTOreport = isStringMessage;}498elseSIM800.println(F("uzhe ")); SIM800.println(F("start")); EndSMS();}499500elseif(!currStr.compareTo("Engine-OFF")) {startSMS(isStringMessage); SIM800.println(F("Dvigatel "));501if(engine){ digitalWrite (StartEng, HIGH); timerStartEng=millis(); timerenabledStartEng=true; reportEngine =false;}// если получили команду на выключение ДВС и он в настоящий момент работает - выключаем502elseSIM800.println(F("uzhe ")); SIM800.println(F("ostanovlen")); EndSMS();}503504elseif(!currStr.compareTo("Impulse")) {if(!webasto) {ProtocolSTART = IMPULSE; EEPROM.write(ProtocolSTART_cell,ProtocolSTART);505startSMS(isStringMessage); SIM800.println(F("zapusk GND_impulse")); EndSMS();}}506507elseif(!currStr.compareTo("Startbus")) {if(!webasto) {ProtocolSTART = STARTBUS; EEPROM.write(ProtocolSTART_cell,ProtocolSTART); webasto = 0;508startSMS(isStringMessage); SIM800.println(F("zapusk BUS")); EndSMS();}}509510elseif(!currStr.compareTo("Potencial")) {if(!webasto) {ProtocolSTART = POTENCIAL; EEPROM.write(ProtocolSTART_cell,ProtocolSTART);511startSMS(isStringMessage); SIM800.println(F("zapusk +12V Potencial")); EndSMS();}}512513elseif(currStr.endsWith("Status")) {if(!webasto) {bytest = currStr.toInt();if(st >= STATUSBUS && st<=ANALOG )ProtocolSTATUS = st; EEPROM.write(ProtocolSTATUS_cell,ProtocolSTATUS);514startSMS(isStringMessage); SIM800.print (F("Status: "));515if(ProtocolSTATUS == 0)SIM800.println(F("BUS"));516elseif(ProtocolSTATUS == 1)SIM800.println(F("Analog"));517EndSMS();}}518519520elseif(currStr.endsWith("HeaterType")) {if(!webasto) {bytest = currStr.toInt();if(st >= TTC_E && st<=HYDRONIC) Heater = st; EEPROM.write(Heater_cell,Heater);521startSMS(isStringMessage); SIM800.print (F("Heater: "));522if(Heater == 0)SIM800.println(F("TTC_E"));523elseif(Heater == 1)SIM800.println(F("VEVO"));524elseif(Heater == 2)SIM800.println(F("EVO"));525elseif(Heater == 3)SIM800.println(F("HYDRONIC"));526EndSMS();}}527528elseif(currStr.endsWith("Delta")) {if(!webasto) {delta = currStr.toInt();//529EEPROM.write(delta_cell, delta); startSMS(isStringMessage);530SIM800.print(F("DeltaT: ")); SIM800.print(delta); SIM800.print(F("*C")); EndSMS();}}531532533534elseif(currStr.endsWith("min")) {if(!webasto) {TimeWebasto = currStr.toInt();// для задания время цикла работы отправить сообщение вида "25 min", где 25 время работы в мин535if(TimeWebasto>59) TimeWebasto = 59;536if(TimeWebasto<=15) TimeWebasto = 15;537EEPROM.write(TimeWebasto_cell,TimeWebasto);538startSMS(isStringMessage); SIM800.print(F("Webasto time: ")); SIM800.print(TimeWebasto); SIM800.print(F("min")); EndSMS();}}539540elseif(currStr.endsWith("StartByte")) {byteZ =currStr.toInt();if(Z>=0x14 && Z<=0x17) StartByte= Z+12;541startSMS(isStringMessage); SIM800.print(F("StartByte: ")); SIM800.print(StartByte, HEX); SIM800.print(F("h")); EndSMS();}542543elseif(!currStr.compareTo("ResetNumbers")) {if(isStringMessage == 1) {startSMS(isStringMessage); SIM800.println(F("Phone numbers are erased")); EndSMS();544545TelNumber[1] ="000000000000"; TelNumber[2] ="000000000000";for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber1_cell, TelNumber[1][i]); EEPROM.write (i+TelNumber2_cell, TelNumber[2][i]); }}}546547elseif(!currStr.compareTo("WriteNumber2")&& isStringMessage == 1) {548SaveNumber2 = 1; startSMS(isStringMessage); SIM800.println(F("Otpravte lyuboye SMS s nomera#2 dlya sohraneniya nomera")); EndSMS();}549550551552553elseif(!currStr.compareTo("Balance")) SMSbalance();554isStringMessage = 0;555}556557558elseif(isStringMessage==3){if(!currStr.compareTo("WriteNumber1")) { TelNumber[1] = TelNumber[3];for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber1_cell, TelNumber[3][i]);}559startSMS(1); SIM800.println(F("Tel Number#1 is saving in memory")); SIM800.print("Tel#1: "); SIM800.println (TelNumber[1]); EndSMS();560}561elseif(!currStr.compareTo("ZAPROS")) { SMSzapros();}562elseif(!currStr.compareTo("ZAPROSTEL")) { SMSzaprosTEL();}// Передача номеров телефонов пользователей по СМС563isStringMessage = 0;564565}566567568569570elseif(isStringMessage==0) {if(TelNumber[1]!="000000000000"&& !SaveNumber2 && TelNumber[1]!="яяяяяяяяяяяя"){571572if(currStr.startsWith("+CMT: \""+TelNumber[1])) { isStringMessage = 1; KTOzapros = 1; }573elseif(currStr.startsWith("+CMT: \""+TelNumber[2])) { isStringMessage = 2; KTOzapros = 2; }574elseif(currStr.startsWith("+CUSD: 0,"))//если текущая строка начинается с "+CUSD",то следующая строка является запросом баланса575{576startSMS(KTOzapros);577SIM800.print (currStr);578EndSMS();579}580}581582elseif(currStr.startsWith("+CMT:") && !SaveNumber2) { isStringMessage = 3;for(inti =0; i<12; i++) {TelNumber[3][i]=currStr[i+7];}}583elseif(currStr.startsWith("+CMT:") && SaveNumber2) {for(inti =0; i<12; i++) {TelNumber[3][i]=currStr[i+7];} TelNumber[2] = TelNumber[3];for(inti=0; i<12; i++) {EEPROM.write (i+TelNumber2_cell, TelNumber[3][i]);}584startSMS(2); SIM800.println(F("Vash nomer sochranyon kak Number#2 v pamyati!"));585SIM800.print(F("Tel#1: ")); SIM800.println(TelNumber[1]); SIM800.print(F("Tel#2: ")); SIM800.println (TelNumber[2]); EndSMS(); SaveNumber2 = 0; }586587}588589currStr ="";590}591592elseif('\n'!= currSymb && currSymb!=0x13 && currSymb!=0x11) currStr += String(currSymb);593}594595596597voidSMSzaprosTEL(){598startSMS(isStringMessage);599PrintNumbers ();600EndSMS();601}602603604voidSMSbalance() {605digitalWrite (DTR, LOW);// выводим из спячки SIM800 модуль606delay (150);607SIM800.print(F("AT+CMGF=1\r"));608delay(200);609SIM800.println (F("AT+CUSD=1,\"#100#\""));// команда на замену на транслит *111*6*2# у МТС610delay(1500);611digitalWrite (DTR, HIGH);// вводим в спячку SIM800 модуль612delay (150);613614615}616617618voidAlarmSMS() {for(bytei = 0; i<2; i++) {startSMS(i+1); SIM800.println (F("Vnimanie!!! Trevoga!!! Sirena Vkl!")); EndSMS();} alarmSMS =true;}619620#endif621622voidPrintNumbers () {for(bytei=0; i<2; i++) {SIM800.print(F("Tel#")); SIM800.print (i+1); SIM800.print(F(" ")); SIM800.println(TelNumber[i+1]);}}623624voidSMSzapros()625626{627#ifndef debugW_bus628startSMS(isStringMessage);629if(isStringMessage == 3){630631SIM800.println (F("Tel.number#1 not has been save in memory"));632SIM800.println (F("For save Tel#1 send SMS command \"WriteNumber1\""));633PrintNumbers ();634}635636637638639else{640641SIM800.print (F("Webasto ")); on_off (webasto);642if(webasto) {643SIM800.print (F("StartWebasto "));644if(startWebasto_OK) SIM800.println (F("OK"));645elseSIM800.println (F("FAIL"));}646SIM800.print (F("Engine ")); on_off (engine);647SIM800.print (F("IGN ")); on_off (ignition);648SIM800.print (F("Ohrana ")); on_off (ohrana);649if(trevoga) SIM800.println (F("Vnimanie!!! Trevoga!!! Sirena Vkl!"));650651SIM800.print(F("Battery: ")); SIM800.print (Vpit); SIM800.println(F("V"));652653SIM800.print(F("Engine: ")); SIM800.print (Temper(EngineC)); grad ();654SIM800.print(F("Vyhlop: ")); SIM800.print (Temper(VyhlopC)); grad ();655SIM800.print(F("Ulica: ")); SIM800.print (Temper(UlicaC)); grad ();656SIM800.print(F("Salon: ")); SIM800.print (Temper(SalonC)); grad ();657658659660}661EndSMS();662#endif663}664665voidon_off (constbool&stat) {if(stat) SIM800.println (F("ON"));elseSIM800.println (F("OFF")); }666voidgrad () {SIM800.println (F("*C")); }667668voidServiceINFO(){669startSMS(isStringMessage);670SIM800.print(F("StartByte: "));671if(ProtocolSTART==IMPULSE) SIM800.println(F("GND Imp"));672elseif(ProtocolSTART==STARTBUS) {SIM800.println(F("BUS"));673if(Heater== VEVO || Heater== EVO) {SIM800.print(F("StartByte: 0x")); SIM800.println (StartByte, HEX);}}674elseif(ProtocolSTART==POTENCIAL) SIM800.println(F("Potencial+12V"));675676SIM800.print(F("Status: "));677if(ProtocolSTATUS==ANALOG) SIM800.println(F("ANALOG"));678elseif(ProtocolSTATUS==STATUSBUS) SIM800.println(F("BUS"));679680SIM800.print(F("Heater: "));681if(Heater==TTC_E) SIM800.println(F("TTC/E"));682elseif(Heater==VEVO) SIM800.println(F("VEVO"));683elseif(Heater==EVO) SIM800.println(F("EVO"));684elseif(Heater==HYDRONIC) SIM800.println(F("HYDRONIC"));685686if(ProtocolSTART!=IMPULSE) {SIM800.print(F("Webasto Time: ")); SIM800.print (TimeWebasto); SIM800.println(F("min"));}687SIM800.print(F("SIM800 Resets: ")); SIM800.println (ResetNumber);688689if(ProtocolSTART==IMPULSE) SIM800.print(F("DeltaT: ")); SIM800.print(delta);SIM800.println(F("*C"));690691EndSMS();692693}694695voidStartWebasto()696{697if(ProtocolSTART==IMPULSE){698699digitalWrite (OutWebasto_GndImp, LOW);700timer=curmillis;701timerenabled=true;}702703else{704StartMessageRepeat = 0;705webasto = 1; digitalWrite (OutWebasto_12V, HIGH);706timerStart_W_BUS=millis();707timerenabledStart_W_BUS =true;}708709report =true; EndReportMillis = millis();710w_bus_init = 1;711}712713voidStopWebasto()714{715if(ProtocolSTART==IMPULSE){ digitalWrite (OutWebasto_GndImp, LOW);716timer=curmillis;717timerenabled=true;}718719else{720StopMessageRepeat = 0;721webasto = 0; digitalWrite (OutWebasto_12V, LOW);722timerenabledStart_W_BUS =false;}723report =false;724w_bus_init = 0;725726}727728729730voidHeater_BUS (){731732if(Heater == EVO || Heater == VEVO){733if(webasto) {734if(StartMessageRepeat<4 && (millis()-Prev_PeriodW_BusStartStop>800) && w_bus_init == 10){735sendMessage (HEATER_START);736StartMessageRepeat++;737Prev_PeriodW_BusStartStop = millis();738739}740if(StartMessageRepeat>=4){if(millis()-Prev_PeriodW_BusMessage>5000) {741742if(flagStartPresence) sendMessage (HEATER_PRESENCE);743else{if(Heater == EVO) sendMessage (HEATER_STATUS_EVO);744if(Heater == VEVO)sendMessage (HEATER_STATUS_VEVO);}745flagStartPresence = !flagStartPresence;746StopMessageRepeat = 0;747748Prev_PeriodW_BusMessage = millis();749}}}750751752753754755elseif(StopMessageRepeat<4 && (millis()-Prev_PeriodW_BusStartStop>800)){756sendMessage (HEATER_STOP);757StopMessageRepeat++;758StartMessageRepeat = 0;759Prev_PeriodW_BusStartStop = millis();760761762}763764765if(!timerInitflag && w_bus_init==1) {K_LINE.end(); pinMode (TX, OUTPUT); digitalWrite(TX, 0); timerInit = millis(); timerInitflag = 1;}766if( timerInitflag && (millis() - timerInit>24) && w_bus_init==1) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=2; }767if( timerInitflag && (millis() - timerInit>24) && w_bus_init==2) {K_LINE.begin (2400,SERIAL_8E1 );timerInitflag = 0; w_bus_init=10; }768769770if(K_LINE.available()){771772773// первый старт байт774if(header == 0 && Delay){TIMER_DELAY ; buf[0]=K_LINE.read();775if(buf[0]==0x4F){header = 1; RESETheader_timer=1; prevRESETheader = curmillis; }776else{header = 0; RESETheader_timer=0;}777}778779// длина сообщения780if(header == 1 && Delay){TIMER_DELAY ; buf[1]=K_LINE.read(); message_size = buf[1];if(message_size > bufsize) message_size = bufsize; header = 4;j=2;n=2;checksum = 0;}781782// пишем тело сообщения783if(header == 4 && Delay && j< message_size+n) {784buf[j] = K_LINE.read();785786if(j<message_size+n-1) checksum^= buf[j];// подсчёт КС787788if(j==message_size+n-1) header = 5;789TIMER_DELAY ; j++;}790791}// end of K_LINE.available()792793// сообщение приняли, действуем794if(header == 5) {TIMER_DELAY ;795796for(bytei = 0; i<n; i++) checksum^=buf[i];// прибавляем к контрольной сумме старт байты797798// если контрольная сумма верна:799if( checksum == buf[message_size+n-1]) {800801if(buf[2]==0xD0 && buf[3]==0x05 && Heater == VEVO) {startWebasto_OK = buf[7]; last_W_bus = millis();}// проверяем наличие пламени у VEVO802if(buf[2]==0xD0 && buf[3]==0x30 && buf[6]==0x10 && Heater == EVO) {startWebasto_OK = (bool)buf[7]; last_W_bus = millis();}// проверяем наличие пламени у EVO803804805}806807// если контрольная сумма не совпала:808809//else K_LINE.println("CRC fail!!!" );810811message_size = 0; header=0; RESETheader_timer=0; j=2; checksum = 0;812}813814815816817}// end EVO VEVO818819820elseif(Heater == TTC_E){821822823824825if(!timerInitflag && w_bus_init==1) {K_LINE.end(); pinMode (TX, OUTPUT); digitalWrite(TX, 0); timerInit = millis(); timerInitflag = 1;}826if( timerInitflag && (millis() - timerInit>299) && w_bus_init==1) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=2; }827if( timerInitflag && (millis() - timerInit>49) && w_bus_init==2) {timerInit = millis(); digitalWrite(TX, 0); w_bus_init=3; }828if( timerInitflag && (millis() - timerInit>24) && w_bus_init==3) {timerInit = millis(); digitalWrite(TX, 1); w_bus_init=4; }829if( timerInitflag && (millis() - timerInit>3024) && w_bus_init==4) {K_LINE.begin (10400); timerInitflag = 0; w_bus_init=10; sendMessage (START_SESSION);}830831if(K_LINE.available()){832833834// первый старт байт835if(header == 0 && Delay){TIMER_DELAY ; buf[0]=K_LINE.read();836if(!bitRead (buf[0],6) && bitRead (buf[0],7)){header = 1; RESETheader_timer=1; prevRESETheader = curmillis; }837838}839840// второй старт байт841if(header == 1 && Delay){TIMER_DELAY ; buf[1]=K_LINE.read();if(buf[1]==0xF1){ header = 2;}else{header = 0; RESETheader_timer=0;}}842843// третий старт байт844if(header == 2 && Delay){845TIMER_DELAY ;846buf[2]=K_LINE.read();847if(buf[2]==0x51){ message_size = buf[0];848if(buf[0] !=0x80) {header = 4; message_size&=~0x80; j=3; n=3;}849else{header = 3; j=4;n=4;}850if(message_size > bufsize) message_size = bufsize; checksum = 0;}else{header = 0; RESETheader_timer=0; }851852}853// если размер сообщения указан в дополнительном байте (нулевой байт 0x80) читаем этот дополнительный байт:854if(header == 3 && Delay){855TIMER_DELAY ;856buf[3]=K_LINE.read();857message_size = buf[3];858if(message_size > bufsize) message_size = bufsize;859checksum = 0; header = 4;860}861862// пишем тело сообщения863if(header == 4 && Delay && j< message_size+n+1) {864buf[j] = K_LINE.read();865if(j<message_size+n) checksum+= buf[j];// подсчёт КС866867if(j==message_size+n) header = 5;868TIMER_DELAY ; j++;}869870}// end of K_LINE.available()871872// сообщение приняли, действуем873if(header == 5) {TIMER_DELAY ;874875for(bytei = 0; i<n; i++) checksum+=buf[i];// прибавляем к контрольной сумме старт байты876877//for (byte i=0; i<message_size+n+1; i++) {Serial.print (buf[i], HEX); Serial.print(" ");}878879// если контрольная сумма верна:880if(buf[message_size+n] == checksum) {881882// if (buf[n]== 0xC1) Serial.println ("StartSession OK!!!");883884885886887}888889// если контрольная сумма не совпала:890//else Serial.println("CRC fail!!!" );891message_size = 0; header=0; RESETheader_timer=0; j=3; checksum = 0;892}893894}// end TTC_E895896// таймер ожидания байт (для успевания появления данных в буфере UART)897if(!Delay && curmillis - timerdelay > waitbyte_RX) Delay = 1;898899// таймер сброса заголовка если данные оборвались во время приёма заголовка900if(RESETheader_timer && curmillis - prevRESETheader > 500) {RESETheader_timer = 0; header = 0;}901902if(webasto && millis() - last_W_bus>30000) { startWebasto_OK=0;}903904905906}907908#ifndef debugW_bus909voidReset_gsm (){910if(millis()-prevReset>(unsignedlong)intervalReset*60000UL){911912digitalWrite (DTR, LOW); delay (150);913SIM800.println (F("AT"));914timerenabledWaitOK = 1; timerWaitOK = millis();915gsmOK =false;916prevReset = millis(); }917918if(timerenabledWaitOK && millis()-timerWaitOK>6000) {919timerenabledWaitOK = 0;920if(!gsmOK) {921SIM800.println (F("AT")); timerenabledWaitOK = 1; timerWaitOK = millis();922errors++;if(errors>4) errors = 4;923924}925}926927928if(!gsmOK) {929if(SIM800.available()>0){930charcurrSymb = SIM800.read();931#ifdef debugSIM800932K_LINE.print (currSymb);933#endif934if('\r'== currSymb) {935936if(!currStr.compareTo("OK")) { gsmOK =true; timerenabledWaitOK = 0; errors=0; digitalWrite (DTR, HIGH);}937currStr ="";938}939940elseif('\n'!= currSymb && currSymb!=0x13 && currSymb!=0x11) {currStr += String(currSymb);}}}941942943if(errors>=4) Reset();944945}946947948949950voidReset(){951952if(!resettimer) {digitalWrite (ResetGSM, RelayON); resettimer = 1; resetTimer = millis();}953elseif(millis()- resetTimer>6000 ) {954resettimer = 0;955errors=0;956ResetNumber++;957EEPROM.write (ResetNumber_cell, ResetNumber);958digitalWrite (ResetGSM, !RelayON);959delay (3500); NastroykaGSM ();}960}961962#endif963964965voidsendMessage(constsize_t size,constbyte*command){966967if(Heater == TTC_E){968constbytesiZe = size+4;969byteMes[siZe];970byteChecksum = 0;971for(bytei=0; i<siZe; i++) {972if(i==0) {Mes[i]=size; bitWrite(Mes[i], 7 , 1);}973if(i==1) Mes[i] = 0x51;974if(i==2) Mes[i] = 0xF1;975if(i==3) {for(bytet=0; t<size; t++ ) {Mes[i]=command[t]; Checksum+=Mes[i] ;K_LINE.write (Mes[i]); i++;}}976if(i!=siZe-1) Checksum+=Mes[i];977elseMes[i] = Checksum;978K_LINE.write (Mes[i]);979}980981}982elseif(Heater == EVO || Heater == VEVO){983constbytesiZe = size+3;984byteMes[siZe];985byteChecksum = 0;986for(bytei=0; i<siZe; i++) {987if(i==0) Mes[i] = 0xF4;988if(i==1) Mes[i]=size+1;989if(i==2) {for(bytet=0; t<size; t++ ) {Mes[i]=command[t]; Checksum^=Mes[i] ;K_LINE.write (Mes[i]); i++;}}990if(i!=siZe-1) Checksum^=Mes[i];991elseMes[i] = Checksum;992K_LINE.write (Mes[i]);993}994995}996}инструкция пользователя в последней инстанции
ардуино в стоке 12,2 мА
с отпаянным LED питания 10,9 мА
с отпаянным LED и стабом (диодом) 9,4мА
Вот замерил как положено от 12В. Считаю этот вопрос закрыт. 8,5 мА. Даже с 8 мгц ардуиной заморачиваться не стОит - дефицитная она в таком форм факторе. 8,5 мА - отличный показатель.
Потребление даже не очем . Если в машине оборудование тяниться до 250мА смотря еще как магнитола подключена и доп .
Уже переделал , не выдержала душа поэта.
фотку! Как успехи, господа собирающие девайс?
Печатку переделал , собираю на плату , выяснилось что нет у меня лм393 в дип корпусе и реле такого нет , надо покупать, в моем городе нет торгашей радиодеталями , вернее есть небольшие лавки , где всякой хренью торгуют . типо разъемов и пультов, а серьезные с выбором микросхем и транзисторов всяких только в Иркутске , а у нас сейчас морозы под 45 градусов , ехать туда только за одной микросхемой и реле обламываюсь 90 км до Иркутска. Может кто поедет на днях , закажу им. Еще вопрос , ардуину лучше впаять на плату или на разъемах делать, и если в скетче выствить получать данные от вебасто по W-Bus . то нужно ли городить датчик температуры на выхлоп? И нужно ли в скетче впсывать калибровку на измерение напряжения в борт сети и если нужно то в какую строку?
Lm393 найдёте легко, а вот такое реле даже в у нас в многочисленных радиомагазинах бывает сложно найти, поэтому не спеша ждал из китая (можно временно пока перемычку вместо реле запаять, ну не будет ресета GSM ничё страшного, это ж перестраховка на случай зависания). Ардуину обязательно на постельки (пинхидеры), иначе не прошьёте когда LM393 будет уже запаяна (кстати её тоже можно на постель). Да и вообще ардуина лучше чтоб вытаскивалась. Датчик на выхлоп можно не городить, но t ДВС лучше вывести. В случае, если не получится данные по w-bus вытянуть, датчик на выхлоп можете позже добавить (все датчики t подключаются паралелльно, поэтому подцепитесь к шине ДВС-ного датчика). Напряжение если вытянуть по в-бус, с калибровкой можно не заморачиваться.
Приехала комне webasto top v . Теперь думаю она лучше чем старенький Тор с ? . Просто неудержался по цене 100 уе за полный комплект . Сейчас к ТТ тесту подключу гляну чё оно там . Сегодня ещё две помпы ремонтировал , додумались пеной всю плату задули . На вид как монтажная пена , только плотная . Идея появилась как вслед раз ее розрушить , кварцевой лампой . Плату сотрудника попросил вытравить. Так как сам не успиваю и.
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
У меня сейчас на машине стоит top c , подключен через w-bus и к Ардуино , на ней только микросхема к-лине и 5 в кренка . И идёт один провод в салон на кнопку включает Ардуино и все . Жду пока мне плату вытравят и буду играться с котлом ево , сейчас ремонтируют помпу .
Я так понял что у вас другое управление сейчас стоит . не то которое здесь обсуждаем, и нет родного таймера ? Плату можно за час с утюгом и хлорным железом изготвить, я сам вообщето фоторезист предпочитаю , но для этого девайса за час Лутом плату сварганил, правда потом выяснилось что я ее не отзеркалил, но не сложно переделать. Сейчас занят распайкой деталей на плату , реле такого как нужно не нашел, так взял маленокое реле с автосигнализации старой и на спину его на плату приклеел и проводками подпаял. Тут еще идея возникла , если w-bus шина рабоатет , то как бы сделать что бы еще и ошибки по смс можно было считывать, было бы вообще сдорово , и скидывать их тоже можно , команды же известные , только бы памяти в ардуине хватило бы. Правда из меня прогарммер хреновый , еще чужой исходник смогу разобрать по коментариям. а сам еще не умею прогрммировать даже в ардуино . И еще вопрос по помпе, если вы ее разобрали , что там в нутри, почему она ометром звониться 10 килоом, по ходу там полевик какой стоит , который включает саму помпу , потому что если просто подать на нее 12 вольт .то она тоже работает, я это почему спрашиваю , по тому что оригинальная помпа на вебасто очень не прилично стоит , а аналогичтные подобные помпы , которые просто как элетромотор прозваниваются в несколько раз дешевле , но их вебасто не признает и выдает ошибку , я не думаю что там что то цифровое внутри , думаю что просто полевой транзистор с резистором в затворе, а по резистору вебасто опознает свой чужой.
Получается , если у меня котел TTEvo и я буду подключать по шине W-bus . то я могу кучу деталей не впаивать , те которые нужны для упавлением старыми котлами Е и С , и датчики температуры в салоне и на выхлопе мне не нужны , оставить только температуру двигателя и забортную , и получается можно родной овальный пульт не подключать?
под TTE/C никаких кучи деталей и нету. Так что лишнего не напаяешь)) датчики температуры все параллельно подключаются. Можно не подключать, которые не нужны. Температуру ДВС кстати, по идее , можно приравнять к температуре в котле, а её через в-бус считывать. Так что только забортная нужна.
Паша про TTC/E который у тебя это скорее исключение, чем правило, т.к. TTC у тебя штатный, поэтому имеет шину w-bus. А универсальные запускаются потенциалом плюс 12В и шина у них не W-bus, а просто K-line.
родной овальный пульт можно не подключать, если по шине решишь цепляться. т.к. этот овальный таймер и мой девайс, если одновременно включить, могут конфликтовать.
там стоит целая плата, которая из постоянного тока создает вращающееся магнитное поле. По сути эл. двигатель переменного тока получается (полость антифриза герметична никаких сальников нет, там ротор просто вал с магнитом). Читайте выше по теме. я выкладывал парт номер помпы bosch. Она как раз такая, и стОит не дорого, до 3 тыс. по-моему. Так стартвольт ещё какая то есть, тоже выше читайте.
Понятно про помпу , я ее не разбирал , и у меня она рабочая , это так на всякий случай. У меня на автомобиле стоит еще дополнительная помпа на печку от бош , и она гоняет антифриз когда двигатель работает и после выключения еще немного что бы небыло теплового удара. На крайний случай ее можно задействовать, только я не мерял ее сопротивление. А про лишние детали для моего котла . это я про оптроны , и их обвязку. и сигнализации старлайн у меня нет , есть сталкер 600 тый. А что вы думаете про функцию считывания ошибок , вроде не лишней будет, если не запускается котел И . то можно посмотреть причину , или это слишком сложно реализовать? При подключении к сигнализации еще бы не помешала функция автозаводки двигателя для подзарядки аккумулятора , если напряжение опасно просело , например в процессе прогрева котлом напряжение просело до опасного предела . но двигатель уже успел немного прогреться до приемлемого значения , тогда идет автозапуск двигателя и при включенном котле , с подзарядкой аккума. Но думаю что памяти уже не хватит на это .
Функцию чтения и сброса ошибок добавить можно. Но нужно оттестировать уже имеющийся функционал, а то если он не работает. Какой смысл добавлять что либо еще. И так в скетче уже трудно становится разбираться из за его размера. Подход то дилетантский у меня. Ниразу не программист.
Понятно, я только что допаял плату , собираюсь проверять , в какой строке в скетче прописываются адреса датчиков тепмпературы? и какой стартовый байт у котла TTEvo ? Вообще был хорошо расписать поподробней первоначальную настройку ?
Что то не работает , залил подготовителный скетч , залил основной , подал питание, отпраляю смс ZAPROS приходит уведомление что доставлено , и тишина , пробовал звонить на симку , идут длинные гудки. Светодиод на сим 800 мигает , на адруине горят оба светодиода . Что не так?
Ура заработало, просто сначало криво прошился скетч, эта промини такой плахой человек , кое как его уговарил прошиться :) . Может дело в моём адаптере он у меня на СР2102 , но скетч ни как не хотел заливаться в ардуину , пришлось зажимать рессет на ней а потом включать загрузку в плату , и то с 100500 раза прошло. Завтра попробую на машину установить. Еще вопрос, я еще датчики не прописывал в скетче , если я потом в скетч пропишу их адреса и залью в ардуину , то телефон не надо будет заного приписывать , он вроде в епроме сохраняется? Я правильно понимаю? И как изменить команду на запрос баланса , а то она не работает на мегафоне?
Да еепром не нужно больше прописывать. Там в коде старался довольно подробно все комментировать. Датчики даллас смотри вверху самом массив DS18B20 Левые 8 байт это адреса датчиков. На старт команда 20 , реже 21
Команда на запрос баланса. Строка 609 скетч#568. Далласы строка 108 и далее.
Две оптопары можно не запаивать и резисторы к ним. Но тот оптрон, который под ардуино, он нужен. Он считывает кнопку включения вебасто.
В стоке 609 нужно будет в место #100#\ поставить *100# ? Или обратный слеш тоже нужен? С далласами вроде сам разобрался но у меня их только 3 оставалось и те в виде обычных микросхем, нужно будет их в трубку упаковывать с термопастой.
вместо #100# ставишь *100# , оставльное оставляешь как есть. Далласы я тоже поначалу в виде микросхем брал. а сейчас иногда в колбах по 50р./шт. бывают если по одному заказывать . беру их, удобнее.
переделал на *100# , в ответ пришел какой то набор цыфр , что с этим делать ?
а #100# не работает чтоли? Набор цифар потому что на русском приходит, а надо на английском чтобы приходило. Узнай у оператора как сделать чтобы баланс на английском приходил
С чего бы сколхозить разъем , тобы был такой же как на родном овальном пульте вебасты, не охота резать или подпаивать , та так воткнул родной провод в устройство , и ни чего резать не надо , если не заработает по W-bus то обратно пультик воткнул и через подпайку управлять, и еще хочу кнопку на 3.5 джек вывести и на далласы тоже , что бы меньше соплей было , сигу не буду подцеплять , хотя может на автозапуск двигателя попробую в 600 сталкере есть вывод состояния для автозапуска.
У меня симка мегафон а у него запрос баланса *100# , а решетка сто решетка не работает почему то , просто ни чего не происходит , а на звездочка сто решетка приходит ответ в виде +CUSD: 0, "куча цифр и букв,
скрутками подматайся к проводам разъема вебасто и сделай свой разъем, который найти можно. И будет два разъема торчать - один для штатного таймера. второй для сего девайса.
говорю позвони оператору и узнай, что нужно сделать, чтобы баланс на латинице приходил.
Долбаный Мегафон у нас убрал услугу поговорить с девушкой из службы поддержки , посадили робота вместо девченок . надо в офис идти что бы с ними пообщаться. Как я понял нужно ставить кнопку с подсветкой светодиодной , эта подсветка какое нибудь еще занчение имеет кроме как электричестово жечь ? Ну типо статус работы вебасты , может это где и говорилось но я не понял , а так можно что бы блинки ошибок выдавала , есл что не так , типо как чек инжин .
лампа показывает включен котёл или нет . Кнопка то без фиксации. Хотел в будущем сделать, что если включили котёл и он НЕ запустился , то лампа будет быстро мигать. Типа незапуск. А ошибки нех по миганию считать, проще в смске их получить.
Ну да в хексе их считывать не удобно, но ошибки дело нужное , не всегда удобно , или есть возможность тащить в авто ноутбук со шнурком , сброс блокировок котла тоже бы не помешал, у меня было так когда устанавливал котел насос не дощелкнул . и вебаста в блокировку ушла , и сброс с помощью предохранителя не помогал, но не всегда и не у всех есть возможность ошибки считать, у нас в городе установщики котлов барыги конченные хотят за диагностику ( тупо подключить шнурок к котлу и считать ошибки) хотят 1000руб.
да не вопрос сделаем мы ошибки. нужен только лог где идет запрос ошибок и ответ котла без ошибок, а также ответ с ошибками (лучше 2 ошибки для анализа). ну и удаление.
в том контексте я имел ввиду не HEX про мигание, а не х..й )))
постараюсь сделать лог где без ошибок , к выходным а может и раньше , завтра сварганю корпус для устройсва , хочу его из металла сдеать из алюминия . У меня внешняя антена , думаю проблем не будет. Подключу пока без датчиков , если по шине будет работать , то и не буду заморачиватся пока с датчиками, один сделаю на внешнюю температуру.