【正文】 （21）計(jì)算出 V 帶傳動的計(jì)算功率 PC，其計(jì)算的結(jié)果為 9kw，點(diǎn)擊“顯示參數(shù)”這一命令按鈕，在右邊的文本框里會顯示出之前所輸入的各個參數(shù)。在這一過程前，命令按鈕“下一步”的 Enabled 的屬性值始終是 False，也就是不能點(diǎn)擊，只有計(jì)算得到 PC 的之后，它的屬性值才更改為 True，點(diǎn)擊它，進(jìn)入到下一個界面。如果想結(jié)束本次的設(shè)計(jì)，可以直接點(diǎn)擊右下角的“結(jié)束”命令按鈕，則本次設(shè)計(jì)結(jié)束，界面將會關(guān)閉。后邊的每個界面都有相似的“結(jié)束”按鈕，和“參數(shù)選取”界面的作用相同，在介紹后邊的操作界面就不多加介紹。圖 42 帶型選取及帶速相關(guān)的計(jì)算進(jìn)入到“帶型選取及帶速相關(guān)的計(jì)算”界面之后，如圖 42 所示，右上方的文本框通過編輯，將自動出現(xiàn)第一個界面所顯示出來的參數(shù)，通過這些參數(shù)可以從左邊的表中 29選取出適合小帶輪基準(zhǔn)直徑的值，然后根據(jù)公式（22） 、 （23）和（24）計(jì)算出大輪轉(zhuǎn)速、大輪直徑以及帶的傳動速度 V，其中，由于普通 v 帶的傳動速度一般是在5～25（m/s）要對其進(jìn)行驗(yàn)算，根據(jù)例題數(shù)據(jù)所計(jì)算得出的帶速為 ,符合普通 v帶的帶速范圍。如上圖所示，點(diǎn)擊確定之后，才能進(jìn)行到下一步的操作之中。如果不符合這一范圍，則是由于選擇小帶輪的基準(zhǔn)直徑不符合本次設(shè)計(jì)的設(shè)計(jì)要求，需再次查表選取適當(dāng)?shù)男л喕鶞?zhǔn)直徑。當(dāng)完成全部的步驟之后，計(jì)算出相應(yīng)的傳動比，界面之內(nèi)給出的數(shù)據(jù)滿足其要求，為了顯示校核的菜單框，所以截取的界面沒有計(jì)算傳動比的值，本次設(shè)計(jì)的傳動比為 。點(diǎn)擊命令按鈕“下一步”進(jìn)入到下一界面，如果覺得有些界面 2 的參數(shù)需要進(jìn)行修改，則點(diǎn)擊命令按鈕“上一步”則會進(jìn)入到上一界面，同“結(jié)束”按鈕一樣，在后面的每個界面都涉及到“上一步”命令按鈕，在后邊的操作界面介紹時，也不多加介紹。圖 43 中心距選取及包角的計(jì)算如圖 43 所示，進(jìn)入到“中心距選取及包角的計(jì)算”界面之后，根據(jù)中心距的初選 30的范圍（公式（26）提到）選出初取中心距 a0，為 650mm，根據(jù)公式（27）計(jì)算得到初選的基準(zhǔn)長度為 1949mm，根據(jù)界面 3 中的插圖選擇標(biāo)準(zhǔn)的基準(zhǔn)長度為 2022mm，在此文本框里按照公式（28）編寫計(jì)算計(jì)算實(shí)際中心距的程序，當(dāng)輸入選擇的基準(zhǔn)長度，則下一個文本框直接顯示出計(jì)算出來的實(shí)際中心距 a，在下一個計(jì)算包角的命令按鈕中，按照公式（29）編輯計(jì)算小帶輪包角的計(jì)算公式，計(jì)算出小帶輪的包角為 166，大于120，滿足設(shè)計(jì)的要求。如果不符合該范圍，則根據(jù)編寫的程序，自動返回到初取中心距的文本框，進(jìn)行重新選取中心距，如果小帶輪包角滿足這一范圍，即會出現(xiàn)如界面 3中的一個校核菜單框，單擊確定，將會是命令按鈕“下一步”的屬性里邊的 Enabled 值更改為“true” ，點(diǎn)擊次命令按鈕，則會進(jìn)入到 “帶根數(shù)的運(yùn)算”界面。圖 44 帶根數(shù)的運(yùn)算 31如圖 44 所示，由于該界面所涉及的圖片較多，如果放到一塊，不僅難以查找，還要進(jìn)行必要的下拉式圖片框，其編輯的程序較為繁瑣，為了提高設(shè)計(jì)的效率，界面中插圖的選擇編入到命令按鈕里邊，需要選取的參數(shù)，直接點(diǎn)擊該參數(shù)的命令按鈕，則下邊的圖片框就會顯示出相應(yīng)的插圖，例如“中心距選取及包角的計(jì)算”界面中所顯示的圖片就是通過點(diǎn)擊命令按鈕“單根 v 帶的基本額定功率 P”后顯示出來的插圖，后邊的幾個插圖是根據(jù)相同的原理編輯出來的。按照上述的方法得到相應(yīng)的參數(shù)，根據(jù)公式（210）對命令按鈕“根數(shù) Z”進(jìn)行編輯，又因?yàn)槭菐Ц鶖?shù)的數(shù)值，所以在編寫程序時，應(yīng)該把數(shù)值取為整數(shù)。點(diǎn)擊該命令按鈕，右邊的文本框就會顯示出所求的的帶根數(shù)，輸入選取的參數(shù)之后，計(jì)算得出帶根數(shù)為五根，符合帶根數(shù)小于十的設(shè)計(jì)要求，如果不滿足的話，界面將會自動返回到界面“帶速的計(jì)算” ，進(jìn)行重新選取帶型號。本界面相應(yīng)的參數(shù)通過編寫程序也會在下邊的文本框里顯示出來，點(diǎn)擊命令按鈕“下一步” ，則進(jìn)入到“設(shè)計(jì)的結(jié)果”界面。 32圖 45 設(shè)計(jì)的結(jié)果 如圖 45 所示，該設(shè)計(jì)界面為本次設(shè)計(jì)的最后一個界面，進(jìn)入到該界面之后，創(chuàng)建計(jì)算張緊力和軸上載荷的命令按鈕，根據(jù)公式（211）和公式（212）編輯相應(yīng)的計(jì)算公式，當(dāng)計(jì)算完這兩個力之后，通過編輯相應(yīng)的程序，會顯示出框架“確定帶輪結(jié)構(gòu)” ，點(diǎn)擊命令按鈕大小帶輪的結(jié)構(gòu)，則在下邊的文本框會顯示出所設(shè)計(jì)大小帶輪的使用結(jié)構(gòu)，同時，郵編的顯示參數(shù)這一文本框會把整個設(shè)計(jì)過程中的參數(shù)都顯示出來，通過這一文本框，可以看到整個設(shè)計(jì)中所涉及到的參數(shù)。根據(jù)所輸入的數(shù)據(jù)集相關(guān)的計(jì)算得出小帶輪所選的結(jié)構(gòu)形式為“實(shí)心式” ，大帶輪所選的結(jié)構(gòu)形式為“腹板式” 。 設(shè) 計(jì) 的 結(jié) 果根據(jù)設(shè)計(jì)界面的計(jì)算校核，得到的結(jié)果為：≡≡≡≡≡參數(shù)列表≡≡≡≡≡V 帶傳遞功率 P=(kW)原動機(jī)轉(zhuǎn)速 n1=1440(r/min)從動輪轉(zhuǎn)速 n2=630(r/min)V 帶傳動的滑動率 ε=工作機(jī)載荷性質(zhì)：載荷平穩(wěn)工況系數(shù) KA=計(jì)算功率 Pc=9(kW)≡≡≡≡≡≡≡≡≡≡≡≡≡≡V 帶型號：A 型小帶輪基準(zhǔn)直徑 D1=125mm大帶輪基準(zhǔn)直徑 D2=V 帶傳動的帶速 V= 33≡≡≡≡≡≡≡≡≡≡≡≡≡≡基準(zhǔn)長度 Ld=2022mm實(shí)際中心距 a=小帶輪包角 α 1=176。≡≡≡≡≡≡≡≡≡≡≡≡≡≡單根 V 帶的基本額定功率 P1=(kW)i≠1 時額定功率的增量 ΔP1=.17(kW)包角修正系數(shù) Kα=帶長修正系數(shù) KL=V 帶的根數(shù) Z=5 根≡≡≡≡≡≡≡≡≡≡≡≡≡≡V 帶的張緊力 F0=作用在軸上的載荷 FQ=小帶輪結(jié)構(gòu)推薦使用實(shí)心式結(jié)構(gòu)：實(shí)心式大帶輪結(jié)構(gòu)推薦使用腹板式結(jié)構(gòu)：腹板式 34第 5 章 總 結(jié)通過本次畢業(yè)設(shè)計(jì)，我對 Visual Basic 有了全新的了解和掌握，基本上熟悉了Visual Basic 語言和它在機(jī)械設(shè)計(jì)方面中的聯(lián)系以及應(yīng)用。通過對本次畢業(yè)設(shè)計(jì)課題的研究，又重新溫習(xí)了一遍機(jī)械設(shè)計(jì)這門課程，對以前所沒掌握的知識點(diǎn)重新學(xué)習(xí)了一遍，這對以后的工作將有著莫大的幫助。以前對計(jì)算機(jī)語言只停留在 C++上，通過本次對 v帶傳動進(jìn)行簡單的參數(shù)化設(shè)計(jì)，我對 Visual Basic 這種計(jì)算機(jī)語言有了更近一步的認(rèn)識和了解，軟件按照傳統(tǒng) v 帶傳動設(shè)計(jì)的思路，通過 vbVB 建立起簡單操作的設(shè)計(jì)界面，完成設(shè)計(jì)之后，即使不了解 vbVB，也可以操作此界面。本次畢業(yè)設(shè)計(jì)涉及好多機(jī)械設(shè)計(jì)中的參數(shù)，比如單位長度帶的質(zhì)量、包角修正系數(shù)等等，這些參數(shù)的選取都要根據(jù)相關(guān)的表來查詢獲得，由于在網(wǎng)上查詢不到有些參數(shù)的圖表，又沒有現(xiàn)成的插圖，所以只有通過查詢相關(guān)的書來拍去照片，通過畫圖板中的編輯，最后應(yīng)用到本次畢業(yè)設(shè)計(jì)的界面里邊。在學(xué)習(xí) vb 的過程中，必須要做到實(shí)踐與理論相結(jié)合，負(fù)責(zé)，要掌握一門全新的語言是很困難的。而且通過這次畢業(yè)設(shè)計(jì)還是我具備了一下幾個方面的能力：（1） 對機(jī)械設(shè)計(jì)思路的認(rèn)識有了更進(jìn)一步的提高，提高了嚴(yán)謹(jǐn)負(fù)責(zé)的工作態(tài)度；（2） 掌握了應(yīng)用計(jì)算機(jī)語言 Visual Basic 軟件和機(jī)械設(shè)計(jì)有機(jī)結(jié)合的能力；（3） 提高了實(shí)踐動手的能力； 35（4） 加強(qiáng)了團(tuán)隊(duì)合作的能力；謝 辭 此次畢業(yè)設(shè)計(jì)能夠在規(guī)定的時間內(nèi)順利完成，首先要感謝我的指導(dǎo)教師錢衛(wèi)香博士。正是由于錢老師的敦敦教誨，使我受益匪淺。從開始的開題報(bào)告到結(jié)束時的畢業(yè)設(shè)計(jì)論文，錢老師都是不厭其煩的的看完并修改其中出現(xiàn)的錯誤，甚至包括文中的錯別字。從這些對待小細(xì)節(jié)的態(tài)度使我對錢老師十分敬佩，錢老師這種態(tài)度也是我完成此次設(shè)計(jì)的動力。此外，我還要感謝同組的孫笑、賈高坤、李少博這三位同學(xué)，在設(shè)計(jì)的過程中，每當(dāng)遇到問題時，我們總會找一個教室進(jìn)行討論，這是我們原本枯燥乏味的大四生活變得充實(shí)起來。指導(dǎo)老師豐富的實(shí)踐經(jīng)驗(yàn)和淵博的知識嚴(yán)謹(jǐn)負(fù)責(zé)的態(tài)度以及同學(xué)們的熱心幫助都深深的印在我的腦海里了，對我影響很大。他們的幫助不僅僅是本次的畢業(yè)設(shè)計(jì)，現(xiàn)在我的畢業(yè)設(shè)計(jì)已接近尾聲，在這，我對錢老師和同組的三位同學(xué)表示真誠的感謝?。?！ 36參 考 文 獻(xiàn)[1] 年中國膠帶發(fā)展論壇；[2] ，2022；[3] V 帶的計(jì)算機(jī)輔助設(shè)計(jì)；[4] 邱宣懷，郭可謙，吳宗澤，機(jī)械設(shè)計(jì)（第 4 版），高等教育出版社；[5] 濮良貴，紀(jì)名剛 .，1995；[6] 程志剛，薄瑞峰 .，2022323（4） ；[7] 周銘麗，應(yīng)瑞功， 帶傳動常規(guī)設(shè)計(jì)的可視化編程 [J].安徽農(nóng)學(xué)通報(bào)，2022；[8] [J]. 武漢化工學(xué)院學(xué)報(bào)，1991， （02） ；[9] 薛衛(wèi)東，鄭銀玲 .基于多媒體技術(shù)的帶傳動設(shè)計(jì) [J].機(jī)械科學(xué)與技術(shù)，2022， （06） ；[10] 李又香，普通 V 帶的優(yōu)化設(shè)計(jì) [J]. 中國新技術(shù)新產(chǎn)品，2022， （15） ；[11] 許愛瑾. 基于 VB 的帶傳動計(jì)算機(jī)輔助設(shè)計(jì)中國表數(shù)據(jù)的處理[J]. 機(jī)械 2022， （04） ； 37附 錄界面“設(shè)計(jì)的結(jié)果”程序代碼：“張緊力”命令按鈕：Private Sub Command1_Click() = Str$(2 * Val() * Val() * (Sin(Val() * / 360))) = Int(10 ^ (3 1) * Val() + ) / 10 ^ (3 1)End Sub“帶輪結(jié)構(gòu)”命令按鈕：Private Sub Command2_Click() = True = True = True = True = True = True = TrueEnd Sub“軸載荷”命令按鈕：Private Sub Command3_Click() 38 = Str$(500 * Val() / (Val() * Val()) * (( Val()) / Val()) + Val() * Val() * Val()) = Int(10 * Val() + ) / 10End Sub“結(jié)束”命令按鈕：Private Sub Command6_Click()EndEnd Sub“上一步”命令按鈕：Private Sub Command7_Click() = True = FalseEnd Sub“小帶輪推薦使用結(jié)構(gòu)”命令按鈕：Private Sub Command8_Click()If Str$( * Val()) = Str$(Val()) Then = 實(shí)心式 = True = FalseElseIf (Str$(Val()) Str$(Val())) = 100 Then = 孔板式 = True = FalseEnd IfEnd Sub“大帶輪推薦使用結(jié)構(gòu)”命令按鈕：Private Sub Command9_Click()If Str$(Val()) 300 Then = 輪輻式 = True = FalseElse = 腹板式 = True = FalseEnd If = amp。 vbNewLine amp。 ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡ amp。 vbNewLine amp。 ▲ amp。 _v 帶的張緊力 F0= amp。 amp。 N amp。 vbNewLine amp。 ▲ amp。 _ 39作用在軸上的載荷 FQ= amp。 amp。 N amp。 vbNewLine amp。 ▲ amp。 _小帶輪推薦使用的結(jié)構(gòu)為： amp。 amp。 vbNewLine amp。 ▲ amp。 _大帶輪推薦使用的結(jié)構(gòu)為： amp。 = True = TrueEnd