Feo
New member
Доброго дня!
Простейший скрипт 3 файлика.
Опрос 2х датчиков DHT22 и трех 18b20 (в дальнейшем хотелось бы нарастить до 20).
Работает некоторое время и валится с ошибкой "Нехватка памяти" - скрин №1
Перезагрузка модуля не помогает появляется ошибка со скрина №2
Программа таже, ничего не менялось, но с ребута снова не стартует.
Листинги
Писатель на LUA я начинающий, уверен что что-то очевидное, но уперся и никак.
Простейший скрипт 3 файлика.
Опрос 2х датчиков DHT22 и трех 18b20 (в дальнейшем хотелось бы нарастить до 20).
Работает некоторое время и валится с ошибкой "Нехватка памяти" - скрин №1
Перезагрузка модуля не помогает появляется ошибка со скрина №2
Программа таже, ничего не менялось, но с ребута снова не стартует.
Листинги
Код:
WIFI_SSID = "feo"
WIFI_PASS = "********"
MQTT_BrokerIP = "192.168.0.106"
MQTT_BrokerPort = 1883
MQTT_ClientID = "esp-001"
MQTT_Client_user = "user"
MQTT_Client_password = "password"
DHT_PIN = 7 -- задаем пин первого датчика влажности
DHT_PIN2 = 5 -- задаем пин первого датчика влажности
wifi.setmode(wifi.STATION)
wifi.sta.config(WIFI_SSID, WIFI_PASS)
wifi.sta.connect()
local wifi_status_old = 0
tmr.alarm(0, 5000, 1, function()
print("tmr0 "..wifi_status_old.." "..wifi.sta.status())
if wifi.sta.status() == 5 then -- подключение есть
if wifi_status_old ~= 5 then -- Произошло подключение к Wifi, IP получен
print(wifi.sta.getip())
m = mqtt.Client(MQTT_ClientID, 120, MQTT_Client_user, MQTT_Client_password)
-- Определяем обработчики событий от клиента MQTT
m:on("connect", function(client) print ("connected") end)
m:on("offline", function(client)
tmr.stop(1)
print ("offline")
end)
m:on("message", function(client, topic, data)
print(topic .. ":" )
if data ~= nil then
print(data)
end
end)
m:connect(MQTT_BrokerIP, MQTT_BrokerPort, 0, 1, function(conn)
print("connected")
-- Подписываемся на топики если нужно
--m:subscribe("/var/#",0, function(conn)
--end)
tmr.alarm(1, 30000, 1, function()
-- Выводим результат работы модуля ds18Init
local ds18 = dofile('ds18Init.lua')(6) -- датчики на пине 6 в количестве 3 штук
ds18=nil
-- выводим результат измерения температуры
local ds19 = dofile('ds18run.lua')(6) -- датчики на пине 6 в количестве 3 штук
ds19=nil
-- print (temp)
-- ds18_count=#DS18_ADDR
--print(#DS18_ADDR)
for i=1,3 do
local adr=DS18_ADDR[i]
print("№ ",i," ADRR= ",adr:byte(1,8))
print(" Temperature= ",temp[i])
m:publish("/ESP/DS18_"..i.."/TEMP",temp[i], 0, 0, function(conn) print("sent temp") end)
m:publish("/ESP/DS18_ADR_"..i.."/ADR", adr:byte(1)..adr:byte(2)..adr:byte(3)..adr:byte(4)..adr:byte(5)..
adr:byte(6)..adr:byte(7)..adr:byte(8), 0, 0, function(conn) print("sent adr") end)
end
-- Делаем измерения с первого датчика влажности, публикуем их на брокере
local status,temp,humi,temp_decimal,humi_decimal = dht.read(DHT_PIN)
if (status == dht.OK) then
print("Temp: "..temp.." C")
print("Hum: "..humi.." %")
m:publish("/ESP/DHT/TEMP", temp, 0, 0, function(conn) print("sent") end)
m:publish("/ESP/DHT/HUM", humi, 0, 0, function(conn) print("sent") end)
end
-- Делаем измерения с первого датчика влажности, публикуем их на брокере
local status,temp,humi,temp_decimal,humi_decimal = dht.read(DHT_PIN2)
if (status == dht.OK) then
print("Temp2: "..temp.." C")
print("Hum2: "..humi.." %")
m:publish("/ESP/DHT2/TEMP", temp, 0, 0, function(conn) print("sent") end)
m:publish("/ESP/DHT2/HUM", humi, 0, 0, function(conn) print("sent") end)
end
end)
end)
else
-- подключение есть и не разрывалось, ничего не делаем
end
else
print("Reconnect "..wifi_status_old.." "..wifi.sta.status())
tmr.stop(1)
wifi.sta.connect()
end
-- Запоминаем состояние подключения к Wifi для следующего такта таймера
wifi_status_old = wifi.sta.status()
end)
Код:
local M
do
local function addrs(pin)
local addr
ow.setup(pin)
DS18_ADDR = {}
ow.reset_search(pin)
local count = 0
local N=0
repeat
count = count + 1
addr = ow.search(pin)
tmr.wdclr()
if(addr ~= nil) then
local crc = ow.crc8(string.sub(addr,1,7))
if crc == addr:byte(8) then
if (addr:byte(1) == 0x10) or (addr:byte(1) == 0x28) then
table.insert(DS18_ADDR, addr)
print('ADDR ADD',N,addr:byte(1,8))
N=N+1
end
end
--- print('ADDR N')
end
tmr.wdclr()
until ((count > 3) )
end
M=addrs
end
return M
Код:
local M
--dofile("ds18Init.lua")
do
local function run(pin)
temp = {0,0}
if not DS18_ADDR then print('DS18_ADDR is null') return end
if not ow then return end
local j=1
-- print('DS18_ADDR I',i, DS18_ADDR[i])
ow.setup(pin)
while (DS18_ADDR[j] and DS18_START) do
local addr=DS18_ADDR[j];
local present = ow.reset(pin)
ow.write(pin,0x55,1)
local i
for i=1,8 do
ow.write(pin,addr:byte(i),1)
end
ow.write(pin,0xBE,1)
-- print("P="..present)
local data = nil
data = string.char(ow.read(pin))
for i = 1, 8 do
data = data .. string.char(ow.read(pin))
tmr.wdclr()
end
local crc = ow.crc8(string.sub(data,1,8))
-- print("CRC="..crc)
if (crc == data:byte(9)) then
local t = (data:byte(1) + data:byte(2) * 256)
if (t > 32767) then
t = t - 65536
end
t = (t * 625)/100
-- Сохраняем значение температуры в глобальной переменной
--table.insert(temp, t)
temp[j]=t
--if LOG then
-- print(j,"Teeemperature="..(t / 100))
--end
-- ListTime[ind+j]={time=tmr.time(), data=t}
end
tmr.wdclr()
j=j+1
end
DS18_START=1
ow.reset(pin)
ow.write(pin,0xCC,1)
ow.write(pin, 0x44, 1)
tmr.wdclr()
ow.depower (pin)
end
M=run
end
return MПисатель на LUA я начинающий, уверен что что-то очевидное, но уперся и никак.
