Тензод200

Работа WebHMI с тензометрическим контроллером Тензод200 легко реализуется благодаря возможности использования пользовательских протоколов на встроенном языке скриптов.

Прибор ТЕНЗОД200 имеет открытый символьный протокол с адресацией устройств в сети, имеет несколько режимов работы со встроенными портами RS-232/485/ИРПС, такими как выдача результатов измерения в порт (режим терминала), режим печати и др. Для опроса устройства по RS-485 необходимо отключить в приборе функции выдачи в порт данных (параметр 8026). Основные настройки прибора приведены ниже:

• 8028 = 83, разрешить чтение и запись, не отвечать на запрос ошибки
• 8029 = 96..11 скорость обмена [9600 - 115200] по первым 2-м цифрам скорости
• 802А = адрес прибора в сети
• 8001 = положение 10-й точки в результате
• 8036 = 21, подсвечивать прием / отправку пакетов светодиодами (для наладки связи )
• 8026 = 00 не выводить в порт данные в режиме терминала
• 8198 = начальный адрес регистров с данными, рекомендуется вычитывать 8 байт, последний байт с адресом 819F содержит знак числа (80 - для отрицательного
• количество бит 8, 2 стоповых бита, без четности
• в некоторых версиях прибора могут меняться местами линии А (Data-) и В (Data+)

Ответ прибора с адресом 41h (в запросе используется символ "А") < >< ># 0A WM 8198 8 45 23 01 00 00 00 00 80 $06BE<CR><LF> < > - лидирующие пробелы , <CR><LF> - символы возврата каретки и перевода строки.
Пример функций поддержки протокола ТЕНЗОД200 на языке Lua:

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