Lanbon L8 with HASPmota home automation center

[waltkind]

As there are not much samples of code for HASPmota in the net, it took me some time and help here to come as far to show the beginning of my home automation center. As home automation software I use FHEM.

First some screenshots:

The home sreen shows:

1. outside temperature
2. main light switch
3. shortcut to screens for shutters, garage, temperatures and lights
4. the values of the photovoltiac system with bar of battery filling with daily maximum value
5. state of some windows and doors

The next screen shows the state of the shutter automatic which can be toggled at different locations and the third screen allows to display fotos of the door camera.

The code I try to keep as small as possible.
The autoexec.be:

# simple `autoexec.be` to run HASPmota using the default `pages.jsonl`

import haspmota
haspmota.start()

# Schalte grünes Umlicht an
gpio.set_pwm(32, 200)

# Definiere Variable
load("variable.be")

import mqtt
load("mqtt.be")

variable.be:

# Definition der Variablen

var topic, st='subtopic', fo='format'

# Maps
#Rolladen

m1 = {"Sh_S_St":'p2b20', "Sh_S_Fr":'p2b30', "Sh_W_In":'p2b40', 
      "Sh_S_Wz":'p2b50', "Sh_W_Ez":'p2b60', 'Sh_S_KK':'p3b20', 'Sh_S_WK':'p3b30'}

m3 = {'on':0, 'off':1}

# Solar

m4 = {"Verbr":"p1b63", "Erz":"p1b65", "Exp":"p1b67", "Imp":"p1b69",
     "PV":"p1b61", "Batt":"p1b70"}

mqtt.be:

# Anzeige Solarwerte

def Sol(topic, idx, payload_s, payload_b)
  import string
  st = string.replace(topic, 'Solar/', '')
  if st != 'PV' && st != 'Verbr' && st != 'Batt' && st != 'Erz' && st != 'Exp' && st != 'Imp' && st != 'statBattDayMax'
    return
  end
  if st == 'PV' || st == 'Verbr' fo ='%5d W' end
  if st == 'Erz' || st == 'Exp' || st == 'Imp' fo ='%5.1f kWh' end
  if st == 'Batt' fo = 'Batterie: %5.1f %%'
    global.member(f'{m4[st]}').val = int(number(payload_s))
  end
  if st == 'statBattDayMax' p1b71.x = int(number(payload_s)*2.3+5)
    return
  end
  global.member(f'{m4[st]}').text = string.format(fo,payload_s)
  return true
end

# Aussentemperatur

def ATemp(topic, idx, payload_s, payload_b)
  import string
  p1b1.text =  string.format("%4.1f °C", payload_s)
  return true
end

# Rolladenautomatic

def RoZu(topic, idx, payload_s, payload_b)
  import string
  st = string.split(topic, '/')
  global.member(f'{m1[st.item(1)]}').val =  m3[payload_s]
  return true
end

def subscribes()
  import mqtt
  mqtt.subscribe("Solar/#", Sol)
  mqtt.subscribe("Thermometer/Garage", ATemp)
  mqtt.subscribe("Rolladen/+/ASC_Enable", RoZu)

end

tasmota.add_rule("MQTT#Connected=1", subscribes)

# Publish

tasmota.add_rule("hasp#?#val", / value, trigger, msg -> mqtt.publish('tasmota/lanbon_1/'+(global.member(msg['hasp'].keys()())).action, str(value)))

tasmota.add_rule("hasp#?#event=hold", / value, trigger, msg -> mqtt.publish('tasmota/lanbon_1/'+(global.member(msg['hasp'].keys()())).action, str(value)))
tasmota.add_rule("hasp#?#event=up", / value, trigger, msg -> mqtt.publish('tasmota/lanbon_1/'+(global.member(msg['hasp'].keys()())).action, str(value)))

and pages.jsonl:

{"page":0,"comment":"---------- Upper stat line ----------"}
{"id":0,"text_color":"#FFFFFF"}
{"id":11,"obj":"label","x":0,"y":0,"w":240,"pad_right":90,"h":22,"bg_color":"#1fa3ec","bg_opa":255,"radius":0,"border_side":0,"text":" HASPmota","text_font":"montserrat-20"}
{"id":15,"obj":"lv_wifi_arcs","x":150,"y":0,"w":29,"h":22,"radius":0,"border_side":0,"bg_color":"#000000","line_color":"#FFFFFF"}
{"id":16,"obj":"lv_clock","x":180,"y":3,"w":55,"h":16,"radius":0,"border_side":0}

{"comment":"---------- Bottom buttons - prev/home/next ----------"}
{"id":101,"obj":"btn","x":0,"y":295,"w":80,"h":25,"action":"prev","bg_color":"#1fa3ec","radius":10,"border_side":1,"text":"\uF053","text_font":"montserrat-20"}
{"id":102,"obj":"btn","x":80,"y":295,"w":80,"h":25,"action":"back","bg_color":"#1fa3ec","radius":10,"border_side":1,"text":"\uF015","text_font":"montserrat-20"}
{"id":103,"obj":"btn","x":160,"y":295,"w":80,"h":25,"action":"next","bg_color":"#1fa3ec","radius":10,"border_side":1,"text":"\uF054","text_font":"montserrat-20"}


{"page":1,"comment":"---------- Page 1 ----------"}

{"id":0,"bg_color":"#0000A0","bg_grad_color":"#000000","bg_grad_dir":1,"text_color":"#FFFFFF"}

{"comment":"---------- Aussentemperatur ----------"}
{"id":1,"obj":"label","x":0,"y":30,"w":240,"h":30,"text":"","align":"center","text_font":"montserrat-28"}

{"comment":"---------- Icons ----------"}
{"id":10,"obj":"btn","x":5,"y":70,"w":50,"h":48,"bg_color":"#1fa3ec","action":"p3","comment":"--- Rolladen ---"}
{"id":11,"obj":"img","x":5,"y":70,"w":50,"h":50,"src":"A:/icons8-jalousie-50.png"}

{"id":20,"obj":"btn","x":70,"y":70,"w":100,"h":100,"bg_color00":"yellow","action":"LampEZ","comment":"--- Licht Esszimmer ---"}
{"id":21,"obj":"img","x":70,"y":70,"w":100,"h":100,"src":"A:/icons8-licht-an-100.png"}

{"id":30,"obj":"btn","x":185,"y":70,"w":50,"h":48,"bg_color":"#1fa3ec","action":"p2","comment":"--- Garagentor ---"}
{"id":31,"obj":"img","x":190,"y":75,"w":40,"h":40,"src":"A:/icons8-garagentor-teilweise-geöffnet-40.png"}


{"id":40,"obj":"btn","x":5,"y":122,"w":50,"h":48,"bg_color":"#1fa3ec","action":"Temp"}
{"id":41,"obj":"img","x":14,"y":130,"w":32,"h":32,"src":"A:/icons8-thermometer-32.png"}

{"id":50,"obj":"btn","x":185,"y":122,"w":50,"h":48,"bg_color":"#1fa3ec","action":"Light","comment":"--- Lichter ---"}
{"id":51,"obj":"img","x":198,"y":135,"w":24,"h":24,"src":"A:/icons8-licht-an-24.png"}

{"comment":"---------- Photovoltaik ----------"}
{"id":60,"obj":"label","x":5,"y":175,"w":115,"h":20,"text":"PV-Anlage:","align":"left","text_font":"montserrat-20"}
{"id":61,"obj":"label","x":120,"y":175,"w":115,"h":20,"text":"","align":"right","text_font":"montserrat-20"}
{"id":62,"obj":"label","x":5,"y":200,"w":58,"h":15,"text":"Verbrauch:","align":"left","text_font":"montserrat-10"}
{"id":63,"obj":"label","x":60,"y":200,"w":50,"h":15,"text":"","align":"right","text_font":"montserrat-10"}
{"id":64,"obj":"label","x":5,"y":215,"w":55,"h":15,"text":"Erzeugt:","align":"left","text_font":"montserrat-10"}
{"id":65,"obj":"label","x":60,"y":215,"w":50,"h":15,"text":"","align":"right","text_font":"montserrat-10"}
{"id":66,"obj":"label","x":120,"y":200,"w":60,"h":15,"text":"Export:","align":"left","text_font":"montserrat-10"}
{"id":67,"obj":"label","x":180,"y":200,"w":50,"h":15,"text":"","align":"right","text_font":"montserrat-10"}
{"id":68,"obj":"label","x":120,"y":215,"w":60,"h":15,"text":"Import:","align":"left","text_font":"montserrat-10"}
{"id":69,"obj":"label","x":180,"y":215,"w":50,"h":15,"text":"","align":"right","text_font":"montserrat-10"}
{"id":70,"obj":"bar","x":5,"y":233,"w":230,"h":20,"bg_color":"green","bg_color10":"lime","bg_opa":255,"val":0,"text":"Batterie:","align":"center","text_color":"#000000","text_font":"montserrat-14"}
{"id":71,"obj":"obj","x":0,"y":230,"w":3,"h":26,"bg_color":"red","bg_opa":255,"border_width":0,"comment":"--- Tagesmaximalwert ---"}

{"comment":"---------- Fenster-, Türstatus ----------"}
{"id":80,"obj":"btn","x":23,"y":260,"w":20,"h":20,"radius":10,"bg_color":"lime"}
{"id":81,"obj":"label","x":0,"y":280,"w":60,"h":10,"text":"EW-Fenster","align":"center","text_font":"montserrat-10"}
{"id":90,"obj":"label","x":60,"y":280,"w":60,"h":10,"text":"EW-Tuer","align":"center","text_font":"montserrat-10"}
{"id":91,"obj":"btn","x":83,"y":260,"w":20,"h":20,"radius":10,"bg_color":"yellow","bg_opa":255}
{"id":100,"obj":"label","x":120,"y":280,"w":60,"h":10,"text":"Waschk.","align":"center","text_font":"montserrat-10"}
{"id":101,"obj":"btn","x":143,"y":260,"w":20,"h":20,"radius":10,"bg_color":"yellow"}
{"id":110,"obj":"label","x":180,"y":280,"w":60,"h":10,"text":"Klofenster","align":"center","text_font":"montserrat-10"}
{"id":111,"obj":"btn","x":203,"y":260,"w":20,"h":20,"radius":10,"bg_color":"red","click":1}


{"page":2,"comment":"---------- Page 2 ----------Rolladenautomatik"}

{"id":0,"bg_color":"#0000A0","bg_grad_color":"#000000","bg_grad_dir":1,"text_color":"#FFFFFF"}

{"id":10,"obj":"label","x":5,"y":30,"w":235,"h":20,"text":"Rolladen Automatik","align":"left","text_font":"montserrat-20"}
{"id":11,"obj":"label","x":5,"y":55,"w":235,"h":20,"text":"An - Aus","align":"left","text_font":"montserrat-14"}

{"id":20,"obj":"switch","x":2,"y":80,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_S_St"}
{"id":21,"obj":"label","x":90,"y":82,"w":100,"h":25,"text":"Studio","align":"left","text_font":"montserrat-20"}

{"id":30,"obj":"switch","x":2,"y":123,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_S_Fr"}
{"id":31,"obj":"label","x":90,"y":125,"w":100,"h":25,"text":"Frank","align":"left","text_font":"montserrat-20"}

{"id":40,"obj":"switch","x":2,"y":166,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_W_In"}
{"id":41,"obj":"label","x":90,"y":168,"w":100,"h":25,"text":"Ina","align":"left","text_font":"montserrat-20"}

{"id":50,"obj":"switch","x":2,"y":209,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_S_Wz"}
{"id":51,"obj":"label","x":90,"y":211,"w":140,"h":25,"text":"Wohnzimmer","align":"left","text_font":"montserrat-20"}

{"id":60,"obj":"switch","x":2,"y":252,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_W_Ez"}
{"id":61,"obj":"label","x":90,"y":254,"w":140,"h":25,"text":"Esszimmer","align":"left","text_font":"montserrat-20"}


{"page":3,"comment":"---------- Page 3 ----------"}

{"id":0,"bg_color":"#0000A0","bg_grad_color":"#000000","bg_grad_dir":1,"text_color":"#FFFFFF"}

{"id":10,"obj":"label","x":5,"y":30,"w":235,"h":20,"text":"Rolladen Automatik","align":"left","text_font":"montserrat-20"}
{"id":11,"obj":"label","x":5,"y":55,"w":235,"h":20,"text":"An - Aus","align":"left","text_font":"montserrat-14"}

{"id":20,"obj":"switch","x":2,"y":80,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_S_KK"}
{"id":21,"obj":"label","x":90,"y":82,"w":100,"h":25,"text":"Karin","align":"left","text_font":"montserrat-20"}

{"id":30,"obj":"switch","x":2,"y":123,"w":65,"h":25,"bg_color":"lime","bg_color11":"red","action":"Sh_S_WK"}
{"id":31,"obj":"label","x":90,"y":125,"w":100,"h":25,"text":"Walter","align":"left","text_font":"montserrat-20"}


{"page":4,"comment":"---------- Page 4 ----------"}
{"id":1,"obj":"img","x":0,"y":70,"w":240,"h":180,"src":"A:/DoorCam_snapshot-32.png"}

It is a long post now and I have not yet explained the code, but I would be happy to answer questions as good I can.

I am far from finishing yet, but i see the systen getting slow and when I added an additional page the system hung up. Looking for a solution. The file system shows enough free storage.

[sfromis]

Nice! 😄

For examples, it can also be useful to search for openHASP and JSONL, as HASPmota is "heavily inspired" by the latter. Should be compatible, at least mostly. Obviously, this does not showcase what you can do with Berry code, and the Tasmota extensions with rule patterns and formatting.

[s-hadinger]

Super nice!!! We should maybe open a "show your project" section for code sharing.

[waltkind]

I think 'Show and tell' is this section.