Visala Test, Lua - rextester

Visala Test

local send='0R0\r\n';
err,buf,len =  server.SendAndReceiveData('\r\n',2,0);
err,buf,len =  server.SendAndReceiveData(send,5,50);

if buf==nil then buf=0 end;

len=string.len(buf)
    
x,y=pcall(function()
    BEGIN=string.find(buf,"Ta=")+3;
    END=string.find(buf,"C",BEGIN)-1;
    temp=string.sub(buf,BEGIN,END);
        end)
if x==false 
    then server.WriteTag("Turnkey.Vaisala.Temp",0,OPC_QUALITY_BAD)
    else server.WriteTag("Turnkey.Vaisala.Temp",temp,OPC_QUALITY_GOOD)
    end;
    
x,y=pcall(function()
    BEGIN=string.find(buf,"Sm=")+3;
    END=string.find(buf,"M",BEGIN)-1;
    vinds=string.sub(buf,BEGIN,END);
        end)
if x==false 
    then server.WriteTag("Turnkey.Vaisala.Vind_sp",0,OPC_QUALITY_BAD)
    else server.WriteTag("Turnkey.Vaisala.Vind_sp",vinds,OPC_QUALITY_GOOD)
    end;
    
x,y=pcall(function()
    BEGIN=string.find(buf,"Dm=")+3;
    END=string.find(buf,"D",BEGIN)-1;
    vindd=string.sub(buf,BEGIN,END);
        end)
if x==false 
    then server.WriteTag("Turnkey.Vaisala.Vind_dir",0,OPC_QUALITY_BAD)
    else server.WriteTag("Turnkey.Vaisala.Vind_dir",vindd,OPC_QUALITY_GOOD)
    end;
    
x,y=pcall(function()
    BEGIN=string.find(buf,"Rc=")+3;
    END=string.find(buf,"M",BEGIN)-1;
    fall=string.sub(buf,BEGIN,END);
        end)
if x==false 
    then server.WriteTag("Turnkey.Vaisala.Fall_dif",0,OPC_QUALITY_BAD)
    else server.WriteTag("Turnkey.Vaisala.Fall_dif",fall,OPC_QUALITY_GOOD)
    end;


run \| edit \| history \| help	0