[r700]: / branches / h-hermsen / mqttsparkplug / SparkplugB / Functions / FindChanges / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 21.4 kB

Gx_l£S!0…jüo4x¦ÜGgæ½)Å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 THENN        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 THEN0´                                SparkPlugObject               := arSparkplugDouble[Index],1j        arSparkplugDouble[Index].AcknowledgeNotify();2|                          1 ) TO UPPER_BOUND( arSparkplugInt8,3R    IF arSparkplugInt8[Index].Notify THEN4°                                SparkPlugObject               := arSparkplugInt8[Index],5f        arSparkplugInt8[Index].AcknowledgeNotify();6~                          1 ) TO UPPER_BOUND( arSparkplugInt16,7T    IF arSparkplugInt16[Index].Notify THEN8²                                SparkPlugObject               := arSparkplugInt16[Index],9h        arSparkplugInt16[Index].AcknowledgeNotify();:~                          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],Ah        arSparkplugInt64[Index].AcknowledgeNotify();B~                          1 ) TO UPPER_BOUND( arSparkplugUInt8,CT    IF arSparkplugUInt8[Index].Notify THEND²                                SparkPlugObject               := arSparkplugUInt8[Index],Eh        arSparkplugUInt8[Index].AcknowledgeNotify();F€                          1 ) TO UPPER_BOUND( arSparkplugUInt16,GV    IF arSparkplugUInt16[Index].Notify THENH´                                SparkPlugObject               := arSparkplugUInt16[Index],Ij        arSparkplugUInt16[Index].AcknowledgeNotify();J€                          1 ) TO UPPER_BOUND( arSparkplugUInt32,KV    IF arSparkplugUInt32[Index].Notify THENL´                                SparkPlugObject               := arSparkplugUInt32[Index],Mj        arSparkplugUInt32[Index].AcknowledgeNotify();N€                          1 ) TO UPPER_BOUND( arSparkplugUInt64,OV    IF arSparkplugUInt64[Index].Notify THENP´                                SparkPlugObject               := arSparkplugUInt64[Index],Qj        arSparkplugUInt64[Index].AcknowledgeNotify();R|                          1 ) TO UPPER_BOUND( arSparkplugUUID,SR    IF arSparkplugUUID[Index].Notify THENT°                                SparkPlugObject               := arSparkplugUUID[Index],Uf        arSparkplugUUID[Index].AcknowledgeNotify();V|                          1 ) TO UPPER_BOUND( arSparkplugText,WR    IF arSparkplugText[Index].Notify THENX°                                SparkPlugObject               := arSparkplugText[Index],Yf        arSparkplugText[Index].AcknowledgeNotify();Z€                          1 ) TO UPPER_BOUND( arSparkplugString,[V    IF arSparkplugString[Index].Notify THEN\´                                SparkPlugObject               := arSparkplugString[Index],]j        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'}g8FUNCTION FindChanges : ERRORhVAR_IN_OUTit    arSparkplugBoolean  : ARRAY[*] OF FB_SparkplugBoolean;jv    arSparkplugDateTime : ARRAY[*] OF FB_SparkplugDateTime;kp    arSparkplugFloat    : ARRAY[*] OF FB_SparkplugFloat;lr    arSparkplugDouble   : ARRAY[*] OF FB_SparkplugDouble;mn    arSparkplugInt8     : ARRAY[*] OF FB_SparkplugInt8;np    arSparkplugInt16    : ARRAY[*] OF FB_SparkplugInt16;op    arSparkplugInt32    : ARRAY[*] OF FB_SparkplugInt32;pp    arSparkplugInt64    : ARRAY[*] OF FB_SparkplugInt64;qp    arSparkplugUInt8    : ARRAY[*] OF FB_SparkplugUInt8;rr    arSparkplugUInt16   : ARRAY[*] OF FB_SparkplugUInt16;sr    arSparkplugUInt32   : ARRAY[*] OF FB_SparkplugUInt32;tr    arSparkplugUInt64   : ARRAY[*] OF FB_SparkplugUInt64;un    arSparkplugUUID     : ARRAY[*] OF FB_SparkplugUUID;vn    arSparkplugText     : ARRAY[*] OF FB_SparkplugText;wr    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;~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…1274†POULevel‡L{8e575c5b-1d37-49c6-941b-5c0ec7874787}ˆStandard‰ ChildObjectGuidsŠ8System.Collections.ArrayList‹,AddAttributeSubsequentŒboolÐÐ-ÐÐ	E
£ÐÐ
­ÙÚÐ-ÐÐ
­ÚÚÐ-ÐÐ
­ÛÚÐ-ÐÐ
­ÜÚÐ-ÐÐ
­ÝÚÐ-ÐÐ
­ÞÚÐ-ÐÐ
­ßÚÐ-ÐÐ
­àÚÐ-ÐÐ
­áÚÐ-ÐÐ
­âÚÐ-ÐÐ
­ãÚÐ-ÐÐ
­äÚÐ-ÐÐ
­åÚÐ-ÐÐ
­æÚÐ-ÐÐ
­çÚÐ-ÐÐ
­èÚÐ-ÐÐ
­éÚÐ- ÐÐ
­êÚÐ-!ÐÐ
­ëÚÐ-ÐÐ
­ìÚÐ-"ÐÐ
­íÚÐ-#ÐÐ
­îÚÐ-$ÐÐ
­ïÚÐ-%ÐÐ
­ðÚÐ-ÐÐ
­ñÚÐ-ÐÐ
­òÚÐ-&ÐÐ
­óÚÐ-ÐÐ
­ôÚÐ-'ÐÐ
­õÚÐ-ÐÐ
­öÚÐ-ÐÐ
­÷ÚÐ-(ÐÐ
­øÚÐ-ÐÐ
­ùÚÐ-ÐÐ
­úÚÐ-ÐÐ
­ûÚÐ-ÐÐ
­üÚÐ- ÐÐ
­ýÚÐ-!ÐÐ
­þÚÐ-ÐÐ
­ÿÚÐ-"ÐÐ
­ÚÐ-)ÐÐ
­ÚÐ-$ÐÐ
­ÚÐ-%ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-*ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-+ÐÐ
­ÚÐ-ÐÐ
­	ÚÐ-ÐÐ
­
ÚÐ-,ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­
ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ- ÐÐ
­ÚÐ-!ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-"ÐÐ
­ÚÐ--ÐÐ
­ÚÐ-$ÐÐ
­ÚÐ-%ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-.ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-/ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­!ÚÐ-ÐÐ
­"ÚÐ- ÐÐ
­#ÚÐ-!ÐÐ
­$ÚÐ-ÐÐ
­%ÚÐ-"ÐÐ
­&ÚÐ-1ÐÐ
­'ÚÐ-$ÐÐ
­(ÚÐ-%ÐÐ
­)ÚÐ-ÐÐ
­*ÚÐ-ÐÐ
­+ÚÐ-2ÐÐ
­,ÚÐ-ÐÐ
­-ÚÐ-3ÐÐ
­.ÚÐ-ÐÐ
­/ÚÐ-ÐÐ
­0ÚÐ-4ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­5ÚÐ- ÐÐ
­6ÚÐ-!ÐÐ
­7ÚÐ-ÐÐ
­8ÚÐ-"ÐÐ
­9ÚÐ-5ÐÐ
­:ÚÐ-$ÐÐ
­;ÚÐ-%ÐÐ
­<ÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­>ÚÐ-6ÐÐ
­?ÚÐ-ÐÐ
­@ÚÐ-7ÐÐ
­AÚÐ-ÐÐ
­BÚÐ-ÐÐ
­CÚÐ-8ÐÐ
­DÚÐ-ÐÐ
­EÚÐ-ÐÐ
­FÚÐ-ÐÐ
­GÚÐ-ÐÐ
­HÚÐ- ÐÐ
­IÚÐ-!ÐÐ
­JÚÐ-ÐÐ
­KÚÐ-"ÐÐ
­LÚÐ-9ÐÐ
­MÚÐ-$ÐÐ
­NÚÐ-%ÐÐ
­OÚÐ-ÐÐ
­PÚÐ-ÐÐ
­QÚÐ-:ÐÐ
­RÚÐ-ÐÐ
­SÚÐ-;ÐÐ
­TÚÐ-ÐÐ
­UÚÐ-ÐÐ
­VÚÐ-<ÐÐ
­WÚÐ-ÐÐ
­XÚÐ-ÐÐ
­YÚÐ-ÐÐ
­ZÚÐ-ÐÐ
­[ÚÐ- ÐÐ
­\ÚÐ-!ÐÐ
­]ÚÐ-ÐÐ
­^ÚÐ-"ÐÐ
­_ÚÐ-=ÐÐ
­`ÚÐ-$ÐÐ
­aÚÐ-%ÐÐ
­bÚÐ-ÐÐ
­cÚÐ-ÐÐ
­dÚÐ->ÐÐ
­eÚÐ-ÐÐ
­fÚÐ-?ÐÐ
­gÚÐ-ÐÐ
­hÚÐ-ÐÐ
­iÚÐ-@ÐÐ
­jÚÐ-ÐÐ
­kÚÐ-ÐÐ
­lÚÐ-ÐÐ
­mÚÐ-ÐÐ
­nÚÐ- ÐÐ
­oÚÐ-!ÐÐ
­pÚÐ-ÐÐ
­qÚÐ-"ÐÐ
­rÚÐ-AÐÐ
­sÚÐ-$ÐÐ
­tÚÐ-%ÐÐ
­uÚÐ-ÐÐ
­vÚÐ-ÐÐ
­wÚÐ-BÐÐ
­xÚÐ-ÐÐ
­yÚÐ-CÐÐ
­zÚÐ-ÐÐ
­{ÚÐ-ÐÐ
­|ÚÐ-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Є-…І‡-ˆ‰ŠЋŒ­