【正文】 才能實現(xiàn)其價值有些東西以為學會了但真正到用的時候才發(fā)現(xiàn)是兩回事所以我認為只有到真正會用的時候才是真的學會了 [1] 容一鳴等編著液壓傳動 [M]北京化學工業(yè)出版社 20218 [2] 機械設計手冊編委會 機械設計手冊第 4 卷 [M] 北京機械工業(yè)出版社2021 [3] 楊培元朱福元液壓系統(tǒng)設計簡明手冊 [M] 北京機械工業(yè)出版社 2021 [4] 湯以范主編電氣與可編程序控制器技術 [5] 鐘肇新 彭侃編可編程序控制器原理及應用華南理工大學出版社 2021 [6] 大學出版社 [M]2021 [7] 杜國森液壓元件產品樣本 [M]北京機械工業(yè)出版社 2021 年 [8] 唐增寶機械設計課程設計 [M]武漢華中理工大學出版社 1999 年 [9] 陳愈主液壓閥 [M]北京中國鐵道出版社 1982 年 [10] 中國紡織大學工程圖學教研室畫法幾何及工程制圖 [M]北京中國科學技術版 2021 年 [11] 李壯云 液壓元件與系統(tǒng)第 2 版 [M] 機械工業(yè)出版社 2021 [12] 劉延俊液壓元件使用指南 [M]北京出版社 200 [13] 黃志堅液壓輔件 [M]化學工業(yè)出版社 2021 [14] 趙燕等可編程控制器原理與應用 [M]北京北京大學出版社 2021 年 [15] 鄧星鐘機電傳動控制第三版 [M]武漢華中科技大學出版社 2021 年 [16]液壓元件試驗技術指標 JB 214677 中國第一機械工業(yè)部部標準 S A Ryabchuk Choice of conditions of braking of impact masses by a hydraulic brake in Improvements in Working Elements of Mining Machines [in Russian]Politekhn Inst Karaganda 1983 [18] P Vas Parameter Estimation Condition Moni toring and Diagnosis of Electrical MachinesOxford England Clarendon Press 1993 [19] G B Kliman W J Premerlani R A Koegl and D Hoeweler A new approach to online turn fault detection in AC motors In Proceesings of IEEEIAS Annual Meeting pages 687693 October 1996 附錄 1 試驗臺 PLC 自動化程序 2 數(shù)據采集模塊代碼 Public 編號 As string 壓力 1 As string 壓力 2 As string 壓力 3 As string 壓力 4 As string 壓力 5 As string 負載 As string 速度 As string 加載壓力 As string 計算變量 1 As string 計算變量 2 As string 計算變量 3 As string 計算變量 4 As string xhzhiAs string Public 1 as single min 1 as single 2as singlemin2 as single 2 as single min 3as single 4 as single min 4 as single 5 as single min 5 as single 6 as single min 6 as single 7 as single min 7 as single 8 as single min 8 as single 9 as single min 9 as single 10 as single min 10 as single 11 as single min 11 as single 12 as single min 12 as single Public 算法 as integer x 坐標 as stringy 坐標 1as integer y 坐標 2as integery 坐標 3as integery 坐標 4as integery 坐標 5as integer y 坐標 6as integer y 坐標 7as integery 坐標 8as integery 坐標 9as integery 坐標 10as integery 坐標 11as integery 坐標 12as integer Public xmin as singlex as single ymin as single y as single as as integer public 試驗名稱 as string 2 用戶信息 窗口程序代碼 Private sub mand1_click If len text1 0 or len text2 0 or len text3 0 then msg box請輸入相關信息 48 提示信息 Text1set focus End sub End if 實驗名稱 text3 Forms8 hide Form10 show End sub Private sub mand2_click End End sub 3 功能選擇窗口代碼 Private sub from_load ReDim 編號 1 End sub Private sub label1_click Opene 尹亮業(yè)設計 \畢業(yè)設計 jfror input as 1 j 0 do while noe eof 1 j j1 reDim preserve 編號 j reDim preserve 壓力 1j reDim preserve 壓力 2j reDim preserve 壓力 3j reDim preserve 壓力 4j reDim preserve 壓力 5j reDim preserve 負載 j reDim preserve 速度 j reDim preserve 加載壓力 j reDim preserve 計算變量 1j reDim preserve 計算變量 2j reDim preserve 計算變量 3j reDim preserve 計算變量 4j input1 編號 j 壓力 1j 壓力 2j 壓力 3j 壓力 4j 壓力 5j 負載 j 速度 j 加載壓力 j loop close1 fesh do while frdsetrecordcount 0 fesh frdsetdelete from2 ad next for 1 0 toUBound 編號 from2text1 壓力 11 from2text1 壓力 21 from2text1 壓力 31 from2text1 壓力 31 from2text1 壓力 41 from2text1 壓力 51 from2text1 負載 1 from2text1 加載壓力 1 from2text1 計算變量 11 from2text1 計算變量 21 from2text1 計算變量 31 from2text1 計算變量 41 fromadew next 1 fesh from10hide from2show end sub private sub label11_click dim k as integer k UBound 編號 if k 1 then msgbox 還沒有采集到數(shù)據 4b 提示信息 exit sub ]end if Dim ans as integer Ans magbox 確定保持此次數(shù)據 vbyesno 提示信息 If ans 7 then Exit sub End if Opene 尹亮畢業(yè)設計 \畢業(yè)設計 jfror output as 1 For l 1 to UBouns 編號 printt1 編號 j 壓力 1j 壓力 2j 壓力 3j 壓力 4j 壓力 4j 壓力 5j 負載 j 加載壓力 j 速度 j 計算變量 1j 計算變量 2j 計算變量 3j 計算變量 4j next 1 close 1 masbox 保存完畢 14B 提示信息 exit sub private sub label2_click dim k as integer k UBound 編號 if k 1 then magbox 還沒采集到數(shù)據 14B 提示信息 end sub end if from2caption 實驗名稱實驗數(shù)據 dim 1 as long j as long from2adodc1refresh do while from rdsetrecordcount 0 from2adodc1refresh from2adodc1recoundsetdelete from2adodc1recoundsetmovenext loop for 1 0 UBound 編號 from2text1 壓力 11 from2text1 壓力 21 from2text1 壓力 31 from2text1 壓力 41 from2text1 壓力 51 from2text1 速度 1 from2text1 負載 1 from2text1 加載壓力 1 from2text1 計算變量 11 from2text1 計算變量 21 from2text1 計算變量 31 from2text1 計算變量 41 fromadew next 1 from2adodc1refresh from 10hide from2show end sub private sub labal3_click if UBound 編號 1 then msgbox 還沒采集到數(shù)據不能設置曲線選 項 14b 提示信息 exit sub end if from10hide from3show end sub private sub labe 14_click from10hide from6show end sub private sub labe 15_click from10hide from4show end sub private sub labe 16_click from10hide from5show end sub private sub labe 17_click from10hide from9show end sub private sub labe 18_click end ens sub 4 數(shù)據采集主窗口代碼 Public z as integer Dim k as long Private sub mand 1_click If val text1 0 and val text2 0 then Msgbox 請正確為輸入 y 軸數(shù)據值 14B 提示信息 Exit sub End if Dim yz as string If option1value true then Yz q MP Elself option2 value true then Yz P1 MPa Elself option2 value true then Yz P2 MPa Elself option2 value true then Yz N1MP Elself option2 value true then Yz N2MP Elself option2 value true then Yz t1 ms Elself option2 value true then Yz P KN Elself option2 value true then Yz t MP End if Call zuob yz End sub private sub mand2_click from1hide from4show end sub private sub mand3_click from1hide from5show end sub private sub mand4_click dim k as integer k UBound 編號 if k 1 then magbox 還沒采集到數(shù)據 14B 提示信息 end sub end if from2caption 實驗名稱實驗數(shù)據 dim 1 as long j as long from2adodc1refresh do while from rdsetrecordcount 0 from2adodc1refresh from2adodc1recoundsetdelete from2adodc1recoundsetmovenext loop for 1 0 UBoun。