力控曲线

曲线的添加

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()==\一号站\一网温度\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\一网供水温度\ #Listbox.ListAddItem(\一网回水温度\ else

IF #ComboBox.GetWindowsText()==\一号站\一网压力\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\一网供水压力\ #Listbox.ListAddItem(\一网回水压力\

else

IF #ComboBox.GetWindowsText()==\一号站\二网温度\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\二网供水温度\ #Listbox.ListAddItem(\二网回水温度\ else

IF #ComboBox.GetWindowsText()==\一号站\二网压力\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\二网供水压力\ #Listbox.ListAddItem(\二网回水压力\

else

IF #ComboBox.GetWindowsText()==\二号站\一网温度\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\一网供水温度\ #Listbox.ListAddItem(\一网回水温度\

else

IF #ComboBox.GetWindowsText()==\二号站\一网压力\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\一网供水压力\ #Listbox.ListAddItem(\一网回水压力\ else

IF #ComboBox.GetWindowsText()==\二号站\二网温度\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\二网供水温度\ #Listbox.ListAddItem(\二网回水温度\ else

IF #ComboBox.GetWindowsText()==\二号站\二网压力\ then

#Listbox.ListClear();

#Listbox.ListAddItem(\二网供水压力\ #Listbox.ListAddItem(\二网回水压力\

else

#Listbox.ListClear(); endif endif endif endif endif endif endif Endif

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

IF #ComboBox.GetWindowsText()==\一号站\一网温度\then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1 then SWITCH (i) CASE 0: a1.desc=\ CASE 1:

a1.desc=\

DEFAULT: ENDSWITCH

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

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.ListGetItem(i),rand(255),0,0) endif NEXT endif

IF #ComboBox.GetWindowsText()==\一号站\一网压力\then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1 then SWITCH (i) CASE 0: a1.desc=\ CASE 1:

a1.desc=\ DEFAULT: ENDSWITCH

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

#SuperCurve.SetCurveAppearance(#SuperCurve.FindCurve(#listBox.ListGetItem(i)),#ListBox.ListGetItem(i),rand(255),0,0) endif NEXT endif

IF #ComboBox.GetWindowsText()==\一号站\二网温度\then

FOR i = 0 TO 5 STEP 1

if #ListBox.IsCurSelection(i)==1 then SWITCH (i) CASE 0:

a1.desc=\ CASE 1:

a1.desc=\ DEFAULT: ENDSWITCH

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

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