Тензод200 — различия между версиями

function createDevices () -- функция создания регистров 
  addDevice({name = "H", base = 16}); -- в документации регистры в шестнадацтиричной системе 
end

local errorCount = 0; -- error counter
local request_str = "#{ADDR}0 RM 8198 8 $0{CRC}\r\n" -- шаблон строки, длина всегда 8, меняем только адрес и контрольную сумму


function readRegister (reg, device, unitId) --ФУНКЦИЯ ЧТЕНИЯ
    --  адрес в сети подставить из переданного параметра unitId
    adr_char = string.char( tonumber(unitId .. "",16) ) ; 
    request_str = string.gsub(request_str, "#{ADDR}", "#" .. adr_char, 1);
    
    -- вычислить контрольную сумму, c 2 по 14 символы 
    local crc_2 =0;
    for j=2, 14 do
        crc_2 = crc_2 + request_str:byte(j); -- посчитать к. сумму, она зависит от адреса
        j = j + 1;
    end
    
    crc_str_to = string.format("%X",crc_2); -- преобразовать в число 16-ое в виде строки 
    request_str = string.gsub(request_str, "{CRC}", crc_str_to); -- вставить контрольную сумму в строку 

    local res = sendString(request_str); --  отправка запроса 
    if (res == false) then
        DEBUG("Can't send bytes");
        return false;
    end
   
    local response = readString(48); -- прием ответа
    if (response == false) then
       ERROR("Can't read response") ;
       return false;
    end
    if (#response < 48) then 
       ERROR("packet shorter " .. tostring(#response)) ;
       return false;
    end
   
    -- посчитать контрольную сумму 4..40 
    local crc_3= 0;
    for j=4, 40 do
        crc_3 = crc_3 + response:byte(j); 
        j = j + 1;
    end
    
    crc_str_reply = string.format("%X",crc_3); -- получить ее в виде строки 
   
    -- взять к. сумму из ответа
    __,__,res_crc = string.find(response,"($0%w%w%w)"); 
    
    res_crc = string.sub (res_crc,3); -- последние 3 цифры
    
    -- обработка ошибки к. суммы 
    if (res_crc ~= crc_str_reply) then
        errorCount = errorCount + 1;
        if (errorCount > 3) then
          closeConnection();
          errorCount = 0;
        end
       DEBUG("Wrong CRC. " .. res_crc .. " vs " .. crc_str_reply);
       return false;
    end
   
    local result_start_i, res_end_i = string.find(response," 8 ");  -- найти позицию "8" чтобы взять ближайшие к ней цифры с значением 
    local result_sub = string.sub(response, res_end_i, res_end_i+11); -- взять значения 
    local result_sign = string.sub(response, res_end_i+22, res_end_i+23); -- взять знак числа 
       
    -- найти пары чисел с пробелами используя свойство ф. sring.find "захвата" нескольких значений с помощью ()  
    local p1,p2,p3,p4 = "","","","";
    __,__, p1,p2,p3,p4 = string.find(result_sub,"( %d%d)( %d%d)( %d%d)( %d%d)"); 
      
    result_sub = p4..p3..p2..p1;  -- перевернуть строку 
    result_sub = string.gsub(result_sub, " ",""); -- убрать пробелы 
    
    local value_out = tonumber(result_sub); -- преобр. в число
   
    if (result_sign == "80") then  -- вернуть из функции полученное число со знаком
        value_out = (0 - value_out) ;
    end
    
    return value_out; -- возвращение результата 
end

function writeRegister ()
  -- Add your code here
  return false;
end