Code: Alles auswählen
------------------------------------------------------------------------
-- Test, Messwert in ein Segment senden, für Module vor 17er Firmware
-- Per Reglerrechnung in einen LCN Regler einfügen
-- Anzeige &M090254.RV00999
-- Wenn Sonne Süd kleiner 1kLux ist, wird der Helligkeitswert der Elner übertragen.
-- Die Werte werden als LCN-GBL umgerechnet, um die LUX Anzeige vom LCN nutzen zu können. (Lux, I-Anschluss)
tvar_ = use 'MODBUS.int.Elsner.helligkeit'
tvar_sued_ = use 'MODBUS.int.Elsner.sonne.sued'
r2var_ = use 'MODBUS.int.Elsner.templcn'
function Lux_senden()
local hb,lb,s_wert,lux2 = 0,0,0,0
-- in Segment 90,tvar
-- in GBL Lux
lux2=tvar_sued_.value*1000
lux2=math.log(lux2)
lux2=lux2*100
lux2=math.floor(lux2)
if tvar_sued_.value == 0 then -- Wenn Sued grösser 1, wird der Wert in Lux umgerechnet.
lux2=tvar_.value
lux2=math.log(lux2)
lux2=lux2*100
lux2=math.floor(lux2)
end
hb = lux2/256
hb = math.modf(hb) --high Byte
hb = hb+32 -- in TVAR senden 32=tvar,64=r1var,96=r2var
lb = math.mod(lux2,256) --lowByte
hb = string.format("%x",hb )
laenge = string.len (hb)
if laenge == 1 then
hb = ("0" .. hb)
end
lb = string.format("%x",lb )
laenge = string.len (lb)
if laenge == 1 then
lb = ("0" .. lb)
end
s_wert =("28" .. hb .. lb)
command ("C.LCN.generic.90g4=" .. s_wert)
-- Aussentemperatur in Segment 91 tvar
hb = r2var_.value/256
hb = math.modf(hb) --high Byte
hb = hb+96 -- in R2Var senden
hb = string.format("%x",hb )
laenge = string.len (hb)
if laenge == 1 then
hb = ("0" .. hb)
end
lb = math.mod(r2var.value_,256) --lowByte
lb = string.format("%x",lb )
laenge = string.len (lb)
if laenge == 1 then
lb = ("0" .. lb)
end
s_wert =("28" .. hb .. lb)
command ("C.LCN.generic.91g4=" .. s_wert)
end
--------------------------------------------------------------