汽車主減速器參數(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)中,望仔細閱讀,從而做出選擇。做出選擇后,單擊所選選項即可。如圖2-5所示。之后返回設(shè)計主頁,單擊主從動錐齒輪的支承方案,進入選擇界面。支承形式的分類,相應(yīng)的結(jié)構(gòu)特點以及適用范圍都已在界面上的信息當(dāng)中給出。仔細閱讀后做出選擇,單擊即可。如圖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)的選擇信息都已在界面上給出。用戶只需在仔細閱讀后,做出選擇即可。界面如圖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)12汽車主減速器參數(shù)優(yōu)化計算軟件使用步驟22.1 減速形式選擇的使用步驟22.2 單級主減速器設(shè)計的使用步驟42.3 雙級主減速器設(shè)計的使用步驟133退出系統(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)變得比較容易。現(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 60調(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ū)ο缶幊痰模軐崿F(xiàn)所見即所得,它的主要工作方式是采用事件驅(qū)動方式,當(dāng)你不去驅(qū)動這些事件時,它所代表的過程將永遠也不會觸發(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è)計計算軟件 第69周 (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):145 佟曉東,王立鼎漸開線實體基準(zhǔn)的研制J計量技術(shù),1998(05):33366 張俊杰,馬勇雙盤式漸開線儀中的輪軌彈性蠕滑問題J機械傳動,2007,31(5):687 孫靖民機械優(yōu)化設(shè)計M北京:機械工業(yè)出版社,2005:2142288 濮良貴機械設(shè)計M北京:高等教育出版社,2004:1952009 席平原應(yīng)用matlab軟件實現(xiàn)機械優(yōu)化設(shè)it-J機械設(shè)計與研究,2003(3):232510林雪松Matlab70應(yīng)用集錦M北京:機械工業(yè)出版社2006:31733611Enayet BHalim,Skish LShah,Ming JZuo,et a1Fault Detection of Gearbox from Vibration Signal using TimeFrequency Domain AveragingProceedings of the 2006 American Control Coference,2006,4430-443512Abhinav Saxena,Biaing Wu and George VachtsevanosA Methodology for Analyzing Vibration Data from Planetary Gear Systems using Complex Morlet WaveletsAmerican Control Conference,2005,4730-473513楊頂信機械優(yōu)化設(shè)計方法與評判標(biāo)準(zhǔn)J長春理工大學(xué)學(xué)報(綜合版),20062(2):17117314王曉軍,肖冠云機械優(yōu)化設(shè)計中目標(biāo)函數(shù)的常用優(yōu)化目標(biāo)及應(yīng)用研究J重型機械科技,2005(1):283015張京明,崔勝民. 汽車傳動系參數(shù)的模糊優(yōu)化 J . 哈爾濱工業(yè)大學(xué)學(xué)報, 2004 (10) : 1322 - 1324.六、備注指導(dǎo)教師意見:簽字: 年 月 日Form1Private Sub Form_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Label3_Click()End SubForm2Private Sub Form_Load()Text1.Text = Text1.MaxLength = 6Text1.PasswordChar = *End SubPrivate Sub Image1_Click()End SubPrivate Sub Label2_Click()Dim i As IntegerIf Text1.Text 090316 Then i = MsgBox(密碼錯誤, 5 + vbExclamation, 警告) If i 4 Then End Else Text1.Text = Text1.SetFocus End IfElse Form2.Hide Form3.ShowEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox 密碼必須為數(shù)字, , 警告 Text1.Text = Text1.SetFocusEnd IfEnd SubForm3Private Sub Label1_Click(Index As Integer)Form3.HideForm4.ShowEnd SubPrivate Sub OLE1_Updated(Index As Integer, Code As Integer)End SubPrivate Sub 幫助_Click()MsgBox 無法顯示幫助目錄,該工程沒有相關(guān)聯(lián)的幫助。, vbInformation, Me.CaptionEnd SubPrivate Sub 保存_Click()MsgBox 添加 menuSave_Click 代碼。End SubPrivate Sub 關(guān)閉_Click()End SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 新建_Click()Form3.HideForm4.ShowEnd SubPrivate Sub 主減速比_Click()Form3.HideForm4.ShowEnd SubForm4Private Sub Image1_Click()End SubPrivate Sub Label2_Click()Form4.HideForm5.ShowEnd SubPrivate Sub Label3_Click()Form4.HideForm3.ShowEnd SubForm5Private Sub Label1_Click()End SubPrivate Sub Label2_Click()Form5.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Form5.HideForm23.ShowEnd SubPrivate Sub Label4_Click()Form5.HideForm4.ShowEnd SubPrivate Sub Label5_Click()Form5.HideForm3.ShowEnd SubForm6 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 不符合要求 End IfEnd IfEnd SubPrivate 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 不符合要求 End IfElse 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 不符合要求 End IfEnd IfEnd SubPrivate Sub Image1_Click()End SubForm7Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form7.HideForm8.ShowEnd SubPrivate Sub Label2_Click()Form7.HideForm9.ShowEnd SubPrivate Sub Label3_Click()Form7.HideForm10.ShowEnd SubPrivate Sub Label4_Click()Form7.HideForm12.ShowEnd SubPrivate Sub Label5_Click()Form7.HideForm21.ShowEnd SubPrivate Sub Label7_Click()Form7.HideForm22.ShowEnd SubPrivate Sub Label8_Click()Form7.HideForm3.ShowEnd SubPrivate Sub Label9_Click()Form7.HideForm23.ShowEnd SubPrivate Sub 幫助_Click()MsgBox 無法顯示幫助目錄,該工程沒有相關(guān)聯(lián)的幫助。, vbInformation, Me.CaptionEnd SubPrivate Sub 齒輪材料_Click()Form7.HideForm22.ShowEnd SubForm8Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label8_Click()Form8.HideForm7.ShowEnd SubForm9Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label9_Click()Form9.HideForm7.ShowEnd SubForm10Private Sub Command1_Click()a1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = 0.9 * a1 * a2 / a3Text4.Text = a4End SubPrivate Sub Command2_Click()a5 = Text5.Texta6 = Text6.Texta7 = Text7.Texta8 = Text8.Texta9 = Text9.Texta10 = a5 * a6 * a7 / a8 / a9Text10.Text = a10End SubPrivate Sub Command3_Click()Form10.HideForm11.ShowEnd SubPrivate Sub Command4_Click()Form10.HideForm7.ShowEnd SubPrivate Sub Form_Load()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10!End SubPrivate Sub Image1_Click()Picture = LoadPicture()End SubForm11Private Sub Command1_Click()b1 = Text1.Textb2 = Text2.Textb3 = Text3.Textb4 = Text4.Textb5 = Text5.Texti1 = b3 * b4 * b5b6 = b1 * b2 / i1Text6.Text = b6End SubPrivate Sub Command2_Click()b6 = Text6.Textb7 = Text7.Textb8 = Text8.Texti2 = Form10.Text4.Texti3 = Form10.Text10.Texti4 = b7 * b8b9 = i2 / i4Text9.Text = b9b10 = i3 / i4Text10.Text = b10b11 = b6 / i4Text11.Text = b11End SubPrivate Sub Form_Load()Dim b1!, b2!, b3!, b4!, b5!, b6!, b7!, b8!, b9!, b10!, b11!, i1!, i2!, i3!, i4!End SubPrivate Sub Image1_Click()Picture = LoadPicture()End SubPrivate Sub Label14_Click()Form11.HideForm7.ShowEnd SubForm12Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form12.HideForm13.ShowEnd SubPrivate Sub Label2_Click()Form12.HideForm17.ShowEnd SubPrivate Sub Label3_Click()Form12.HideForm18.ShowEnd SubPrivate Sub Label4_Click()Form12.HideForm19.ShowEnd SubPrivate Sub Label5_Click()Form12.HideForm7.ShowEnd SubPrivate Sub Label6_Click()Form12.HideForm20.ShowEnd SubForm13Private Sub Image1_Click()End SubPrivate Sub Label2_Click()Form13.HideForm14.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm14Private Sub Label2_Click()Form14.HideForm15.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm15Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Form15.HideForm16.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm16Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()Form16.HideForm12.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm17Private 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 = cElse a = Form10.Text10.Text b = 13 * (a (1 / 3) c = 15.3 * (a (1 / 3) Text1.Text = b Text2.Text = cEnd IfEnd SubPrivate Sub Command4_Click()Dim c!, d!, e%c = Text4.Textd = Form16.Text2.Texte = c / dText3.Text = eEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label3_Click()Form17.HideForm12.ShowEnd SubForm18Private Sub Command1_Click()Dim a!, b!, c!a = Form17.Text4.Textb = 0.155 * aText1.Text = bc = 1.1 * bText2.Text = cEnd SubPrivate Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label4_Click()Form18.HideForm12.ShowEnd SubForm19Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()End SubPrivate Sub Label7_Click()Form19.HideForm12.ShowEnd SubForm20Private 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.TextText2.Text = Form16.Text2.TextText3.Text = Form17.Text3.Textx = Form18.Text2.TextText4.Text = xy = Form18.Text1.TextText20.Text = yText7.Text = Form19.Text2.Texta = Text1.Textb = Text2.Textc = Text3.TextText3.Text = cd = a * ce = b * cText8.Text = dText9.Text = eText14.Text = Form19.Combo1Text21.Text = Form19.Combo2Text15.Text = 25.64Text16.Text = 90 - 25.64Text17.Text = d / 2 / Sin(25.64 * 3.14 / 180)Text18.Text = 3.1416 * cIf 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 * cElseIf 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 * cElseIf 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 * cElseIf 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 * cElseIf 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 * cElseIf 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 * cElseIf 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 * cElse 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 * cEnd IfEnd SubPrivate Sub Label15_Click()Form20.HideForm12.ShowEnd SubForm21Private Sub Form_Load()End SubPrivate Sub Label10_Click()Form21.HideForm7.ShowEnd SubPrivate 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 MsgBox 計算值700 校核不成功, , 校核結(jié)果 End IfElse 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 MsgBox 計算值700 校核不成功, , 校核結(jié)果 End IfEnd IfEnd SubPrivate Sub Label5_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form11.Text11.Texta2 = Form17.Text3.Texta3 = (a2 / 25.4) 0.25a4 = Text1.Texta5 = Form18.Text2.Texta6 = Form20.Text8.Texta7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 210 Then Print a7; 210 MsgBox 計算值 210 MsgBox 計算值210 校核不成功, , 校核結(jié)果 End IfEnd SubPrivate Sub Label7_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, b1!, b2!b1 = Form10.Text4.Textb2 = Form10.Text10.TextIf 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 MsgBox 計算值700 校核不成功, , 校核結(jié)果 End IfElse 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 MsgBox 計算值700 校核不成功, , 校核結(jié)果 End IfEnd IfEnd SubPrivate Sub Label8_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form11.Text6.Texta2 = Form17.Text3.Texta3 = (a2 / 25.4) 0.25a4 = Text1.Texta5 = Form18.Text1.Texta6 = Form20.Text9.Texta7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 210 Then Print a7; 210 MsgBox 計算值 210 MsgBox 計算值210 校核不成功, , 校核結(jié)果 End IfEnd SubPrivate Sub Label9_Click()Form21.HideForm27.ShowEnd SubForm22Private Sub Label2_Click()Form22.HideForm7.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm23Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form23.HideForm24.ShowEnd SubPrivate Sub Label2_Click()Form23.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Form23.HideForm25.ShowEnd SubPrivate Sub Label4_Click()End SubPrivate Sub Label6_Click()Form23.HideForm5.ShowEnd SubPrivate Sub 幫助_Click()MsgBox 無法顯示幫助目錄,該工程沒有相關(guān)聯(lián)的幫助。, vbInformation, Me.CaptionEnd SubPrivate Sub 第二級_Click()Form23.HideForm25.ShowEnd SubPrivate Sub 第一級_Click()Form23.HideForm7.ShowEnd SubPrivate Sub 關(guān)閉_Click()Form23.HideForm5.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 新建_Click()Form23.HideForm3.ShowEnd SubPrivate Sub 主減速比分配_Click()Form23.HideForm24.ShowEnd SubForm24Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()End SubPrivate Sub Label5_Click()Form24.HideForm23.ShowEnd SubForm25Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form25.HideForm26.ShowEnd SubPrivate Sub Label2_Click()Form25.HideForm28.ShowEnd SubPrivate Sub Label3_Click()Form25.HideForm29.ShowEnd SubPrivate Sub Label4_Click()Form25.HideForm30.ShowEnd SubPrivate Sub Label5_Click()Form25.HideForm31.ShowEnd SubPrivate Sub Label6_Click()Form25.HideForm32.ShowEnd SubPrivate Sub Label8_Click()Form25.HideForm23.ShowEnd SubForm26Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label10_Click()Dim a1!, a2!, a3!a1 = Form10.Text4.Texta2 = 10.51 * a1 (1 / 3)a3 = 11.92 * a1 (1 / 3)Text1.Text = a2Text2.Text = a3End SubPrivate Sub Label11_Click()Form26.HideForm25.ShowEnd SubPrivate Sub Label13_Click()Dim a1!, a2!, a3!a1 = Text3.Texta2 = 0.38 * a1a3 = 0.41 * a1Text6.Text = a2Text7.Text = a3End SubForm27a7 = a6 * a5 (1 / 2) If a7 2800 Then Print a7; 2800 MsgBox 計算值2800 校核不成功, , 校核結(jié)果 Else Print a7; 2800 MsgBox 計算值 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 Then Print a7; 1750 MsgBox 計算值1750 校核不成功, , 校核結(jié)果 Else Print a7; 1750 MsgBox 計算值1750 校核成功, , 校核結(jié)果 End IfEnd IfEnd SubPrivate Sub Label5_Click()Form27.HideForm7.ShowEnd SubPrivate Sub OLE2_Updated(Code As Integer)End SubForm28Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Form28.HideForm25.ShowEnd SubPrivate Sub Label9_Click()End SubForm29Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()Form29.HideForm25.ShowEnd SubPrivate Sub Label8_Click()End SubForm30Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form26.Text3.Texta2 = Form28.Text1.Texta3 = Form29.Text2.Texta4 = Form24.Text3.Texta5 = 2 * a1 * Cos(a3 * 3.14 / 180) / a2Text1.Text = a5a6 = a5 / (1 + a4)a7 = a6 * a4Text2.Text = a4Text3.Text = a6Text4.Text = a7End SubPrivate Sub Label2_Click()Form30.HideForm25.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm31Private 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.Textz2 = Form30.Text6.Textm = Form28.Text1a = Form26.Text3b = Form26.Text8j1 = Form29.Text1j2 = Form29.Text2d1 = m * z1 / Cos(j2 * 3.14 / 180)d2 = m * z2 / Cos(j2 * 3.14 / 180)ha1 = mha2 = mhf1 = 1.25 * mhf2 = 1.25 * mh = ha1 + hf1da1 = d1 + 2 * ha1da2 = d2 + 2 * ha2df1 = d1 - 2 * hf1df2 = d2 - 2 * hf2db1 = d1 * Cos(j1 * 3.14 / 180)db2 = d2 * Cos(j1 * 3.14 / 180)Text1.Text = z1Text2.Text = z2Text3.Text = mText4.Text = aText5.Text = bText6.Text = j1Text7.Text = j2Text8.Text = d1Text9.Text = d2Text10.Text = ha1Text11.Text = ha2Text12.Text = hf1Text13.Text = hf2Text14.Text = hText15.Text = da1Text16.Text = da2Text17.Text = df1Text18.Text = df2Text19.Text = db1Text20.Text = db2End SubPrivate Sub Label1_Click()Form31.HideForm25.ShowEnd SubPrivate Sub OLE2_Updated(Code As Integer)End SubForm32Private Sub Label1_Click()Dim f!, t1!, d!, j!, b!, t!, k1!, y!, k2!, m!d = Form31.Text8.Textj = Form31.Text7.Textb = Form31.Text5.Textm = Form31.Text3.Textt = m * 3.14If 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 MsgBox 計算值250 校核不成功, , 校核結(jié)果 End IfElse 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 MsgBox 計算值250 校核不成功, , 校核結(jié)果 End IfEnd IfEnd SubPrivate Sub Label2_Click()Form32.HideForm33.ShowEnd SubPrivate Sub Label3_Click()Form32.HideForm25.ShowEnd SubPrivate Sub OLE2_Updated(Code As Integer)End SubForm33Private Sub Label2_Click()Dim s!, f!, f1!, j1!, j2!, tg!, d!, b!, rz!, rb!, pz!, pb!, s1!, s2!, s3!, s4!j1 = Form31.Text6.Textj2 = Form31.Text7.Textd = Fo
收藏