汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì)

汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì),汽車,減速器,參數(shù),優(yōu)化,軟件設(shè)計(jì) 1登錄系統(tǒng) 首先，進(jìn)入軟件的首個(gè)界面如圖1-1所示，單擊該界面，進(jìn)入登錄界面。登錄界面如圖1-2所示，輸入特定的密碼并且正確后，則正事進(jìn)入設(shè)計(jì)界面。密碼只能為數(shù)字，長度為6。如果輸入的密碼不正確或者為非數(shù)字，系統(tǒng)會(huì)給出相應(yīng)的警告。如圖1-3,1-4所示。 圖1-1 系統(tǒng)首頁 圖1-2 密碼界面 圖1-3 密碼界面 圖1-4 密碼界面 2汽車主減速器參數(shù)優(yōu)化計(jì)算軟件使用步驟 2.1 減速形式選擇的使用步驟 圖2-1為正式進(jìn)入設(shè)計(jì)系統(tǒng)的第一個(gè)界面，從此界面上可以了解到汽車主減速器設(shè)計(jì)的大致流程。在界面上方具有菜單欄，用戶可根據(jù)需求，點(diǎn)擊相應(yīng)的菜單選項(xiàng)，從而得到相應(yīng)的幫助和信息。單擊主減速比的確定，進(jìn)入下一界面。 圖2-1 設(shè)計(jì)主頁 此界面為主減速比的輸入界面。此數(shù)據(jù)是接下來選擇減速形式的主要依據(jù)，同時(shí)也是以后設(shè)計(jì)過程中最為主要的數(shù)據(jù)之一，如圖2-2所示。 圖2-2 主減速比 如圖2-3所示，此界面為汽車主減速器減速形式的選擇界面。可根據(jù)主減速比的數(shù)值大小以及范圍來選擇單級(jí)主減速器還是雙級(jí)主減速器。選擇相應(yīng)的減速形式后，單擊該選項(xiàng)即可。 圖2-3 減速形式選擇 2.2單級(jí)主減速器設(shè)計(jì)的使用步驟 圖2-4為單級(jí)主減速器設(shè)計(jì)主頁，從界面上可以清晰地了解到單級(jí)主減速器的設(shè)計(jì)步驟以及設(shè)計(jì)順序。按照設(shè)計(jì)順序點(diǎn)擊齒輪形式的選擇，進(jìn)入具體設(shè)計(jì)界面。 齒輪形式選擇界面是以界面給定的信息作為參考以及選擇原則，進(jìn)行齒輪形式的選擇。兩種錐齒輪的優(yōu)缺點(diǎn)都在給定的信息當(dāng)中，望仔細(xì)閱讀，從而做出選擇。做出選擇后，單擊所選選項(xiàng)即可。如圖2-5所示。 之后返回設(shè)計(jì)主頁，單擊主從動(dòng)錐齒輪的支承方案，進(jìn)入選擇界面。支承形式的分類，相應(yīng)的結(jié)構(gòu)特點(diǎn)以及適用范圍都已在界面上的信息當(dāng)中給出。仔細(xì)閱讀后做出選擇，單擊即可。如圖2-6所示。 再次進(jìn)入設(shè)計(jì)主頁，單擊齒輪計(jì)算載荷的確定，進(jìn)入計(jì)算頁面。根據(jù)不同的情況，齒輪的計(jì)算載荷可分為三種。如圖2-7 2-8所示，在輸入相應(yīng)的數(shù)據(jù)之后，單擊計(jì)算按鈕，系統(tǒng)會(huì)自動(dòng)算出與之相對(duì)應(yīng)的結(jié)果。輸入主減速比，主減速器的傳動(dòng)效率后，也可算出主動(dòng)齒輪的計(jì)算載荷。 圖2-4 錐齒輪設(shè)計(jì)首頁 圖2-5 齒輪形式 圖2-6 支撐形式 返回設(shè)計(jì)首頁，單擊齒輪主要參數(shù)的選擇，進(jìn)入下一界面。圖2-9所示界面為汽車主減速器齒輪參數(shù)設(shè)計(jì)主界面。界面上顯示了具體的設(shè)計(jì)步驟以及涉及順序。請(qǐng)用戶按照相應(yīng)的涉及順序進(jìn)入相應(yīng)的界面。 進(jìn)入錐齒輪齒數(shù)查詢及選擇界面。這一內(nèi)容包含了四個(gè)界面。每個(gè)界面當(dāng)中都含有一個(gè)或多個(gè)表格。根據(jù)表格內(nèi)的信息，選擇適合用戶自己的錐齒輪齒數(shù)。并輸入在相應(yīng)的界面內(nèi)。如圖2-10所示（由于界面繁多，則不一一列舉） 返回齒輪參數(shù)設(shè)計(jì)主界面，進(jìn)入齒輪參數(shù)設(shè)計(jì)的第二個(gè)步驟。此步驟為計(jì)算錐齒輪端面模數(shù)。如圖2-11所示，先通過計(jì)算出從動(dòng)錐齒輪大端分度圓直徑，再利用相應(yīng)的公式計(jì)算出模數(shù)的具體數(shù)值。 再次返回錐齒輪參數(shù)設(shè)計(jì)的主界面。單擊主從動(dòng)齒輪齒面寬的計(jì)算，進(jìn)入第三步驟。根據(jù)界面上相應(yīng)的信息，點(diǎn)擊計(jì)算按鈕，計(jì)算出主從錐齒輪齒面寬。如圖2-12所示 以相同的方法，進(jìn)入錐齒輪參數(shù)設(shè)計(jì)的第四步。此步驟主要是中心螺旋角的選擇，主從動(dòng)錐齒輪旋向的選擇以及壓力角的選擇。相應(yīng)的選擇信息都已在界面上給出。用戶只需在仔細(xì)閱讀后，做出選擇即可。界面如圖2-13所示。 圖2-7 計(jì)算載荷 圖2-12 齒寬 圖2-8 計(jì)算載荷 進(jìn)入錐齒輪參數(shù)設(shè)計(jì)的最后一步，通過上幾步驟對(duì)于基本參數(shù)的輸入，選擇以及計(jì)算，才使得在這錐齒輪參數(shù)設(shè)計(jì)最后的一個(gè)步驟當(dāng)中，可以順利的計(jì)算出錐齒輪的幾何尺寸。具體尺寸名稱如圖2-14所示。 返回設(shè)計(jì)首頁，基本的數(shù)據(jù)都已產(chǎn)生，接下來進(jìn)入數(shù)據(jù)校核界面。齒輪的校核主要從彎曲強(qiáng)度和接觸強(qiáng)度上進(jìn)行。圖2-15所示為錐齒輪彎曲強(qiáng)度校核界面，圖2-16所示為錐齒輪接觸強(qiáng)度校核界面。點(diǎn)擊相應(yīng)的校核按鈕，系統(tǒng)會(huì)彈出對(duì)話框用來提示校核是否成功。 如校核成功，則證明設(shè)計(jì)的數(shù)據(jù)完全正確，可以使用。進(jìn)而進(jìn)入選擇齒輪材料界面。根據(jù)界面上以給定的信息選擇錐齒輪的材料。如圖2-17所示。 接下來用戶可以利用設(shè)計(jì)而來的數(shù)據(jù)進(jìn)入其他軟件系統(tǒng)進(jìn)行建模仿真。 圖2-9 錐齒輪參數(shù)設(shè)計(jì) 圖2-11 端面模數(shù) 圖2-10 齒數(shù)選擇 圖2-16 接觸強(qiáng)度校核 圖2-13 基本參數(shù)選擇 圖2-14 幾何尺寸 圖2-15 彎曲強(qiáng)度校核 圖2-17 材料 2.3雙級(jí)主減速器設(shè)計(jì)的使用步驟 在進(jìn)入減速形式選擇之前，操作步驟完全一樣，這里不做重復(fù)聲明。 進(jìn)入減速形式選擇界面，選擇雙級(jí)主減速器。 圖2-18所示為雙級(jí)主減速器設(shè)計(jì)主頁。界面上顯示有設(shè)計(jì)步驟以及涉及順序。用戶可按照相應(yīng)順序進(jìn)行設(shè)計(jì)。 單擊主減速比的分配，進(jìn)入設(shè)計(jì)第一步。根據(jù)界面所提供信息可把主減速比分為兩部分。第一部分為錐齒輪傳動(dòng)減速比，第二部分為斜齒圓柱齒輪傳動(dòng)減速比。把分好的兩個(gè)主減速比分別填入相應(yīng)的文本框中。如圖2-19所示。 返回二級(jí)設(shè)計(jì)首頁，進(jìn)入第二步——第一級(jí)錐齒輪的設(shè)計(jì)。由于雙級(jí)主減速器第一級(jí)錐齒輪的設(shè)計(jì)與單級(jí)主減速器錐齒輪的設(shè)計(jì)完全相同，并且前方已經(jīng)具體闡述過單級(jí)主減速器錐齒輪的設(shè)計(jì)步驟，所以這里就不再做多余重復(fù)。如有不明之處，可查翻前方說明。 進(jìn)入第三步——第二級(jí)斜齒圓柱齒輪的設(shè)計(jì)。圖2-20所示為斜齒圓柱齒輪設(shè)計(jì)主頁。該界面上同樣顯示了設(shè)計(jì)的步驟以及涉及順序。用戶只需按照順序操作即可。 圖2-18 雙級(jí)首頁 圖2-19 主減速比分配 圖2-20 斜齒圓柱齒輪設(shè)計(jì) 進(jìn)入第一步——中心距A與齒寬b的計(jì)算。根據(jù)界面已給信息，單擊計(jì)算按鈕，可算出中心距A的范圍。用戶需要從中選取中心距A，一般取整數(shù)。選取完中心距A之后，可利用這一結(jié)果計(jì)算出齒寬b的范圍，用戶則需從中選取齒寬b.如圖2-21所示。 圖2-21 中心距與齒寬 進(jìn)入第二步——模數(shù)的選擇。根據(jù)界面所提供的表格以及用戶自己手中所擁有的信息來選擇適當(dāng)?shù)哪?shù)。并填入文本框，如圖2-22所示。 圖2-22 模數(shù) 進(jìn)入第三步——壓力角和螺旋角的選擇。圖2-23所示為該界面。用戶可根據(jù)界面所提供的信息選擇適當(dāng)?shù)膲毫桥c螺旋角。 圖2-23 壓力角與螺旋角 返回斜齒圓柱齒輪設(shè)計(jì)主頁，進(jìn)入第四步——齒數(shù)的選擇。如圖2-24所示，通過界面上方的兩個(gè)方程，解出主動(dòng)齒輪齒數(shù)和從動(dòng)齒輪齒數(shù)。用戶則只需要根據(jù)解出的主從動(dòng)齒輪齒數(shù)略作去整即可。 圖2-24 齒數(shù) 基本參數(shù)已經(jīng)計(jì)算或輸入完畢，接下來進(jìn)行斜齒圓柱齒輪的幾何尺寸計(jì)算。具體數(shù)據(jù)名稱和大小如圖2-25所示。 圖2-25 幾何尺寸 接下來進(jìn)入校核界面。如同錐齒輪校核一樣，一是斜齒輪彎曲應(yīng)力，一是斜齒輪接觸應(yīng)力。圖2-26為斜齒輪彎曲應(yīng)力校核，圖2-27為斜齒輪接觸應(yīng)力校核。用戶只需點(diǎn)擊相應(yīng)的校核按鈕就可校核，系統(tǒng)會(huì)彈出對(duì)話框，用來提示校核結(jié)果。 如校核成功，則證明之前設(shè)計(jì)的數(shù)據(jù)滿足要求，可以使用。之后用戶可利用設(shè)計(jì)數(shù)據(jù)進(jìn)入其他軟件系統(tǒng)進(jìn)行建模仿真。 圖2-26 彎曲強(qiáng)度校核 圖2-27 接觸強(qiáng)度校核 3退出系統(tǒng) 單擊窗體右上方的“關(guān)閉”按鈕或者在主界面的“文件”菜單里選擇“退出”按鈕，即可退出本系統(tǒng)。 - 19 - 本科學(xué)生畢業(yè)設(shè)計(jì) 汽車主減速器參數(shù)優(yōu)化 軟件使用說明書 院系名稱： 汽車與交通工程學(xué)院 專業(yè)班級(jí)： 車倆工程B07-2班 學(xué)生姓名： 孫 楠 指導(dǎo)教師： 趙雨旸 職 稱： 副教授 黑 龍 江 工 程 學(xué) 院 二○一一年六月 目 錄 1登錄系統(tǒng)…………………………………………………………………………1 2汽車主減速器參數(shù)優(yōu)化計(jì)算軟件使用步驟………………………2 2.1 減速形式選擇的使用步驟………………………………2 2.2 單級(jí)主減速器設(shè)計(jì)的使用步驟………………………………4 2.3 雙級(jí)主減速器設(shè)計(jì)的使用步驟…………………………………13 3退出系統(tǒng)…………………………………………………………………………19 畢業(yè)設(shè)計(jì)（論文）開題報(bào)告 設(shè)計(jì)（論文）題目: 汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì) 院 系 名 稱: 汽車與交通工程學(xué)院 專 業(yè) 班 級(jí): 車輛07-2班 學(xué) 生 姓 名: 孫楠 導(dǎo) 師 姓 名: 趙雨旸 開 題 時(shí) 間: 2011-02- 28 指導(dǎo)委員會(huì)審查意見： 簽字： 年 月 日 開題報(bào)告撰寫要求 一、“開題報(bào)告”參考提綱 1. 課題研究目的和意義； 2. 文獻(xiàn)綜述（課題研究現(xiàn)狀及分析）； 3. 基本內(nèi)容、擬解決的主要問題； 4. 技術(shù)路線或研究方法； 5. 進(jìn)度安排； 6. 主要參考文獻(xiàn)。 二、“開題報(bào)告”撰寫規(guī)范 請(qǐng)參照《黑龍江工程學(xué)院本科生畢業(yè)設(shè)計(jì)說明書及畢業(yè)論文撰寫規(guī)范》要求。字?jǐn)?shù)應(yīng)在4000字以上，文字要精練通順，條理分明，文字圖表要工整清楚。 畢業(yè)設(shè)計(jì)（論文）開題報(bào)告 學(xué)生姓名 孫 楠 系部 汽車與交通工程學(xué)院 專業(yè)、班級(jí) 車輛工程07-2班 指導(dǎo)教師姓名 趙雨旸 職稱 副教授 從事 專業(yè) 車輛工程 交通工程 是否外聘 □是√否 題目名稱 汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì) 一、 課題研究現(xiàn)狀、選題目的和意義 1 課題背景 汽車問世百余年來，特別是從汽車產(chǎn)品的大批量生產(chǎn)及汽車工業(yè)的發(fā)展以來，汽車己為世界經(jīng)濟(jì)的發(fā)展、為人類進(jìn)入現(xiàn)代生活，產(chǎn)生了無法估量的巨大影響，為人類社會(huì)的進(jìn)步做出了不可磨滅的巨大貢獻(xiàn)。近年來隨著汽車技術(shù)的迅猛發(fā)展，對(duì)汽車傳動(dòng)系承載能力以及工作可靠性的要求越來越高，汽車主減速器作為汽車傳動(dòng)系統(tǒng)的關(guān)鍵總成，其主要功能是將輸入的轉(zhuǎn)矩增大并相應(yīng)降低轉(zhuǎn)速，以及當(dāng)發(fā)動(dòng)機(jī)縱置時(shí)還具有改變轉(zhuǎn)矩旋轉(zhuǎn)方向的作用。主減速器的結(jié)構(gòu)對(duì)汽車的動(dòng)力性、經(jīng)濟(jì)性與輕便性、傳動(dòng)的平穩(wěn)性與效率等都有直接的影響。 汽車主減速器作為汽車驅(qū)動(dòng)橋中重要的傳力部件，是汽車最關(guān)鍵的部件之一。與國外相比，我國的車用減速器開發(fā)設(shè)計(jì)不論在技術(shù)上、制造工藝上，還是在成本控制上都存在不小的差距。主減速器設(shè)計(jì)的好壞關(guān)系到汽車的動(dòng)力性、經(jīng)濟(jì)性以及噪聲、壽命等諸多方面。如何協(xié)調(diào)好各方關(guān)系、合理匹配設(shè)計(jì)參數(shù)，以達(dá)到滿足使用要求的最優(yōu)目標(biāo)，是主減速器設(shè)計(jì)中最重要的問題。 許多乘用車和總質(zhì)量較小的商用車采用了發(fā)動(dòng)機(jī)橫置的前置前驅(qū)布置，都是單級(jí)式主減速器，其具有結(jié)構(gòu)緊湊、質(zhì)量小、制造成本低和傳遞效率高、高速性能好的優(yōu)點(diǎn)，通過軟件設(shè)計(jì)方法來設(shè)計(jì)汽車主減速器是非常重要的。軟件設(shè)計(jì)是以數(shù)學(xué)規(guī)劃為理論基礎(chǔ)，以計(jì)算機(jī)為工具，尋求機(jī)械設(shè)計(jì)問題最佳方案的現(xiàn)代設(shè)計(jì)方法之一，現(xiàn)在已經(jīng)有很多成熟的軟件程序可供選擇，但傳統(tǒng)的方法存在著求解過程復(fù)雜和尋優(yōu)過程容易陷入局部最優(yōu)解的問題。通常主減速器設(shè)計(jì)多是僅從某一角度考慮，單一的改善其某一方面參數(shù)，而沒有將其參數(shù)優(yōu)化有效結(jié)合起來。因此，本課題力求改變以往的設(shè)計(jì)方式，提出針對(duì)汽車主減速器整體的最優(yōu)化設(shè)計(jì)方法，針對(duì)汽車設(shè)計(jì)中的主減速器參數(shù)設(shè)計(jì)開發(fā)計(jì)算軟件，通過人機(jī)交互方式完成主減速器的參數(shù)設(shè)計(jì)，并考慮通過軟件進(jìn)行參數(shù)優(yōu)化（汽車主減速器傳動(dòng)比, 主減速器雙曲面齒輪結(jié)構(gòu)參數(shù)），實(shí)現(xiàn)解決復(fù)雜計(jì)算這一單一功能的目的，實(shí)現(xiàn)汽車主減速器參數(shù)的最佳匹配，達(dá)到充分發(fā)揮汽車整體性能、節(jié)約能耗、降低成本、提高設(shè)計(jì)質(zhì)量和效率。本課題在vb語言程序基礎(chǔ)上采用參數(shù)優(yōu)化設(shè)計(jì)方法對(duì)汽車主減速器的齒輪機(jī)構(gòu)進(jìn)行優(yōu)化，使尋優(yōu)過程得到簡(jiǎn)化，確?？煽康孬@得全局最優(yōu)解。能夠縮短主減速器參數(shù)設(shè)計(jì)計(jì)算時(shí)間、減輕工程技術(shù)人員的勞動(dòng)強(qiáng)度。 2 發(fā)展現(xiàn)狀 主減速器的參數(shù)計(jì)算主要是傳動(dòng)齒輪的基本參數(shù)和尺寸參數(shù)計(jì)算。自從汽車零部件設(shè)計(jì)引入計(jì)算機(jī)輔助設(shè)計(jì)方法后，這一功能的實(shí)現(xiàn)已經(jīng)變得比較容易?，F(xiàn)今國外大型的汽車企業(yè)都有自己的減速器齒輪設(shè)計(jì)計(jì)算系統(tǒng)，比如瑞典的克林貝格齒輪設(shè)計(jì)系統(tǒng)、德國的Calculation Base主錐設(shè)計(jì)系統(tǒng)等等。 早在上世紀(jì)60年代．國外的一些CAD公司就已經(jīng)開發(fā)出一些實(shí)用的三維繪圖軟件，三維繪圖技術(shù)的進(jìn)步為汽車零部件的設(shè)計(jì)引入了全新的概念。伴隨著三維繪圖軟件的日益成熟，國外大型的汽車生產(chǎn)廠家開始引入?yún)?shù)化設(shè)計(jì)方法來取代以前繁瑣的手工設(shè)計(jì)，目前參數(shù)化設(shè)計(jì)手段已經(jīng)相當(dāng)完善。作為汽車的重要部件，主減速器的設(shè)計(jì)也引入了參數(shù)化設(shè)計(jì)方法。生產(chǎn)廠家利用所設(shè)計(jì)的主減速器開發(fā)平臺(tái)根據(jù)新設(shè)計(jì)的主減速器尺寸在以前產(chǎn)品的基礎(chǔ)上更改相關(guān)的尺寸參數(shù)建立三維模型圖。 與國外相比，不論是在設(shè)計(jì)還是制造方面，與外國企業(yè)相比我國的汽車企業(yè)差距都非常明顯。但是經(jīng)過多年的努力，我國的主減速器設(shè)計(jì)系統(tǒng)軟件方面已經(jīng)取得了一定的成就。其中比較出名的有可以應(yīng)用于主減速器齒輪設(shè)計(jì)的齒輪專家系統(tǒng)，哈工大開發(fā)的主減速囂齒輪設(shè)計(jì)平臺(tái)等等。 其實(shí)軟件不僅在汽車方面有廣泛的應(yīng)用，在其他的機(jī)械區(qū)域里同樣有著比較廣泛的應(yīng)用。 （1）2009,06,01，廈門大學(xué)的沈一凜發(fā)表了碩士學(xué)位論文：數(shù)控彎絲機(jī)線材成形軟件設(shè)計(jì)。根據(jù)數(shù)控彎絲機(jī)的實(shí)際工作要求，完成其機(jī)械結(jié)構(gòu)部分的設(shè)計(jì)，并且自行開發(fā)出界面友好的操作軟件，能實(shí)現(xiàn)包括模型顯示和仿真運(yùn)動(dòng)等在內(nèi)的一系列功能。 （2）2005,11，農(nóng)業(yè)機(jī)械學(xué)報(bào)第36卷第11期發(fā)表了：農(nóng)業(yè)機(jī)械動(dòng)態(tài)仿真軟件開發(fā)與模擬?，F(xiàn)有的一些計(jì)算機(jī)仿真平臺(tái)如ADAMS,UG等具有很大的通用性，功能齊全， 但價(jià)格昂貴，專業(yè)性差， 且需要大量的計(jì)算機(jī)資源配合系統(tǒng)的運(yùn)行， 在仿真速度，系統(tǒng)的可擴(kuò)展性方面難以滿足農(nóng)機(jī)設(shè)計(jì)人員的要求。各種農(nóng)業(yè)機(jī)械有其自身的特殊性，對(duì)不斷更新的農(nóng)業(yè)機(jī)械型號(hào)，應(yīng)用類型，需要有相應(yīng)的仿真功能。而現(xiàn)有軟件的模式，內(nèi)容都比較固定，不利于變動(dòng)性大的研究。因此開發(fā)一種操作簡(jiǎn)單，成本低的仿真系統(tǒng)對(duì)農(nóng)業(yè)機(jī)械具有一定的意義。 （3）2004,11，農(nóng)機(jī)化研究第6期，基于 UNIX 的機(jī)械軟件設(shè)計(jì)思想研究。主要探討了基于 UNIX 利用 socket 建立客戶機(jī)/服務(wù)器模式實(shí)現(xiàn)編程的方法，解決了 C/S 模式中異種操作系統(tǒng)上的數(shù)據(jù)傳輸問題。利用這種方式可以方便地進(jìn)行客戶端和服務(wù)器端的程序編制，定制所需的模塊，通過實(shí)例程序的運(yùn)行，達(dá)到了預(yù)期的要求。為開發(fā)一種網(wǎng)絡(luò)功能強(qiáng)大，可以實(shí)現(xiàn)異種機(jī)和異種操作系統(tǒng)互連的軟件打下了基礎(chǔ)。 （4）2008,12,16，東南大學(xué)碩士學(xué)位論文：光纖光柵傳感系統(tǒng)研究及軟件設(shè)計(jì)。波長解調(diào)技術(shù)是FBG傳感器在工程技術(shù)領(lǐng)域應(yīng)用的關(guān)鍵技術(shù)，也是FBG傳感技術(shù)實(shí)用化的重點(diǎn)和難點(diǎn)之一。此文提出了一種基于可調(diào)諧Fabry-Perot濾波器的光纖布拉格光柵傳感系統(tǒng)的波長解調(diào)方案，在此基礎(chǔ)上完成了主機(jī)應(yīng)用軟件的設(shè)計(jì)。 （5）2007,08,01，西安理工大學(xué)碩士學(xué)位論文：基于PMAC的數(shù)控試驗(yàn)臺(tái)機(jī)械系統(tǒng)設(shè)計(jì)及軟件開發(fā)。開放式數(shù)控系統(tǒng)是現(xiàn)代數(shù)控系統(tǒng)發(fā)艘的方向，本文結(jié)合陜兩省數(shù)控加工技術(shù)重點(diǎn)實(shí)驗(yàn)室科研項(xiàng)目，采用“IPC+PMAC”結(jié)構(gòu)的開放式數(shù)控結(jié)構(gòu)，將PMAC控制卡及其擴(kuò)展卡裝入電器控制箱，通過標(biāo)準(zhǔn)串口RS232與上位機(jī)實(shí)現(xiàn)通訊，這樣構(gòu)成主從式雙微處理器結(jié)構(gòu)，由PMAC運(yùn)動(dòng)控制器對(duì)機(jī)械本體的X、Y、Z、A和B五個(gè)軸進(jìn)行實(shí)時(shí)控制，建立了五坐標(biāo)數(shù)控技術(shù)試驗(yàn)臺(tái)。 Vb作為程序語言在機(jī)械方面上的用途也是比較廣泛的。 （1）2006,11，北京工業(yè)大學(xué)學(xué)報(bào)第32卷第11期，基于VB的點(diǎn)焊質(zhì)量超聲檢測(cè)軟件設(shè)計(jì)。在超聲檢測(cè)點(diǎn)焊連接質(zhì)量的基本原理基礎(chǔ)上，通過VB 6．0調(diào)用Tektronix公司提供的TekVISA Activex控件，利用網(wǎng)口通訊實(shí)現(xiàn)了數(shù)字示波器中超聲信號(hào)數(shù)據(jù)的傳輸、存儲(chǔ)和顯示；通過分析找出了信號(hào)的特征參量，并實(shí)現(xiàn)了對(duì)焊點(diǎn)連接質(zhì)量的評(píng)價(jià)。該軟件實(shí)現(xiàn)了對(duì)焊點(diǎn)檢測(cè)質(zhì)量的數(shù)量統(tǒng)計(jì)。經(jīng)實(shí)際檢測(cè)驗(yàn)證，整個(gè)系統(tǒng)操作性好。 （2）2008,08，機(jī)械自動(dòng)化第4期：基于VB的機(jī)械優(yōu)化設(shè)計(jì)軟件的研究。針對(duì)各種優(yōu)化算法。用VB開發(fā)了用于進(jìn)行機(jī)械優(yōu)化設(shè)計(jì)的軟件，該軟件基于Windows系統(tǒng)。以Visual Basic的窗體界面為工作平臺(tái)}并用其中3種具有代表性的優(yōu)化設(shè)計(jì)方法進(jìn)行了一頂計(jì)算分析。實(shí)例對(duì)比分析表明了該軟件分析的可靠性和準(zhǔn)確性。 （3）2005,01，微計(jì)算機(jī)應(yīng)用第26卷第1期：基于VB的汽車點(diǎn)火線圈測(cè)試臺(tái)軟件設(shè)計(jì)。該文實(shí)現(xiàn)了點(diǎn)火線圈測(cè)試系統(tǒng)中對(duì)上位機(jī)系統(tǒng)軟件的要求，包括串行通信，對(duì)硬件端口的讀寫以及對(duì)數(shù)據(jù)庫的管理和維護(hù)。 3 選題目的與意義 由于消費(fèi)者對(duì)汽車性能、外形、功能、載重等各方面的要求會(huì)不同，所以為了滿足客戶的需求，設(shè)計(jì)者必須迅速開發(fā)出不同的產(chǎn)品來滿足客戶的需求。因此，設(shè)計(jì)者必須建立一套能快速響應(yīng)客戶需求設(shè)計(jì)研發(fā)軟件，以達(dá)到快速開發(fā)出新產(chǎn)品的目的。 在傳統(tǒng)的主減速器設(shè)計(jì)中，設(shè)計(jì)者根據(jù)設(shè)計(jì)任務(wù)的要求，參考已有經(jīng)驗(yàn)和資料，進(jìn)行構(gòu)思設(shè)計(jì)方案、建立設(shè)計(jì)模型、計(jì)算、分析、繪圖、反復(fù)修改等過程，最后設(shè)計(jì)出滿足要求的方案，并繪出圖樣和編制設(shè)計(jì)文件。在設(shè)計(jì)過程中，有創(chuàng)造性的思維勞動(dòng)，有綜合性的分析及判斷作量大，而且要做很多重復(fù)性的煩瑣勞動(dòng)設(shè)計(jì)效率低。也有復(fù)雜的計(jì)算及精密的繪圖等．工要由設(shè)計(jì)者來完成所有環(huán)節(jié)的工作，設(shè)計(jì)效率低。鑒于以上傳統(tǒng)設(shè)計(jì)方法的弊病，快速開發(fā)出新型主減速器并縮短開發(fā)周期，對(duì)于提高企業(yè)的競(jìng)爭(zhēng)力具有重要意義，此時(shí)便需要建立一個(gè)能快速響應(yīng)客戶需求的設(shè)計(jì)軟件。 Visual Basic是面向?qū)ο缶幊痰模軐?shí)現(xiàn)所見即所得，它的主要工作方式是采用事件驅(qū)動(dòng)方式，當(dāng)你不去驅(qū)動(dòng)這些事件時(shí)，它所代表的過程將永遠(yuǎn)也不會(huì)觸發(fā)，這就為設(shè)計(jì)良好的界面帶來了莫大的便利。Visual Basic事件驅(qū)動(dòng)應(yīng)用程序中的典型事件順序如下：①運(yùn)行應(yīng)用程序、加載和顯示窗體；②窗體及窗體上的控件接收事件，事件的產(chǎn)生可能是由用戶操作、系統(tǒng)引發(fā)或代碼間接引發(fā)；⑨調(diào)用事件處理過程代碼；④等待下一次事件 由Visual Basic建立的最優(yōu)化數(shù)值計(jì)算程序可生成可執(zhí)行文件(．exe文件)，直接在Windows環(huán)境中運(yùn)行，界面友好。對(duì)于工程技術(shù)人員來說，可以使用此軟件選擇多種優(yōu)化方法進(jìn)行優(yōu)化，最后擇其最優(yōu)解。即使用戶不熟悉優(yōu)化設(shè)計(jì)方法和Visual Basic語言，也可使用此軟件進(jìn)行優(yōu)化。 二、 設(shè)計(jì)（論文）的基本內(nèi)容、擬解決的主要問題 1設(shè)計(jì)的主要內(nèi)容： （1）研究汽車工程設(shè)計(jì)類計(jì)算軟件國內(nèi)外技術(shù)現(xiàn)狀、存在問題及發(fā)展趨勢(shì)； （2）研究汽車主減速器設(shè)計(jì)步驟、方法、設(shè)計(jì)公式； （3）對(duì)汽車主減速器參數(shù)設(shè)計(jì)進(jìn)行計(jì)算軟件設(shè)計(jì)開發(fā)； （4）用調(diào)查得到的數(shù)據(jù)對(duì)所設(shè)計(jì)的計(jì)算軟件進(jìn)行測(cè)試。 2擬解決的主要問題： （1）人性化界面的建立； （2）圖形方法的應(yīng)用； （3）數(shù)據(jù)庫知識(shí)點(diǎn)的應(yīng)用； 三、 技術(shù)路線（研究方法） 調(diào)研并查閱汽車主減速器的相關(guān)資料 調(diào)研并查閱Visual Basic的相關(guān)資料 軟件設(shè)計(jì)總方案的確定 汽車主減速比的確定 雙級(jí)主減速器 單級(jí)主減速器 錐齒輪的設(shè)計(jì)及校核 參數(shù)優(yōu)化 材料及熱處理 雙級(jí) 斜齒圓柱齒輪的設(shè)計(jì)及校核 單級(jí) 參數(shù)優(yōu)化 材料及熱處理 用數(shù)據(jù)對(duì)計(jì)算軟件進(jìn)行測(cè)試 材料及熱處理 四、進(jìn)度安排 （1）調(diào)研、資料收集，完成開題報(bào)告 第1、2周 （2）研究汽車主減速器設(shè)計(jì)步驟、方法、設(shè)計(jì)公式 第3周 （3）學(xué)習(xí)一種編程語言 第4、5周 （4）設(shè)計(jì)開發(fā)汽車主減速器參數(shù)優(yōu)化設(shè)計(jì)計(jì)算軟件 第6~9周 （5）用設(shè)計(jì)數(shù)據(jù)對(duì)計(jì)算軟件進(jìn)行測(cè)試 第10、11周 （6）設(shè)計(jì)結(jié)果評(píng)價(jià)、分析與修正 第12周 （7）完成設(shè)計(jì)說明書的撰寫，指導(dǎo)教師審核 第13周 （8）畢業(yè)設(shè)計(jì)（論文）修改、完善 第14周 （9）畢業(yè)設(shè)計(jì)（論文）審核、預(yù)審 第15周 （10）畢業(yè)設(shè)計(jì)（論文）修改、完善 第15、16周 （11）畢業(yè)設(shè)計(jì)（論文）答辯準(zhǔn)備及答辯 第17周 五、參考文獻(xiàn) [1] 吳志敏等.農(nóng)用動(dòng)力車動(dòng)力的優(yōu)選方案.農(nóng)業(yè)工程學(xué)報(bào).1996, 12( 3) ：101- 105 [2] 戴冠軍.城市載貨汽車和公共汽車運(yùn)行工況模式的探討.西安公路學(xué)院學(xué)報(bào).1985,(1)：16-20 [3] 唐大放，張永忠，閻海峰.工程機(jī)械驅(qū)動(dòng)橋準(zhǔn)雙曲面齒輪的優(yōu)化選型設(shè)計(jì).工程機(jī)械.2004（1） ：31-33 [4] 遇立基．磨齒工藝與磨齒機(jī)的技術(shù)發(fā)展概況[J]．現(xiàn)代制造工程。2008(2)：1—4． [5] 佟曉東，王立鼎．漸開線實(shí)體基準(zhǔn)的研制[J]．計(jì)量技術(shù)，1998(05)：33—36． [6] 張俊杰，馬勇．雙盤式漸開線儀中的輪軌彈性蠕滑問題[J]．機(jī)械傳動(dòng)，2007，31(5)：6—8． [7] 孫靖民．機(jī)械優(yōu)化設(shè)計(jì)[M]．北京：機(jī)械工業(yè)出版社，2005：214—228． [8] 濮良貴．機(jī)械設(shè)計(jì)[M]．北京：高等教育出版社，2004：195—200． [9] 席平原．應(yīng)用matlab軟件實(shí)現(xiàn)機(jī)械優(yōu)化設(shè)it-[J]．機(jī)械設(shè)計(jì)與研究，2003(3)：23—25． [10]林雪松．Matlab7．0應(yīng)用集錦[M]．北京：機(jī)械工業(yè)出版社2006：317—336． [11]Enayet B．Halim，Skish L．Shah，Ming J．Zuo，et a1．Fault Detection of Gearbox from Vibration Signal using Time—Frequency Domain Averaging．Proceedings of the 2006 American Control Coference，2006，4430-4435 [12]Abhinav Saxena，Biaing Wu and George Vachtsevanos．A Methodology for Analyzing Vibration Data from Planetary Gear Systems using Complex Morlet Wavelets．American Control Conference，2005，4730-4735 [13]楊頂信．機(jī)械優(yōu)化設(shè)計(jì)方法與評(píng)判標(biāo)準(zhǔn)[J]．長春理工大學(xué)學(xué)報(bào)(綜合版)，2006．2(2)：171—173． [14]王曉軍，肖冠云．機(jī)械優(yōu)化設(shè)計(jì)中目標(biāo)函數(shù)的常用優(yōu)化目標(biāo)及應(yīng)用研究[J]．重型機(jī)械科技，2005(1)：28—30． [15]張京明,崔勝民. 汽車傳動(dòng)系參數(shù)的模糊優(yōu)化 [ J ]. 哈爾濱工業(yè)大學(xué)學(xué)報(bào), 2004 (10) : 1322 - 1324. 六、備注 指導(dǎo)教師意見： 簽字： 年 月 日 Form1 Private Sub Form_Click() Form1.Hide Form2.Show End Sub Private Sub Label3_Click() End Sub Form2 Private Sub Form_Load() Text1.Text = "" Text1.MaxLength = 6 Text1.PasswordChar = "*" End Sub Private Sub Image1_Click() End Sub Private Sub Label2_Click() Dim i As Integer If Text1.Text <> "090316" Then i = MsgBox("密碼錯(cuò)誤", 5 + vbExclamation, "警告") If i <> 4 Then End Else Text1.Text = "" Text1.SetFocus End If Else Form2.Hide Form3.Show End If End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox "密碼必須為數(shù)字", , "警告" Text1.Text = "" Text1.SetFocus End If End Sub Form3 Private Sub Label1_Click(Index As Integer) Form3.Hide Form4.Show End Sub Private Sub OLE1_Updated(Index As Integer, Code As Integer) End Sub Private Sub 幫助_Click() MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption End Sub Private Sub 保存_Click() MsgBox "添加 'menuSave_Click' 代碼。" End Sub Private Sub 關(guān)閉_Click() End Sub Private Sub 退出_Click() End End Sub Private Sub 新建_Click() Form3.Hide Form4.Show End Sub Private Sub 主減速比_Click() Form3.Hide Form4.Show End Sub Form4 Private Sub Image1_Click() End Sub Private Sub Label2_Click() Form4.Hide Form5.Show End Sub Private Sub Label3_Click() Form4.Hide Form3.Show End Sub Form5 Private Sub Label1_Click() End Sub Private Sub Label2_Click() Form5.Hide Form7.Show End Sub Private Sub Label3_Click() Form5.Hide Form23.Show End Sub Private Sub Label4_Click() Form5.Hide Form4.Show End Sub Private Sub Label5_Click() Form5.Hide Form3.Show End Sub Form6 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" Print "符合要求" Else Print a7; "> 700" Print "不符合要求" End If End If End Sub Private Sub Form_Load() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! If Form10.Text4.Text > Form10.Text10.Text Then a1 = Form11.Text9.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" Print "符合要求" Else Print a7; "> 700" Print "不符合要求" End If Else a1 = Form11.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" Print "符合要求" Else Print a7; "> 700" Print "不符合要求" End If End If End Sub Private Sub Image1_Click() End Sub Form7 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form7.Hide Form8.Show End Sub Private Sub Label2_Click() Form7.Hide Form9.Show End Sub Private Sub Label3_Click() Form7.Hide Form10.Show End Sub Private Sub Label4_Click() Form7.Hide Form12.Show End Sub Private Sub Label5_Click() Form7.Hide Form21.Show End Sub Private Sub Label7_Click() Form7.Hide Form22.Show End Sub Private Sub Label8_Click() Form7.Hide Form3.Show End Sub Private Sub Label9_Click() Form7.Hide Form23.Show End Sub Private Sub 幫助_Click() MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption End Sub Private Sub 齒輪材料_Click() Form7.Hide Form22.Show End Sub Form8 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label5_Click() End Sub Private Sub Label8_Click() Form8.Hide Form7.Show End Sub Form9 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label9_Click() Form9.Hide Form7.Show End Sub Form10 Private Sub Command1_Click() a1 = Text1.Text a2 = Text2.Text a3 = Text3.Text a4 = 0.9 * a1 * a2 / a3 Text4.Text = a4 End Sub Private Sub Command2_Click() a5 = Text5.Text a6 = Text6.Text a7 = Text7.Text a8 = Text8.Text a9 = Text9.Text a10 = a5 * a6 * a7 / a8 / a9 Text10.Text = a10 End Sub Private Sub Command3_Click() Form10.Hide Form11.Show End Sub Private Sub Command4_Click() Form10.Hide Form7.Show End Sub Private Sub Form_Load() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10! End Sub Private Sub Image1_Click() Picture = LoadPicture("") End Sub Form11 Private Sub Command1_Click() b1 = Text1.Text b2 = Text2.Text b3 = Text3.Text b4 = Text4.Text b5 = Text5.Text i1 = b3 * b4 * b5 b6 = b1 * b2 / i1 Text6.Text = b6 End Sub Private Sub Command2_Click() b6 = Text6.Text b7 = Text7.Text b8 = Text8.Text i2 = Form10.Text4.Text i3 = Form10.Text10.Text i4 = b7 * b8 b9 = i2 / i4 Text9.Text = b9 b10 = i3 / i4 Text10.Text = b10 b11 = b6 / i4 Text11.Text = b11 End Sub Private Sub Form_Load() Dim b1!, b2!, b3!, b4!, b5!, b6!, b7!, b8!, b9!, b10!, b11!, i1!, i2!, i3!, i4! End Sub Private Sub Image1_Click() Picture = LoadPicture("") End Sub Private Sub Label14_Click() Form11.Hide Form7.Show End Sub Form12 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form12.Hide Form13.Show End Sub Private Sub Label2_Click() Form12.Hide Form17.Show End Sub Private Sub Label3_Click() Form12.Hide Form18.Show End Sub Private Sub Label4_Click() Form12.Hide Form19.Show End Sub Private Sub Label5_Click() Form12.Hide Form7.Show End Sub Private Sub Label6_Click() Form12.Hide Form20.Show End Sub Form13 Private Sub Image1_Click() End Sub Private Sub Label2_Click() Form13.Hide Form14.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form14 Private Sub Label2_Click() Form14.Hide Form15.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form15 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label1_Click() Form15.Hide Form16.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form16 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label3_Click() Form16.Hide Form12.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form17 Private Sub Command1_Click() Dim c!, a!, b! If Form10.Text4.Text > Form10.Text10.Text Then a = Form10.Text4.Text b = 13 * (a ^ (1 / 3)) c = 15.3 * (a ^ (1 / 3)) Text1.Text = b Text2.Text = c Else a = Form10.Text10.Text b = 13 * (a ^ (1 / 3)) c = 15.3 * (a ^ (1 / 3)) Text1.Text = b Text2.Text = c End If End Sub Private Sub Command4_Click() Dim c!, d!, e% c = Text4.Text d = Form16.Text2.Text e = c / d Text3.Text = e End Sub Private Sub Form_Load() End Sub Private Sub Label3_Click() Form17.Hide Form12.Show End Sub Form18 Private Sub Command1_Click() Dim a!, b!, c! a = Form17.Text4.Text b = 0.155 * a Text1.Text = b c = 1.1 * b Text2.Text = c End Sub Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label4_Click() Form18.Hide Form12.Show End Sub Form19 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label3_Click() End Sub Private Sub Label7_Click() Form19.Hide Form12.Show End Sub Form20 Private Sub Form_Load() Picture = LoadPicture("") Dim a%, b%, c!, d%, e%, f!, H1!, H2!, Ka!, H3!, H4!, H5!, H6!, x!, y! Text1.Text = Form16.Text1.Text Text2.Text = Form16.Text2.Text Text3.Text = Form17.Text3.Text x = Form18.Text2.Text Text4.Text = x y = Form18.Text1.Text Text20.Text = y Text7.Text = Form19.Text2.Text a = Text1.Text b = Text2.Text c = Text3.Text Text3.Text = c d = a * c e = b * c Text8.Text = d Text9.Text = e Text14.Text = Form19.Combo1 Text21.Text = Form19.Combo2 Text15.Text = 25.64 Text16.Text = 90 - 25.64 Text17.Text = d / 2 / Sin(25.64 * 3.14 / 180) Text18.Text = 3.1416 * c If a = 5 Then H1 = 1.43 H2 = 1.588 Ka = 0.16 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 6 Then H1 = 1.5 H2 = 1.666 Ka = 0.215 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 7 Then H1 = 1.56 H2 = 1.733 Ka = 0.27 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 8 Then H1 = 1.61 H2 = 1.788 Ka = 0.325 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 9 Then H1 = 1.65 H2 = 1.832 Ka = 0.38 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 10 Then H1 = 1.68 H2 = 1.865 Ka = 0.435 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c ElseIf a = 11 Then H1 = 1.695 H2 = 1.882 Ka = 0.49 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c Else H1 = 1.7 H2 = 1.888 f = (b / a) ^ 2 Ka = 0.46 + 0.39 / f Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * c End If End Sub Private Sub Label15_Click() Form20.Hide Form12.Show End Sub Form21 Private Sub Form_Load() End Sub Private Sub Label10_Click() Form21.Hide Form7.Show End Sub Private Sub Label4_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! If Form10.Text4.Text > Form10.Text10.Text Then a1 = Form11.Text9.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果" End If Else a1 = Form11.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果" End If End If End Sub Private Sub Label5_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form11.Text11.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 210 Then Print a7; "< 210" MsgBox "計(jì)算值<210 校核成功", , "校核結(jié)果" Else Print a7; "> 210" MsgBox "計(jì)算值>210 校核不成功", , "校核結(jié)果" End If End Sub Private Sub Label7_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, b1!, b2! b1 = Form10.Text4.Text b2 = Form10.Text10.Text If b1 < b2 Then a1 = Form10.Text4.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果" End If Else a1 = Form10.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 700 Then Print a7; "< 700" MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果" End If End If End Sub Private Sub Label8_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form11.Text6.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) ^ 0.25 a4 = Text1.Text a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 < 210 Then Print a7; "< 210" MsgBox "計(jì)算值<210 校核成功", , "校核結(jié)果" Else Print a7; "> 210" MsgBox "計(jì)算值>210 校核不成功", , "校核結(jié)果" End If End Sub Private Sub Label9_Click() Form21.Hide Form27.Show End Sub Form22 Private Sub Label2_Click() Form22.Hide Form7.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form23 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form23.Hide Form24.Show End Sub Private Sub Label2_Click() Form23.Hide Form7.Show End Sub Private Sub Label3_Click() Form23.Hide Form25.Show End Sub Private Sub Label4_Click() End Sub Private Sub Label6_Click() Form23.Hide Form5.Show End Sub Private Sub 幫助_Click() MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption End Sub Private Sub 第二級(jí)_Click() Form23.Hide Form25.Show End Sub Private Sub 第一級(jí)_Click() Form23.Hide Form7.Show End Sub Private Sub 關(guān)閉_Click() Form23.Hide Form5.Show End Sub Private Sub 退出_Click() End End Sub Private Sub 新建_Click() Form23.Hide Form3.Show End Sub Private Sub 主減速比分配_Click() Form23.Hide Form24.Show End Sub Form24 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label1_Click() End Sub Private Sub Label5_Click() Form24.Hide Form23.Show End Sub Form25 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form25.Hide Form26.Show End Sub Private Sub Label2_Click() Form25.Hide Form28.Show End Sub Private Sub Label3_Click() Form25.Hide Form29.Show End Sub Private Sub Label4_Click() Form25.Hide Form30.Show End Sub Private Sub Label5_Click() Form25.Hide Form31.Show End Sub Private Sub Label6_Click() Form25.Hide Form32.Show End Sub Private Sub Label8_Click() Form25.Hide Form23.Show End Sub Form26 Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label10_Click() Dim a1!, a2!, a3! a1 = Form10.Text4.Text a2 = 10.51 * a1 ^ (1 / 3) a3 = 11.92 * a1 ^ (1 / 3) Text1.Text = a2 Text2.Text = a3 End Sub Private Sub Label11_Click() Form26.Hide Form25.Show End Sub Private Sub Label13_Click() Dim a1!, a2!, a3! a1 = Text3.Text a2 = 0.38 * a1 a3 = 0.41 * a1 Text6.Text = a2 Text7.Text = a3 End Sub Form27 a7 = a6 * a5 ^ (1 / 2) If a7 > 2800 Then Print a7; ">2800" MsgBox "計(jì)算值>2800 校核不成功", , "校核結(jié)果" Else Print a7; "<2800" MsgBox "計(jì)算值<2800 校核成功", , "校核結(jié)果" End If End If End If End Sub Private Sub Label4_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form20.Text8.Text a2 = Form11.Text11.Text a3 = Form21.Text1.Text If Form18.Text1 > Form18.Text2 Then a4 = Form18.Text1.Text a5 = 2000 * a2 * a3 / a4 / 0.09 a6 = 232.6 / a1 a7 = a6 * a5 ^ (1 / 2) If a7 > 1750 Then Print a7; ">1750" MsgBox "計(jì)算值>1750 校核不成功", , "校核結(jié)果" Else Print a7; "<1750" MsgBox "計(jì)算值<1750 校核成功", , "校核結(jié)果" End If Else a4 = Form18.Text2.Text a5 = 2000 * a2 * a3 / a4 / 0.09 a6 = 232.6 / a1 a7 = a6 * a5 ^ (1 / 2) If a7 > 1750 Then Print a7; ">1750" MsgBox "計(jì)算值>1750 校核不成功", , "校核結(jié)果" Else Print a7; "<1750" MsgBox "計(jì)算值<1750 校核成功", , "校核結(jié)果" End If End If End Sub Private Sub Label5_Click() Form27.Hide Form7.Show End Sub Private Sub OLE2_Updated(Code As Integer) End Sub Form28 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label1_Click() Form28.Hide Form25.Show End Sub Private Sub Label9_Click() End Sub Form29 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label3_Click() Form29.Hide Form25.Show End Sub Private Sub Label8_Click() End Sub Form30 Private Sub Form_Load() Picture = LoadPicture("") End Sub Private Sub Label1_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form26.Text3.Text a2 = Form28.Text1.Text a3 = Form29.Text2.Text a4 = Form24.Text3.Text a5 = 2 * a1 * Cos(a3 * 3.14 / 180) / a2 Text1.Text = a5 a6 = a5 / (1 + a4) a7 = a6 * a4 Text2.Text = a4 Text3.Text = a6 Text4.Text = a7 End Sub Private Sub Label2_Click() Form30.Hide Form25.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form31 Private Sub Form_Load() Dim z1%, z2%, m%, a%, b%, j1!, j2!, d1!, d2!, ha1!, ha2!, hf1!, hf2!, h!, da1!, da2!, df1!, df2!, db1!, db2! z1 = Form30.Text5.Text z2 = Form30.Text6.Text m = Form28.Text1 a = Form26.Text3 b = Form26.Text8 j1 = Form29.Text1 j2 = Form29.Text2 d1 = m * z1 / Cos(j2 * 3.14 / 180) d2 = m * z2 / Cos(j2 * 3.14 / 180) ha1 = m ha2 = m hf1 = 1.25 * m hf2 = 1.25 * m h = ha1 + hf1 da1 = d1 + 2 * ha1 da2 = d2 + 2 * ha2 df1 = d1 - 2 * hf1 df2 = d2 - 2 * hf2 db1 = d1 * Cos(j1 * 3.14 / 180) db2 = d2 * Cos(j1 * 3.14 / 180) Text1.Text = z1 Text2.Text = z2 Text3.Text = m Text4.Text = a Text5.Text = b Text6.Text = j1 Text7.Text = j2 Text8.Text = d1 Text9.Text = d2 Text10.Text = ha1 Text11.Text = ha2 Text12.Text = hf1 Text13.Text = hf2 Text14.Text = h Text15.Text = da1 Text16.Text = da2 Text17.Text = df1 Text18.Text = df2 Text19.Text = db1 Text20.Text = db2 End Sub Private Sub Label1_Click() Form31.Hide Form25.Show End Sub Private Sub OLE2_Updated(Code As Integer) End Sub Form32 Private Sub Label1_Click() Dim f!, t1!, d!, j!, b!, t!, k1!, y!, k2!, m! d = Form31.Text8.Text j = Form31.Text7.Text b = Form31.Text5.Text m = Form31.Text3.Text t = m * 3.14 If Form11.Text9.Text < Form11.Text10.Text Then t1 = Form11.Text10.Text f = 2 * t1 / d k1 = 1.5 * f * 1000 / (b * t * 4) If k1 < 250 Then Print k1; "< 250" MsgBox "計(jì)算值<250 校核成功", , "校核結(jié)果" Else Print k1; "> 250" MsgBox "計(jì)算值>250 校核不成功", , "校核結(jié)果" End If Else t1 = Form11.Text9.Text f = 2 * t1 / d k1 = 1.5 * f * 1000 / (b * t * 4) If k1 < 250 Then Print k1; "< 250" MsgBox "計(jì)算值<250 校核成功", , "校核結(jié)果" Else Print k1; "> 250" MsgBox "計(jì)算值>250 校核不成功", , "校核結(jié)果" End If End If End Sub Private Sub Label2_Click() Form32.Hide Form33.Show End Sub Private Sub Label3_Click() Form32.Hide Form25.Show End Sub Private Sub OLE2_Updated(Code As Integer) End Sub Form33 Private Sub Label2_Click() Dim s!, f!, f1!, j1!, j2!, tg!, d!, b!, rz!, rb!, pz!, pb!, s1!, s2!, s3!, s4! j1 = Form31.Text6.Text j2 = Form31.Text7.Text d = Fo