[r818]: / branches / FeatureBranches / Debuglogging / SparkplugB / Functions / FindChanges / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 20.5 kB

Gx_lP!0…jьoЙ71$ЅЉ‹м$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 );ёFOR Index := LOWER_BOUND( arSparkplugBoolean, 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 THENX            FindChanges   := AddMetricError;D            ErrorDetected := TRUE;        END_IF^        NumberOfChanges := NumberOfChanges + 1;l        arSparkplugBoolean[Index].AcknowledgeNotify();     END_IF!END_FOR"#ёFOR Index := LOWER_BOUND( arSparkplugDateTime,1 ) TO UPPER_BOUND( arSparkplugDateTime,1 ) DO$Z    IF arSparkplugDateTime[Index].Notify THEN%Т                                                           SparkPlugObject := arSparkplugDateTime[Index],&n        arSparkplugDateTime[Index].AcknowledgeNotify();'°FOR Index := LOWER_BOUND( arSparkplugFloat, 1 ) TO UPPER_BOUND( arSparkplugFloat, 1 ) DO(T    IF arSparkplugFloat[Index].Notify THEN)М                                                           SparkPlugObject := arSparkplugFloat[Index],*h        arSparkplugFloat[Index].AcknowledgeNotify();+¶FOR Index := LOWER_BOUND( arSparkplugDouble, 1 ) TO UPPER_BOUND( arSparkplugDouble,  1 ) DO,V    IF arSparkplugDouble[Index].Notify THEN-О                                                           SparkPlugObject := arSparkplugDouble[Index],.j        arSparkplugDouble[Index].AcknowledgeNotify();/¬FOR Index := LOWER_BOUND( arSparkplugInt8, 1 ) TO UPPER_BOUND( arSparkplugInt8, 1 ) DO0R    IF arSparkplugInt8[Index].Notify THEN1К                                                           SparkPlugObject := arSparkplugInt8[Index],2f        arSparkplugInt8[Index].AcknowledgeNotify();3°FOR Index := LOWER_BOUND( arSparkplugInt16, 1 ) TO UPPER_BOUND( arSparkplugInt16, 1 ) DO4T    IF arSparkplugInt16[Index].Notify THEN5М                                                           SparkPlugObject := arSparkplugInt16[Index],6h        arSparkplugInt16[Index].AcknowledgeNotify();7°FOR Index := LOWER_BOUND( arSparkplugInt32, 1 ) TO UPPER_BOUND( arSparkplugInt32, 1 ) DO8T    IF arSparkplugInt32[Index].Notify THEN9М                                                           SparkPlugObject := arSparkplugInt32[Index],:h        arSparkplugInt32[Index].AcknowledgeNotify();;°FOR Index := LOWER_BOUND( arSparkplugInt64, 1 ) TO UPPER_BOUND( arSparkplugInt64, 1 ) DO<T    IF arSparkplugInt64[Index].Notify THEN=М                                                           SparkPlugObject := arSparkplugInt64[Index],>h        arSparkplugInt64[Index].AcknowledgeNotify();?°FOR Index := LOWER_BOUND( arSparkplugUInt8, 1 ) TO UPPER_BOUND( arSparkplugUInt8, 1 ) DO@T    IF arSparkplugUInt8[Index].Notify THENAМ                                                           SparkPlugObject := arSparkplugUInt8[Index],Bh        arSparkplugUInt8[Index].AcknowledgeNotify();CґFOR Index := LOWER_BOUND( arSparkplugUInt16, 1 ) TO UPPER_BOUND( arSparkplugUInt16, 1 ) DODV    IF arSparkplugUInt16[Index].Notify THENEО                                                           SparkPlugObject := arSparkplugUInt16[Index],Fj        arSparkplugUInt16[Index].AcknowledgeNotify();GґFOR Index := LOWER_BOUND( arSparkplugUInt32, 1 ) TO UPPER_BOUND( arSparkplugUInt32, 1 ) DOHV    IF arSparkplugUInt32[Index].Notify THENIО                                                           SparkPlugObject := arSparkplugUInt32[Index],Jj        arSparkplugUInt32[Index].AcknowledgeNotify();KґFOR Index := LOWER_BOUND( arSparkplugUInt64, 1 ) TO UPPER_BOUND( arSparkplugUInt64, 1 ) DOLV    IF arSparkplugUInt64[Index].Notify THENMО                                                           SparkPlugObject := arSparkplugUInt64[Index],Nj        arSparkplugUInt64[Index].AcknowledgeNotify();O¬FOR Index := LOWER_BOUND( arSparkplugUUID, 1 ) TO UPPER_BOUND( arSparkplugUUID, 1 ) DOPR    IF arSparkplugUUID[Index].Notify THENQК                                                           SparkPlugObject := arSparkplugUUID[Index],Rf        arSparkplugUUID[Index].AcknowledgeNotify();SЁFOR Index := LOWER_BOUND( arSparkplugText,1 ) TO UPPER_BOUND( arSparkplugText,1 ) DOTR    IF arSparkplugText[Index].Notify THENUК                                                           SparkPlugObject := arSparkplugText[Index],Vf        arSparkplugText[Index].AcknowledgeNotify();WґFOR Index := LOWER_BOUND( arSparkplugString, 1 ) TO UPPER_BOUND( arSparkplugString, 1 ) DOXV    IF arSparkplugString[Index].Notify THENYО                                                           SparkPlugObject := arSparkplugString[Index],Zj        arSparkplugString[Index].AcknowledgeNotify();[RChangeDetected := (NumberOfChanges <> 0);\Interface]L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}^(*_Ё    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).`’    When the Element has been processed, the notifier gets acknowledged. aR    Be sure to run this code continously!b*)c${attribute 'hide'}d8FUNCTION FindChanges : ERROReVAR_IN_OUTft    arSparkplugBoolean  : ARRAY[*] OF FB_SparkplugBoolean;gv    arSparkplugDateTime : ARRAY[*] OF FB_SparkplugDateTime;hp    arSparkplugFloat    : ARRAY[*] OF FB_SparkplugFloat;ir    arSparkplugDouble   : ARRAY[*] OF FB_SparkplugDouble;jn    arSparkplugInt8     : ARRAY[*] OF FB_SparkplugInt8;kp    arSparkplugInt16    : ARRAY[*] OF FB_SparkplugInt16;lp    arSparkplugInt32    : ARRAY[*] OF FB_SparkplugInt32;mp    arSparkplugInt64    : ARRAY[*] OF FB_SparkplugInt64;np    arSparkplugUInt8    : ARRAY[*] OF FB_SparkplugUInt8;or    arSparkplugUInt16   : ARRAY[*] OF FB_SparkplugUInt16;pr    arSparkplugUInt32   : ARRAY[*] OF FB_SparkplugUInt32;qr    arSparkplugUInt64   : ARRAY[*] OF FB_SparkplugUInt64;rn    arSparkplugUUID     : ARRAY[*] OF FB_SparkplugUUID;sn    arSparkplugText     : ARRAY[*] OF FB_SparkplugText;tr    arSparkplugString   : ARRAY[*] OF FB_SparkplugString;u     AllMetricsList      : LIST; // AllMetricsList in which the changes are addedvEND_VARwVAR_INPUTxb    pSparkplugB : POINTER TO FB_SparkplugBSimple;yVAR_OUTPUTzљ    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ЪР-РР
­pЪР-РР
­qЪР-РР
­rЪР-РР
­sЪР-РР
­uЪР-РР
­vЪР-РР
­wЪР-РР
­xЪР-РР
­zЪР-РР
­{ЪР-РР
­|ЪР- РР
­}ЪР-!РР
­~ЪР-"РР
­ЪР-#РР
­‚ЪР-$РР
­ѓЪР-РР
­„ЪР-%РР
­…ЪР-РР
­†ЪР-"РР
­‡ЪР-РР
­€ЪР-РР
­‰ЪР-РР
­ЉЪР-РР
­ЊЪР-РР
­ЌЪР-&РР
­ЋЪР- РР
­ЏЪР-!РР
­ђЪР-"РР
­‘ЪР-'РР
­”ЪР-(РР
­•ЪР-РР
­–ЪР-)РР
­—ЪР-РР
­™ЪР-РР
­љЪР-РР
­›ЪР-РР
­њЪР-РР
­ћЪР-РР
­џЪР-*РР
­ ЪР- РР
­ЎЪР-!РР
­ўЪР-"РР
­ЈЪР-+РР
­¦ЪР-,РР
­§ЪР-РР
­ЁЪР--РР
­©ЪР-РР
­«ЪР-РР
­¬ЪР-РР
­­ЪР-РР
­®ЪР-РР
­°ЪР-РР
­±ЪР-.РР
­ІЪР- РР
­іЪР-!РР
­ґЪР-"РР
­µЪР-/РР
­ёЪР-0РР
­№ЪР-РР
­єЪР-1РР
­»ЪР-РР
­ЅЪР-РР
­ѕЪР-РР
­їЪР-РР
­АЪР-РР
­ВЪР-РР
­ГЪР-2РР
­ДЪР- РР
­ЕЪР-!РР
­ЖЪР-"РР
­ЗЪР-3РР
­КЪР-4РР
­ЛЪР-РР
­МЪР-5РР
­НЪР-РР
­ПЪР-РР
­РЪР-РР
­СЪР-РР
­ТЪР-РР
­ФЪР-РР
­ХЪР-6РР
­ЦЪР- РР
­ЧЪР-!РР
­ШЪР-"РР
­ЩЪР-7РР
­ЬЪР-8РР
­ЭЪР-РР
­ЮЪР-9РР
­ЯЪР-РР
­бЪР-РР
­вЪР-РР
­гЪР-РР
­дЪР-РР
­жЪР-РР
­зЪР-:РР
­иЪР- РР
­йЪР-!РР
­кЪР-"РР
­лЪР-;РР
­оЪР-<РР
­пЪР-РР
­рЪР-=РР
­сЪР-РР
­уЪР-РР
­фЪР-РР
­хЪР-РР
­цЪР-РР
­шЪР-РР
­щЪР->РР
­ъЪР- РР
­ыЪР-!РР
­ьЪР-"РР
­эЪР-?РР
­ЪР-@РР
­ЪР-РР
­ЪР-AРР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­
ЪР-РР
­ЪР-BРР
­ЪР- РР
­
ЪР-!РР
­ЪР-"РР
­ЪР-CРР
­ЪР-DРР
­ЪР-РР
­ЪР-EРР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-FРР
­ЪР- РР
­ЪР-!РР
­ ЪР-"РР
­!ЪР-GРР
­$ЪР-HРР
­%ЪР-РР
­&ЪР-IРР
­'ЪР-РР
­)ЪР-РР
­*ЪР-РР
­+ЪР-РР
­,ЪР-РР
­.ЪР-РР
­/ЪР-JРР
­0ЪР- РР
­1ЪР-!РР
­2ЪР-"РР
­3ЪР-KРР
­6ЪР-LРР
­7ЪР-РР
­8ЪР-MРР
­9ЪР-РР
­;ЪР-РР
­<ЪР-РР
­=ЪР-РР
­>ЪР-РР
­@ЪР-РР
­AЪР-NРР
­BЪР- РР
­CЪР-!РР
­DЪР-"РР
­EЪР-OРР
­HЪР-PРР
­IЪР-РР
­JЪР-QРР
­KЪР-РР
­MЪР-РР
­NЪР-РР
­OЪР-РР
­PЪР-РР
­RЪР-РР
­SЪР-RРР
­TЪР- РР
­UЪР-!РР
­VЪР-"РР
­WЪР-SРР
­ZЪР-TРР
­[ЪР-РР
­\ЪР-UРР
­]ЪР-РР
­_ЪР-РР
­`ЪР-РР
­aЪР-РР
­bЪР-РР
­dЪР-РР
­eЪР-VРР
­fЪР- РР
­gЪР-!РР
­hЪР-"РР
­iЪР-WРР
­lЪР-XРР
­mЪР-РР
­nЪР-YРР
­oЪР-РР
­qЪР-РР
­rЪР-РР
­sЪР-РР
­tЪР-РР
­vЪР-РР
­wЪР-ZРР
­xЪР- РР
­yЪР-!РР
­ЪР-[Р\]Р	E
&РР
­CЪР-^РР
­DЪР-_РР
­EЪР-`РР
­FЪР-aРР
­GЪР-bРР
­HЪР-cРР
­IЪР-dРР
­JЪР-eРР
­KЪР-fРР
­LЪР-gРР
­MЪР-hРР
­NЪР-iРР
­OЪР-jРР
­PЪР-kРР
­QЪР-lРР
­RЪР-mРР
­SЪР-nРР
­TЪР-oРР
­UЪР-pРР
­VЪР-qРР
­WЪР-rРР
­XЪР-sРР
­YЪР-tРР
­ZЪР-uРР
­[ЪР-vРР
­\ЪР-wРР
­]ЪР-xРР
­^ЪР-vРР
­_ЪР-yРР
­`ЪР-zРР
­aЪР-{РР
­bЪР-|РР
­cЪР-vРР
­dЪР-}РР
­eЪР-~РР
­fЪР-РР
­gЪР-ЂРР
­ЪР-vРЃ-‚Рѓ„-…†‡Р€‰­