id path BaseProMon BaseHauptordner BasePath BaseProTag BaseIntern Base-kWh-DP Heute IDTemp HeuteMon IDTempMon IDheute IDMon Wert-BasekWh Wert-Temp NeuTempMon WertTempMon NeuHeuteMon NeuTemp 2-IDheute IDletzterMon IDgestern NeuHeute 2-IDheuteMon 2-IDletzterMon IDlastUpdateLokal 2-IDgestern IDlastUpdateObjekt Stromverbrauch BASIC Blockly Stand: 11.10.2023 http://kopacz.de/blockly/Stromverbrauch/ SETTINGS: !!! Hauptordner DP - MUSS vorhanden sein: BasePath 0_userdata.0.Stromverbrauch !!! kWh Haupt Datenpunkt zum lesen - MUSS vorhanden sein: Base-kWh-DP 0_userdata.0.Stromverbrauch.kWh_Total CheckDP DQpOYW1lID0gaWQ7DQoNCg0KDQppZighZXhpc3RzT2JqZWN0KE5hbWUpKSB7IA0KICAgIHJldHVybiAwOw0KfWVsc2V7DQogICAgcmV0dXJuIDE7DQp9DQo= Beschreibe diese Funktion … CreateDP DQpOYW1lID0gaWQ7DQpQYXRoID0gcGF0aDsNCg0KY29uc3Qgb2JqID0gew0KICAgIHR5cGU6ICdzdGF0ZScsDQogICAgbmFtZTogTmFtZSwNCiAgICBuYXRpdmU6IHt9LA0KICAgIA0KICAgICJjb21tb24iOiB7DQogICAgIm5hbWUiOiBOYW1lLA0KICAgICJkZXNjIjogIlZvbiBCbG9ja2x5IGVyemV1Z3QiLA0KICAgICJyb2xlIjogInN0YXRlIiwNCiAgICAidHlwZSI6ICJudW1iZXIiLA0KICAgICJyZWFkIjogdHJ1ZSwNCiAgICAid3JpdGUiOiB0cnVlLA0KICAgICJkZWYiOiAwLA0KICAgICAgfQ0KfQ0KDQppZighZXhpc3RzT2JqZWN0KFBhdGggKyAiLiIgKyBOYW1lKSkgeyANCiAgICBzZXRPYmplY3QoUGF0aCArICIuIiArIE5hbWUsIG9iaik7IA0KICAgIHJldHVybiAxOw0KfWVsc2V7DQogICAgcmV0dXJuIDA7DQp9DQo= Beschreibe diese Funktion … CreateFolder DQpOYW1lID0gaWQ7DQpQYXRoID0gcGF0aDsNCg0KY29uc3Qgb2JqID0gew0KICAgIHR5cGU6ICdmb2xkZXInLA0KICAgIG5hbWU6IE5hbWUsDQogICAgDQogICAgImNvbW1vbiI6IHsNCiAgICAibmFtZSI6IE5hbWUsDQogICB9DQp9DQoNCmlmKCFleGlzdHNPYmplY3QoUGF0aCArICIuIiArIE5hbWUpKSBzZXRPYmplY3QoUGF0aCArICIuIiArIE5hbWUsIG9iaik7DQpyZXR1cm4gMDs= Beschreibe diese Funktion … CreateString TmFtZSA9IGlkOw0KUGF0aCA9IHBhdGg7DQoNCmNvbnN0IG9iaiA9IHsNCiAgICB0eXBlOiAnc3RhdGUnLA0KICAgIG5hbWU6IE5hbWUsDQogICAgbmF0aXZlOiB7fSwNCiAgICANCiAgICAiY29tbW9uIjogew0KICAgICJuYW1lIjogTmFtZSwNCiAgICAiZGVzYyI6ICJWb24gQmxvY2tseSBlcnpldWd0IiwNCiAgICAicm9sZSI6ICJzdGF0ZSIsDQogICAgInR5cGUiOiAic3RyaW5nIiwNCiAgICAicmVhZCI6IHRydWUsDQogICAgIndyaXRlIjogdHJ1ZSwNCiAgICAiZGVmIjogIiIsDQogICAgICB9DQp9DQoNCmlmKCFleGlzdHNPYmplY3QoUGF0aCArICIuIiArIE5hbWUpKSB7IA0KICAgIHNldE9iamVjdChQYXRoICsgIi4iICsgTmFtZSwgb2JqKTsgDQogICAgcmV0dXJuIDE7DQp9ZWxzZXsNCiAgICByZXR1cm4gMDsNCn0NCg== Beschreibe diese Funktion … --------ab hier Finger weg! ;)------------------------------ BaseHauptordner kWh-Blockly log --- startup: Script NEUSTART--- BaseHauptordner BasePath ProTag BasePath . BaseHauptordner ProMonat BasePath . BaseHauptordner _intern BasePath . BaseHauptordner JSON BasePath . BaseHauptordner ProMonat BasePath . BaseHauptordner .JSON ProMonat_Info BasePath . BaseHauptordner .JSON ProTag BasePath . BaseHauptordner .JSON ProTag_Info BasePath . BaseHauptordner .JSON BaseProMon BasePath . BaseHauptordner .ProMonat BaseProTag BasePath . BaseHauptordner .ProTag BaseIntern BasePath . BaseHauptordner ._intern IDTemp BaseIntern .temp_Tag IDTempMon BaseIntern .temp_Monat Prüfe MONAT: EQ temp_Monat BaseIntern 1 temp Mon existierte nicht: NeuTempMon 1 temp Mon existieret: NeuTempMon 0 100 ms HeuteMon custom MM_JJJJ IDMon BaseProMon . HeuteMon EQ HeuteMon BaseProMon 1 mon existierte nicht: NeuHeuteMon 1 mon existierte: NeuHeuteMon 0 100 ms EQ NeuHeuteMon 1 mon neu / temp mon auch neu erstellen: log MONAT: NEU / temp NEU true FALSE Object ID IDTempMon TRUE val Object ID Base-kWh-DP 0 true FALSE Object ID IDMon TRUE 0 0 AND EQ NeuTempMon 1 EQ NeuHeuteMon 0 mon vorhanden / temp mon neu: log MONAT: mon VORHANDEN / temp mon NEU true FALSE Object ID IDTempMon TRUE MINUS 1 val Object ID Base-kWh-DP 1 val Object ID IDMon 0 Prüfe TAG: EQ temp_Tag BaseIntern 1 temp existierte nicht: NeuTemp 1 temp existieret: NeuTemp 0 100 ms Heute custom TT_MM_JJJJ IDheute BaseProTag . Heute EQ Heute BaseProTag 1 heute existierte nicht: NeuHeute 1 heute existierte: NeuHeute 0 100 ms EQ NeuHeute 1 heute neu / temp auch neu erstellen: log TAG: heute NEU / temp NEU true FALSE Object ID IDTemp TRUE val Object ID Base-kWh-DP 0 true FALSE Object ID IDheute TRUE 0 0 AND EQ NeuTemp 1 EQ NeuHeute 0 heute vorhanden / temp neu: log TAG: heute VORHANDEN / temp NEU true FALSE Object ID IDTemp TRUE MINUS 1 val Object ID Base-kWh-DP 1 val Object ID IDheute 0 Plausibilitätsprüfung: DP pro Tag/HEUTE kann manuell verändert werden! log TAG: temp.wert auf heute setzen 100 ms true FALSE Object ID IDTemp TRUE MINUS 1 val Object ID Base-kWh-DP 1 val Object ID IDheute 0 log MONAT: mon temp.wert auf heute setzen 100 ms true FALSE Object ID IDTempMon TRUE MINUS 1 val Object ID Base-kWh-DP 1 val Object ID IDMon 0 Zusatz DIESER/LETZTER MON im Hauptordner erstellen: dieserMonat BasePath . BaseHauptordner 2-IDheuteMon BasePath . BaseHauptordner .dieserMonat letzterMonat BasePath . BaseHauptordner 2-IDletzterMon BasePath . BaseHauptordner .letzterMonat 200 ms Zusatz HEUTE/GESTERN im Hauptordner erstellen: heute BasePath . BaseHauptordner 2-IDheute BasePath . BaseHauptordner .heute gestern BasePath . BaseHauptordner 2-IDgestern BasePath . BaseHauptordner .gestern lastUpdate im Hauptordner erstellen: lastUpdate-LokalString BasePath . BaseHauptordner lastUpdate-LokalString BasePath . BaseHauptordner IDlastUpdateLokal BasePath . BaseHauptordner . lastUpdate-LokalString lastUpdate-DatumObjekt BasePath . BaseHauptordner IDlastUpdateObjekt BasePath . BaseHauptordner . lastUpdate-DatumObjekt 200 ms log --- startup: ENDE--- Per Trigger: any default Base-kWh-DP Heute custom TT_MM_JJJJ HeuteMon custom MM_JJJJ IDheute BaseProTag . Heute IDMon BaseProMon . HeuteMon Wert-BasekWh val Object ID Base-kWh-DP Wert-Temp val Object ID IDTemp WertTempMon val Object ID IDTempMon EQ HeuteMon BaseProMon 1 ----------- Neuer MONAT hat begonnen ---------- 100 ms log Neuer Monat: temp reset und letzterMonat erzeugen temp Mon Wert neu schreiben: WertTempMon oldState.val true FALSE Object ID IDTempMon TRUE Wert-BasekWh 0 DP dieserMon auf letzterMon kopieren: IDletzterMon MINUS 1 object 86400000 IDletzterMon custom MM_JJJJ IDletzterMon IDletzterMon BaseProMon . IDletzterMon true FALSE Object ID 2-IDletzterMon TRUE val Object ID IDletzterMon 0 EQ Heute BaseProTag 1 ----------- Neuer TAG hat begonnen ---------- 100 ms log Neuer Tag: temp reset und gestern erzeugen temp Wert neu schreiben: Wert-Temp oldState.val true FALSE Object ID IDTemp TRUE Wert-Temp 0 DP heute auf gestern kopieren: IDgestern MINUS 1 object 86400000 IDgestern custom TT_MM_JJJJ IDgestern IDgestern BaseProTag . IDgestern IDgestern true FALSE Object ID 2-IDgestern TRUE val Object ID IDgestern 0 true FALSE Object ID 2-IDgestern TRUE 0 0 --- Aktualisiere HEUTE DPs --- heute pro Tag: true FALSE Object ID IDheute TRUE MINUS 1 Wert-BasekWh 1 Wert-Temp 0 heute Hauptordner: true FALSE Object ID 2-IDheute TRUE MINUS 1 Wert-BasekWh 1 Wert-Temp 0 Dieser Monat: true FALSE Object ID IDMon TRUE MINUS 1 Wert-BasekWh 1 WertTempMon 0 Dieser Monat Hauptordner: true FALSE Object ID 2-IDheuteMon TRUE MINUS 1 Wert-BasekWh 1 WertTempMon 0 Lokales Format für lastUpdate-LokalString: true FALSE Object ID IDlastUpdateLokal TRUE custom SS:mm:ss TT.MM.JJJJ 0 true FALSE Object ID IDlastUpdateObjekt TRUE object 0