Primjeri skripti

Cjelovite skripte za česte zadatke. Recepti za smart rules rade u svakoj instalaciji; primjeri za Modbus i Packet parser potječu iz službenih repozitorija predložaka za Modbus i Packet parser. Kratki nazivi kao Se, va1 ili St kratice su vrijednosti uređaja odabranih u uređivaču skripti; nazivi kao StatusJson ili plugTopic su varijable modula.

Recepti za smart rules#

Sigurno dijeljenje dviju vrijednosti#

Dijeljenje vrijednošću uređaja koja je 0 zaustavlja skriptu porukom Line in script: 1 Message: Division by zero. Dijeljenje va1/va2 omotajte funkcijskim oblikom IF. On izračunava samo odabranu granu, pa se dijeljenje izvršava samo kada je djelitelj veći od 0:

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

Kada djelitelj može biti negativan, umjesto toga provjerite va2 <> 0. Više na stranici Pogreške.

Zapis 0 umjesto nepoznate vrijednosti#

Nepoznata vrijednost uređaja, na primjer iz senzora u pogrešci, je NaN. Da biste umjesto nje upisali 0, provjerite je funkcijom ISNAN — uzorak 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

Usporedba kao Se = NaN pogreška je raščlambe. Kada vrijednost može biti i Null (bez vrijednosti), najprije provjerite ISNULL; OR preskače desnu stranu čim je lijeva TRUE:

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

Zatamnjivanje funkcijom LINEAR#

LINEAR preslikava raspon ulaznih vrijednosti na raspon izlaznih vrijednosti, što je uobičajen način izračuna razine zatamnjivanja. Razina dimera ide od 0 (isključeno) do 1 (100 %). U smart rule Formula s dimerom kao izlazom ova skripta zatamnjuje svjetlo dok dnevno svjetlo raste od 0 do 500 lx (Se je senzor osvjetljenja):

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

Izvan ulaznog raspona rezultat ostaje na bližem kraju (BOUNDS, zadano). Da biste zadržali najmanju razinu, podignite donji izlaz: LINEAR(Se, 0, 1, 500, 0.1) nikada ne pada ispod 10 %. Pojedinosti na stranici LINEAR.

Primjeri za Modbus#

Pogreške uređaja iz registra alarma#

Skripta za čitanje izmjenjivača Solax pretvara statusni registar i 32-bitnu riječ alarma u pogreške uređaja:

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"));

Servisni atribut iz polja bitova#

Servisni atribut uređaja Komfovent prikazuje četiri bajta 32-bitnog registra kao tekst odvojen točkama:

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"

Servisna radnja s parametrom#

Parametri servisne radnje su varijable nazvane prema svojoj kratici. Radnja brojila Eastron SDM120 upisuje svoj parametar ID u holding registar 20:

MODBUSW(H, 20, Float, ID)

Dekodiranje nabrajanja#

Statusni registar izmjenjivača Huawei SUN2000 funkcijom SWITCH postaje čitljiv tekst:

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

Primjeri za Packet parser#

HTTP zahtjev s obradom pogrešaka#

SENDHTTPREQUEST vraća objekt httpresponse. Ova skripta za čitanje (Forecast.solar) sprema tijelo odgovora u varijablu output za kasniju raščlambu, a neuspješan zahtjev javlja kao pogrešku uređaja:

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

Vrijeme rada iz JSON-a#

Servisni atribut uređaja Shelly 1PM formatira vrijeme rada u sekundama iz JSON-a statusa spremljenog u varijabli:

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"

Spot cijena za trenutno razdoblje#

Skripta za čitanje preuzima današnje cijene sa stranice 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

Servisni atribut zatim filtrom JSONPath odabire jedno razdoblje:

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

Petlja kroz JSON polje#

S TRUE kao trećim argumentom PARSEJSON nakon posljednjeg elementa vraća Null umjesto pogreške, čime petlja završava:

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

Provjera varijable modula u listener skripti#

MQTT listener skripta za Shelly najprije provjerava je li varijabla modula plugTopic popunjena, a zatim pretvara izmjerenu snagu iz W u 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#

UDP tipka šalje čarobni paket. Varijabla modula MAC sadrži adresu kao tekst ("12 34 56 78 9a bc"); BYTECOLLECTION zanemaruje razmake:

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);