畢業(yè)設(shè)計(jì)論文-基于plc控制的液壓試驗(yàn)臺(tái)設(shè)計(jì)-資料下載頁

【導(dǎo)讀】畢業(yè)設(shè)計(jì)論文-基于PLC控制的液壓試驗(yàn)臺(tái)設(shè)計(jì)。基于PLC控制的液壓臺(tái)設(shè)計(jì)根據(jù)液壓臺(tái)的功能要求液壓的方案設(shè)計(jì)。6編寫畢業(yè)設(shè)計(jì)說明書。第1-3周搜集資料并初步確定設(shè)計(jì)方案。第4-6周液壓試驗(yàn)臺(tái)控制回路及實(shí)驗(yàn)臺(tái)的硬件選取。第7-11周液壓試驗(yàn)臺(tái)電氣控制。第12周設(shè)計(jì)說明書撰寫。2液壓元件試驗(yàn)技術(shù)指標(biāo)JB214677中國第一機(jī)械工業(yè)部部標(biāo)準(zhǔn)。液壓傳動(dòng)技術(shù)是機(jī)械設(shè)計(jì)機(jī)械制造和機(jī)電一體化等專業(yè)的一門重要的基礎(chǔ)。建筑機(jī)械及國防尖端產(chǎn)品不可缺少的重要技術(shù)液壓傳動(dòng)的應(yīng)用深入各個(gè)領(lǐng)域國。壓傳動(dòng)技術(shù)在工業(yè)發(fā)達(dá)國家由電液伺服閥電液比例閥以及配用的專用電子控制。器和相應(yīng)的液壓元件組合集成電流伺服比例控制系統(tǒng)的相互支撐發(fā)展已綜合形。技術(shù)等方面介紹液壓傳動(dòng)技術(shù)發(fā)展動(dòng)態(tài)使機(jī)械專業(yè)的學(xué)生在掌握液壓傳動(dòng)基本。建立的模型正確與否學(xué)生的論證充分否學(xué)生能否完成課題達(dá)到預(yù)期的目標(biāo)。或集體已經(jīng)發(fā)表或撰寫的成果作品本人完全意識(shí)到本聲明的法律后果由本人承

　　

【正文】 過應(yīng)用才能實(shí)現(xiàn)其價(jià)值有些東西以為學(xué)會(huì)了但真正到用的時(shí)候才發(fā)現(xiàn)是兩回事所以我認(rèn)為只有到真正會(huì)用的時(shí)候才是真的學(xué)會(huì)了 [1] 容一鳴等編著液壓傳動(dòng) [M]北京化學(xué)工業(yè)出版社 20218 [2] 機(jī)械設(shè)計(jì)手冊(cè)編委會(huì) 機(jī)械設(shè)計(jì)手冊(cè)第 4 卷 [M] 北京機(jī)械工業(yè)出版社2021 [3] 楊培元朱福元液壓系統(tǒng)設(shè)計(jì)簡明手冊(cè) [M] 北京機(jī)械工業(yè)出版社 2021 [4] 湯以范主編電氣與可編程序控制器技術(shù) [5] 鐘肇新 彭侃編可編程序控制器原理及應(yīng)用華南理工大學(xué)出版社 2021 [6] 大學(xué)出版社 [M]2021 [7] 杜國森液壓元件產(chǎn)品樣本 [M]北京機(jī)械工業(yè)出版社 2021 年 [8] 唐增寶機(jī)械設(shè)計(jì)課程設(shè)計(jì) [M]武漢華中理工大學(xué)出版社 1999 年 [9] 陳愈主液壓閥 [M]北京中國鐵道出版社 1982 年 [10] 中國紡織大學(xué)工程圖學(xué)教研室畫法幾何及工程制圖 [M]北京中國科學(xué)技術(shù)版 2021 年 [11] 李壯云 液壓元件與系統(tǒng)第 2 版 [M] 機(jī)械工業(yè)出版社 2021 [12] 劉延俊液壓元件使用指南 [M]北京出版社 200 [13] 黃志堅(jiān)液壓輔件 [M]化學(xué)工業(yè)出版社 2021 [14] 趙燕等可編程控制器原理與應(yīng)用 [M]北京北京大學(xué)出版社 2021 年 [15] 鄧星鐘機(jī)電傳動(dòng)控制第三版 [M]武漢華中科技大學(xué)出版社 2021 年 [16]液壓元件試驗(yàn)技術(shù)指標(biāo) JB 214677 中國第一機(jī)械工業(yè)部部標(biāo)準(zhǔn) 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 試驗(yàn)臺(tái) PLC 自動(dòng)化程序 2 數(shù)據(jù)采集模塊代碼 Public 編號(hào) As string 壓力 1 As string 壓力 2 As string 壓力 3 As string 壓力 4 As string 壓力 5 As string 負(fù)載 As string 速度 As string 加載壓力 As string 計(jì)算變量 1 As string 計(jì)算變量 2 As string 計(jì)算變量 3 As string 計(jì)算變量 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 坐標(biāo) as stringy 坐標(biāo) 1as integer y 坐標(biāo) 2as integery 坐標(biāo) 3as integery 坐標(biāo) 4as integery 坐標(biāo) 5as integer y 坐標(biāo) 6as integer y 坐標(biāo) 7as integery 坐標(biāo) 8as integery 坐標(biāo) 9as integery 坐標(biāo) 10as integery 坐標(biāo) 11as integery 坐標(biāo) 12as integer Public xmin as singlex as single ymin as single y as single as as integer public 試驗(yàn)名稱 as string 2 用戶信息 窗口程序代碼 Private sub mand1_click If len text1 0 or len text2 0 or len text3 0 then msg box請(qǐng)輸入相關(guān)信息 48 提示信息 Text1set focus End sub End if 實(shí)驗(yàn)名稱 text3 Forms8 hide Form10 show End sub Private sub mand2_click End End sub 3 功能選擇窗口代碼 Private sub from_load ReDim 編號(hào) 1 End sub Private sub label1_click Opene 尹亮業(yè)設(shè)計(jì) \畢業(yè)設(shè)計(jì) jfror input as 1 j 0 do while noe eof 1 j j1 reDim preserve 編號(hào) j reDim preserve 壓力 1j reDim preserve 壓力 2j reDim preserve 壓力 3j reDim preserve 壓力 4j reDim preserve 壓力 5j reDim preserve 負(fù)載 j reDim preserve 速度 j reDim preserve 加載壓力 j reDim preserve 計(jì)算變量 1j reDim preserve 計(jì)算變量 2j reDim preserve 計(jì)算變量 3j reDim preserve 計(jì)算變量 4j input1 編號(hào) j 壓力 1j 壓力 2j 壓力 3j 壓力 4j 壓力 5j 負(fù)載 j 速度 j 加載壓力 j loop close1 fesh do while frdsetrecordcount 0 fesh frdsetdelete from2 ad next for 1 0 toUBound 編號(hào) from2text1 壓力 11 from2text1 壓力 21 from2text1 壓力 31 from2text1 壓力 31 from2text1 壓力 41 from2text1 壓力 51 from2text1 負(fù)載 1 from2text1 加載壓力 1 from2text1 計(jì)算變量 11 from2text1 計(jì)算變量 21 from2text1 計(jì)算變量 31 from2text1 計(jì)算變量 41 fromadew next 1 fesh from10hide from2show end sub private sub label11_click dim k as integer k UBound 編號(hào) if k 1 then msgbox 還沒有采集到數(shù)據(jù) 4b 提示信息 exit sub ]end if Dim ans as integer Ans magbox 確定保持此次數(shù)據(jù) vbyesno 提示信息 If ans 7 then Exit sub End if Opene 尹亮畢業(yè)設(shè)計(jì) \畢業(yè)設(shè)計(jì) jfror output as 1 For l 1 to UBouns 編號(hào) printt1 編號(hào) j 壓力 1j 壓力 2j 壓力 3j 壓力 4j 壓力 4j 壓力 5j 負(fù)載 j 加載壓力 j 速度 j 計(jì)算變量 1j 計(jì)算變量 2j 計(jì)算變量 3j 計(jì)算變量 4j next 1 close 1 masbox 保存完畢 14B 提示信息 exit sub private sub label2_click dim k as integer k UBound 編號(hào) if k 1 then magbox 還沒采集到數(shù)據(jù) 14B 提示信息 end sub end if from2caption 實(shí)驗(yàn)名稱實(shí)驗(yàn)數(shù)據(jù) dim 1 as long j as long from2adodc1refresh do while from rdsetrecordcount 0 from2adodc1refresh from2adodc1recoundsetdelete from2adodc1recoundsetmovenext loop for 1 0 UBound 編號(hào) from2text1 壓力 11 from2text1 壓力 21 from2text1 壓力 31 from2text1 壓力 41 from2text1 壓力 51 from2text1 速度 1 from2text1 負(fù)載 1 from2text1 加載壓力 1 from2text1 計(jì)算變量 11 from2text1 計(jì)算變量 21 from2text1 計(jì)算變量 31 from2text1 計(jì)算變量 41 fromadew next 1 from2adodc1refresh from 10hide from2show end sub private sub labal3_click if UBound 編號(hào) 1 then msgbox 還沒采集到數(shù)據(jù)不能設(shè)置曲線選 項(xiàng) 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ù)據(jù)采集主窗口代碼 Public z as integer Dim k as long Private sub mand 1_click If val text1 0 and val text2 0 then Msgbox 請(qǐng)正確為輸入 y 軸數(shù)據(jù)值 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 編號(hào) if k 1 then magbox 還沒采集到數(shù)據(jù) 14B 提示信息 end sub end if from2caption 實(shí)驗(yàn)名稱實(shí)驗(yàn)數(shù)據(jù) dim 1 as long j as long from2adodc1refresh do while from rdsetrecordcount 0 from2adodc1refresh from2adodc1recoundsetdelete from2adodc1recoundsetmovenext loop for 1 0 U