Modbus TCP slave with LM

[SigmaTec]

Hi all,

I'm scripting a process to simulate power meters with luamodbus functions, and it works wery well when I read all my registers with ModbusPoll scanner. 

But using my script with a real Modbus master product, I have a lot of "connexion errors" (printed by the master).

@IP, port and slaveId are corrects...

Any idea about this ?

Thank's in advance.
All my best.

Dominique

[Daniel]

Which script do you use?

[SigmaTec]

Which script do you use?

Code:

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254

-------------------------------------------------------------------------------- -- Wiser For Knx : Modbus esclave TCP/IP -------------------------------------------------------------------------------- -- Simulateur de centrale de mesure pour EcoStruxure EV Charging Expert -------------------------------------------------------------------------------- -- -- Modèle : iEM3x5x pour Bornes de recharge PRO AC -- -------------------------------------------------------------------------------- -- v1.2 du 17/01/2023 - D.Barboyon -------------------------------------------------------------------------------- -- (c) Sigma Tec - 2023 -------------------------------------------------------------------------------- ------------- Paramétrage ------------------------------------------------------ idPort        = 503 -- No de port Modbus/TCP        - toujours >= 502 idSlave       = 3   -- No esclave Modbus/TCP        - toujours >= 2 PMname        = "iEM3155-B2"    -- nom du compteur - long <= 14 car -------------------------------------------------------------------------------- idGroup       = idPort-500        -- idGroup/slaveNum/x idSteMapping1 = 0 idSteMapping2 = 0 idSetMapping3 = 6502 idSteMapping4 = 6502 -- --------------------------------------------------------------------- -- Table des objets Wiser For Knx et registres associés -- --------------------------------------------------------------------- groupList = {   { addr = idGroup, datatype="string"       , name=PMname        ,reg=idPort    , unit=""    , tags="-"},   { addr = idGroup, datatype="uint16"          , name="I1"          ,reg="3000"    , unit="A"   , tags="modbus"},   { addr = idGroup, datatype="uint16"       , name="I2"           ,reg="3002"    , unit="A"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="I3"          ,reg="3004"    , unit="A"   , tags="modbus"},   { addr = idGroup, datatype="uint16"         , name="P1"           ,reg="3054"    , unit="kW"  , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="P2"          ,reg="3056"    , unit="kW"  , tags="modbus"},   { addr = idGroup, datatype="uint16"       , name="P3"           ,reg="3058"    , unit="kW"  , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="P"          ,reg="3060"    , unit="kW"  , tags="modbus"},   { addr = idGroup, datatype="uint32"       , name="ET"           ,reg="3204"    , unit="kWh" , tags="modbus"},   { addr = idGroup, datatype="bool"         , name="PH1"           ,reg="true"    , unit=""    , tags="-"},   { addr = idGroup, datatype="bool"         , name="PH2"           ,reg="true"    , unit=""    , tags="-"},   { addr = idGroup, datatype="bool"         , name="PH3"           ,reg="true"    , unit=""    , tags="-"},   { addr = idGroup, datatype="bool"         , name="BTN"           ,reg="true"    , unit=""    , tags="-"},   { addr = idGroup, datatype="unit16"        , name="CURSEUR"    ,reg="true"    , unit="A"   , tags="-"},   { addr = idGroup, datatype="bool"         , name="BTN MONO"    ,reg="false"    , unit=""    , tags="-"},   { addr = idGroup, datatype="bool"         , name="BTN TRI"     ,reg="true"    , unit=""    , tags="-"},   { addr = idGroup, datatype="string"        , name="TYPE MONO-TRI"  ,reg="TRI"    , unit=""    , tags="-"},   { addr = idGroup, datatype="bool"         , name="PHASE MONO"       ,reg="1"    , unit=""    , tags="-"},   { addr = idGroup, datatype="uint16"          , name="I Phase AVG"      ,reg="3010"    , unit="A"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="U Phase1"      ,reg="3028"    , unit="V"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="U Phase2"      ,reg="3030"    , unit="V"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="U Phase3"      ,reg="3032"    , unit="V"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="U AVG"      ,reg="3036"    , unit="V"   , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="P apparente"      ,reg="3076"    , unit="kVA" , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="Fact Pu"      ,reg="3084"    , unit=""    , tags="modbus"},   { addr = idGroup, datatype="uint16"          , name="Frequence"      ,reg="3110"    , unit="Hz"  , tags="modbus"},   { addr = idGroup, datatype="uint32"          , name="QT E"          ,reg="3220"    , unit="kVAR", tags="modbus"},   { addr = idGroup, datatype="uint16"       , name="QT P total"       ,reg="3068"    , unit="kVAR", tags="modbus"} }         -- Spécifique Pro AC : reg Modbus 6501 (uint16) = SlaveId obligatoire ------------------------------------------------------------------------ local proacSlaveReg = 6501 -- --------------------------------------------------------------------- -- Gestion de la création des objets Wiser For Knx -- --------------------------------------------------------------------- function ST_grpCreate(STdatatype,STgroup,STname,STcomment,STunits,STtag) ------------------------------------------------------------------------   grp.create({       datatype     = STdatatype,       address     = STgroup,       name         = STname,       comment     = STcomment,       units         = STunits,       tags         = { "EVCE", STname },     }) end -- Scan la table et crée les objets WFK si nécessaire ------------------------------------------------------------------------ for i, groupCurr in ipairs(groupList) do   STgroup = groupCurr.addr.."/"..idSlave.."/"..i     if i == 1 then   -- spécifique objet "nom de la centrale de mesure"     nomGroupe = groupCurr.reg.."#"..idSlave     valGroupe = groupCurr.name     objGroupe = STgroup      -- Update objet "nom de la centrale de mesure"     grp.write(objGroupe, valGroupe)       end     if grp.find(STgroup) then     --existe deja   else       -- crée le groupe     STdatatype       = groupCurr.datatype     STname           = nomGroupe.."-"..groupCurr.name     STcomment       = "-"     STunits           = groupCurr.unit     STtag           = groupCurr.tags     ST_grpCreate(STdatatype,STgroup,STname,STcomment,STunits,STtag)   end end -- ----------------------------------------------- -- Processus MaJ registres Modbus slave -- ----------------------------------------------- if not mb then   log("EVCE cyclic - Modbus #2 : starting mb")     require('luamodbus')   -->>>>>>>>>Modbus slave setting<<<<<<<<<<<<<<<<<<<<<<<<   -- Modbus TCP   ------------------------------------------------------   mb = luamodbus.tcp()   mb:open('0.0.0.0', idPort)   ------------------------------------------------------    -->>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<      -- slave id   mb:setslave(idSlave)     -- init slave storage for coils, discrete inputs, holding registers and input registers   mb:setmapping(idSetMapping3, idSetMapping2, idSetMapping3, idSetMapping4)     --*****************************************************   -- >>>>>>>>>>>Coil write callback<<<<<<<<<<<<<<<<<<<<<<   mb:setwritecoilcb(function(coil, value)         if coil == 0 then             grp.write('0/0/12', value, dt.bool)         else             alert('coil: %d = %s', coil, tostring(value))         end   end)   --*****************************************************   -->>>>>>>>>>>Register write callback<<<<<<<<<<<<<<<<<<<   mb:setwriteregistercb(function(register, value)         if register == 0 then             -- send value limited to 0..100             grp.write('0/0/13', math.min(100, value), dt.scale)         else             alert('register: %d = %d', register, value)         end   end)   --*****************************************************       -- spécifique Pro Ac ----------------   addRegister = proacSlaveReg    addRegister = addRegister -1   mb:setregisters(addRegister, idSlave)   -------------------------------------      log("EVCE cyclic - Modbus #2 : END OF starting mb")   end -- Scan la table et Maj des objets autres que Modbus slave ------------------------------------------------------------------------ for i, groupCurr in ipairs(groupList) do     dataType    = groupCurr.datatype     if dataType == "bool" and groupCurr.tags == "-" then        nomGroupe = groupCurr.addr.."/"..idSlave.."/"..i              if grp.find(nomGroupe) then          -- groupe existe         else        grp.write(nomGroupe, groupCurr.reg)           end           end       if dataType == "string" and groupCurr.tags == "-" and i > 1 then       nomGroupe        = groupCurr.addr.."/"..idSlave.."/"..i       if grp.find(nomGroupe) then         -- groupe existe        else       grp.write(nomGroupe, groupCurr.reg)          end        end   end -- Scan la table et MaJ registres Modbus slave ------------------------------------------------------------------------ -- addr = idGroup, datatype="uint16"  , name="I1" ,reg="3000" , unit="A" , tags="" for i, groupCurr in ipairs(groupList) do   addRegister = groupCurr.reg   dataTags    = groupCurr.tags   dataType    = groupCurr.datatype   nomGroupe   = groupCurr.addr.."/"..idSlave.."/"..i     -- valeur courante de l'objet WFK   value = grp.getvalue(nomGroupe)      if dataType == "uint16" and dataTags == "modbus" then         addRegister = addRegister -1     -- dt.float16, dt.float32, dt.int64, dt.int32     raw = knxdatatype.encode(value, dt.float32).dataraw      r1 = raw:byte(1) * 0x100 + raw:byte(2)     r2 = raw:byte(3) * 0x100 + raw:byte(4)              mb:setregisters(addRegister, r1, r2)              --mb:setregisters(addRegister,   r1)     --mb:setregisters(addRegister+1, r2)   end     if dataType == "uint32" and dataTags == "modbus" then     addRegister = addRegister -1        -- dt.float16, dt.float32, dt.int64, dt.int32     raw = knxdatatype.encode(value, dt.int64).dataraw      r1 = raw:byte(1) * 0x100 + raw:byte(2)     r2 = raw:byte(3) * 0x100 + raw:byte(4)     r3 = raw:byte(5) * 0x100 + raw:byte(6)     r4 = raw:byte(7) * 0x100 + raw:byte(8)     mb:setregisters(addRegister, r1, r2, r3, r4)         --mb:setregisters(addRegister,   r1)     --mb:setregisters(addRegister+1, r2)     --mb:setregisters(addRegister+2, r3)     --mb:setregisters(addRegister+3, r4)         end  end mb:handleslave()

[admin]

Consider using this script instead: https://forum.logicmachine.net/showthrea...6#pid27726
Your current script does a lot of busy polling via grp.getvalue after each slave step which can lead to timeouts.

[SigmaTec]

Consider using this script instead: https://forum.logicmachine.net/showthrea...6#pid27726
Your current script does a lot of busy polling via grp.getvalue after each slave step which can lead to timeouts.

It seemed to me that the problem was there. Thank you for this new version that I will try immediately.

Many thank's too for your help.
Dominique