《力控风机曲线样例代码》由会员分享,可在线阅读,更多相关《力控风机曲线样例代码(7页珍藏版)》请在金锄头文库上搜索。
1、本文格式为Word版,下载可任意编辑力控风机曲线样例代码 曲线的添加 1、 选择趋势曲线控件及图示按钮等控件; 2、双击 ComboBox 下拉框,输入列表成员,输入脚本程序: #ComboBox2.ListClear(); SWITCH (#ComboBox.ListGetSelection(),0) CASE 0: #ComboBox2.ListaddItem(温度曲线 #ComboBox2.ListaddItem(风压曲线 #ComboBox2.ListaddItem(振动曲线 #ComboBox2.ListaddItem(风速曲线 #ComboBox2.ListaddItem(风量曲线
2、 DEFAULT: ENDSWITCH 3、双击ComboBox2 下拉框点击,输入脚本程序: if #ComboBox.GetWindowsText()=一号风机温度曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(电机A相绕组温度曲线 #ListBox.ListAddItem(电机B相绕组温度曲线 #ListBox.ListAddItem(电机C相绕组温度曲线 #ListBox.ListAddItem(电机前轴温度曲线 #ListBox.ListAddItem(电机后轴温度曲线 #ListBox.ListAddItem(风机轴承温度1曲线
3、 #ListBox.ListAddItem(风机轴承温度2曲线 #ListBox.ListAddItem(风机轴承温度3曲线 #ListBox.ListAddItem(风机轴承温度4曲线 else if #ComboBox.GetWindowsText()=一号风机风 压曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机静压曲线 #ListBox.ListAddItem(风机全压曲线 #ListBox.ListAddItem(风机动压曲线 else if #ComboBox.GetWindowsText()=一号风机振动曲线 then #
4、ListBox.ListClear(); #ListBox.ListAddItem(风机水平振动曲线 #ListBox.ListAddItem(风机垂直振动曲线 else if #ComboBox.GetWindowsText()=一号风机风速曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机风速曲线 else if #ComboBox.GetWindowsText()=一号风机风量曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机风量曲线 else if #ComboBox.Get
5、WindowsText()=二号风机温度曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(电机A相绕组温度曲线 #ListBox.ListAddItem(电机B相绕组温度曲线#ListBox.ListAddItem(电机C相绕组温度曲线 #ListBox.ListAddItem(电机前轴温度曲线#ListBox.ListAddItem(电机后轴温度曲线#ListBox.ListAddItem(风机轴承温度1曲线#ListBox.ListAddItem(风机轴承温度2曲线 #ListBox.ListAddItem(风机轴承温度3曲线#ListB
6、ox.ListAddItem(风机轴承温度4曲线 else if #ComboBox.GetWindowsText()=二号风机风压曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机静压曲线 #ListBox.ListAddItem(风机全压曲线#ListBox.ListAddItem(风机动压曲线 else if #ComboBox.GetWindowsText()=二号风机振动曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机水平振动曲线 #ListBox.ListAddItem
7、(风机垂直振动曲线 else if #ComboBox.GetWindowsText()=二号风机风速曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机风速曲线 else if #ComboBox.GetWindowsText()=二号风机风量曲线 then #ListBox.ListClear(); #ListBox.ListAddItem(风机风量曲线else #ListBox.ListClear(); endif endif endif endif endif endif endif endif endif endif 4、双击“显
8、示所需曲线” 按钮左键动作中输入脚本程序: 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
9、#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.IsCurSelect
10、ion(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 e
11、ndif 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
12、(#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= 7