џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ0џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABC XџўџBMPџўџџўџџўџџўџ џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ<Њџўџџўџ{Ext("Pen Selection")}Н№№№џўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ 0f37c3a4e014b900d5a9a0857c3f0721џўџџўџџўџџўџРРР Б)mџўџ&8041128283q59299-738239xx%%Ючї џўџ&8041128283q59299-738239 џўџџўџѓџМ џўџArialьщиџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџaЗZrџўџ&81011289283q150899-3398239аа РРР џўџџўџџўџџўџџўџњ џўџџўџClose("TrendSel")џўTrendSel"џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ&81011289283q150899-3398239 џўџџўџCancelѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџT џўџ&45511-59283q1429998239 C+РРР џўџ&45511-59283q1429998239џўџџўџ Instrument:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ4!.џўџ&42311-35283q14899-498239=8EРРР џўџ&42311-35283q14899-498239џўџџўџ Filters ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABC№№№џўџџўџџўџџўџ1W6C 0+РРР  џўџџўџџўџџўџџўџџўџTrendSel.SelDevType < 2К<џўџ0џўџ0.000000џџџъџўџ1џўџ1.000000  Є  Єџџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџџўџModule:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ,WR_џўџ&4581114283q30899-1208239 5+РРР џўџ&4581114283q30899-1208239џўџџўџChannel:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџц6Cџўџ&63011-14283q610991228239 '+РРР џўџ&63011-14283q610991228239џўџџўџLabel:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџьS`џўџ&6301115283q67499708239 !+РРР џўџ&6301115283q67499708239џўџџўџUnit:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџUЋMeџўџ&7981120283q946991878239rrUUРРР џўџџўџџўџџўџџўџњ џўџp$TrendSel.ModuleFilter = 0 $TrendSel.ChannelFilter = 0 $TrendSel.labelfilter = "" $TrendSel.UnitFilter = "" џўџжCall StSetMnTagVal__(442, 0, 2, 0, 0, 16, 1, "", 0) Call StSetMnTagVal__(442, 0, 3, 0, 0, 16, 2, "", 0) Call StSetMnTagVal__(442, 0, 9, 0, 0, 16, 3, "", "") Call StSetMnTagVal__(442, 0, 11, 0, 0, 16, 4, "", "")џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ&7981120283q946991878239 џўџџўџResetѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџZZrџўџ&71711289283q132299-4328239аа РРР џўџџўџџўџџўџџўџњ џўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџџDim Index Index = $TrendPointNum - 1 $TrendSelChs[Index].Instrument = $TrendSelLineValues[0] If ($TrendSelLineValues[1] = "Channel") Then $TrendSelChs[Index].Module = 0 ElseIf ($TrendSelLineValues[1] = "Computed") Then $TrendSelChs[Index].Module = 7 ElseIf ($TrendSelLineValues[1] = "00") Then $TrendSelChs[Index].Module = 6 Else $TrendSelChs[Index].Module = $TrendSelLineValues[1] End If $TrendSelChs[Index].Channel = $TrendSelLineValues[2] $TrendSelChs[Index].Label = $TrendSelLineValues[3] $TrendSelChs[Index].Unit = $TrendSelLineValues[4] $TrendSelChs[Index].Desc = $TrendSelLineValues[5] $TrendSelChs[Index].Tag = $TrendSelLineValues[6] If $TrendIndicator = 1 Then $TrendAddedPoints = $TrendAddedPoints + 1 $TrendIndicator = 0 End If $Close("TrendSel")џўџџ2Dim Index Index = StGetMnTagVal__(431, 0, 0, 0, 0, "") - 1 Call StSetMnTagVal__(443, Index, 1, 0, 0, 17, 3, "", StGetMnTagVal__(444, 0, 0, 0, 0, "") ) If (StGetMnTagVal__(444, 1, 0, 0, 0, "") = "Channel") Then Call StSetMnTagVal__(443, Index, 2, 0, 0, 17, 5, "", 0) ElseIf (StGetMnTagVal__(444, 1, 0, 0, 0, "") = "Computed") Then Call StSetMnTagVal__(443, Index, 2, 0, 0, 17, 7, "", 7) ElseIf (StGetMnTagVal__(444, 1, 0, 0, 0, "") = "00") Then Call StSetMnTagVal__(443, Index, 2, 0, 0, 17, 9, "", 6) Else Call StSetMnTagVal__(443, Index, 2, 0, 0, 17, 11, "", StGetMnTagVal__(444, 1, 0, 0, 0, "") ) End If Call StSetMnTagVal__(443, Index, 3, 0, 0, 17, 14, "", StGetMnTagVal__(444, 2, 0, 0, 0, "") ) Call StSetMnTagVal__(443, Index, 5, 0, 0, 17, 15, "", StGetMnTagVal__(444, 3, 0, 0, 0, "") ) Call StSetMnTagVal__(443, Index, 4, 0, 0, 17, 16, "", StGetMnTagVal__(444, 4, 0, 0, 0, "") ) Call StSetMnTagVal__(443, Index, 6, 0, 0, 17, 17, "", StGetMnTagVal__(444, 5, 0, 0, 0, "") ) Call StSetMnTagVal__(443, Index, 7, 0, 0, 17, 18, "", StGetMnTagVal__(444, 6, 0, 0, 0, "") ) If StGetMnTagVal__(432, 0, 0, 0, 0, "") = 1 Then Call StSetMnTagVal__(433, 0, 0, 0, 0, 17, 21, "", StGetMnTagVal__(433, 0, 0, 0, 0, "") + 1) Call StSetMnTagVal__(432, 0, 0, 0, 0, 17, 22, "", 0) End If Call StFunction1__(34, 1, "TrendSel")џўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџЭЭЭ ЭЭџўџџўџџўџ&71711289283q132299-4328239 џўџџўџOKѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ь'џўџ&џўџџўџџўџ ЕtRОjРРР џўџ џўџџўџџўџџўџџўџTrendSel.SelDevType > 1К>џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџџўџџўџѕџ"џўџTahomaџўџџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџџџџщџщџџџџўџ InstrumentџўџџўџџўџџўџџўџџўџModuleџўџџўџџўџPџўџџўџџўџChannelџўџџўџџўџPџўџџўџџўџLabelџўџџўџџўџШџўџџўџџўџUnitџўџџўџџўџ<џўџџўџџўџ DescriptionџўџџўџџўџџўџџўџџўџTagџўџџўџџўџџўџџўџџўџџўџ0|80|80|200|60|0|0џўџ%%%%%$$$$&&ABCџўџ1 џўџџўџTrendSelLineValuesџўџTrendSel.Reloadџўџџўџџўџ{$TrendSel.Filter}џўџџўџџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџџўџџўџџўџWeb\InstrumentList.txtџўџ|џўџ™џ™џ%џўџ$џўџџўџџўџWˆџўџ&50711-54283q25699758239<z0РРР џўџ&50711-54283q25699758239џўџџџџџўџѕџ"џўџTahomaџўџџўџTrendSel.InstrumentџўџџўџsDevCmbArray[1]џўџTrendSel.InstrumentCountџўџџўџџўџџўџџўџ%џўџ$џўџџўџџўџYХ2G<z0РРР џўџ џўџџўџџўџџўџџўџ$TrendSel.ShowCombo = 0К=џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџџўџџџџџўџTrendSel.SelDevType < 2К<ѕџ"џўџTahomaџўџџўџTrendSel.ModuleFilterџўџџўџџўџџўџ'(All) 01 02 03 04 05 06 Computedџўџџўџџўџџўџ%џўџ$џўџџўџџўџYšNcџўџ&5251118283q42099-678239<z0РРР џўџ џўџџўџџўџџўџџўџ$TrendSel.ShowCombo = 0К=џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ&5251118283q42099-678239џўџџџџџўџѕџ"џўџTahomaџўџџўџTrendSel.ChannelFilterџўџџўџsTrenSelChannels[0]џўџTrendSel.ChannelCountџўџѕ(All) 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60џўџџўџџўџџўџ'џўџ&џўџџўџџўџ ВtRОjРРР џўџ џўџџўџџўџџўџџўџTrendSel.SelDevType < 2К<џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџџўџџўџѕџ"џўџTahomaџўџџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџџџџщџщџџџџўџ InstrumentџўџџўџџўџџўџџўџџўџModuleџўџџўџџўџџўџџўџџўџChannelџўџџўџџўџPџўџџўџџўџLabelџўџџўџџўџШџўџџўџџўџUnitџўџџўџџўџ<џўџџўџџўџ DescriptionџўџџўџџўџџўџџўџџўџTagџўџџўџџўџџўџџўџџўџџўџ0|0|80|200|60|0|0џўџ%%%%%$$$$&&ABCџўџ1 џўџџўџTrendSelLineValuesџўџTrendSel.Reloadџўџџўџџўџ{$TrendSel.Filter}џўџџўџџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџTrendSel.NumberOfRowsџўџџўџџўџWeb\InstrumentList.txtџўџ|џўџ™џ™џ(џўџ)џўџџўџџўџ1a„Њ2Fџўџ&79711-11283q806991608239pЮ]zЮчї џўџ&79711-11283q806991608239џўџџџџџўџѕџ џўџTahomaџўџTrendSel.LabelFilterК џўџџўџџўџ0.000000џўџџўџ0.000000џўџџўџ(џўџ)џўџџўџџўџ1a„RPdџўџ&7091119283q778991008239pЮ]zЮчї џўџ&7091119283q778991008239џўџџџџџўџѕџ џўџTahomaџўџTrendSel.UnitFilterК џўџџўџџўџ0.000000џўџџўџ0.000000џўџџўџ%џўџ$џўџџўџџўџYХ2G<z0РРР џўџ џўџџўџџўџџўџџўџ$TrendSel.ShowCombo = 2К=џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџџўџџџџџўџTrendSel.SelDevType < 2К<ѕџ"џўџTahomaџўџџўџTrendSel.ModuleFilterџўџџўџџўџџўџ(All) 01 02 03 Computedџўџџўџџўџџўџ%џўџ$џўџџўџџўџYХ2G<z0РРР џўџ џўџџўџџўџџўџџўџ$TrendSel.ShowCombo = 1К=џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџџўџџџџџўџTrendSel.SelDevType < 2К<ѕџ"џўџTahomaџўџџўџTrendSel.ModuleFilterџўџџўџџўџџўџ(All) 01 02 Computedџўџџўџџўџџўџ%џўџ$џўџџўџџўџYšNcџўџ&5251118283q42099-678239<z0РРР џўџ џўџџўџџўџџўџџўџ2$TrendSel.ShowCombo =1 And TrendSel.ModuleFilter=3..К=К=„џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ&5251118283q42099-678239џўџџџџџўџѕџ"џўџTahomaџўџџўџTrendSel.ChannelFilterџўџџўџsTrenSelChannels[0]џўџTrendSel.ChannelCountџўџU(All) 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20џўџџўџџўџџўџ%џўџ$џўџџўџџўџYšNcџўџ&5251118283q42099-678239<z0РРР џўџ џўџџўџџўџџўџџўџ2$TrendSel.ShowCombo =2 And TrendSel.ModuleFilter=4..К=К=„џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ&5251118283q42099-678239џўџџџџџўџѕџ"џўџTahomaџўџџўџTrendSel.ChannelFilterџўџџўџsTrenSelChannels[0]џўџTrendSel.ChannelCountџўџU(All) 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20џўџџўџџўџџўџ%џўџ$џўџџўџџўџYšNcџўџ&5251118283q42099-678239<z0РРР џўџ џўџџўџџўџџўџџўџNot($TrendSel.ShowCombo =1 And TrendSel.ModuleFilter=3) And Not($TrendSel.ShowCombo =2 And TrendSel.ModuleFilter=4) And $TrendSel.SHowCOmbo>0ttК=К=„ƒК=К=„ƒ„К>„џўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџџўџ&5251118283q42099-678239џўџџџџџўџѕџ"џўџTahomaџўџџўџTrendSel.ChannelFilterџўџџўџsTrenSelChannels[0]џўџTrendSel.ChannelCountџўџ](All) 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22џўџџўџџўџџўџџўџџўџ0.000000џўџVBScriptdџўџџ3 Dim oldfilter 'Variables available on this screen can be declared and initialized here. 'Procedures available on this screen can be implemented here Dim auxTrendSel 'This procedure is executed just once when this screen is open. Sub Screen_OnOpen() If ($bHasLicense=False And $TrendAddedPoints=4) Then $Close("TrendSel") $TrendSel.InstrumentCount = $nDevCmbAmount - 1 If ($TrendSel.Instrument < 1) Or $TrendSel.Instrument > $TrendSel.InstrumentCount Then $TrendSel.Instrument = 1 End If auxTrendSel = $TrendSel.Instrument Call CheckCombo() End Sub 'This procedure is executed continuously while this screen is open. Sub Screen_WhileOpen() If auxTrendSel <> $TrendSel.Instrument Then Call CheckCombo() auxTrendSel = $TrendSel.Instrument End If Dim myinst Dim myinststr myinststr = $sDevCmbArray[$TrendSel.Instrument] $TrendSel.Filter = "Instrument = '" + myinststr + "'" myinst = $Num(myinststr) $TrendSel.SelDevType = $nDevices[myinst] If($TrendSel.SelDevType < 1) Then $TrendSel.ModuleFilter = 0 End If If $TrendSel.ShowCombo = 0 Then If $TrendSel.ModuleFilter > 0 And $TrendSel.ModuleFilter < 7 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = '" + $Format("%02d", $TrendSel.ModuleFilter) + "'" End If If $TrendSel.ModuleFilter = 7 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = 'Computed'" End If ElseIf $TrendSel.ShowCombo = 1 Then If $TrendSel.ModuleFilter > 0 And $TrendSel.ModuleFilter < 3 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = '" + $Format("%02d", $TrendSel.ModuleFilter) + "'" End If If $TrendSel.ModuleFilter = 3 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = 'Computed'" End If ElseIf $TrendSel.ShowCombo = 2 Then If $TrendSel.ModuleFilter > 0 And $TrendSel.ModuleFilter < 4 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = '" + $Format("%02d", $TrendSel.ModuleFilter) + "'" End If If $TrendSel.ModuleFilter = 4 Then $TrendSel.Filter = $TrendSel.Filter + " And Module = 'Computed'" End If End If If $TrendSel.ChannelFilter > 0 Then $TrendSel.Filter = $TrendSel.Filter + " And Channel = '" + $Format("%02d", $TrendSel.ChannelFilter) + "'" End If If $StrTrim($TrendSel.LabelFilter) <> "" Then $TrendSel.Filter = $TrendSel.Filter + " And Label = '" + $TrendSel.LabelFilter + "'" End If If $StrTrim($TrendSel.UnitFilter) <> "" Then $TrendSel.Filter = $TrendSel.Filter + " And Unit = '" + $TrendSel.UnitFilter + "'" End If If $TrendSel.Filter <> oldFilter Then $TrendSel.Reload = $Toggle($TrendSel.Reload) oldFilter = $TrendSel.Filter End If End Sub 'This procedure is executed just once when this screen is closed. Sub Screen_OnClose() End Sub Function CheckCombo() If $nDevices[$Num($sDevCmbArray[$TrendSel.Instrument])]=4 Then $TrendSel.ShowCombo = 1 ElseIf $nDevices[$Num($sDevCmbArray[$TrendSel.Instrument])]=5 Then $TrendSel.ShowCombo = 2 Else $TrendSel.ShowCombo = 0 End If If ($bHasLicense=False And $TrendAddedPoints=4) Then $Open("LITELinceseError") End Function џўџџ+Dim oldfilter Dim auxTrendSel Sub Screen_OnOpen() If (StGetMnTagVal__(587, 0, 0, 0, 0, "") =False And StGetMnTagVal__(433, 0, 0, 0, 0, "") =4) Then Call StFunction1__(34, 1, "TrendSel") Call StSetMnTagVal__(442, 0, 5, 0, 0, 1, 11, "", StGetMnTagVal__(262, 0, 0, 0, 0, "") - 1) If (StGetMnTagVal__(442, 0, 1, 0, 0, "") < 1) Or StGetMnTagVal__(442, 0, 1, 0, 0, "") > StGetMnTagVal__(442, 0, 5, 0, 0, "") Then Call StSetMnTagVal__(442, 0, 1, 0, 0, 1, 13, "", 1) End If auxTrendSel = StGetMnTagVal__(442, 0, 1, 0, 0, "") Call CheckCombo() End Sub Sub Screen_WhileOpen() If auxTrendSel <> StGetMnTagVal__(442, 0, 1, 0, 0, "") Then Call CheckCombo() auxTrendSel = StGetMnTagVal__(442, 0, 1, 0, 0, "") End If Dim myinst Dim myinststr myinststr = StGetMnTagVal__(261, StGetMnTagVal__(442, 0, 1, 0, 0, "") , 0, 0, 0, "") Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 31, "", "Instrument = '" + myinststr + "'") myinst = StFunction1__(26, 1, myinststr) Call StSetMnTagVal__(442, 0, 4, 0, 0, 1, 34, "", StGetMnTagVal__(126, myinst, 0, 0, 0, "") ) If(StGetMnTagVal__(442, 0, 4, 0, 0, "") < 1) Then Call StSetMnTagVal__(442, 0, 2, 0, 0, 1, 37, "", 0) End If If StGetMnTagVal__(442, 0, 15, 0, 0, "") = 0 Then If StGetMnTagVal__(442, 0, 2, 0, 0, "") > 0 And StGetMnTagVal__(442, 0, 2, 0, 0, "") < 7 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 42, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = '" + StFunction1__(43, 2, "%02d", StGetMnTagVal__(442, 0, 2, 0, 0, "") ) + "'") End If If StGetMnTagVal__(442, 0, 2, 0, 0, "") = 7 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 46, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = 'Computed'") End If ElseIf StGetMnTagVal__(442, 0, 15, 0, 0, "") = 1 Then If StGetMnTagVal__(442, 0, 2, 0, 0, "") > 0 And StGetMnTagVal__(442, 0, 2, 0, 0, "") < 3 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 50, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = '" + StFunction1__(43, 2, "%02d", StGetMnTagVal__(442, 0, 2, 0, 0, "") ) + "'") End If If StGetMnTagVal__(442, 0, 2, 0, 0, "") = 3 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 54, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = 'Computed'") End If ElseIf StGetMnTagVal__(442, 0, 15, 0, 0, "") = 2 Then If StGetMnTagVal__(442, 0, 2, 0, 0, "") > 0 And StGetMnTagVal__(442, 0, 2, 0, 0, "") < 4 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 58, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = '" + StFunction1__(43, 2, "%02d", StGetMnTagVal__(442, 0, 2, 0, 0, "") ) + "'") End If If StGetMnTagVal__(442, 0, 2, 0, 0, "") = 4 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 62, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Module = 'Computed'") End If End If If StGetMnTagVal__(442, 0, 3, 0, 0, "") > 0 Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 66, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Channel = '" + StFunction1__(43, 2, "%02d", StGetMnTagVal__(442, 0, 3, 0, 0, "") ) + "'") End If If StFunction1__(67, 1, StGetMnTagVal__(442, 0, 9, 0, 0, "") ) <> "" Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 70, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Label = '" + StGetMnTagVal__(442, 0, 9, 0, 0, "") + "'") End If If StFunction1__(67, 1, StGetMnTagVal__(442, 0, 11, 0, 0, "") ) <> "" Then Call StSetMnTagVal__(442, 0, 6, 0, 0, 1, 74, "", StGetMnTagVal__(442, 0, 6, 0, 0, "") + " And Unit = '" + StGetMnTagVal__(442, 0, 11, 0, 0, "") + "'") End If If StGetMnTagVal__(442, 0, 6, 0, 0, "") <> oldFilter Then Call StSetMnTagVal__(442, 0, 10, 0, 0, 1, 78, "", StFunction1__(251, 1, StGetMnTagVal__(442, 0, 10, 0, 0, "") )) oldFilter = StGetMnTagVal__(442, 0, 6, 0, 0, "") End If End Sub Sub Screen_OnClose() End Sub Function CheckCombo() If StGetMnTagVal__(126, StFunction1__(26, 1, StGetMnTagVal__(261, StGetMnTagVal__(442, 0, 1, 0, 0, "") , 0, 0, 0, "") ), 0, 0, 0, "") =4 Then Call StSetMnTagVal__(442, 0, 15, 0, 0, 1, 91, "", 1) ElseIf StGetMnTagVal__(126, StFunction1__(26, 1, StGetMnTagVal__(261, StGetMnTagVal__(442, 0, 1, 0, 0, "") , 0, 0, 0, "") ), 0, 0, 0, "") =5 Then Call StSetMnTagVal__(442, 0, 15, 0, 0, 1, 93, "", 2) Else Call StSetMnTagVal__(442, 0, 15, 0, 0, 1, 95, "", 0) End If If (StGetMnTagVal__(587, 0, 0, 0, 0, "") =False And StGetMnTagVal__(433, 0, 0, 0, 0, "") =4) Then Call StFunction1__(33, 1, "LITELinceseError") End FunctionџўџККК КК БАЏЛММџџМўџМ§џМќџМћџМњџКК МџџКККћККџўџTRENDSEL.SELDEVTYPEџўџTRENDSEL.CHANNELFILTERџўџTRENDSEL.LABELFILTERџўџTRENDSEL.MODULEFILTERџўџTRENDSEL.UNITFILTERџўџTRENDADDEDPOINTSџўџTRENDINDICATORџўџ TRENDPOINTNUMџўџ TRENDSELCHSџўџTRENDSELLINEVALUES[0]џўџTRENDSELLINEVALUES[1]џўџTRENDSELLINEVALUES[2]џўџTRENDSELLINEVALUES[3]џўџTRENDSELLINEVALUES[4]џўџTRENDSELLINEVALUES[5]џўџTRENDSELLINEVALUES[6]џўџTRENDSEL.FILTERџўџTRENDSEL.RELOADџўџTRENDSELLINEVALUESџўџSDEVCMBARRAY[1]џўџTRENDSEL.INSTRUMENTџўџTRENDSEL.INSTRUMENTCOUNTџўџTRENDSEL.SHOWCOMBOџўџSTRENSELCHANNELS[0]џўџTRENDSEL.CHANNELCOUNTџўџTRENDSEL.NUMBEROFROWS