Příklady skriptů

Hotové skripty pro běžné úlohy. Recepty pro smart rules fungují v každé instalaci; příklady Modbus a Packet parser pocházejí z oficiálních repozitářů šablon pro Modbus a Packet parser. Krátké názvy jako Se, va1 nebo St jsou zkratky hodnot zařízení vybraných v editoru skriptu; názvy jako StatusJson nebo plugTopic jsou proměnné modulu.

Recepty pro smart rules#

Bezpečné dělení dvou hodnot#

Dělení hodnotou zařízení, která je 0, zastaví skript chybou Line in script: 1 Message: Division by zero. Obalte dělení va1/va2 funkční podobou IF. Ta vyhodnotí jen zvolenou větev, takže se dělení provede jen tehdy, když je dělitel větší než 0:

IF(va2 > 0, va1/va2, 0);
# Result: 0 when va2 is 0, otherwise va1 divided by va2

Když může být dělitel záporný, testujte místo toho va2 <> 0. Více na stránce Chyby.

Zápis 0 místo neznámé hodnoty#

Neznámá hodnota zařízení, například ze senzoru v chybě, je NaN. Chcete-li místo ní zapsat 0, otestujte ji přes ISNAN — vzor je IF(ISNAN(x), 0, x):

IF(ISNAN(Se), 0, Se);
# Result: 0 while the value of Se is unknown, otherwise the value of Se

Porovnání jako Se = NaN je chyba parsování. Když může být hodnota také Null (bez hodnoty), otestujte nejprve ISNULL; OR svou pravou stranu přeskočí, jakmile je levá strana TRUE:

IF(ISNULL(Se) OR ISNAN(Se), 0, Se);

Stmívání přes LINEAR#

LINEAR převede rozsah vstupních hodnot na rozsah výstupních hodnot, což je obvyklý způsob výpočtu úrovně stmívání. Úroveň stmívače jde od 0 (vypnuto) do 1 (100 %). Ve smart rule Vzorec se stmívačem jako výstupem tento skript stmívá světlo, jak denní světlo stoupá od 0 do 500 lx (Se je senzor osvětlení):

LINEAR(Se, 0, 1, 500, 0);
# Result: 1 at 0 lx, 0.5 at 250 lx, 0 at 500 lx and more

Mimo vstupní rozsah zůstává výsledek na nejbližším konci (BOUNDS, výchozí). Chcete-li zachovat minimální úroveň, zvyšte dolní výstup: LINEAR(Se, 0, 1, 500, 0.1) nikdy neklesne pod 10 %. Podrobnosti na stránce LINEAR.

Příklady Modbus#

Chyby zařízení z registru alarmů#

Skript pro čtení střídače Solax převádí stavový registr a 32bitové slovo alarmů na chyby zařízení:

VAR reg := MODBUSR(A, 0x09, UInt16);
IF(reg = 3, ADDERROR("Run Mode Fault"));
IF(reg = 4, ADDERROR("Run Mode Permanent Fault"));

VAR x3 := MODBUSR(A, 0x0040, Uint32);
IF(GETBIT(x3, 0) = 1, ADDERROR("TZ Protect Fault"));
IF(GETBIT(x3, 1) = 1, ADDERROR("Grid Lost Fault"));
IF(GETBIT(x3, 2) = 1, ADDERROR("Grid Volt Fault"));
IF(GETBIT(x3, 15) = 1, ADDERROR("Off-grid Overload"));

Servisní atribut z bitových polí#

Servisní atribut Komfovent zobrazí čtyři bajty 32bitového registru jako text s tečkami:

VAR reg := MODBUSR(H, 22, Uint32);
VAR first := GETBITS(reg, 0, 8);
VAR second := GETBITS(reg, 8, 8);
VAR third := GETBITS(reg, 16, 8);
VAR last := GETBITS(reg, 24, 8);
RETURN(last + "." + third + "." + second + "." + first);
# Result: text such as "1.2.3.4"

Servisní akce s parametrem#

Parametry servisní akce jsou proměnné pojmenované svou zkratkou. Akce elektroměru Eastron SDM120 zapíše svůj parametr ID do holding registru 20:

MODBUSW(H, 20, Float, ID)

Dekódování výčtu#

Stavový registr střídače Huawei SUN2000 se přes SWITCH změní na čitelný text:

VAR state := MODBUSR(H, 32089, Uint16);
SWITCH(state,
      0, "Idle: Initializing",
      1, "Idle: Detecting ISO",
    256, "Starting",
    512, "On-Grid",
    768, "Shutdown: Fault",
    "Unknown");

Příklady Packet parser#

Požadavek HTTP s ošetřením chyb#

SENDHTTPREQUEST vrací objekt httpresponse. Tento skript pro čtení (Forecast.solar) si tělo odpovědi uloží do proměnné output k pozdějšímu parsování a neúspěšný požadavek ohlásí jako chybu zařízení:

VAR response := SENDHTTPREQUEST("/estimate/" + Latitude + "/" + Longitude + "/"
    + PV_declination + "/" + PV_azimuth + "/" + PV_kWp,
    "GET", "", "Accept: application/json");

IF response.IsSuccess
    output := response.Content;
ELSE
    ADDERROR(response.StatusCode + " (" + response.ReasonPhrase + ")");
END

Doba provozu z JSON#

Servisní atribut Shelly 1PM naformátuje dobu provozu v sekundách z uloženého stavového JSON:

VAR upTimeSeconds := PARSEJSON(StatusJson, "uptime");
VAR days := FLOOR(upTimeSeconds / 86400, 1);
upTimeSeconds := MOD(upTimeSeconds, 86400);
VAR hours := FLOOR(upTimeSeconds / 3600, 1);
upTimeSeconds := MOD(upTimeSeconds, 3600);
VAR minutes := FLOOR(upTimeSeconds / 60, 1);
days + " day(s) " + hours + "h " + minutes + "m";
# Result: for 191820 seconds "2 day(s) 5h 17m"

Spotová cena pro aktuální období#

Skript pro čtení stáhne dnešní ceny z okte.sk:

VAR today := TOSTRING(NOW(), "yyyy-MM-dd");
VAR response := SENDHTTPREQUEST("/api/v1/dam/results?deliveryDayFrom=" + today
    + "&deliveryDayTo=" + today);

IF response.IsSuccess
    output := response.Content;
ELSE
    ADDERROR(response.StatusCode + " (" + response.ReasonPhrase + ")");
END

Servisní atribut pak vybere jedno období filtrem JSONPath:

PARSEJSON(output, "$[?(@.period == 1)].price") + " EUR"

Procházení pole JSON v cyklu#

S TRUE jako třetím argumentem vrátí PARSEJSON za posledním prvkem Null místo chyby, což cyklus ukončí:

VAR response := SENDHTTPREQUEST("/api/taphomeapi/v1/discovery", "GET", "",
    "Authorization: TapHome " + API_token);

IF response.IsSuccess
    VAR ret := "";
    VAR i := 0;
    VAR id := PARSEJSON(response.Content, "$.devices[0].deviceId", TRUE);

    WHILE !ISNULL(id)
        ret := ret + "(" + id + ") ";
        ret := ret + PARSEJSON(response.Content, "$.devices[" + TOSTRING(i) + "].name", TRUE);
        ret := ret + " - " + PARSEJSON(response.Content, "$.devices[" + TOSTRING(i) + "].type", TRUE);
        ret := ret + "\n";
        i := i + 1;
        id := PARSEJSON(response.Content, "$.devices[" + TOSTRING(i) + "].deviceId", TRUE);
    LOOP

    RETURN(ret);
END

Kontrola proměnné modulu v listener skriptu#

Listener skript MQTT pro Shelly nejprve zkontroluje, že proměnná modulu plugTopic je vyplněná, a pak převede naměřený výkon z W na kW:

IF(INDEXOF(plugTopic, "shelly1pm-deviceid") = 0)
    ADDERROR("Set correct 'plugTopic' value in module variables. "
        + "Topic format is 'shelly1pm-<deviceid>'.");
    RETURN(-1);
END

IF(RECEIVEDMSG.TOPIC = "shellies/" + plugTopic + "/relay/0/power")
    VAR valueP := TOSTRING(RECEIVEDMSG.PAYLOAD);
    Ed := IF(ISNULL(valueP), NaN, TODOUBLE(valueP) / 1000.0);
END

Wake on LAN#

Tlačítko UDP odešle magický paket. Proměnná modulu MAC obsahuje adresu jako text ("12 34 56 78 9a bc"); BYTECOLLECTION mezery ignoruje:

VAR magicPacket := BYTECOLLECTION("FF FF FF FF FF FF " + MAC + MAC + MAC + MAC
    + MAC + MAC + MAC + MAC + MAC + MAC + MAC + MAC + MAC + MAC + MAC + MAC);
SENDDATA(magicPacket);