力控曲线

曲线的添加

1、选择趋势曲线控件、两个下拉框、一个下拉列表

2、双击ComboBox下拉框，输入列表成员，然后点击

输入脚本程序：

#ComboBox2.ListClear();

SWITCH (#ComboBox.ListGetSelection(),0) CASE 0:

#ComboBox2.ListAddItem("一网温度");

#ComboBox2.ListAddItem("一网压力");

#ComboBox2.ListAddItem("二网温度");

#ComboBox2.ListAddItem("二网压力");

DEFAULT:

ENDSWITCH

3、双击ComboBox2下拉框点击，输入脚本程序：

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="一网温度"

then

#Listbox.ListClear();

#Listbox.ListAddItem("一网供水温度");

#Listbox.ListAddItem("一网回水温度");

else

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="一网压力"

then

#Listbox.ListClear();

#Listbox.ListAddItem("一网供水压力");

#Listbox.ListAddItem("一网回水压力");

else

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="二网温度"

then

#Listbox.ListClear();

#Listbox.ListAddItem("二网供水温度");

#Listbox.ListAddItem("二网回水温度");

else

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="二网压力"

then

#Listbox.ListClear();

#Listbox.ListAddItem("二网供水压力");

#Listbox.ListAddItem("二网回水压力");

else

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="一网温度"

then

#Listbox.ListClear();

#Listbox.ListAddItem("一网供水温度");

#Listbox.ListAddItem("一网回水温度");

else

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="一网压力"

then

#Listbox.ListClear();

#Listbox.ListAddItem("一网供水压力");

#Listbox.ListAddItem("一网回水压力");

else

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="二网温度"

then

#Listbox.ListClear();

#Listbox.ListAddItem("二网供水温度");

#Listbox.ListAddItem("二网回水温度");

else

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="二网压力"

then

#Listbox.ListClear();

#Listbox.ListAddItem("二网供水压力");

#Listbox.ListAddItem("二网回水压力");

else

#Listbox.ListClear();

endif

endif

endif

endif

endif

endif

endif

Endif

4、双击“添加曲线按钮”左键动作中输入脚本程序：

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="一网温度"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="yhz_ywgswd.PV";

CASE 1:

a1.desc="yhz_ywhswd.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="一网压力"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="yhz_ywgsyl.PV";

CASE 1:

a1.desc="yhz_ywhsyl.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$Curtime-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="二网温度"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="yhz_ewgswd.PV";

CASE 1:

a1.desc="yhz_ewhswd.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li

stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="一号站" && #ComboBox2.GetWindowsText()=="二网压力"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="yhz_ewgsyl.PV";

CASE 1:

a1.desc="yhz_ewhsyl.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="一网温度"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="ehz_ywgswd.PV";

CASE 1:

a1.desc="ehz_ywhswd.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="一网压

力"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="ehz_ywgsyl.PV";

CASE 1:

a1.desc="ehz_ywhsyl.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$Curtime-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="二网温度"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="ehz_ewgswd.PV";

CASE 1:

a1.desc="ehz_ewhswd.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

endif

IF #ComboBox.GetWindowsText()=="二号站" && #ComboBox2.GetWindowsText()=="二网压力"

then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1

then SWITCH (i) CASE 0:

a1.desc="ehz_ewgsyl.PV";

CASE 1:

a1.desc="ehz_ewhsyl.PV";

DEFAULT:

ENDSWITCH

#SuperCurve.AddCurveEx(#ListBox.ListGetItem(i),$CURTIME-60,60,a1.desc,0,100);

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.Li stGetItem(i),rand(255),0,0)

endif

NEXT

6、双击“删除曲线按钮”左键动作中输入脚本程序：

#SuperCurve.RemoveCurve(0);

7、下拉列表风格为多选扩展

8、保存运行

运行结果：