[r538]: / branches / h-hermsen / mqttsparkplugb / SparkplugB / Functions / FindChanges / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 20.5 kB

Gx_lP!0…jüo’7OüG+€VSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText<FindChanges := ERROR.NO_ERROR;.ErrorDetected := FALSE;0ChangeDetected := FALSE;*NumberOfChanges := 0;rSysTimeRtc.SysTimeRtcHighResGet(pTimestamp := Timestamp);¦FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugBoolean,1) DOX    IF arSparkplugBoolean[Index].Notify THEN¦        AddMetricError := pSparkplugB^._Encoder.AddMetric( TimeStamp := Timestamp, ¶                                              SparkPlugObject := arSparkplugBoolean[Index],¾                                              AllMetricsWhichWillEverReport := AllMetricsList);`        IF AddMetricError <> ERROR.NO_ERROR THENT            FindChanges := AddMetricError;D            ErrorDetected := TRUE;0		END_IF                ^        NumberOfChanges := NumberOfChanges + 1; l        arSparkplugBoolean[Index].AcknowledgeNotify();!	END_IF"END_FOR#¨FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugDateTime,1) DO$Z    IF arSparkplugDateTime[Index].Notify THEN%¸                                              SparkPlugObject := arSparkplugDateTime[Index],&n        arSparkplugDateTime[Index].AcknowledgeNotify();'	END_IF  (¢FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugFloat,1) DO)T    IF arSparkplugFloat[Index].Notify THEN*²                                              SparkPlugObject := arSparkplugFloat[Index],+p        arSparkplugFloat[Index].AcknowledgeNotify();    ,¤FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugDouble,1) DO-V    IF arSparkplugDouble[Index].Notify THEN.´                                              SparkPlugObject := arSparkplugDouble[Index],/Î                                              AllMetricsWhichWillEverReport := AllMetricsList);        0r        arSparkplugDouble[Index].AcknowledgeNotify();    1 FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugInt8,1) DO2R    IF arSparkplugInt8[Index].Notify THEN3°                                              SparkPlugObject := arSparkplugInt8[Index],4n        arSparkplugInt8[Index].AcknowledgeNotify();    5¢FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugInt16,1) DO6T    IF arSparkplugInt16[Index].Notify THEN7²                                              SparkPlugObject := arSparkplugInt16[Index],8p        arSparkplugInt16[Index].AcknowledgeNotify();    9¢FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugInt32,1) DO:T    IF arSparkplugInt32[Index].Notify THEN;²                                              SparkPlugObject := arSparkplugInt32[Index],<x        arSparkplugInt32[Index].AcknowledgeNotify();        =¢FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugInt64,1) DO>T    IF arSparkplugInt64[Index].Notify THEN?²                                              SparkPlugObject := arSparkplugInt64[Index],@x        arSparkplugInt64[Index].AcknowledgeNotify();        A¢FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugUInt8,1) DOBT    IF arSparkplugUInt8[Index].Notify THENC²                                              SparkPlugObject := arSparkplugUInt8[Index],Dx        arSparkplugUInt8[Index].AcknowledgeNotify();        E¤FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugUInt16,1) DOFV    IF arSparkplugUInt16[Index].Notify THENG´                                              SparkPlugObject := arSparkplugUInt16[Index],Hz        arSparkplugUInt16[Index].AcknowledgeNotify();        I¤FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugUInt32,1) DOJV    IF arSparkplugUInt32[Index].Notify THENK´                                              SparkPlugObject := arSparkplugUInt32[Index],Lz        arSparkplugUInt32[Index].AcknowledgeNotify();        M¤FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugUInt64,1) DONV    IF arSparkplugUInt64[Index].Notify THENO´                                              SparkPlugObject := arSparkplugUInt64[Index],Pz        arSparkplugUInt64[Index].AcknowledgeNotify();        Q FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugUUID,1) DORR    IF arSparkplugUUID[Index].Notify THENS°                                              SparkPlugObject := arSparkplugUUID[Index],Tv        arSparkplugUUID[Index].AcknowledgeNotify();        U FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugText,1) DOVR    IF arSparkplugText[Index].Notify THENW°                                              SparkPlugObject := arSparkplugText[Index],X`        NumberOfChanges := NumberOfChanges + 1; Yv        arSparkplugText[Index].AcknowledgeNotify();        Z¤FOR Index := LOWER_BOUND(arSparkplugInt8,1) TO UPPER_BOUND(arSparkplugString,1) DO[V    IF arSparkplugString[Index].Notify THEN\´                                              SparkPlugObject := arSparkplugString[Index],]z        arSparkplugString[Index].AcknowledgeNotify();        ^RChangeDetected := (NumberOfChanges <> 0);_Interface`L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}a(*b¨    Parses every Array Element and adds it to the Encoder metrics List if the Element notifies a change (the value has been changed during runtime).c’    When the Element has been processed, the notifier gets acknowledged. dR    Be sure to run this code continously!e*)f${attribute 'hide'}gJFUNCTION INTERNAL FindChanges : ERRORhVAR_IN_OUTit    arSparkplugBoolean : ARRAY [*] OF FB_SparkplugBoolean;jv    arSparkplugDateTime: ARRAY [*] OF FB_SparkplugDateTime;kp    arSparkplugFloat   : ARRAY [*] OF FB_SparkplugFloat;lz    arSparkplugDouble  : ARRAY [*] OF FB_SparkplugDouble;    mn    arSparkplugInt8    : ARRAY [*] OF FB_SparkplugInt8;n€    arSparkplugInt16   : ARRAY [*] OF FB_SparkplugInt16;        op    arSparkplugInt32   : ARRAY [*] OF FB_SparkplugInt32;pp    arSparkplugInt64   : ARRAY [*] OF FB_SparkplugInt64;qp    arSparkplugUInt8   : ARRAY [*] OF FB_SparkplugUInt8;r‚    arSparkplugUInt16  : ARRAY [*] OF FB_SparkplugUInt16;        sr    arSparkplugUInt32  : ARRAY [*] OF FB_SparkplugUInt32;tv    arSparkplugUInt64  : ARRAY [*] OF FB_SparkplugUInt64;  un    arSparkplugUUID    : ARRAY [*] OF FB_SparkplugUUID;vn    arSparkplugText    : ARRAY [*] OF FB_SparkplugText;w²    arSparkplugString  : ARRAY [*] OF FB_SparkplugString;                                x–    AllMetricsList : LIST; // AllMetricsList in which the changes are addedyEND_VARzVAR_INPUT{b    pSparkplugB : POINTER TO FB_SparkplugBSimple;|VAR_OUTPUT}˜    ChangeDetected : BOOL;  // At least one Signal change has been detected;~^    ErrorDetected : BOOL; // Some Error Occured¶    NumberOfChanges : UDINT; // Number of detected changes, each changes reflects 1 Signal €VAR"    Index : DINT;‚6    TimeStamp : T_DateTime;ƒ6    AddMetricError : ERROR;„"UniqueIdGenerator…287†POULevel‡L{8e575c5b-1d37-49c6-941b-5c0ec7874787}ˆStandard‰ ChildObjectGuidsŠ8System.Collections.ArrayList‹,AddAttributeSubsequentŒboolÐÐ-ÐÐ	E
ÚÐÐ
­'ÚÐ-ÐÐ
­(ÚÐ-ÐÐ
­)ÚÐ-ÐÐ
­*ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­,ÚÐ-ÐÐ
­-ÚÐ-ÐÐ
­.ÚÐ-ÐÐ
­/ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­5ÚÐ-ÐÐ
­6ÚÐ-ÐÐ
­7ÚÐ-ÐÐ
­8ÚÐ- ÐÐ
­9ÚÐ-!ÐÐ
­:ÚÐ-"ÐÐ
­;ÚÐ-ÐÐ
­<ÚÐ-#ÐÐ
­=ÚÐ-$ÐÐ
­>ÚÐ-ÐÐ
­?ÚÐ-%ÐÐ
­@ÚÐ-ÐÐ
­AÚÐ-ÐÐ
­BÚÐ-ÐÐ
­CÚÐ-ÐÐ
­DÚÐ-ÐÐ
­EÚÐ-ÐÐ
­FÚÐ-&ÐÐ
­GÚÐ-'ÐÐ
­HÚÐ-"ÐÐ
­IÚÐ-ÐÐ
­JÚÐ-(ÐÐ
­KÚÐ-)ÐÐ
­LÚÐ-ÐÐ
­MÚÐ-*ÐÐ
­NÚÐ-ÐÐ
­OÚÐ-ÐÐ
­PÚÐ-ÐÐ
­QÚÐ-ÐÐ
­RÚÐ-ÐÐ
­SÚÐ-ÐÐ
­TÚÐ-+ÐÐ
­UÚÐ-!ÐÐ
­VÚÐ-"ÐÐ
­WÚÐ-ÐÐ
­XÚÐ-,ÐÐ
­YÚÐ--ÐÐ
­ZÚÐ-ÐÐ
­[ÚÐ-.ÐÐ
­\ÚÐ-/ÐÐ
­]ÚÐ-ÐÐ
­^ÚÐ-ÐÐ
­_ÚÐ-ÐÐ
­`ÚÐ-ÐÐ
­aÚÐ-ÐÐ
­bÚÐ-0ÐÐ
­cÚÐ-!ÐÐ
­dÚÐ-"ÐÐ
­eÚÐ-ÐÐ
­fÚÐ-1ÐÐ
­gÚÐ-2ÐÐ
­hÚÐ-ÐÐ
­iÚÐ-3ÐÐ
­jÚÐ-/ÐÐ
­kÚÐ-ÐÐ
­lÚÐ-ÐÐ
­mÚÐ-ÐÐ
­nÚÐ-ÐÐ
­oÚÐ-ÐÐ
­pÚÐ-4ÐÐ
­qÚÐ-!ÐÐ
­rÚÐ-"ÐÐ
­sÚÐ-ÐÐ
­tÚÐ-5ÐÐ
­uÚÐ-6ÐÐ
­vÚÐ-ÐÐ
­wÚÐ-7ÐÐ
­xÚÐ-/ÐÐ
­yÚÐ-ÐÐ
­zÚÐ-ÐÐ
­{ÚÐ-ÐÐ
­|ÚÐ-ÐÐ
­}ÚÐ-ÐÐ
­~ÚÐ-8ÐÐ
­ÚÐ-!ÐÐ
­€ÚÐ-"ÐÐ
­ÚÐ-ÐÐ
­‚ÚÐ-9ÐÐ
­ƒÚÐ-:ÐÐ
­„ÚÐ-ÐÐ
­…ÚÐ-;ÐÐ
­†ÚÐ-/ÐÐ
­‡ÚÐ-ÐÐ
­ˆÚÐ-ÐÐ
­‰ÚÐ-ÐÐ
­ŠÚÐ-ÐÐ
­‹ÚÐ-ÐÐ
­ŒÚÐ-<ÐÐ
­ÚÐ-!ÐÐ
­ŽÚÐ-"ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-=ÐÐ
­‘ÚÐ->ÐÐ
­’ÚÐ-ÐÐ
­“ÚÐ-?ÐÐ
­”ÚÐ-/ÐÐ
­•ÚÐ-ÐÐ
­–ÚÐ-ÐÐ
­—ÚÐ-ÐÐ
­˜ÚÐ-ÐÐ
­™ÚÐ-ÐÐ
­šÚÐ-@ÐÐ
­›ÚÐ-!ÐÐ
­œÚÐ-"ÐÐ
­ÚÐ-ÐÐ
­žÚÐ-AÐÐ
­ŸÚÐ-BÐÐ
­ ÚÐ-ÐÐ
­¡ÚÐ-CÐÐ
­¢ÚÐ-/ÐÐ
­£ÚÐ-ÐÐ
­¤ÚÐ-ÐÐ
­¥ÚÐ-ÐÐ
­¦ÚÐ-ÐÐ
­§ÚÐ-ÐÐ
­¨ÚÐ-DÐÐ
­©ÚÐ-!ÐÐ
­ªÚÐ-"ÐÐ
­«ÚÐ-ÐÐ
­¬ÚÐ-EÐÐ
­­ÚÐ-FÐÐ
­®ÚÐ-ÐÐ
­¯ÚÐ-GÐÐ
­°ÚÐ-/ÐÐ
­±ÚÐ-ÐÐ
­²ÚÐ-ÐÐ
­³ÚÐ-ÐÐ
­´ÚÐ-ÐÐ
­µÚÐ-ÐÐ
­¶ÚÐ-HÐÐ
­·ÚÐ-!ÐÐ
­¸ÚÐ-"ÐÐ
­¹ÚÐ-ÐÐ
­ºÚÐ-IÐÐ
­»ÚÐ-JÐÐ
­¼ÚÐ-ÐÐ
­½ÚÐ-KÐÐ
­¾ÚÐ-/ÐÐ
­¿ÚÐ-ÐÐ
­ÀÚÐ-ÐÐ
­ÁÚÐ-ÐÐ
­ÂÚÐ-ÐÐ
­ÃÚÐ-ÐÐ
­ÄÚÐ-LÐÐ
­ÅÚÐ-!ÐÐ
­ÆÚÐ-"ÐÐ
­ÇÚÐ-ÐÐ
­ÈÚÐ-MÐÐ
­ÉÚÐ-NÐÐ
­ÊÚÐ-ÐÐ
­ËÚÐ-OÐÐ
­ÌÚÐ-/ÐÐ
­ÍÚÐ-ÐÐ
­ÎÚÐ-ÐÐ
­ÏÚÐ-ÐÐ
­ÐÚÐ-ÐÐ
­ÑÚÐ-ÐÐ
­ÒÚÐ-PÐÐ
­ÓÚÐ-!ÐÐ
­ÔÚÐ-"ÐÐ
­ÕÚÐ-ÐÐ
­ÖÚÐ-QÐÐ
­×ÚÐ-RÐÐ
­ØÚÐ-ÐÐ
­ÙÚÐ-SÐÐ
­ÚÚÐ-/ÐÐ
­ÛÚÐ-ÐÐ
­ÜÚÐ-ÐÐ
­ÝÚÐ-ÐÐ
­ÞÚÐ-ÐÐ
­ßÚÐ-ÐÐ
­àÚÐ-TÐÐ
­áÚÐ-!ÐÐ
­âÚÐ-"ÐÐ
­ãÚÐ-ÐÐ
­äÚÐ-UÐÐ
­åÚÐ-VÐÐ
­æÚÐ-ÐÐ
­çÚÐ-WÐÐ
­èÚÐ-/ÐÐ
­éÚÐ-ÐÐ
­êÚÐ-ÐÐ
­ëÚÐ-ÐÐ
­ìÚÐ-ÐÐ
­íÚÐ-XÐÐ
­îÚÐ-YÐÐ
­ïÚÐ-!ÐÐ
­ðÚÐ-"ÐÐ
­ñÚÐ-ÐÐ
­òÚÐ-ZÐÐ
­óÚÐ-[ÐÐ
­ôÚÐ-ÐÐ
­õÚÐ-\ÐÐ
­öÚÐ-/ÐÐ
­÷ÚÐ-ÐÐ
­øÚÐ-ÐÐ
­ùÚÐ-ÐÐ
­úÚÐ-ÐÐ
­ûÚÐ-ÐÐ
­üÚÐ-]ÐÐ
­ýÚÐ-!ÐÐ
­þÚÐ-"ÐÐ
­ÿÚÐ-ÐÐ
­ÚÐ-^Ð_`Ð	E
&ÐÐ
­$ÚÐ-aÐÐ
­%ÚÐ-bÐÐ
­ÚÐ-cÐÐ
­&ÚÐ-dÐÐ
­#ÚÐ-eÐÐ
­ÚÐ-fÐÐ
­ÚÐ-gÐÐ
­ÚÐ-hÐÐ
­ÚÐ-iÐÐ
­ÚÐ-jÐÐ
­ÚÐ-kÐÐ
­ÚÐ-lÐÐ
­ÚÐ-mÐÐ
­ÚÐ-nÐÐ
­ÚÐ-oÐÐ
­ÚÐ-pÐÐ
­	ÚÐ-qÐÐ
­
ÚÐ-rÐÐ
­ÚÐ-sÐÐ
­ÚÐ-tÐÐ
­
ÚÐ-uÐÐ
­ÚÐ-vÐÐ
­ÚÐ-wÐÐ
­ÚÐ-xÐÐ
­ÚÐ-yÐÐ
­ÚÐ-zÐÐ
­ÚÐ-{ÐÐ
­ÚÐ-yÐÐ
­ÚÐ-|ÐÐ
­ÚÐ-}ÐÐ
­ÚÐ-~ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-yÐÐ
­ÚÐ-€ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-‚ÐÐ
­ÚÐ-ƒÐÐ
­ÚÐ-yЄ-…І‡-ˆ‰ŠЋŒ­