Scrolling info on LCD

Hello,

My wish was to make more use of LCD and show some data of interest on it.  In particular I wanted to see CurrenCost and 1wire data, of course anything else "known" to HAH may be added.

Hopefully useful for someone else too, either in whole or partially ;)

Enjoy,
Aivo

---

runlcdApplet.lua, new plugboard format (some formatting - like tabs - is lost here, hopefully still well readable)

Edit: changed self:stop() to self:delete() on advice from Brett, no leakeage needed :)

---

require("xap")
module (...,package.seeall)
 
info = {version="1.0", description="Scrolling 1wire and CurrentCost data on lcd"}

lcdlen = 16
period = 2  -- scroll/shift speed in seconds
shift = 2  -- scroll/shift step in symbols
tarray = { } -- 1wire temperature data
parray = { } -- CC house/0 sensor data, phases 1 to 3
fill = "-"  -- Space does not work, gets trimmed
  
function init()
 ft = xap.Filter()
 ft:add("xap-header", "source", "dbzoo.livebox.Controller:1wire.*")
-- ft:add("xap-header", "class", "xAPBSC.info")
 ft:callback(catch1wire)
 fp = xap.Filter()
 fp:add("xap-header", "source", "dbzoo.livebox.CurrentCost:ch.*")
-- fp:add("xap-header", "class", "xAPBSC.info")
 fp:callback(catchCurrentCost)
 send2lcd("Scrolling LCD ..")
 xap.Timer(repeatlcd, 10):start()
end

function catch1wire()
 local source = xap.getValue("xap-header","source")
 local id = tonumber(source:sub(-1))
 tarray[id] = xap.getValue("input.state","displaytext")
end

function catchCurrentCost()
 local source = xap.getValue("xap-header","source")
 local id = tonumber(source:sub(-1))
 parray[id] = "P"..id.." "..xap.getValue("input.state","text")
end

-- Refresh infostring from t + p arrays and start new runlcd cycle
function repeatlcd(self)
 local arraylen = table.getn(tarray) + table.getn(parray)
 if arraylen > 0 then
  infostring = string.rep(fill, lcdlen) -- global
  for i,value in ipairs(tarray) do infostring = infostring.." "..value.." "..fill end
  for i,value in ipairs(parray) do infostring = infostring.." "..value.." "..fill end
  infostring = infostring..string.rep(fill, lcdlen - 1)
--  print(infostring)
  infostringlen = string.len(infostring) -- global
  startpos = 1  -- global
  endpos = lcdlen  -- global
  xap.Timer(runlcd, period):start()
  self:delete()
 end
end

-- Show lcdlen/16 wide window of infostring on lcd
function runlcd(self)
 lcdstring = string.sub(infostring, startpos, endpos)
-- print(infostringlen.."."..startpos.."."..endpos.."'"..lcdstring.."'")
 send2lcd(lcdstring)
 endpos = endpos + shift
 if endpos > infostringlen then
  xap.Timer(repeatlcd, period):start()
  self:delete()
 else
  startpos = startpos + shift
 end
end

function send2lcd(lcdstr)
 xap.sendShort(string.format([[xap-header
{
target=dbzoo.livebox.Controller:lcd
class=xAPBSC.cmd
}
output.state.1
{
id=*
state=on
text=%s
}]], lcdstr))
end