【正文】 定義粗體 .Paragraphs(.).Alignment = wdAlignParagraphCenter 。定義字體 .Paragraphs(.). = 26 39。設(shè)置文檔的標(biāo)題 再進(jìn)行文檔操作，定義字體字號(hào)對(duì)齊方式 With newDoc 39。顯示文檔 39。建立 word 對(duì)象 Set newDoc = 39。設(shè)置存儲(chǔ)類型 39。設(shè)置公共對(duì)話框 = 保存軸的校核計(jì)算結(jié)果 39。 設(shè)計(jì)思路 在每種校核方式的窗口中加入一個(gè)新的按鈕“輸出 Word 文檔”，然后對(duì)此按鈕編寫程序，使之能夠輸出一份完整的 word 文檔。 26 彎曲剛度校核 軸的數(shù)據(jù)可以從數(shù)據(jù)庫(kù)中導(dǎo)出，用變量賦值為數(shù)組賦值 ，然后 根據(jù)《機(jī)械設(shè)計(jì)手冊(cè)》運(yùn)用材料力學(xué)中計(jì)算剛度的公式， 編譯程序， 對(duì)軸進(jìn)行剛度計(jì)算。 根據(jù)《機(jī)械設(shè)計(jì)手冊(cè)》圓軸扭轉(zhuǎn)角 ? 的簡(jiǎn)化計(jì)算公式： 41584 niTi liG d i? ??? ? （ 91） ? ?441584 ni T i liG d i d o i? ? ?? ?? （ 92） 由于 doi 表示的是空心軸的內(nèi)徑，當(dāng)內(nèi)徑為 0時(shí)空心軸就變成了實(shí)心軸，所以把實(shí)心軸和空心軸的計(jì)算方法歸為一種，均按照空心軸的計(jì)算公式（ 92）來計(jì)算。再根據(jù)軟件提供的扭轉(zhuǎn)變形許用值表，判斷軸的扭轉(zhuǎn)剛度是否達(dá)到要求。根據(jù)材料的力學(xué)性能計(jì)算出 σ s/σ b，顯示在 Text7控件中，用戶根據(jù)軟件提供的表格，判斷軸的強(qiáng)度是否達(dá)到要求。實(shí)心 WW = * dd ^ 3 WWp = * dd ^ 3 End If 這段程序表示如果“實(shí)心”選項(xiàng)被選中，那么按照實(shí)心截面的抗彎截面系數(shù)計(jì)算方法計(jì)算出抗彎截面系數(shù) WW，在這里 WW是一個(gè)中間變量，將帶入最后的校核計(jì)算公式中。 校核計(jì)算 由于每種截面的抗彎和抗扭截面系數(shù)不同，在校核計(jì)算之前需要計(jì)算出在用戶選定該截面并輸入數(shù)據(jù)后首先計(jì)算出系數(shù)。H80000000 = True = amp。H80000000 = True = amp。 以如下程序?yàn)槔?dāng)選中“實(shí)心”選項(xiàng)時(shí)： = ‘初始化 Text 控件內(nèi)容 = 0 = 0 = 0 = 0 = True ‘顯示 實(shí)心 截面的圖例 = LoadPicture(E:\畢業(yè)設(shè)計(jì)（重要） \正式稿 \1實(shí)心 .jpg) = False ‘直徑 D的輸入文本框可編輯 = amp。 軸的截面形狀包括實(shí)心、空心、單鍵、雙鍵、通孔、花鍵等不同的形狀，在設(shè)計(jì)時(shí)將這些形狀用 Option 控件來定義，并附上 Picture 控件，選中不同的選項(xiàng)， Picture會(huì)加載不同的圖例，用以指導(dǎo)用戶 輸入?yún)?shù)。校核的目的是保證軸對(duì)蘇醒變形的抵抗能力。 在所有參數(shù)輸入完成后， 點(diǎn)擊校核計(jì)算，軟件即可求出危險(xiǎn)截面安全系數(shù) S 的值，用戶可以根據(jù)提供的程序提供的表，如表 所示，來判斷軸是否安全。 圖 按疲 勞強(qiáng)度安全系數(shù)校核界面 設(shè)計(jì)難點(diǎn) 軟件的操作邏輯是本窗口的設(shè)計(jì)難點(diǎn)，用戶進(jìn)行校核前必須輸入、選擇相應(yīng)參數(shù)，而首要的就是選擇軸的材料，因?yàn)槠渌南禂?shù)是要根據(jù)軸的力學(xué)性能來選定的，其次就是界面參數(shù)，根據(jù)截面的參數(shù)，軟件才能自動(dòng)計(jì)算出應(yīng)力幅和平均應(yīng)力，才能帶入到公式中進(jìn)行計(jì)算。 21 7 疲勞強(qiáng)度 安全系數(shù) 校核 界面 設(shè)計(jì) 疲勞強(qiáng)度安全系數(shù)校核方式較為繁瑣，校核過程中所需的變量參數(shù)非常多，參數(shù)的選擇對(duì)校核的結(jié)果影響較大，故軟件設(shè)計(jì)必須能夠讓用戶有條理的完成校核。 實(shí)心圓軸按許用彎曲應(yīng)力計(jì)算公式： 2231 0 M T)=1d? ?（ ασ ≤ [ σ ] （ 61） 20 空心圓軸按許用彎應(yīng)力計(jì)算公式： ? ? ? ?223 410 M T 1=1d 1 ?? ???ασ ≤ [ σ ] （ 62） α為根據(jù)轉(zhuǎn)應(yīng)力變化性質(zhì)而定的校正系數(shù)，轉(zhuǎn)應(yīng)力對(duì)稱循環(huán)變化時(shí)，α =1：轉(zhuǎn)應(yīng)力脈動(dòng)循環(huán)變化時(shí)，α =：轉(zhuǎn)應(yīng)力不變時(shí)，α = 。將軸上的各載荷分解到兩個(gè)相互垂直的平面上， 分別求出兩個(gè)平面內(nèi)的彎矩，再按矢量法求得合成彎矩。 材料庫(kù)采用 Access 數(shù)據(jù)庫(kù)制成，采用 ADO 技術(shù)使表格控件與數(shù)據(jù)庫(kù)相連，查看，使用數(shù)據(jù)非常方便，增加數(shù)據(jù)也十分簡(jiǎn)便。 設(shè)計(jì)難點(diǎn) 軟件提供 內(nèi)置材 料庫(kù)，預(yù)制 部分材料的力學(xué)性能，用戶可以根據(jù)需要選擇相應(yīng)的材料。 圖 Picture 控件默認(rèn)坐標(biāo) 圖 修改后 Picture 控件坐標(biāo) （ 0,0） （長(zhǎng)度像素，寬度相熟） （ 0，最大彎矩） （軸的總長(zhǎng)度， 0） 18 6 彎扭組合強(qiáng)度校核 界面 設(shè)計(jì) 根據(jù)《機(jī)械設(shè)計(jì)手冊(cè)》中軸的彎扭組合 強(qiáng)度校核方法，在軸的結(jié)構(gòu)輸入，軸上載荷輸入已經(jīng)完成的情況下，還需確定軸的材料，校核的位置，以及矯正參數(shù)等數(shù)據(jù)。將支反力也保存為全局變量，方便繪制時(shí)使用。 首先使用 for 語(yǔ)句循環(huán) 1 To X， X 表示的是載荷的數(shù)目，然后加入 If語(yǔ)句判斷載荷的類型，根據(jù)載荷不同的類型，如果載荷是集中力，那么判斷載荷相對(duì)兩個(gè)支點(diǎn)的位置，然后對(duì)支點(diǎn)取矩，算出彎矩；如果載荷是軸向力，那么本軟件暫時(shí)不考慮軸向力對(duì)軸強(qiáng)度校核的影響，因?yàn)檩S向力在一般軸上對(duì)軸的強(qiáng)度影響不大。以此類推， i=Y 時(shí)即為軸段最后一段，數(shù)據(jù)指針也恰好移動(dòng)到數(shù)據(jù)庫(kù)末尾，這樣即完成了對(duì) E(1 To Y)的循環(huán)定義，編程序時(shí)錯(cuò)開了預(yù)先編制時(shí)候?qū)S段數(shù)量的未知情況，用 Y來代替，用 For 循環(huán)巧妙的對(duì)所有數(shù)組變量完成了賦值。循環(huán)定義 A(1） A(X) E(i) = (D1).Value F(i) = (D2).Value G(i) = (D3).Value H(i) = (D4).Value KK(i) = (L).Value R(i) = (外形結(jié)構(gòu)編號(hào) ).Value Next i 這里通過 For 循環(huán)來循環(huán)定義數(shù)組，以 E()為例，首先數(shù)據(jù)指針移動(dòng)到數(shù)據(jù)庫(kù)首位， 17 然后當(dāng) i=1 時(shí)， E(1)賦值為此時(shí)數(shù)據(jù)庫(kù)中 D1 列第一行的數(shù)值。 重新定義數(shù)組，每當(dāng)執(zhí)行 Redim 語(yǔ)句 ， 數(shù)組中的值會(huì)全部丟失 ，當(dāng)確定了 Y的值以后就可以重新定義數(shù)組的大小了： ReDim E(1 To Y) ReDim F(1 To Y) ReDim G(1 To Y) ReDim H(1 To Y) ReDim KK(1 To Y) ReDim R(1 To Y) 重新定義數(shù)組后，數(shù)組中的變量個(gè)數(shù)就和軸段個(gè)數(shù)相同了，再對(duì)每一個(gè)變量賦值： 39。定義外形結(jié)構(gòu)編號(hào) Pub