【正文】 = False 33 ElseIf (Str$(Val()) Str$(Val())) = 100 Then = 孔板式 = True = False End If End Sub Private Sub Command9_Click() If Str$(Val()) 300 Then = 輪輻式 = True = False Else = 腹板式 = True = False End If = amp。 ▲ amp。 vbNewLine amp。 N amp。 amp。 = True = True End Sub Private Sub Text1_Change() = True End Sub Private Sub Text2_Change() = True End Sub 。 ▲ amp。 ▲ amp。 _ 作用在軸上的載荷 FQ= amp。 amp。 ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡ amp。他們的幫助不僅僅是本次的畢業(yè)設(shè)計(jì)，現(xiàn)在我的畢業(yè)設(shè)計(jì)已接 近尾聲，在這，我對(duì)老師和同組的同學(xué)表示真誠(chéng)的感謝?。?！ 31 參考文獻(xiàn) [1] 李樹(shù)軍 .國(guó)外傳動(dòng)帶發(fā)展概況及我國(guó)傳動(dòng)帶發(fā)展建議 .2021 年中國(guó)膠帶發(fā)展論壇； [2] 朱光華 .同步帶疲勞壽命試驗(yàn)機(jī)的開(kāi)發(fā)與研究 .長(zhǎng)春理工大學(xué)， 2021； [3] 陳志榮 .普通 V帶的計(jì)算機(jī)輔助設(shè)計(jì)； [4] 邱宣懷 ， 郭可謙 ， 吳宗澤 ， 機(jī)械設(shè)計(jì)（第 4版），高等教育出版社。從開(kāi)始的開(kāi)題報(bào)告到結(jié)束時(shí)的畢業(yè)設(shè)計(jì)論文，老師都是不厭其煩的的看完并修改其中出現(xiàn)的錯(cuò)誤，甚至包括文中的錯(cuò)別字。而且通過(guò)這次畢業(yè)設(shè)計(jì)還是我具備了一下幾個(gè)方面的能力： （ 1） 對(duì)機(jī)械設(shè)計(jì)思路的認(rèn)識(shí)有了更進(jìn)一步的提高，提高了嚴(yán)謹(jǐn)負(fù)責(zé)的工作態(tài)度； （ 2） 掌握了應(yīng)用計(jì)算機(jī)語(yǔ)言 Visual Basic 軟件和機(jī)械設(shè)計(jì)有機(jī)結(jié)合 的能力； （ 3） 提高了實(shí)踐動(dòng)手的能力； （ 4） 加強(qiáng)了團(tuán)隊(duì)合作的能力； 本次畢業(yè)設(shè)計(jì)涉及好多機(jī)械設(shè)計(jì)中的參數(shù)，比如單位長(zhǎng)度帶的質(zhì)量、包角修正系數(shù)等等，這些參數(shù)的選取都要根據(jù)相關(guān)的表來(lái)查詢(xún)獲得，由于在網(wǎng)上查詢(xún)不到有些參數(shù)的圖表，又沒(méi)有現(xiàn)成的插圖，所以只有通過(guò)查詢(xún)相關(guān)的書(shū)來(lái)拍去照片，通過(guò)畫(huà)圖板中的編輯，最后應(yīng)用到本次畢業(yè)設(shè)計(jì)的界面里邊。 根據(jù)所輸入的數(shù)據(jù)集相關(guān)的計(jì)算得出小帶輪所選的結(jié)構(gòu)形式為“實(shí)心式”，大帶輪所選的結(jié)構(gòu)形式為“腹板式”。 按照上述的方法得到相應(yīng)的參數(shù)，根據(jù)公式（ 210）對(duì)命令按鈕“根數(shù) Z”進(jìn)行編輯，又因?yàn)槭菐Ц鶖?shù)的數(shù)值，所以在編寫(xiě)程序時(shí)，應(yīng)該 把 數(shù)值取為整數(shù)。點(diǎn)擊命令按鈕“下一步”進(jìn)入到下一界面，如果覺(jué)得有些界面 2的參數(shù)需要進(jìn)行修改，則點(diǎn)擊命令按鈕“上一步”則會(huì)進(jìn)入到上一界面，同“結(jié)束”按鈕一樣，在后面的每個(gè)界面都涉及到“上一步”命令按鈕，在后邊的操作界面介紹時(shí)，也不 多加介紹。 圖 42 帶速的計(jì)算 進(jìn)入到“帶速的計(jì)算”界面之后，右上方的文本框通過(guò)編輯，將自動(dòng)出現(xiàn)第一個(gè)界面所顯示出來(lái)的參數(shù)，通過(guò)這些參數(shù)可以從左邊的表中選取出適合小帶輪基準(zhǔn)直徑的值，然后計(jì)算出大輪轉(zhuǎn)速、大輪直徑以及帶的傳動(dòng)速度 V，其中，由 25 于普通 v 帶的傳動(dòng)速度一般是在 5～ 25（ m/s）要對(duì)其進(jìn)行驗(yàn)算，根據(jù)例題數(shù)據(jù)所計(jì)算得出的帶速為 ,符合普通 v 帶的帶速范圍。 界面顯示及操作過(guò)程 圖 41 參數(shù)的選取 該設(shè)計(jì)界面的主要任務(wù)是通過(guò)輸入已知的數(shù)據(jù)（有的根據(jù)查表的得到），繼而計(jì)算出 v 帶傳動(dòng)的計(jì)算功率 PC，其計(jì)算的結(jié)果為 9kw，點(diǎn)擊“顯示參數(shù)”這 24 一命令按鈕，在右邊的文本框里會(huì)顯示出之前所輸入的各個(gè)參數(shù)。 計(jì)算一鼓風(fēng)機(jī)用普通 v 帶傳動(dòng)。 a 25 Then MsgBox (帶速在 525 的范圍內(nèi) ) = True Else MsgBox (帶速超出范圍 ,請(qǐng)修改小帶輪直徑值 ) = （ 6） 數(shù)據(jù)的四舍五入與取整 在設(shè)計(jì)的過(guò)程中，大多數(shù) 按照計(jì)算公式所計(jì)算出來(lái)的數(shù)據(jù)小數(shù)點(diǎn)后邊都有很多小數(shù)，比如小輪包角、帶速等等，為簡(jiǎn)便起見(jiàn)，都將其進(jìn)行四舍五入，保留小數(shù)點(diǎn)后兩位，這需計(jì)算所用的命令按鈕進(jìn)行專(zhuān)門(mén)的程序編輯，代碼為： = Int(10 ^ (3 1) * Val() + ) / 10 ^ (3 1) 除了對(duì)有些數(shù)據(jù)進(jìn)行四舍五入外，還有些數(shù)據(jù)必須取整，例如帶根數(shù)，其編輯程序?yàn)椋? = Int(Str$(Val())) （ 7） 窗體大小及位置的編輯 本次 設(shè)計(jì)最終由六個(gè)窗體界面，為了使生成的各個(gè)界面在覆蓋的同時(shí)，保持同一大小，應(yīng)該把各個(gè)窗體中屬性窗口中“ width”保持同一數(shù)據(jù)，“ height”值也是一樣，且在設(shè)計(jì)每個(gè)窗體時(shí)，在窗體布局窗口用鼠標(biāo)將界面都拖到統(tǒng)一位置，這樣，在界面演示的過(guò)程中，各個(gè)窗體都是大小相同且在同一位置。 進(jìn)入到下一界面，在右方的顯示參數(shù)用的大文本框里會(huì)自動(dòng)顯示上一界面的顯示的全部參數(shù)，這是通過(guò)上一界面顯示參數(shù)用的文本框所編輯的程序來(lái)實(shí)現(xiàn)的，編寫(xiě)的代碼為： = 的是下一顯示參數(shù)所用的文本框， Text7 代表的是本界面顯示參數(shù)所用的文本框。 在后兩個(gè)窗體中涉及到圖片的隱藏與顯示和窗體的隱藏顯示是同一原理：將屬性窗口中的“ Visible”值編輯為“ false”，如果要顯示出來(lái)，通過(guò)相關(guān)的命令按鈕編輯代碼使其“ Visible”值為“ true”。本次畢業(yè)設(shè)計(jì)用到的是組合框“ CombolBox”，在屬性窗口中“ list”一欄輸入工作機(jī)載荷的四種類(lèi)型。雙擊命令按鈕，將進(jìn)行編輯程序，編寫(xiě)的代碼為： Form1. Visible = False Form2. Visible = True 關(guān)于之后界面中的“上一步”、“下一步”命令按鈕能使界面回到上一或下一界面，編輯的代碼與此代碼類(lèi)似。 18 圖 31 界面設(shè)計(jì)及編輯 一個(gè)工程通常會(huì)有一個(gè) 或 多個(gè)窗體，“新建工程”中默認(rèn)包含一個(gè)空白窗體，它就像一張白紙，設(shè)計(jì)者可直接在上面進(jìn)行“創(chuàng)作”，根據(jù)需求添加各種控件。它包括專(zhuān)業(yè)版的全部功能，以及 Back Office 工具，例如 SQL Server、 Microsoft Transaction Server、 IIS、 Visual SourceSafe 等。 2） ．專(zhuān)業(yè)版（ Professional Edition） 專(zhuān)業(yè)版主要是針對(duì)專(zhuān)業(yè)編程人員為創(chuàng)建客戶(hù) /服務(wù)器應(yīng)用程序而設(shè)計(jì)的。 （ 4） VB 的版本與組成 微軟為不同類(lèi)型的用戶(hù)提供了不同的版本，如 Visual Basic 分為 3 個(gè)版本：學(xué)習(xí)版、專(zhuān)業(yè)版和企業(yè)版，分別滿(mǎn)足不同開(kāi)發(fā)人員的需要。它所提供的大量常用控件可以供設(shè)計(jì)者在設(shè)計(jì)過(guò)程中直接使用。而 Visual Basic 成功地解決了用戶(hù)界面設(shè)計(jì)的難點(diǎn)。 Visual Basic的交互特性，使得編程人員在開(kāi)發(fā)過(guò)程中即可隨時(shí)運(yùn)行應(yīng)用程序。 （ 2） 即時(shí)性 功能強(qiáng)大而又簡(jiǎn)單易學(xué)是很多 Visual Basic 語(yǔ)言使用者最深刻的感受，因?yàn)閂isual Basic 的交互式開(kāi)發(fā)模式?jīng)Q定了它的易學(xué)易用。 在傳統(tǒng)的開(kāi)發(fā)語(yǔ)言中，如果編寫(xiě)的代碼存在錯(cuò)誤，那么該錯(cuò)誤只有在開(kāi)始編譯應(yīng)用程序時(shí)才會(huì)被編譯器捕獲，而此時(shí)必須查找并改正這個(gè)錯(cuò)誤，然后再次編 16 譯。它還引入了使用部件編程的概念，實(shí)際上是對(duì)面向?qū)ο缶幊趟枷氲臄U(kuò)展。 1997 年，微軟公司又推出了 Visual Basic 。 1992 年，經(jīng)過(guò)對(duì) Visual Basic 的修改，微軟推出了 Visual Basic 。 隨著計(jì)算機(jī)的普及，當(dāng)時(shí) PC 機(jī)上的操作系統(tǒng)也不斷發(fā)展， Microsoft 公司對(duì)其 Basic 產(chǎn)品也做了許多方面的改進(jìn)，推出了 Quick Basic，并得到了廣泛的好評(píng)。 此外， Visual Basic 的功能非常強(qiáng)大，有人說(shuō)與其問(wèn) Visual Basic 能做什么，不如問(wèn) Visual Basic 不能做什么，而答案是：幾乎沒(méi)有什么是 Visual Basic 不能實(shí)現(xiàn)的。這種圖形化的操作環(huán)境得到了廣 大用戶(hù)的認(rèn)可，越來(lái)越多的用戶(hù)希望編程語(yǔ)言也能如Windows 一般擁有漂亮的界面和豐富的功能。它擁有面向?qū)ο蟮膽?yīng)用開(kāi)發(fā)環(huán)境，在繼承 Basic 語(yǔ)言簡(jiǎn)單、易學(xué)優(yōu)點(diǎn)的基礎(chǔ)上，增強(qiáng)了可視化、分布式數(shù)據(jù)庫(kù)和 Intere 編程功能，是一種更衣掌握又實(shí)用的應(yīng)用開(kāi)發(fā)工具。 表 24 包角修正系數(shù) ?k 小帶輪包角 180 175 170 165 160 155 150 145 140 135 130 125 120 ?k 1 表 25 單根普通 v帶所能傳 遞的功率 P及 0P? 13 表 26 v 帶單位長(zhǎng)度質(zhì)量 確定帶輪的結(jié)構(gòu) 根據(jù) 帶輪的基準(zhǔn)直徑選擇結(jié)構(gòu)形式； V帶輪的結(jié)構(gòu)形式有實(shí)心式、腹板式、孔板式和輪輻式四種，具體的選擇方式如下： 實(shí)心式 — 直徑?。?D? ）； 腹板式 — 中等直徑 (D ? 300mm)； 孔板式 — 中等直徑 (D1d1 ? 100mm)； 輪輻式 — D 300 mm； 其中 D 代表大帶輪的直徑， d 代表小帶輪的直徑。 帶根數(shù)的確定 帶根數(shù) z 的確定是根據(jù)公式 （ 210） z = LC KkPP P?)( 0?? (210) 確定的，式中 P — 單根 v 帶的基本額定功率； 0P? — i≠ 1 時(shí)額定功率的增量； 12 ?k — 包角修正系數(shù) ； LK — 帶長(zhǎng)修正系數(shù)； 在普通 v 帶的傳動(dòng)設(shè)計(jì)中，帶根數(shù)一般都在 10 以?xún)?nèi)，如果不滿(mǎn)足這一要求，就得 重新選取帶的型號(hào)。 中心距和包角的計(jì)算 中心距 a = 21222121 )2(8))2((414 )2( DDDDLdDDLd ???????? ?? （ 28） 小輪包角 ?1=180176。 表 21 工況系數(shù)選擇表 帶型號(hào)的選取 9 V 帶帶型是由計(jì)算功率 Pc 和小帶輪轉(zhuǎn)速 n1 決定的，根據(jù)圖 2表 22 查?。? 圖 21 普通 v 帶型號(hào)的選取 表 22 帶輪最小直徑選擇表 帶型 Y Z A B C D E dmin/mm 20 50 75 125 200 355 500 帶速的計(jì)算 大帶輪直徑 D2根據(jù)公式（ 22） D2=(1 ? )211nnD （ 22） 式中 D1— 小帶輪直徑； ? — 滑動(dòng)率； n1— 原動(dòng)機(jī)轉(zhuǎn)速； n2— 從動(dòng)輪轉(zhuǎn)速； 大帶輪轉(zhuǎn)速 n2由公式（ 23） n2=(1? )211DnD （ 23） 10 帶速 v 根據(jù)公式（ 24）得 v = 100060 11? ?? nD? （ 24） 傳動(dòng)比 i = 21nn (25