版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
本文格式為Word版，下載可任意編輯——力控風(fēng)機(jī)曲線樣例代碼曲線的添加
1、選擇趨勢曲線控件及圖示按鈕等控件；
2、雙擊ComboBox
下拉框，輸入列表成員，輸入腳本程序：#ComboBox2.ListClear();
SWITCH(#ComboBox.ListGetSelection(),0)CASE0:#ComboBox2.ListaddItem(\溫度曲線\#ComboBox2.ListaddItem(\風(fēng)壓曲線\#ComboBox2.ListaddItem(\振動曲線\#ComboBox2.ListaddItem(\風(fēng)速曲線\#ComboBox2.ListaddItem(\風(fēng)量曲線\DEFAULT:ENDSWITCH3、雙擊ComboBox2
下拉框點擊，輸入腳本程序：
if#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\溫度曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\電機(jī)A相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)B相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)C相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)前軸溫度曲線\#ListBox.ListAddItem(\電機(jī)后軸溫度曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度1曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度2曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度3曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度4曲線\
elseif#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\風(fēng)
壓曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)靜壓曲線\#ListBox.ListAddItem(\風(fēng)機(jī)全壓曲線\#ListBox.ListAddItem(\風(fēng)機(jī)動壓曲線\
elseif#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\振動曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)水平振動曲線\#ListBox.ListAddItem(\風(fēng)機(jī)垂直振動曲線\
elseif#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\風(fēng)速曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)風(fēng)速曲線\
elseif#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\風(fēng)量曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)風(fēng)量曲線\
elseif#ComboBox.GetWindowsText()==\二號風(fēng)機(jī)\溫度曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\電機(jī)A相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)B相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)C相繞組溫度曲線\#ListBox.ListAddItem(\電機(jī)前軸溫度曲線\#ListBox.ListAddItem(\電機(jī)后軸溫度曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度1曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度2曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度3曲線\#ListBox.ListAddItem(\風(fēng)機(jī)軸承溫度4曲線\
elseif#ComboBox.GetWindowsText()==\二號風(fēng)機(jī)\風(fēng)壓曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)靜壓曲線\
#ListBox.ListAddItem(\風(fēng)機(jī)全壓曲線\#ListBox.ListAddItem(\風(fēng)機(jī)動壓曲線\
elseif#ComboBox.GetWindowsText()==\二號風(fēng)機(jī)\振動曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)水平振動曲線\#ListBox.ListAddItem(\風(fēng)機(jī)垂直振動曲線\
elseif#ComboBox.GetWindowsText()==\二號風(fēng)機(jī)\風(fēng)速曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)風(fēng)速曲線\
elseif#ComboBox.GetWindowsText()==\二號風(fēng)機(jī)\風(fēng)量曲線\
then#ListBox.ListClear();
#ListBox.ListAddItem(\風(fēng)機(jī)風(fēng)量曲線\else#ListBox.ListClear();
endifendifendifendifendifendifendifendifendifendif
4、雙擊“顯示所需曲線〞按鈕左鍵動作中輸入腳本程序：
if#ComboBox.GetWindowsText()==\一號風(fēng)機(jī)\溫度曲線\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()==\一號風(fēng)機(jī)\風(fēng)壓曲線\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()==\一號風(fēng)機(jī)\振動曲線\
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()==\一號風(fēng)機(jī)\風(fēng)速曲線\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()==\一號風(fēng)機(jī)\風(fēng)量曲線\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()==\二號風(fēng)機(jī)\溫度曲線\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()==\二號風(fēng)機(jī)\風(fēng)壓曲線\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()==\二號風(fēng)機(jī)\振動曲線\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()==\二號風(fēng)機(jī)\風(fēng)速曲線\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()==\二號風(fēng)機(jī)\風(fēng)量曲線\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. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 信息系統(tǒng)的價格與利潤管理考核試卷
- 2024至2030年中國速克感冒膠囊行業(yè)投資前景及策略咨詢研究報告
- 港口歷史與文化遺產(chǎn)保護(hù)考核試卷
- 2024至2030年中國羊毛針織襪數(shù)據(jù)監(jiān)測研究報告
- 2024-2030年中國橡膠機(jī)械行業(yè)競爭態(tài)勢及投資效益預(yù)測報告
- 漁業(yè)風(fēng)險管理與危機(jī)應(yīng)對考核試卷
- 光學(xué)相機(jī)的自動對焦與圖像修復(fù)技術(shù)考核試卷
- 2024-2030年中國檸檬行業(yè)市場競爭戰(zhàn)略及投資盈利預(yù)測報告權(quán)威版
- 2024-2030年中國望遠(yuǎn)鏡和雙筒望遠(yuǎn)鏡行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略分析報告
- 2024-2030年中國月子中心行業(yè)發(fā)展?jié)摿巴顿Y經(jīng)營模式分析報告
- 2024-2030年飛機(jī)內(nèi)部緊固件行業(yè)市場現(xiàn)狀供需分析及投資評估規(guī)劃分析研究報告
- 2023年全國中學(xué)生英語能力競賽初三年級組試題及答案
- 部編版道德與法治九年級上冊 8.2 共圓中國夢 教學(xué)設(shè)計
- (完整版)青年就業(yè)創(chuàng)業(yè)見習(xí)基地匯報材料(完整版)
- 月光(羽泉)原版五線譜鋼琴譜正譜樂譜.docx
- 660MW機(jī)組空預(yù)器聲波吹灰器可行性研究報告最新（精華版）
- 控制柜安裝施工方案
- 動車組火災(zāi)檢測(報警)系統(tǒng)
- 裝飾施工技術(shù)標(biāo)準(zhǔn)及要求
- 2018秋七年級虎外考試卷英語試卷
- 河洛擇日法[技巧]
評論
0/150
提交評論