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

汽車主減速器參數(shù)優(yōu)化軟件設(shè)計,汽車,減速器,參數(shù),優(yōu)化,軟件設(shè)計 1登錄系統(tǒng) 首先，進入軟件的首個界面如圖1-1所示，單擊該界面，進入登錄界面。登錄界面如圖1-2所示，輸入特定的密碼并且正確后，則正事進入設(shè)計界面。密碼只能為數(shù)字，長度為6。如果輸入的密碼不正確或者為非數(shù)字，系統(tǒng)會給出相應(yīng)的警告。如圖1-3,1-4所示。 圖1-1 系統(tǒng)首頁 圖1-2 密碼界面 圖1-3 密碼界面 圖1-4 密碼界面 2汽車主減速器參數(shù)優(yōu)化計算軟件使用步驟 2.1 減速形式選擇的使用步驟 圖2-1為正式進入設(shè)計系統(tǒng)的第一個界面，從此界面上可以了解到汽車主減速器設(shè)計的大致流程。在界面上方具有菜單欄，用戶可根據(jù)需求，點擊相應(yīng)的菜單選項，從而得到相應(yīng)的幫助和信息。單擊主減速比的確定，進入下一界面。 圖2-1 設(shè)計主頁 此界面為主減速比的輸入界面。此數(shù)據(jù)是接下來選擇減速形式的主要依據(jù)，同時也是以后設(shè)計過程中最為主要的數(shù)據(jù)之一，如圖2-2所示。 圖2-2 主減速比 如圖2-3所示，此界面為汽車主減速器減速形式的選擇界面。可根據(jù)主減速比的數(shù)值大小以及范圍來選擇單級主減速器還是雙級主減速器。選擇相應(yīng)的減速形式后，單擊該選項即可。 圖2-3 減速形式選擇 2.2單級主減速器設(shè)計的使用步驟 圖2-4為單級主減速器設(shè)計主頁，從界面上可以清晰地了解到單級主減速器的設(shè)計步驟以及設(shè)計順序。按照設(shè)計順序點擊齒輪形式的選擇，進入具體設(shè)計界面。 齒輪形式選擇界面是以界面給定的信息作為參考以及選擇原則，進行齒輪形式的選擇。兩種錐齒輪的優(yōu)缺點都在給定的信息當(dāng)中，望仔細(xì)閱讀，從而做出選擇。做出選擇后，單擊所選選項即可。如圖2-5所示。 之后返回設(shè)計主頁，單擊主從動錐齒輪的支承方案，進入選擇界面。支承形式的分類，相應(yīng)的結(jié)構(gòu)特點以及適用范圍都已在界面上的信息當(dāng)中給出。仔細(xì)閱讀后做出選擇，單擊即可。如圖2-6所示。 再次進入設(shè)計主頁，單擊齒輪計算載荷的確定，進入計算頁面。根據(jù)不同的情況，齒輪的計算載荷可分為三種。如圖2-7 2-8所示，在輸入相應(yīng)的數(shù)據(jù)之后，單擊計算按鈕，系統(tǒng)會自動算出與之相對應(yīng)的結(jié)果。輸入主減速比，主減速器的傳動效率后，也可算出主動齒輪的計算載荷。 圖2-4 錐齒輪設(shè)計首頁 圖2-5 齒輪形式 圖2-6 支撐形式 返回設(shè)計首頁，單擊齒輪主要參數(shù)的選擇，進入下一界面。圖2-9所示界面為汽車主減速器齒輪參數(shù)設(shè)計主界面。界面上顯示了具體的設(shè)計步驟以及涉及順序。請用戶按照相應(yīng)的涉及順序進入相應(yīng)的界面。 進入錐齒輪齒數(shù)查詢及選擇界面。這一內(nèi)容包含了四個界面。每個界面當(dāng)中都含有一個或多個表格。根據(jù)表格內(nèi)的信息，選擇適合用戶自己的錐齒輪齒數(shù)。并輸入在相應(yīng)的界面內(nèi)。如圖2-10所示（由于界面繁多，則不一一列舉） 返回齒輪參數(shù)設(shè)計主界面，進入齒輪參數(shù)設(shè)計的第二個步驟。此步驟為計算錐齒輪端面模數(shù)。如圖2-11所示，先通過計算出從動錐齒輪大端分度圓直徑，再利用相應(yīng)的公式計算出模數(shù)的具體數(shù)值。 再次返回錐齒輪參數(shù)設(shè)計的主界面。單擊主從動齒輪齒面寬的計算，進入第三步驟。根據(jù)界面上相應(yīng)的信息，點擊計算按鈕，計算出主從錐齒輪齒面寬。如圖2-12所示 以相同的方法，進入錐齒輪參數(shù)設(shè)計的第四步。此步驟主要是中心螺旋角的選擇，主從動錐齒輪旋向的選擇以及壓力角的選擇。相應(yīng)的選擇信息都已在界面上給出。用戶只需在仔細(xì)閱讀后，做出選擇即可。界面如圖2-13所示。 圖2-7 計算載荷 圖2-12 齒寬 圖2-8 計算載荷 進入錐齒輪參數(shù)設(shè)計的最后一步，通過上幾步驟對于基本參數(shù)的輸入，選擇以及計算，才使得在這錐齒輪參數(shù)設(shè)計最后的一個步驟當(dāng)中，可以順利的計算出錐齒輪的幾何尺寸。具體尺寸名稱如圖2-14所示。 返回設(shè)計首頁，基本的數(shù)據(jù)都已產(chǎn)生，接下來進入數(shù)據(jù)校核界面。齒輪的校核主要從彎曲強度和接觸強度上進行。圖2-15所示為錐齒輪彎曲強度校核界面，圖2-16所示為錐齒輪接觸強度校核界面。點擊相應(yīng)的校核按鈕，系統(tǒng)會彈出對話框用來提示校核是否成功。 如校核成功，則證明設(shè)計的數(shù)據(jù)完全正確，可以使用。進而進入選擇齒輪材料界面。根據(jù)界面上以給定的信息選擇錐齒輪的材料。如圖2-17所示。 接下來用戶可以利用設(shè)計而來的數(shù)據(jù)進入其他軟件系統(tǒng)進行建模仿真。 圖2-9 錐齒輪參數(shù)設(shè)計 圖2-11 端面模數(shù) 圖2-10 齒數(shù)選擇 圖2-16 接觸強度校核 圖2-13 基本參數(shù)選擇 圖2-14 幾何尺寸 圖2-15 彎曲強度校核 圖2-17 材料 2.3雙級主減速器設(shè)計的使用步驟 在進入減速形式選擇之前，操作步驟完全一樣，這里不做重復(fù)聲明。 進入減速形式選擇界面，選擇雙級主減速器。 圖2-18所示為雙級主減速器設(shè)計主頁。界面上顯示有設(shè)計步驟以及涉及順序。用戶可按照相應(yīng)順序進行設(shè)計。 單擊主減速比的分配，進入設(shè)計第一步。根據(jù)界面所提供信息可把主減速比分為兩部分。第一部分為錐齒輪傳動減速比，第二部分為斜齒圓柱齒輪傳動減速比。把分好的兩個主減速比分別填入相應(yīng)的文本框中。如圖2-19所示。 返回二級設(shè)計首頁，進入第二步——第一級錐齒輪的設(shè)計。由于雙級主減速器第一級錐齒輪的設(shè)計與單級主減速器錐齒輪的設(shè)計完全相同，并且前方已經(jīng)具體闡述過單級主減速器錐齒輪的設(shè)計步驟，所以這里就不再做多余重復(fù)。如有不明之處，可查翻前方說明。 進入第三步——第二級斜齒圓柱齒輪的設(shè)計。圖2-20所示為斜齒圓柱齒輪設(shè)計主頁。該界面上同樣顯示了設(shè)計的步驟以及涉及順序。用戶只需按照順序操作即可。 圖2-18 雙級首頁 圖2-19 主減速比分配 圖2-20 斜齒圓柱齒輪設(shè)計 進入第一步——中心距A與齒寬b的計算。根據(jù)界面已給信息，單擊計算按鈕，可算出中心距A的范圍。用戶需要從中選取中心距A，一般取整數(shù)。選取完中心距A之后，可利用這一結(jié)果計算出齒寬b的范圍，用戶則需從中選取齒寬b.如圖2-21所示。 圖2-21 中心距與齒寬 進入第二步——模數(shù)的選擇。根據(jù)界面所提供的表格以及用戶自己手中所擁有的信息來選擇適當(dāng)?shù)哪?shù)。并填入文本框，如圖2-22所示。 圖2-22 模數(shù) 進入第三步——壓力角和螺旋角的選擇。圖2-23所示為該界面。用戶可根據(jù)界面所提供的信息選擇適當(dāng)?shù)膲毫桥c螺旋角。 圖2-23 壓力角與螺旋角 返回斜齒圓柱齒輪設(shè)計主頁，進入第四步——齒數(shù)的選擇。如圖2-24所示，通過界面上方的兩個方程，解出主動齒輪齒數(shù)和從動齒輪齒數(shù)。用戶則只需要根據(jù)解出的主從動齒輪齒數(shù)略作去整即可。 圖2-24 齒數(shù) 基本參數(shù)已經(jīng)計算或輸入完畢，接下來進行斜齒圓柱齒輪的幾何尺寸計算。具體數(shù)據(jù)名稱和大小如圖2-25所示。 圖2-25 幾何尺寸 接下來進入校核界面。如同錐齒輪校核一樣，一是斜齒輪彎曲應(yīng)力，一是斜齒輪接觸應(yīng)力。圖2-26為斜齒輪彎曲應(yīng)力校核，圖2-27為斜齒輪接觸應(yīng)力校核。用戶只需點擊相應(yīng)的校核按鈕就可校核，系統(tǒng)會彈出對話框，用來提示校核結(jié)果。 如校核成功，則證明之前設(shè)計的數(shù)據(jù)滿足要求，可以使用。之后用戶可利用設(shè)計數(shù)據(jù)進入其他軟件系統(tǒng)進行建模仿真。 圖2-26 彎曲強度校核 圖2-27 接觸強度校核 3退出系統(tǒng) 單擊窗體右上方的“關(guān)閉”按鈕或者在主界面的“文件”菜單里選擇“退出”按鈕，即可退出本系統(tǒng)。 - 19 - 本科學(xué)生畢業(yè)設(shè)計 汽車主減速器參數(shù)優(yōu)化 軟件使用說明書 院系名稱： 汽車與交通工程學(xué)院 專業(yè)班級： 車倆工程B07-2班 學(xué)生姓名： 孫 楠 指導(dǎo)教師： 趙雨旸 職 稱： 副教授 黑 龍 江 工 程 學(xué) 院 二○一一年六月 目 錄 1登錄系統(tǒng)…………………………………………………………………………1 2汽車主減速器參數(shù)優(yōu)化計算軟件使用步驟………………………2 2.1 減速形式選擇的使用步驟………………………………2 2.2 單級主減速器設(shè)計的使用步驟………………………………4 2.3 雙級主減速器設(shè)計的使用步驟…………………………………13 3退出系統(tǒng)…………………………………………………………………………19 畢業(yè)設(shè)計（論文）開題報告 設(shè)計（論文）題目: 汽車主減速器參數(shù)優(yōu)化軟件設(shè)計 院 系 名 稱: 汽車與交通工程學(xué)院 專 業(yè) 班 級: 車輛07-2班 學(xué) 生 姓 名: 孫楠 導(dǎo) 師 姓 名: 趙雨旸 開 題 時 間: 2011-02- 28 指導(dǎo)委員會審查意見： 簽字： 年 月 日 開題報告撰寫要求 一、“開題報告”參考提綱 1. 課題研究目的和意義； 2. 文獻綜述（課題研究現(xiàn)狀及分析）； 3. 基本內(nèi)容、擬解決的主要問題； 4. 技術(shù)路線或研究方法； 5. 進度安排； 6. 主要參考文獻。 二、“開題報告”撰寫規(guī)范 請參照《黑龍江工程學(xué)院本科生畢業(yè)設(shè)計說明書及畢業(yè)論文撰寫規(guī)范》要求。字?jǐn)?shù)應(yīng)在4000字以上，文字要精練通順，條理分明，文字圖表要工整清楚。 畢業(yè)設(shè)計（論文）開題報告 學(xué)生姓名 孫 楠 系部 汽車與交通工程學(xué)院 專業(yè)、班級 車輛工程07-2班 指導(dǎo)教師姓名 趙雨旸 職稱 副教授 從事 專業(yè) 車輛工程 交通工程 是否外聘 □是√否 題目名稱 汽車主減速器參數(shù)優(yōu)化軟件設(shè)計 一、 課題研究現(xiàn)狀、選題目的和意義 1 課題背景 汽車問世百余年來，特別是從汽車產(chǎn)品的大批量生產(chǎn)及汽車工業(yè)的發(fā)展以來，汽車己為世界經(jīng)濟的發(fā)展、為人類進入現(xiàn)代生活，產(chǎn)生了無法估量的巨大影響，為人類社會的進步做出了不可磨滅的巨大貢獻。近年來隨著汽車技術(shù)的迅猛發(fā)展，對汽車傳動系承載能力以及工作可靠性的要求越來越高，汽車主減速器作為汽車傳動系統(tǒng)的關(guān)鍵總成，其主要功能是將輸入的轉(zhuǎn)矩增大并相應(yīng)降低轉(zhuǎn)速，以及當(dāng)發(fā)動機縱置時還具有改變轉(zhuǎn)矩旋轉(zhuǎn)方向的作用。主減速器的結(jié)構(gòu)對汽車的動力性、經(jīng)濟性與輕便性、傳動的平穩(wěn)性與效率等都有直接的影響。 汽車主減速器作為汽車驅(qū)動橋中重要的傳力部件，是汽車最關(guān)鍵的部件之一。與國外相比，我國的車用減速器開發(fā)設(shè)計不論在技術(shù)上、制造工藝上，還是在成本控制上都存在不小的差距。主減速器設(shè)計的好壞關(guān)系到汽車的動力性、經(jīng)濟性以及噪聲、壽命等諸多方面。如何協(xié)調(diào)好各方關(guān)系、合理匹配設(shè)計參數(shù)，以達到滿足使用要求的最優(yōu)目標(biāo)，是主減速器設(shè)計中最重要的問題。 許多乘用車和總質(zhì)量較小的商用車采用了發(fā)動機橫置的前置前驅(qū)布置，都是單級式主減速器，其具有結(jié)構(gòu)緊湊、質(zhì)量小、制造成本低和傳遞效率高、高速性能好的優(yōu)點，通過軟件設(shè)計方法來設(shè)計汽車主減速器是非常重要的。軟件設(shè)計是以數(shù)學(xué)規(guī)劃為理論基礎(chǔ)，以計算機為工具，尋求機械設(shè)計問題最佳方案的現(xiàn)代設(shè)計方法之一，現(xiàn)在已經(jīng)有很多成熟的軟件程序可供選擇，但傳統(tǒng)的方法存在著求解過程復(fù)雜和尋優(yōu)過程容易陷入局部最優(yōu)解的問題。通常主減速器設(shè)計多是僅從某一角度考慮，單一的改善其某一方面參數(shù)，而沒有將其參數(shù)優(yōu)化有效結(jié)合起來。因此，本課題力求改變以往的設(shè)計方式，提出針對汽車主減速器整體的最優(yōu)化設(shè)計方法，針對汽車設(shè)計中的主減速器參數(shù)設(shè)計開發(fā)計算軟件，通過人機交互方式完成主減速器的參數(shù)設(shè)計，并考慮通過軟件進行參數(shù)優(yōu)化（汽車主減速器傳動比, 主減速器雙曲面齒輪結(jié)構(gòu)參數(shù)），實現(xiàn)解決復(fù)雜計算這一單一功能的目的，實現(xiàn)汽車主減速器參數(shù)的最佳匹配，達到充分發(fā)揮汽車整體性能、節(jié)約能耗、降低成本、提高設(shè)計質(zhì)量和效率。本課題在vb語言程序基礎(chǔ)上采用參數(shù)優(yōu)化設(shè)計方法對汽車主減速器的齒輪機構(gòu)進行優(yōu)化，使尋優(yōu)過程得到簡化，確?？煽康孬@得全局最優(yōu)解。能夠縮短主減速器參數(shù)設(shè)計計算時間、減輕工程技術(shù)人員的勞動強度。 2 發(fā)展現(xiàn)狀 主減速器的參數(shù)計算主要是傳動齒輪的基本參數(shù)和尺寸參數(shù)計算。自從汽車零部件設(shè)計引入計算機輔助設(shè)計方法后，這一功能的實現(xiàn)已經(jīng)變得比較容易?，F(xiàn)今國外大型的汽車企業(yè)都有自己的減速器齒輪設(shè)計計算系統(tǒng)，比如瑞典的克林貝格齒輪設(shè)計系統(tǒng)、德國的Calculation Base主錐設(shè)計系統(tǒng)等等。 早在上世紀(jì)60年代．國外的一些CAD公司就已經(jīng)開發(fā)出一些實用的三維繪圖軟件，三維繪圖技術(shù)的進步為汽車零部件的設(shè)計引入了全新的概念。伴隨著三維繪圖軟件的日益成熟，國外大型的汽車生產(chǎn)廠家開始引入?yún)?shù)化設(shè)計方法來取代以前繁瑣的手工設(shè)計，目前參數(shù)化設(shè)計手段已經(jīng)相當(dāng)完善。作為汽車的重要部件，主減速器的設(shè)計也引入了參數(shù)化設(shè)計方法。生產(chǎn)廠家利用所設(shè)計的主減速器開發(fā)平臺根據(jù)新設(shè)計的主減速器尺寸在以前產(chǎn)品的基礎(chǔ)上更改相關(guān)的尺寸參數(shù)建立三維模型圖。 與國外相比，不論是在設(shè)計還是制造方面，與外國企業(yè)相比我國的汽車企業(yè)差距都非常明顯。但是經(jīng)過多年的努力，我國的主減速器設(shè)計系統(tǒng)軟件方面已經(jīng)取得了一定的成就。其中比較出名的有可以應(yīng)用于主減速器齒輪設(shè)計的齒輪專家系統(tǒng)，哈工大開發(fā)的主減速囂齒輪設(shè)計平臺等等。 其實軟件不僅在汽車方面有廣泛的應(yīng)用，在其他的機械區(qū)域里同樣有著比較廣泛的應(yīng)用。 （1）2009,06,01，廈門大學(xué)的沈一凜發(fā)表了碩士學(xué)位論文：數(shù)控彎絲機線材成形軟件設(shè)計。根據(jù)數(shù)控彎絲機的實際工作要求，完成其機械結(jié)構(gòu)部分的設(shè)計，并且自行開發(fā)出界面友好的操作軟件，能實現(xiàn)包括模型顯示和仿真運動等在內(nèi)的一系列功能。 （2）2005,11，農(nóng)業(yè)機械學(xué)報第36卷第11期發(fā)表了：農(nóng)業(yè)機械動態(tài)仿真軟件開發(fā)與模擬?，F(xiàn)有的一些計算機仿真平臺如ADAMS,UG等具有很大的通用性，功能齊全， 但價格昂貴，專業(yè)性差， 且需要大量的計算機資源配合系統(tǒng)的運行， 在仿真速度，系統(tǒng)的可擴展性方面難以滿足農(nóng)機設(shè)計人員的要求。各種農(nóng)業(yè)機械有其自身的特殊性，對不斷更新的農(nóng)業(yè)機械型號，應(yīng)用類型，需要有相應(yīng)的仿真功能。而現(xiàn)有軟件的模式，內(nèi)容都比較固定，不利于變動性大的研究。因此開發(fā)一種操作簡單，成本低的仿真系統(tǒng)對農(nóng)業(yè)機械具有一定的意義。 （3）2004,11，農(nóng)機化研究第6期，基于 UNIX 的機械軟件設(shè)計思想研究。主要探討了基于 UNIX 利用 socket 建立客戶機/服務(wù)器模式實現(xiàn)編程的方法，解決了 C/S 模式中異種操作系統(tǒng)上的數(shù)據(jù)傳輸問題。利用這種方式可以方便地進行客戶端和服務(wù)器端的程序編制，定制所需的模塊，通過實例程序的運行，達到了預(yù)期的要求。為開發(fā)一種網(wǎng)絡(luò)功能強大，可以實現(xiàn)異種機和異種操作系統(tǒng)互連的軟件打下了基礎(chǔ)。 （4）2008,12,16，東南大學(xué)碩士學(xué)位論文：光纖光柵傳感系統(tǒng)研究及軟件設(shè)計。波長解調(diào)技術(shù)是FBG傳感器在工程技術(shù)領(lǐng)域應(yīng)用的關(guān)鍵技術(shù)，也是FBG傳感技術(shù)實用化的重點和難點之一。此文提出了一種基于可調(diào)諧Fabry-Perot濾波器的光纖布拉格光柵傳感系統(tǒng)的波長解調(diào)方案，在此基礎(chǔ)上完成了主機應(yīng)用軟件的設(shè)計。 （5）2007,08,01，西安理工大學(xué)碩士學(xué)位論文：基于PMAC的數(shù)控試驗臺機械系統(tǒng)設(shè)計及軟件開發(fā)。開放式數(shù)控系統(tǒng)是現(xiàn)代數(shù)控系統(tǒng)發(fā)艘的方向，本文結(jié)合陜兩省數(shù)控加工技術(shù)重點實驗室科研項目，采用“IPC+PMAC”結(jié)構(gòu)的開放式數(shù)控結(jié)構(gòu)，將PMAC控制卡及其擴展卡裝入電器控制箱，通過標(biāo)準(zhǔn)串口RS232與上位機實現(xiàn)通訊，這樣構(gòu)成主從式雙微處理器結(jié)構(gòu)，由PMAC運動控制器對機械本體的X、Y、Z、A和B五個軸進行實時控制，建立了五坐標(biāo)數(shù)控技術(shù)試驗臺。 Vb作為程序語言在機械方面上的用途也是比較廣泛的。 （1）2006,11，北京工業(yè)大學(xué)學(xué)報第32卷第11期，基于VB的點焊質(zhì)量超聲檢測軟件設(shè)計。在超聲檢測點焊連接質(zhì)量的基本原理基礎(chǔ)上，通過VB 6．0調(diào)用Tektronix公司提供的TekVISA Activex控件，利用網(wǎng)口通訊實現(xiàn)了數(shù)字示波器中超聲信號數(shù)據(jù)的傳輸、存儲和顯示；通過分析找出了信號的特征參量，并實現(xiàn)了對焊點連接質(zhì)量的評價。該軟件實現(xiàn)了對焊點檢測質(zhì)量的數(shù)量統(tǒng)計。經(jīng)實際檢測驗證，整個系統(tǒng)操作性好。 （2）2008,08，機械自動化第4期：基于VB的機械優(yōu)化設(shè)計軟件的研究。針對各種優(yōu)化算法。用VB開發(fā)了用于進行機械優(yōu)化設(shè)計的軟件，該軟件基于Windows系統(tǒng)。以Visual Basic的窗體界面為工作平臺}并用其中3種具有代表性的優(yōu)化設(shè)計方法進行了一頂計算分析。實例對比分析表明了該軟件分析的可靠性和準(zhǔn)確性。 （3）2005,01，微計算機應(yīng)用第26卷第1期：基于VB的汽車點火線圈測試臺軟件設(shè)計。該文實現(xiàn)了點火線圈測試系統(tǒng)中對上位機系統(tǒng)軟件的要求，包括串行通信，對硬件端口的讀寫以及對數(shù)據(jù)庫的管理和維護。 3 選題目的與意義 由于消費者對汽車性能、外形、功能、載重等各方面的要求會不同，所以為了滿足客戶的需求，設(shè)計者必須迅速開發(fā)出不同的產(chǎn)品來滿足客戶的需求。因此，設(shè)計者必須建立一套能快速響應(yīng)客戶需求設(shè)計研發(fā)軟件，以達到快速開發(fā)出新產(chǎn)品的目的。 在傳統(tǒng)的主減速器設(shè)計中，設(shè)計者根據(jù)設(shè)計任務(wù)的要求，參考已有經(jīng)驗和資料，進行構(gòu)思設(shè)計方案、建立設(shè)計模型、計算、分析、繪圖、反復(fù)修改等過程，最后設(shè)計出滿足要求的方案，并繪出圖樣和編制設(shè)計文件。在設(shè)計過程中，有創(chuàng)造性的思維勞動，有綜合性的分析及判斷作量大，而且要做很多重復(fù)性的煩瑣勞動設(shè)計效率低。也有復(fù)雜的計算及精密的繪圖等．工要由設(shè)計者來完成所有環(huán)節(jié)的工作，設(shè)計效率低。鑒于以上傳統(tǒng)設(shè)計方法的弊病，快速開發(fā)出新型主減速器并縮短開發(fā)周期，對于提高企業(yè)的競爭力具有重要意義，此時便需要建立一個能快速響應(yīng)客戶需求的設(shè)計軟件。 Visual Basic是面向?qū)ο缶幊痰?，能實現(xiàn)所見即所得，它的主要工作方式是采用事件驅(qū)動方式，當(dāng)你不去驅(qū)動這些事件時，它所代表的過程將永遠(yuǎn)也不會觸發(fā)，這就為設(shè)計良好的界面帶來了莫大的便利。Visual Basic事件驅(qū)動應(yīng)用程序中的典型事件順序如下：①運行應(yīng)用程序、加載和顯示窗體；②窗體及窗體上的控件接收事件，事件的產(chǎn)生可能是由用戶操作、系統(tǒng)引發(fā)或代碼間接引發(fā)；⑨調(diào)用事件處理過程代碼；④等待下一次事件 由Visual Basic建立的最優(yōu)化數(shù)值計算程序可生成可執(zhí)行文件(．exe文件)，直接在Windows環(huán)境中運行，界面友好。對于工程技術(shù)人員來說，可以使用此軟件選擇多種優(yōu)化方法進行優(yōu)化，最后擇其最優(yōu)解。即使用戶不熟悉優(yōu)化設(shè)計方法和Visual Basic語言，也可使用此軟件進行優(yōu)化。 二、 設(shè)計（論文）的基本內(nèi)容、擬解決的主要問題 1設(shè)計的主要內(nèi)容： （1）研究汽車工程設(shè)計類計算軟件國內(nèi)外技術(shù)現(xiàn)狀、存在問題及發(fā)展趨勢； （2）研究汽車主減速器設(shè)計步驟、方法、設(shè)計公式； （3）對汽車主減速器參數(shù)設(shè)計進行計算軟件設(shè)計開發(fā)； （4）用調(diào)查得到的數(shù)據(jù)對所設(shè)計的計算軟件進行測試。 2擬解決的主要問題： （1）人性化界面的建立； （2）圖形方法的應(yīng)用； （3）數(shù)據(jù)庫知識點的應(yīng)用； 三、 技術(shù)路線（研究方法） 調(diào)研并查閱汽車主減速器的相關(guān)資料 調(diào)研并查閱Visual Basic的相關(guān)資料 軟件設(shè)計總方案的確定 汽車主減速比的確定 雙級主減速器 單級主減速器 錐齒輪的設(shè)計及校核 參數(shù)優(yōu)化 材料及熱處理 雙級 斜齒圓柱齒輪的設(shè)計及校核 單級 參數(shù)優(yōu)化 材料及熱處理 用數(shù)據(jù)對計算軟件進行測試 材料及熱處理 四、進度安排 （1）調(diào)研、資料收集，完成開題報告 第1、2周 （2）研究汽車主減速器設(shè)計步驟、方法、設(shè)計公式 第3周 （3）學(xué)習(xí)一種編程語言 第4、5周 （4）設(shè)計開發(fā)汽車主減速器參數(shù)優(yōu)化設(shè)計計算軟件 第6~9周 （5）用設(shè)計數(shù)據(jù)對計算軟件進行測試 第10、11周 （6）設(shè)計結(jié)果評價、分析與修正 第12周 （7）完成設(shè)計說明書的撰寫，指導(dǎo)教師審核 第13周 （8）畢業(yè)設(shè)計（論文）修改、完善 第14周 （9）畢業(yè)設(shè)計（論文）審核、預(yù)審 第15周 （10）畢業(yè)設(shè)計（論文）修改、完善 第15、16周 （11）畢業(yè)設(shè)計（論文）答辯準(zhǔn)備及答辯 第17周 五、參考文獻 [1] 吳志敏等.農(nóng)用動力車動力的優(yōu)選方案.農(nóng)業(yè)工程學(xué)報.1996, 12( 3) ：101- 105 [2] 戴冠軍.城市載貨汽車和公共汽車運行工況模式的探討.西安公路學(xué)院學(xué)報.1985,(1)：16-20 [3] 唐大放，張永忠，閻海峰.工程機械驅(qū)動橋準(zhǔn)雙曲面齒輪的優(yōu)化選型設(shè)計.工程機械.2004（1） ：31-33 [4] 遇立基．磨齒工藝與磨齒機的技術(shù)發(fā)展概況[J]．現(xiàn)代制造工程。2008(2)：1—4． [5] 佟曉東，王立鼎．漸開線實體基準(zhǔn)的研制[J]．計量技術(shù)，1998(05)：33—36． [6] 張俊杰，馬勇．雙盤式漸開線儀中的輪軌彈性蠕滑問題[J]．機械傳動，2007，31(5)：6—8． [7] 孫靖民．機械優(yōu)化設(shè)計[M]．北京：機械工業(yè)出版社，2005：214—228． [8] 濮良貴．機械設(shè)計[M]．北京：高等教育出版社，2004：195—200． [9] 席平原．應(yīng)用matlab軟件實現(xiàn)機械優(yōu)化設(shè)it-[J]．機械設(shè)計與研究，2003(3)：23—25． [10]林雪松．Matlab7．0應(yīng)用集錦[M]．北京：機械工業(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]楊頂信．機械優(yōu)化設(shè)計方法與評判標(biāo)準(zhǔn)[J]．長春理工大學(xué)學(xué)報(綜合版)，2006．2(2)：171—173． [14]王曉軍，肖冠云．機械優(yōu)化設(shè)計中目標(biāo)函數(shù)的常用優(yōu)化目標(biāo)及應(yīng)用研究[J]．重型機械科技，2005(1)：28—30． [15]張京明,崔勝民. 汽車傳動系參數(shù)的模糊優(yōu)化 [ J ]. 哈爾濱工業(yè)大學(xué)學(xué)報, 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("密碼錯誤", 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 "計算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計算值>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 "計算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計算值>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 "計算值<210 校核成功", , "校核結(jié)果" Else Print a7; "> 210" MsgBox "計算值>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 "計算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計算值>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 "計算值<700 校核成功", , "校核結(jié)果" Else Print a7; "> 700" MsgBox "計算值>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 "計算值<210 校核成功", , "校核結(jié)果" Else Print a7; "> 210" MsgBox "計算值>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 第二級_Click() Form23.Hide Form25.Show End Sub Private Sub 第一級_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 "計算值>2800 校核不成功", , "校核結(jié)果" Else Print a7; "<2800" MsgBox "計算值<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 "計算值>1750 校核不成功", , "校核結(jié)果" Else Print a7; "<1750" MsgBox "計算值<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 "計算值>1750 校核不成功", , "校核結(jié)果" Else Print a7; "<1750" MsgBox "計算值<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 "計算值<250 校核成功", , "校核結(jié)果" Else Print k1; "> 250" MsgBox "計算值>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 "計算值<250 校核成功", , "校核結(jié)果" Else Print k1; "> 250" MsgBox "計算值>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