力控风机曲线样例代码(2)

DEFAULT:

ENDSWITCH

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

#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 10 STEP 1

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

b1.desc=\CASE 1:

b1.desc=\CASE 2:

b1.desc=\CASE 3:

b1.desc=\CASE 4:

b1.desc=\CASE 5:

b1.desc=\CASE 6;

b1.desc=\CASE 7:

b1.desc=\CASE 8:

b1.desc=\DEFAULT:

ENDSWITCH

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

#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:

b1.desc=\CASE 1:

b1.desc=\CASE 2:

b1.desc=\

DEFAULT:

ENDSWITCH

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

#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:

b1.desc=\CASE 1:

b1.desc=\

DEFAULT:

ENDSWITCH

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

#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:

b1.desc=\

DEFAULT:

ENDSWITCH

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

#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:

b1.desc=\

DEFAULT:

ENDSWITCH

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

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

5、双击“删除当前曲线”按钮左键动作中输入脚本程序： #SuperCurve.RemoveCurve(0); 6、下拉列表风格为“多选扩展”。

7、双击“切换实时曲线”按钮左键动作中输入脚本程序：

#SuperCurve.SetCurveType(1);

8、双击“切换历史曲线”按钮左键动作中输入脚本程序： #SuperCurve.SetCurveType(0);

9、双击“打印曲线”按钮左键动作中输入脚本程序： #SuperCurve.Print(1,1)

10、双击“打印曲线”按钮左键动作中输入脚本程序：

#SuperCurve.SetCurveBeginTime(0,#DateTime.Year,#DateTime.Month,#DateTime.Day,#DateTime.Hour,#DateTime.Minute,#DateTime.Second);

#SuperCurve.SetCurveTimeAdd(0,#TimeSpan.Value,#TimeSpan.Type); #SuperCurve.SetCurveTimeLen(0,#TimeSpan6.Value,#TimeSpan6.Type);