[r781]: / branches / FeatureBranches / PrimaryHost / SparkplugB / Functions / FindChanges / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 21.4 kB

Gx_lkS!0┘jЭo█5ЭJ≥ЩІЁьSystem.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
longTagTextDFindChanges     := ERROR.NO_ERROR;2ErrorDetected   := FALSE;2ChangeDetected  := FALSE;*NumberOfChanges := 0;vSysTimeRtc.SysTimeRtcHighResGet( pTimestamp := Timestamp );TFOR Index := LOWER_BOUND( arSparkplugInt8,┌                          1 ) TO UPPER_BOUND( arSparkplugBoolean,h                                              1 ) DOX    IF arSparkplugBoolean[Index].Notify THENє        AddMetricError := pSparkplugB^._Encoder.AddMetric( TimeStamp := Timestamp,п                                                           SparkPlugObject := arSparkplugBoolean[Index],з                                                           AllMetricsWhichWillEverReport := AllMetricsList );`        IF AddMetricError <> ERROR.NO_ERROR THENX            FindChanges   := AddMetricError;D            ErrorDetected := TRUE;         END_IF!^        NumberOfChanges := NumberOfChanges + 1;"l        arSparkplugBoolean[Index].AcknowledgeNotify();#    END_IF$END_FOR%└                          1 ) TO UPPER_BOUND( arSparkplugDateTime,&Z    IF arSparkplugDateTime[Index].Notify THEN'р                                                           SparkPlugObject := arSparkplugDateTime[Index],(n        arSparkplugDateTime[Index].AcknowledgeNotify();)~                          1 ) TO UPPER_BOUND( arSparkplugFloat,*T    IF arSparkplugFloat[Index].Notify THEN+л                                                           SparkPlugObject := arSparkplugFloat[Index],,h        arSparkplugFloat[Index].AcknowledgeNotify();-─                          1 ) TO UPPER_BOUND( arSparkplugDouble,.V    IF arSparkplugDouble[Index].Notify THEN/н                                                           SparkPlugObject := arSparkplugDouble[Index],0j        arSparkplugDouble[Index].AcknowledgeNotify();1|                          1 ) TO UPPER_BOUND( arSparkplugInt8,2R    IF arSparkplugInt8[Index].Notify THEN3й                                                           SparkPlugObject := arSparkplugInt8[Index],4f        arSparkplugInt8[Index].AcknowledgeNotify();5~                          1 ) TO UPPER_BOUND( arSparkplugInt16,6T    IF arSparkplugInt16[Index].Notify THEN7л                                                           SparkPlugObject := arSparkplugInt16[Index],8h        arSparkplugInt16[Index].AcknowledgeNotify();9~                          1 ) TO UPPER_BOUND( arSparkplugInt32,:T    IF arSparkplugInt32[Index].Notify THEN;л                                                           SparkPlugObject := arSparkplugInt32[Index],<h        arSparkplugInt32[Index].AcknowledgeNotify();=~                          1 ) TO UPPER_BOUND( arSparkplugInt64,>T    IF arSparkplugInt64[Index].Notify THEN?л                                                           SparkPlugObject := arSparkplugInt64[Index],@h        arSparkplugInt64[Index].AcknowledgeNotify();A~                          1 ) TO UPPER_BOUND( arSparkplugUInt8,BT    IF arSparkplugUInt8[Index].Notify THENCл                                                           SparkPlugObject := arSparkplugUInt8[Index],Dh        arSparkplugUInt8[Index].AcknowledgeNotify();E─                          1 ) TO UPPER_BOUND( arSparkplugUInt16,FV    IF arSparkplugUInt16[Index].Notify THENGн                                                           SparkPlugObject := arSparkplugUInt16[Index],Hj        arSparkplugUInt16[Index].AcknowledgeNotify();I─                          1 ) TO UPPER_BOUND( arSparkplugUInt32,JV    IF arSparkplugUInt32[Index].Notify THENKн                                                           SparkPlugObject := arSparkplugUInt32[Index],Lj        arSparkplugUInt32[Index].AcknowledgeNotify();M─                          1 ) TO UPPER_BOUND( arSparkplugUInt64,NV    IF arSparkplugUInt64[Index].Notify THENOн                                                           SparkPlugObject := arSparkplugUInt64[Index],Pj        arSparkplugUInt64[Index].AcknowledgeNotify();Q|                          1 ) TO UPPER_BOUND( arSparkplugUUID,RR    IF arSparkplugUUID[Index].Notify THENSй                                                           SparkPlugObject := arSparkplugUUID[Index],Tf        arSparkplugUUID[Index].AcknowledgeNotify();U|                          1 ) TO UPPER_BOUND( arSparkplugText,VR    IF arSparkplugText[Index].Notify THENWй                                                           SparkPlugObject := arSparkplugText[Index],Xf        arSparkplugText[Index].AcknowledgeNotify();Y─                          1 ) TO UPPER_BOUND( arSparkplugString,ZV    IF arSparkplugString[Index].Notify THEN[н                                                           SparkPlugObject := arSparkplugString[Index],\j        arSparkplugString[Index].AcknowledgeNotify();]RChangeDetected := (NumberOfChanges <> 0);^Interface_L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}`(*a╗    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).b▓    When the Element has been processed, the notifier gets acknowledged. cR    Be sure to run this code continously!d*)e${attribute 'hide'}f8FUNCTION FindChanges : ERRORgVAR_IN_OUTht    arSparkplugBoolean  : ARRAY[*] OF FB_SparkplugBoolean;iv    arSparkplugDateTime : ARRAY[*] OF FB_SparkplugDateTime;jp    arSparkplugFloat    : ARRAY[*] OF FB_SparkplugFloat;kr    arSparkplugDouble   : ARRAY[*] OF FB_SparkplugDouble;ln    arSparkplugInt8     : ARRAY[*] OF FB_SparkplugInt8;mp    arSparkplugInt16    : ARRAY[*] OF FB_SparkplugInt16;np    arSparkplugInt32    : ARRAY[*] OF FB_SparkplugInt32;op    arSparkplugInt64    : ARRAY[*] OF FB_SparkplugInt64;pp    arSparkplugUInt8    : ARRAY[*] OF FB_SparkplugUInt8;qr    arSparkplugUInt16   : ARRAY[*] OF FB_SparkplugUInt16;rr    arSparkplugUInt32   : ARRAY[*] OF FB_SparkplugUInt32;sr    arSparkplugUInt64   : ARRAY[*] OF FB_SparkplugUInt64;tn    arSparkplugUUID     : ARRAY[*] OF FB_SparkplugUUID;un    arSparkplugText     : ARRAY[*] OF FB_SparkplugText;vr    arSparkplugString   : ARRAY[*] OF FB_SparkplugString;w═    AllMetricsList      : LIST; // AllMetricsList in which the changes are addedxEND_VARyVAR_INPUTzb    pSparkplugB : POINTER TO FB_SparkplugBSimple;{VAR_OUTPUT|     ChangeDetected  : BOOL;  // At least one Signal change has been detected;}d    ErrorDetected   : BOOL;  // Some Error Occured~І    NumberOfChanges : UDINT; // Number of detected changes, each changes reflects 1 Signal VAR─4    Index          : DINT;│@    TimeStamp      : T_DateTime;┌6    AddMetricError : ERROR;┐"UniqueIdGenerator└1914┘POULevel├L{8e575c5b-1d37-49c6-941b-5c0ec7874787}┤Standard┬ ChildObjectGuids┴8System.Collections.ArrayList┼,AddAttributeSubsequent▀boolпп-пп	E
■пп
ґhзп-пп
ґiзп-пп
ґjзп-пп
ґkзп-пп
ґlзп-пп
ґmзп-пп
ґnзп-пп
ґoзп-пп
ґpзп-пп
ґqзп-пп
ґrзп-пп
ґsзп-пп
ґtзп-пп
ґuзп-пп
ґvзп-пп
ґwзп-пп
ґxзп- пп
ґyзп-пп
ґzзп-!пп
ґ{зп-"пп
ґ|зп-#пп
ґ}зп-$пп
ґ~зп-пп
ґзп-пп
ґ─зп-%пп
ґ│зп-пп
ґ┌зп-&пп
ґ┐зп-пп
ґ└зп-'пп
ґ┘зп-пп
ґ├зп-пп
ґ┤зп-пп
ґ┬зп-пп
ґ┴зп-пп
ґ┼зп- пп
ґ▀зп-пп
ґ▄зп-!пп
ґ█зп-(пп
ґ▌зп-#пп
ґ▐зп-$пп
ґ░зп-пп
ґ▒зп-пп
ґ▓зп-)пп
ґ⌠зп-пп
ґ■зп-*пп
ґ∙зп-пп
ґ√зп-+пп
ґ≈зп-пп
ґ≤зп-пп
ґ≥зп-пп
ґ зп-пп
ґ⌡зп-пп
ґ°зп- пп
ґ²зп-пп
ґ·зп-!пп
ґ÷зп-,пп
ґ═зп-#пп
ґ║зп-$пп
ґ╒зп-пп
ґёзп-пп
ґєзп--пп
ґ╔зп-пп
ґізп-.пп
ґїзп-пп
ґ╗зп-/пп
ґ╘зп-пп
ґ╙зп-пп
ґ╚зп-пп
ґ╛зп-пп
ґґзп-пп
ґ╝зп- пп
ґ╞зп-пп
ґ╟зп-!пп
ґ╠зп-0пп
ґ╡зп-#пп
ґЁзп-$пп
ґЄзп-пп
ґ╣зп-пп
ґІзп-1пп
ґЇзп-пп
ґ╦зп-2пп
ґ╧зп-пп
ґ╨зп-3пп
ґ╩зп-пп
ґ╪зп-пп
ґҐзп-пп
ґ╬зп-пп
ґ©зп-пп
ґюзп- пп
ґазп-пп
ґбзп-!пп
ґцзп-4пп
ґдзп-#пп
ґезп-$пп
ґфзп-пп
ґгзп-пп
ґхзп-5пп
ґизп-пп
ґйзп-6пп
ґкзп-пп
ґлзп-7пп
ґмзп-пп
ґнзп-пп
ґозп-пп
ґпзп-пп
ґязп-пп
ґрзп- пп
ґсзп-пп
ґтзп-!пп
ґузп-8пп
ґжзп-#пп
ґвзп-$пп
ґьзп-пп
ґызп-пп
ґззп-9пп
ґшзп-пп
ґэзп-:пп
ґщзп-пп
ґчзп-;пп
ґъзп-пп
ґЮзп-пп
ґАзп-пп
ґБзп-пп
ґЦзп-пп
ґДзп- пп
ґЕзп-пп
ґФзп-!пп
ґГзп-<пп
ґХзп-#пп
ґИзп-$пп
ґЙзп-пп
ґКзп-пп
ґЛзп-=пп
ґМзп-пп
ґНзп->пп
ґОзп-пп
ґПзп-?пп
ґЯзп-пп
ґРзп-пп
ґСзп-пп
ґТзп-пп
ґУзп-пп
ґЖзп- пп
ґВзп-пп
ґЬзп-!пп
ґЫзп-@пп
ґЗзп-#пп
ґШзп-$пп
ґЭзп-пп
ґЩзп-пп
ґЧзп-Aпп
ґЪзп-пп
ґзп-Bпп
ґзп-пп
ґзп-Cпп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп- пп
ґ	зп-пп
ґ
зп-!пп
ґзп-Dпп
ґзп-#пп
ґ
зп-$пп
ґзп-пп
ґзп-пп
ґзп-Eпп
ґзп-пп
ґзп-Fпп
ґзп-пп
ґзп-Gпп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп-пп
ґзп- пп
ґзп-пп
ґзп-!пп
ґзп-Hпп
ґзп-#пп
ґзп-$пп
ґ зп-пп
ґ!зп-пп
ґ"зп-Iпп
ґ#зп-пп
ґ$зп-Jпп
ґ%зп-пп
ґ&зп-Kпп
ґ'зп-пп
ґ(зп-пп
ґ)зп-пп
ґ*зп-пп
ґ+зп-пп
ґ,зп- пп
ґ-зп-пп
ґ.зп-!пп
ґ/зп-Lпп
ґ0зп-#пп
ґ1зп-$пп
ґ2зп-пп
ґ3зп-пп
ґ4зп-Mпп
ґ5зп-пп
ґ6зп-Nпп
ґ7зп-пп
ґ8зп-Oпп
ґ9зп-пп
ґ:зп-пп
ґ;зп-пп
ґ<зп-пп
ґ=зп-пп
ґ>зп- пп
ґ?зп-пп
ґ@зп-!пп
ґAзп-Pпп
ґBзп-#пп
ґCзп-$пп
ґDзп-пп
ґEзп-пп
ґFзп-Qпп
ґGзп-пп
ґHзп-Rпп
ґIзп-пп
ґJзп-Sпп
ґKзп-пп
ґLзп-пп
ґMзп-пп
ґNзп-пп
ґOзп-пп
ґPзп- пп
ґQзп-пп
ґRзп-!пп
ґSзп-Tпп
ґTзп-#пп
ґUзп-$пп
ґVзп-пп
ґWзп-пп
ґXзп-Uпп
ґYзп-пп
ґZзп-Vпп
ґ[зп-пп
ґ\зп-Wпп
ґ]зп-пп
ґ^зп-пп
ґ_зп-пп
ґ`зп-пп
ґaзп-пп
ґbзп- пп
ґcзп-пп
ґdзп-!пп
ґeзп-Xпп
ґfзп-#пп
ґgзп-$пп
ґhзп-пп
ґiзп-пп
ґjзп-Yпп
ґkзп-пп
ґlзп-Zпп
ґmзп-пп
ґnзп-[пп
ґoзп-пп
ґpзп-пп
ґqзп-пп
ґrзп-пп
ґsзп-пп
ґtзп- пп
ґuзп-пп
ґvзп-!пп
ґwзп-\пп
ґxзп-#пп
ґyзп-$пп
ґzзп-пп
ґзп-]п^_п	E
&пп
ґCзп-`пп
ґDзп-aпп
ґEзп-bпп
ґFзп-cпп
ґGзп-dпп
ґHзп-eпп
ґIзп-fпп
ґJзп-gпп
ґKзп-hпп
ґLзп-iпп
ґMзп-jпп
ґNзп-kпп
ґOзп-lпп
ґPзп-mпп
ґQзп-nпп
ґRзп-oпп
ґSзп-pпп
ґTзп-qпп
ґUзп-rпп
ґVзп-sпп
ґWзп-tпп
ґXзп-uпп
ґYзп-vпп
ґZзп-wпп
ґ[зп-xпп
ґ\зп-yпп
ґ]зп-zпп
ґ^зп-xпп
ґ_зп-{пп
ґ`зп-|пп
ґaзп-}пп
ґbзп-~пп
ґcзп-xпп
ґdзп-пп
ґeзп-─пп
ґfзп-│пп
ґgзп-┌пп
ґзп-xп┐-└п┘├-┤┬┴п┼▀ґ