版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
本文格式为Word版，下载可任意编辑——力控风机曲线样例代码曲线的添加
1、选择趋势曲线控件及图示按钮等控件；
2、双击ComboBox
下拉框，输入列表成员，输入脚本程序：#ComboBox2.ListClear();
SWITCH(#ComboBox.ListGetSelection(),0)CASE0:#ComboBox2.ListaddItem(\温度曲线\#ComboBox2.ListaddItem(\风压曲线\#ComboBox2.ListaddItem(\振动曲线\#ComboBox2.ListaddItem(\风速曲线\#ComboBox2.ListaddItem(\风量曲线\DEFAULT:ENDSWITCH3、双击ComboBox2
下拉框点击，输入脚本程序：
if#ComboBox.GetWindowsText()==\一号风机\温度曲线\
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曲线\#ListBox.ListAddItem(\风机轴承温度4曲线\
elseif#ComboBox.GetWindowsText()==\一号风机\风
压曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机静压曲线\#ListBox.ListAddItem(\风机全压曲线\#ListBox.ListAddItem(\风机动压曲线\
elseif#ComboBox.GetWindowsText()==\一号风机\振动曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机水平振动曲线\#ListBox.ListAddItem(\风机垂直振动曲线\
elseif#ComboBox.GetWindowsText()==\一号风机\风速曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机风速曲线\
elseif#ComboBox.GetWindowsText()==\一号风机\风量曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机风量曲线\
elseif#ComboBox.GetWindowsText()==\二号风机\温度曲线\
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曲线\#ListBox.ListAddItem(\风机轴承温度4曲线\
elseif#ComboBox.GetWindowsText()==\二号风机\风压曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机静压曲线\
#ListBox.ListAddItem(\风机全压曲线\#ListBox.ListAddItem(\风机动压曲线\
elseif#ComboBox.GetWindowsText()==\二号风机\振动曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机水平振动曲线\#ListBox.ListAddItem(\风机垂直振动曲线\
elseif#ComboBox.GetWindowsText()==\二号风机\风速曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机风速曲线\
elseif#ComboBox.GetWindowsText()==\二号风机\风量曲线\
then#ListBox.ListClear();
#ListBox.ListAddItem(\风机风量曲线\else#ListBox.ListClear();
endifendifendifendifendifendifendifendifendifendif
4、双击“显示所需曲线〞按钮左键动作中输入脚本程序：
if#ComboBox.GetWindowsText()==\一号风机\温度曲线\then
FORi=0TO10STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
b1.desc=\CASE2:
b1.desc=\CASE3:
b1.desc=\CASE4:
b1.desc=\CASE5:
b1.desc=\CASE6;
b1.desc=\CASE7:
b1.desc=\CASE8:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\一号风机\风压曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
b1.desc=\CASE2:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\一号风机\振动曲线\
then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\一号风机\风速曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\一号风机\风量曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\二号风机\温度曲线\then
FORi=0TO10STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
b1.desc=\CASE2:
b1.desc=\CASE3:
b1.desc=\CASE4:
b1.desc=\CASE5:
b1.desc=\CASE6;
b1.desc=\CASE7:
b1.desc=\CASE8:
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)endifNEXT
endif
if#ComboBox.GetWindowsText()==\二号风机\风压曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
b1.desc=\CASE2:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\二号风机\振动曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\CASE1:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\二号风机\风速曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
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)endifNEXTendif
if#ComboBox.GetWindowsText()==\二号风机\风量曲线\then
FORi=0TO5STEP1
if#ListBox.IsCurSelection(i)==1thenSWITCH(i)CASE0:
b1.desc=\
DEFAULT:
ENDSWITCH
#SuperCurve.AddCurveEx(#ListBox.Li
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 暑期继续教育学习总结
- 工厂月工作总结（10篇）
- 禁止焚烧秸秆倡议书8篇
- 某公司环境绿化管理制度
- 湖南省永州市(2024年-2025年小学五年级语文)人教版摸底考试（下学期）试卷及答案
- 机械能和内能教案
- 2023年高强2号玻璃纤维布资金需求报告
- 《停车场出场电子不停车缴费系统（ETC）碳减排核算方法（征求意见稿）》及编制说明
- 上海市市辖区(2024年-2025年小学五年级语文)人教版能力评测（下学期）试卷及答案
- 2024年广东公务员考试申论试题（县镇卷）
- 硫酸储罐标准
- 平行检查记录（焊接）
- 2023年6月四级听力第一套真题及听力原文
- 消防在心中安全伴我行-中学精创主题班会
- 2023年医师病历书写规范培训课件PPT（医务人员学习资料）
- GB/T 40016-2021基础零部件通用元数据
- GA/T 718-2007枪支致伤力的法庭科学鉴定判据
- 人教版小学科学《比较不同的土壤（第一课时）》教学设计
- 国开作业《管理学基础》管理实训：第十三章了解某企业的质量保证体系参考472
- 国开电大 Matlab语言及其应用 实验任务Simulink系统 建模与仿真实验报告
- 《金融学（第三版）》第12章 现代货币的创造机制
评论
0/150
提交评论