計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)

5.1用戶需求

普通V帶傳動(dòng)是工程中使用比較廣泛的一種機(jī)械傳動(dòng)，主要用于兩軸之間距離較遠(yuǎn)的動(dòng)力傳遞。普通V帶傳動(dòng)的參數(shù)化設(shè)計(jì)程序涉及到參數(shù)選擇、設(shè)計(jì)計(jì)算以及數(shù)表和線圖處理等問題。通過本章的學(xué)習(xí)，一方面，可提高機(jī)械設(shè)計(jì)數(shù)表與線圖的處理能力；另一方面，對計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)軟件的開發(fā)全過程也可有初步的了解。普通V帶為無頭環(huán)形橡膠帶，由伸張層（頂膠）、強(qiáng)力層（抗拉體）、壓縮層（底膠）和包布層（膠帆布）組成。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第1頁。

普通V帶是標(biāo)準(zhǔn)件，按截面尺寸從小到大分為Y、Z、A、B、C、D、E七種型號。需要用戶提供的原始數(shù)據(jù)一般為：傳動(dòng)用途、傳遞功率、主動(dòng)輪轉(zhuǎn)速、從動(dòng)輪轉(zhuǎn)速或傳動(dòng)比、原動(dòng)機(jī)種類、工作機(jī)載荷性質(zhì)、傳動(dòng)位置要求、外廓尺寸等。用戶的需求一般包括：確定普通V帶型號，帶的基準(zhǔn)長度、根數(shù)，傳動(dòng)中心距，帶輪材料、基準(zhǔn)直徑、結(jié)構(gòu)型式及尺寸，計(jì)算帶的初拉力、初拉力增量、作用在軸上的壓力，張緊裝置，繪制帶輪零件工作圖等。通常，用戶提供的原始數(shù)據(jù)是計(jì)算機(jī)程序的主要輸入?yún)?shù)，用戶的需求是計(jì)算機(jī)程序的主要輸出參數(shù)。普通V帶傳動(dòng)參數(shù)化設(shè)計(jì)程序的主要輸入/輸出參數(shù)見表5-1。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第2頁。5.2系統(tǒng)結(jié)構(gòu)設(shè)計(jì)5.2.1普通V帶傳動(dòng)的手工設(shè)計(jì)過程

1．普通V帶傳動(dòng)的手工設(shè)計(jì)過程普通V帶傳動(dòng)的手工設(shè)計(jì)過程一般如圖5-1所示。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第3頁。圖5-1普通V帶傳動(dòng)的手工設(shè)計(jì)過程計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第4頁。

2．普通V帶傳動(dòng)手工設(shè)計(jì)方法與步驟機(jī)械設(shè)計(jì)軟件的最基本功能之一是代替手工設(shè)計(jì)。因此，手工設(shè)計(jì)步驟與設(shè)計(jì)依據(jù)或公式，是軟件功能結(jié)構(gòu)與算法設(shè)計(jì)的基本依據(jù)，計(jì)算機(jī)求解問題的過程基本是仿照手工設(shè)計(jì)的步驟與方法進(jìn)行的。很難想象，軟件開發(fā)人員在不了解手工設(shè)計(jì)方法與步驟的情況下，能夠獨(dú)立開發(fā)出一套有實(shí)用價(jià)值的軟件。因此，回顧手工設(shè)計(jì)的方法與步驟是軟件設(shè)計(jì)之初必須進(jìn)行的一項(xiàng)基礎(chǔ)工作。下面列出普通V帶傳動(dòng)手工設(shè)計(jì)的方法與步驟（見表5-2），以便于讀者回顧機(jī)械設(shè)計(jì)的方法與步驟，也有助于閱讀理解本章附錄列出的普通V帶傳動(dòng)設(shè)計(jì)源程序，有利于機(jī)械設(shè)計(jì)軟件開發(fā)思路的逐步形成。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第5頁。【例5-1】設(shè)計(jì)由電動(dòng)機(jī)驅(qū)動(dòng)的旋轉(zhuǎn)式水泵所用的普通V帶傳動(dòng)。電動(dòng)機(jī)型號為Y160M-4，其額定功率P=11kW，轉(zhuǎn)速n1=1460r/min，水泵軸轉(zhuǎn)速n2=400r/min，軸間距約為1500mm，每天工作8小時(shí)。設(shè)計(jì)過程見表5-3。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第6頁。5.2.2軟件結(jié)構(gòu)設(shè)計(jì)軟件結(jié)構(gòu)指軟件的各功能模塊及其相互間的調(diào)用關(guān)系。所謂功能模塊，就是實(shí)現(xiàn)一定功能的若干語句或函數(shù)序列。比如，VB6.0應(yīng)用軟件中,sub過程（包括事件sub和一般sub過程）、function函數(shù)、獨(dú)立的bas模塊、form窗體都是一個(gè)功能模塊。bas模塊和form模塊一般可以包括多個(gè)sub和function模塊，是多個(gè)sub和function模塊的集合。同樣，在VF6.0中，procedure、function都是功能模塊。在VL中，一個(gè)用戶自定義函數(shù)就是一個(gè)功能模塊。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第7頁。

開發(fā)機(jī)械設(shè)計(jì)軟件時(shí)，為了處理問題方便，通常把處理某一個(gè)數(shù)表、某一個(gè)圖形的語句或函數(shù)序列放在一個(gè)模塊中，而接受用戶輸入的語句、輸出設(shè)計(jì)結(jié)果的語句或函數(shù)等，常放在對象的事件過程中。各種語言都有各自的模塊調(diào)用方法。比如VB6.0，用call語句實(shí)現(xiàn)sub過程之間的相互調(diào)用。但值得注意的是，在可視化語言中，用戶只能激發(fā)對象，引發(fā)對象的事件過程，比如鼠標(biāo)單擊命令按鈕，引發(fā)該命令按鈕的click事件過程。設(shè)計(jì)軟件結(jié)構(gòu)，就是劃分程序的功能模塊，確定相互之間的調(diào)用關(guān)系。如同寫文章要先列文章的提綱一樣，設(shè)計(jì)軟件要先設(shè)計(jì)軟件的結(jié)構(gòu)。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第8頁。

普通V帶傳動(dòng)程序可設(shè)置以下功能模塊：（1）原始參數(shù)輸入主模塊（主窗體frmbelt.frm）:它包括主要參數(shù)接收模塊（接收功率、轉(zhuǎn)速、傳動(dòng)比）,工況情況接收模塊（接收載荷情況、啟動(dòng)情況、每天工作時(shí)間）。這兩個(gè)模塊接收的數(shù)據(jù)來自原始參數(shù)輸入窗口，見圖5-2。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第9頁。圖5-2普通V帶傳動(dòng)設(shè)計(jì)的原始數(shù)據(jù)輸入窗口計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第10頁。

（2）中間數(shù)據(jù)處理主模塊（窗體FrmOptionxhd1a.frm）:它包括并行帶型號選擇模塊、帶輪基準(zhǔn)直徑的試選模塊、中心距的試選模塊。這三個(gè)模塊接收的數(shù)據(jù)來自選擇帶型、小帶輪直徑、中心距窗口，見圖5-3。（3）基本數(shù)據(jù)處理模塊（一般sub過程、bas獨(dú)立模塊）：包括工況系數(shù)查詢模塊、V帶型號及小帶輪直徑范圍查詢模塊、基準(zhǔn)直徑查詢模塊、單根帶功率查詢模塊、功率增量查詢模塊、包角系數(shù)查詢模塊、長度系數(shù)查詢模塊、帶輪輪槽尺寸查詢模塊、帶輪結(jié)構(gòu)與輻板厚度查詢模塊。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第11頁。圖5-3普通V帶傳動(dòng)的帶型、直徑、中心距選擇窗口計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第12頁。

（4）設(shè)計(jì)結(jié)果處理模塊（窗體frmbeltDisply.frm）：它包括保存結(jié)果模塊、打印結(jié)果模塊、顯示帶輪結(jié)構(gòu)與尺寸模塊、生成帶輪工作圖模塊。這些模塊處理的數(shù)據(jù)來自以上兩個(gè)主模塊執(zhí)行過程中生成的數(shù)據(jù)文件或處理結(jié)果。這些模塊的調(diào)用窗口見圖5-4。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第13頁。圖5-4普通V帶傳動(dòng)設(shè)計(jì)結(jié)果處理窗口計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第14頁。

如果用填以功能描述的方框表示功能模塊，用直線表示模塊的調(diào)用，則由方框與直線組成的圖形稱為功能模塊結(jié)構(gòu)圖。下面給出普通V帶的功能模塊結(jié)構(gòu)圖，供讀者參考。（1）窗體模塊結(jié)構(gòu)圖設(shè)計(jì)：普通V帶傳動(dòng)設(shè)計(jì)的窗體模塊結(jié)構(gòu)圖由三個(gè)窗體模塊組成，見圖5-5。（2）功能模塊結(jié)構(gòu)圖設(shè)計(jì)：普通V帶傳動(dòng)設(shè)計(jì)的功能模塊結(jié)構(gòu)圖由三個(gè)窗體即包含的sub過程、一個(gè)獨(dú)立的bas模塊及其包含的function函數(shù)（未列出，可參見本章附錄程序）所組成，見圖5-6。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第15頁。圖5-5V帶傳動(dòng)參數(shù)化設(shè)計(jì)窗體模塊結(jié)構(gòu)圖計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第16頁。圖5-6V帶傳動(dòng)設(shè)計(jì)功能模塊結(jié)構(gòu)圖計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第17頁。5.3數(shù)表的規(guī)則化5.3.1單根帶額定功率的查詢

對于該表中的“-”號應(yīng)作0數(shù)值化處理，其理由是：V帶傳動(dòng)能力隨著轉(zhuǎn)速的不斷提高，帶傳遞功率以從小到大，又從大到小的規(guī)律變化，當(dāng)轉(zhuǎn)速達(dá)到一定值后，將出現(xiàn)明顯的“打滑”現(xiàn)象，傳遞功率幾乎減小到零。因此，將表中“-”號代之以“0”數(shù)值，造成的誤差是不大的，可以滿足工程要求。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第18頁。

插值處理可以有以下兩種方法：

(1)按三維函數(shù)表二次插值法查詢，此種方法見5.5節(jié)所附源程序中的PrivateSubpower1()過程。

(2)按二維函數(shù)表二次插值查詢。用多重判斷語句(如if…then…else或selectcase)先判斷輸入的V帶型號。對于每一個(gè)型號的功率查詢，按二維函數(shù)表二次插值方法進(jìn)行。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第19頁。5.3.2V帶輪輪輻結(jié)構(gòu)的查詢由2.1.2節(jié)可知，V帶輪輪輻結(jié)構(gòu)表的數(shù)據(jù)規(guī)律性不太強(qiáng)、數(shù)據(jù)量多、代碼編寫量大，如果采用VF程序處理，則代碼量較少。下面介紹用VF程序處理的方法，供讀者參考。用VF程序處理時(shí)，首先將該表中的數(shù)據(jù)規(guī)則化，然后將其錄入數(shù)據(jù)表(如lunfuhoudu.dbf)，然后編寫一個(gè)程序文件(如lunfuhoudu.prg)，或編一個(gè)事件過程(如form1.chaxun.click)，完成查詢?nèi)蝿?wù)。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第20頁。

下面是用VF程序查詢V帶輪輪輻結(jié)構(gòu)的例子。為了重點(diǎn)說明方法，這里將原始表數(shù)據(jù)，按照帶型號拆分為六個(gè)數(shù)據(jù)表：Z型輪結(jié)構(gòu).dbf、A型輪結(jié)構(gòu).dbf、B型輪結(jié)構(gòu).dbf、C型輪結(jié)構(gòu).dbf、D型輪結(jié)構(gòu).dbf、E型輪結(jié)構(gòu).dbf。限于篇幅，這里以A型輪結(jié)構(gòu).dbf為例來說明其處理方法。A型輪結(jié)構(gòu).dbf見圖5-7，設(shè)計(jì)的數(shù)據(jù)庫窗體見圖5-8，運(yùn)行結(jié)果見圖5-9。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第21頁。圖5-7A型輪結(jié)構(gòu).dbf計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第22頁。圖5-8帶輪結(jié)構(gòu)查詢窗體計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第23頁。圖5-9帶輪結(jié)構(gòu)查詢結(jié)果計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第24頁?！安樵儭卑粹o的單擊事件過程的代碼，見代碼5-1。代碼5-1“查詢”按鈕的單擊事件過程代碼［thisform.cmdchaxun.click］

thisform.lblxingshi.caption=""thisform.lblhoudu.caption=""thisform.lblshuliang.caption=""zuixiaokongjing=0zuidakongjing=0xinghao=alltrim(thisform.cboxinghao.value)kongjing=val(thisform.txtkongjing.value)zhijing=val(thisform.cbozhijing.value)DoCase&&控制孔徑輸入范圍計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第25頁。Casexinghao="Z"Ifkongjing<12orkongjing>35zuixiaokongjing=12zuidakongjing=35EndIfCasexinghao="A"Ifkongjing<10Orkongjing>45zuixiaokongjing=10zuidakongjing=45EndIfCasexinghao="B"Ifkongjing<32Orkongjing>65zuixiaokongjing=32zuidakongjing=65EndIf計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第26頁。Casexinghao="C"Ifkongjing<42Orkongjing>85zuixiaokongjing=42zuidakongjing=85EndIfCasexinghao="D"Ifkongjing<60Orkongjing>110zuixiaokongjing=60zuidakongjing=110EndIfCasexinghao="E"Ifkongjing<80Orkongjing>150zuixiaokongjing=80zuidakongjing=150EndIf計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第27頁。EndCaseIfzuixiaokongjing<>0andzuidakongjing<>0messagebox("孔徑太小或太大,最小應(yīng)為:"+alltrim(str(zuixiaokongjing))+-",最大應(yīng)為"+alltrim(str(zuidakongjing))+",請重新輸入!",0,"查詢")ReturnEndIfbiao=xinghao+“型輪結(jié)構(gòu)”

&&獲取表名

Select0use數(shù)據(jù)1!&biaoagainLocateForZhijing=基準(zhǔn)直徑Andkongjing<=孔徑 &&查詢

Iffound()=(.t.) &&若查到合適結(jié)構(gòu)

thisform.lblxingshi.caption=結(jié)構(gòu)形式

thisform.lblhoudu.caption=輻板厚度

thisform.lblshuliang.caption=槽數(shù)計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第28頁。Else &&若未查到合適結(jié)構(gòu)

LocateForkongjing<=孔徑

biaozhunkongjing=孔徑 &&查找與輸入孔徑相近的標(biāo)準(zhǔn)孔徑(因?yàn)橛脩糨斎氲目讖娇赡懿皇菢?biāo)準(zhǔn)孔徑):biaozhunkongjingLocateFor孔徑=biaozhunkongjingandisblank(結(jié)構(gòu)形式)=(.f.)&&查找與標(biāo)準(zhǔn)孔徑biaozhunkongjing相對應(yīng)的最小基準(zhǔn)直徑

Iffound()=(.t.)zuixiao=基準(zhǔn)直徑

EndIfdowhile孔徑=biaozhunkongjingandisblank(結(jié)構(gòu)形式)=(.f.)&&查找與標(biāo)準(zhǔn)孔徑biaozhunkongjing相對應(yīng)的最大基準(zhǔn)直徑

skip1計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第29頁。Enddoskip-1zuida=基準(zhǔn)直徑

messagebox("基準(zhǔn)直徑太小或太大,最小應(yīng)為:"+alltrim(str(zuixiao))+-"最大應(yīng)為:"+alltrim(str(zuida))+chr(13)+chr(10)+;",請重新輸入!",0,"查詢")returnthisform.lblxingshi.caption=""thisform.lblhoudu.caption=""thisform.lblshuliang.caption=""messagebox("無合適帶形式",0,"查詢")EndIf計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第30頁。5.4選型圖的處理V帶選型圖的處理屬于區(qū)域處理的范疇，區(qū)域處理的一般方法在3.3節(jié)中已經(jīng)介紹過了，此處V帶選型圖有一些具體情況，需要特別作一些處理。由V帶傳動(dòng)能力可知，當(dāng)轉(zhuǎn)速超過一定值后，將出現(xiàn)打滑現(xiàn)象，此時(shí)，轉(zhuǎn)速對功率的變化率較大(即轉(zhuǎn)速增加時(shí)，傳遞功率增加得很少)。對照選型圖來看，圖中的每條線都有一個(gè)轉(zhuǎn)折點(diǎn)，轉(zhuǎn)折點(diǎn)的以上部分的直線就反映了打滑現(xiàn)象。顯然，所有轉(zhuǎn)折點(diǎn)以上部分直線所包圍的區(qū)域是不可用來選型的。為了排除這部分區(qū)域，可作一條“增加線”，見圖5-10，有效的帶型從增加線下區(qū)域中選擇。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第31頁。圖5-10V帶選型圖的處理計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第32頁。

圖中的增加線，由六段直線連接而成。對于增加線上的每段直線以及分型線（粗實(shí)線）、直徑范圍分界線（圖中的虛線），都可參照3.1.2節(jié)中所述方法求出其數(shù)學(xué)模型。求出了上述所有直線的數(shù)學(xué)模型，也就是建立了帶型有效區(qū)域的邊界線數(shù)學(xué)模型。接下來要做的事情，就是如何確定選型點(diǎn)，即確定由設(shè)計(jì)功率pd和小帶輪轉(zhuǎn)速n1所確定的坐標(biāo)點(diǎn)d在有效區(qū)中的位置。下面以C型區(qū)為例，進(jìn)一步說明選型思路與程序設(shè)計(jì)方法。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第33頁。

如圖5-11所示，有效選型區(qū)為B—C—D—E—B包圍的區(qū)域，這個(gè)區(qū)域再被直線C—F分為兩個(gè)分區(qū)：C1分區(qū)(B—C—F—E—B圍成的區(qū)域)和C2分區(qū)(C—D—F—C圍成的區(qū)域)。若事先確定各條直線的數(shù)學(xué)模型如下：計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第34頁。圖5-11V帶選型圖處理方法計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第35頁。B—C線的數(shù)學(xué)模型為

n1BC=29.44249×pd^1.162165（5-1）D—E線的數(shù)學(xué)模型為

n1DE=7.63971×pd^1.21196（5-2）C—D線的數(shù)學(xué)模型為

n1CD=3905.5×pd^-0.5078 (5-3)其中，交點(diǎn)C的橫坐標(biāo)為20kW；交點(diǎn)D的橫坐標(biāo)為42kW。設(shè)設(shè)計(jì)功率為spd(kW)，小帶輪轉(zhuǎn)速為sn1(轉(zhuǎn)/分)。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第36頁。

程序執(zhí)行式（5-1）、（5-2）、（5-3），分別計(jì)算出n1BC、n1DE、n1CD（相對應(yīng)的坐標(biāo)點(diǎn)見圖中M1、M2、M3），可得以下判斷：

(1)如果n1DE≤sn1≤n1BC且spd≤20，則選型點(diǎn)d一定落在C1區(qū)內(nèi)；

(2)如果n1DE≤sn1≤n1CD且20≤spd≤42，則選型點(diǎn)d一定落在C2區(qū)內(nèi)。計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第37頁。在程序中，判斷語句可表述為：ifsn1>=n1DEandsn1<=n1BCandspd<=20orsn1>=n1DEandsn1<=n1CD-andspd>=20andspd<=42thenxh="C“

’

型號為“C”型

dd1="200--315" ’

直徑范圍為“200--315”

endif計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第38頁。附錄普通V帶傳動(dòng)計(jì)算機(jī)輔助設(shè)計(jì)VB6.0源程序1．frmbelt.frm窗體

frmbelt.frm窗體設(shè)計(jì)見圖5-2，其全部代碼見代碼5-2。代碼5-2窗體frmbelt.frm的全部代碼OptionExplicitOptionBase1Privateworktime(1To7)AsString ’存儲工作時(shí)間的數(shù)組

Privateworkcondition(1To5)AsString ’存儲工作情況的數(shù)組

Privatekabelt(1To5,1To10)AsSingle ’存儲工況系數(shù)的數(shù)組

PublicsworktimeAsString ’輸入的每天工作時(shí)間

PublicsworkconditionAsString ’輸入的工作情況計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第39頁。PrivateSubbeltKA(sworktime,sworkcondition,ka,startcondition)’

功能：查詢KADimiAsInteger ’

循環(huán)變量

DimjAsInteger ’

循環(huán)變量

OpenApp.Path+"＼B10-10.dat"ForInputAs＃1’B10-10.dat文件保存有文獻(xiàn)19

’

中表6(工況系數(shù)表)的數(shù)據(jù)

Fori=1To4Input＃1,workcondition(i)NextiFori=1To3Input＃1,worktime(i)NextiFori=1To4Forj=1To3計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第40頁。Input＃1,kabelt(i,j)NextjNextiFori=1To4Forj=4To6Input＃1,kabelt(i,j)NextjNextiCloseFori=1To4Ifsworkcondition=workcondition(i)ThenExitForNextiForj=1To3Ifsworktime=worktime(j)ThenExitForNextj計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第41頁。Ifstartcondition="輕、空載啟動(dòng)"Thenka=kabelt(i,j)EndIfIfstartcondition="重載啟動(dòng)"Thenka=kabelt(i,j+3)EndIfEndSub

PrivateSublstHeavyClick() ’

功能：輸入每天工作時(shí)間

sworktime=Lstheavy.TextEndSub

PrivateSublstLight-Click() ’

功能：輸入每天工作時(shí)間

sworktime=Lstlight.TextEndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第42頁。PrivateSubCmdend_Click() ’

功能：終止程序

EndEndSub

PrivateSubCmdgoonClick() ’

功能：接收輸入、計(jì)算、窗體交替

DimxAsInteger ’

定義臨時(shí)變量

spower=Val(txtpower.Text)’

接收輸入功率

n1=Val(Txtn1) ’

接收小帶輪轉(zhuǎn)速

sn2=Val(TxtN2.Text) ’

接收大帶輪轉(zhuǎn)速

si=Val(TxtI.Text) ’

接收傳動(dòng)比

Ifspower<=0Andn1<=0Then’

以下為判斷輸入是否適當(dāng)；如不當(dāng)，則退出過程

MsgBox"功率、小帶輪轉(zhuǎn)速必須大于零"計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第43頁。ElseIfspower<=0ThenMsgBox"功率必須大于零"ElseIfn1<=0ThenMsgBox"小帶輪轉(zhuǎn)速必須大于零"EndIfIfsn2=0Andsi=0ThenMsgBox"從動(dòng)輪轉(zhuǎn)速和傳動(dòng)比不能同時(shí)為零"ExitSubEndIfIfsworkcondition=""ThenMsgBox"工作情況不能為空":ExitSubIfsworktime=""ThenMsgBox"工作時(shí)間不能為空":ExitSubIfspower<>0Andn1<>0Andsn2<>0Andsworktime<>""And-計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第44頁。sworkcondition<>""Orspower<>0Andn1<>0Andsi<>0And-sworktime<>""Andsworkcondition<>""Then’

如輸入適當(dāng)

Ifsi=0Then’

傳動(dòng)比為0si=n1/sn2’

計(jì)算傳動(dòng)比

EndIfIfsn2=0Then’

大帶輪轉(zhuǎn)速為0sn2=n1/si’

計(jì)算大帶輪轉(zhuǎn)速

EndIfCallbeltKA(sworktime,sworkcondition,ka,startcondition) ’調(diào)用beltKA過程， ’查工況系數(shù)kapd=spower*ka ’為計(jì)算功率pd賦值，以便調(diào)用beltxh Callbeltxh(Pd,n1,xh(),d1()) ’調(diào)用beltxh過程，確定兩種帶 ’型XH()和兩種小帶輪直徑范圍計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第45頁。 Ifxh(1)=“NIL”Then ’

若數(shù)組xh(1)(存儲有帶型號)值為空，說 ’明沒有合適型號，給出提示信息，并退 ’出過程

MsgBox("無合適帶型!可能是轉(zhuǎn)速N1太高或功率P太大,請重新確定N1;P!"):ExitSubEndIfElseMsgBox"輸入數(shù)據(jù)不正常,請重新輸入":ExitSubEndIfCallzhoujingFrmOptionxhd1a.lblxh1.Caption=xh(1)’

為下一個(gè)窗體FrmOptionxhd1a的控件lblxh1的’標(biāo)題Caption賦值，以顯示第一個(gè)帶型號xh(1)計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第46頁。FrmOptionxhd1a.lblxh2.Caption=xh(2)’

為下一個(gè)窗體FrmOptionxhd1a的控件lblxh2的標(biāo)題Caption賦值，以顯示第二個(gè)帶型號xh(2)FrmOptionxhd1a.Visible=True’

使下一個(gè)窗體FrmOptionxhd1a可見

FrmOptionxhd1a.Picd1a.Visible=False’

使下一個(gè)窗體FrmOptionxhd1a的控件picd1a不可見

FrmBelt.Visible=False ’

使本窗體frmbelt不可見

FrmOptionxhd1a.optionxh=0 ’

為下一個(gè)窗體FrmOptionxhd1a的窗體變量optionxh初始化

EndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第47頁。PrivateSubFormLoad()’

功能：窗體加載，使其上對象初始化

TxtI.Visible=FalseTxtN2.Visible=FalseLstlight.Visible=FalseLstheavy.Visible=FalseLbLtime1.Visible=FalseLbLtime2.Visible=FalseEndSub

PrivateSubOptcondition1Click()’

功能：輸入工作情況1sworkcondition=Optcondition1.CaptionEndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第48頁。PrivateSubOptcondition2Click() ’

功能：輸入工作情況2sworkcondition=Optcondition2.CaptionEndSub

PrivateSubOptcondition3Click() ’

功能：輸入工作情況3sworkcondition=Optcondition3.CaptionEndSub

PrivateSubOptcondition4-Click() ’

功能：輸入工作情況4sworkcondition=Optcondition4.CaptionEndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第49頁。PrivateSubOptn2Click() ’

功能：用戶決定輸入從動(dòng)輪轉(zhuǎn)速n2TxtI.Visible=False ’

使文本框txtI不可見

TxtN2.Visible=True ’

使文體框txtN2可見

TxtI.Text="" ’

并清空文本框TxtIEndSub

PrivateSubOptiClick() ’

功能：用戶決定輸入傳動(dòng)比iTxtN2.Visible=False ’

使文本框TxtN2不可見

TxtI.Visible=True ’

使文本框TxtI可見

TxtN2.Text="" ’

并清空文本框TxtN2EndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第50頁。PrivateSubOptlightClick()’

用戶決定選擇輕、空載啟動(dòng)

Lstheavy.Visible=False’

使單選鈕控件Lstheavy不可見

Lstlight.Visible=True’

使單選鈕控件Lstlight可見

LbLtime1.Visible=True’

使列表框控件LbLtime1可見

LbLtime2.Visible=False’

使列表框控件LbLtime2不可見

startcondition=Optlight.Caption’

變量startcondition取控件Optlight的CaptionEndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第51頁。PrivateSubOptheavy_Click() ’

用戶決定選擇重載啟動(dòng)

Lstlight.Visible=False ’

使單選鈕控件Lstlight不可見

Lstheavy.Visible=True ’

使單選鈕控件Lstheavy可見

LbLtime2.Visible=True ’

使列表框控件LbLtime2可見

LbLtime1.Visible=False ’

使列表框控件LbLtime1不可見startcondition=Optheavy.Caption’

變量startcondition取控件Optheavy的CaptionEndSubPrivateSubbeltxh(PdAsSingle,n1AsSingle,xh()AsString,d1()AsString)

’

功能：查普通V帶型號及小帶輪直徑范圍

Rem輸入?yún)?shù):計(jì)算功率Pd(kW)Rem輸入?yún)?shù):小帶輪轉(zhuǎn)速n1(轉(zhuǎn)/分)計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第52頁。Rem輸出參數(shù):帶型xh(1),xh(2)Rem輸出參數(shù):小帶輪直徑d1(1),d1(2)Rem字符型數(shù)組xh()的值按工程規(guī)定必須用英文大寫

Dimnze1AsSingle,nze2AsSingle,nze3AsSingle,nze4AsSingleDimnze5AsSingle,nze6AsSingle,nze7AsSingle,nze8AsSingleDimnze9AsSingle ’nze1~nze9,選型圖中的九條分型界線

Dimnk1AsSingle,nk2AsSingle,nk3AsSingle,nk4AsSingleDimnk5AsSingle,nk6AsSingle’nk1~nk6,增加線的六段直線

nze1=787.5327*Pd^1.07nze2=458.2745*Pd^1.095nze3=237.9256*Pd^1.035nze4=120*Pd^1.05324計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第53頁。nze5=52.8337*Pd^1.160658nze6=29.44249*Pd^1.162165nze7=7.63971*Pd^1.21196nze8=2.614477*Pd^1.175764nze9=0.7456016*Pd^1.252225nk1=7066.3*Pd^-0.6456+200nk2=8182.6*Pd^-0.7368+200nk3=11090.4*Pd^-0.8689+200nk4=3905.5*Pd^-0.5078+150nk5=732.57*Pd^-0.0541+150nk6=550+100Ifn1>=nze2+50AndPd<=3.5Orn1>=nze2+50Andn1<=nk1AndPd<=4.5Then計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第54頁。 xh(1)="Z":xh(2)="Z"’Z型區(qū)

d1(1)="50--71" d1(2)="80--100"ElseIfn1<=nze2+50Andn1>=nze2AndPd<=3.5Orn1>=nze2Andn1<=nk1-AndPd<=5Then ’Z_A型交界區(qū)。注意：VB規(guī)定，一個(gè)語句要接行寫，應(yīng)加一個(gè)空格和下劃線

xh(1)="Z":xh(2)="A"d1(1)="80--100":d1(2)=d1(1)ElseIfn1<=nze2Andn1>=nze2-50AndPd<=5Orn1>=nze2-50And_n1<=nk2AndPd<=6Then’A-Z型交界區(qū)

xh(1)="A":xh(2)="Z"d1(1)="80--100":d1(2)=d1(1)計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第55頁。ElseIfn1<=nze2-50Andn1>=nze4+50AndPd<=5Orn1>=nze4+50And_n1<=nk2AndPd<=10Then ’A型區(qū)

xh(1)="A":xh(2)=xh(1)d1(1)="80--100":d1(2)="112--140"ElseIfn1<=nze4+50Andn1>=nze4AndPd<=5Orn1>=nze4Andn1<=nk2_AndPd<=10Then ’A-B型交界區(qū)

xh(1)="A":xh(2)="B"d1(1)="112--140":d1(2)="125--140"ElseIfn1<=nze4Andn1>=nze4-50AndPd<=5Orn1>=nze4-50And_n1<=nk2AndPd<=10Then ’B-A型交界區(qū)

xh(1)="B":xh(2)="A"d1(1)="125--140":d1(2)="112--140"計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第56頁。ElseIfn1<=nze4-50Andn1>=nze6+50AndPd<=10Orn1>=nze6+50_Andn1<=nk3AndPd<=18Then ’B型區(qū)

xh(1)="B":xh(2)=xh(1)d1(1)="125--140":d1(2)="160--200"ElseIfn1<=nze6+50Andn1>nze6AndPd<=10Orn1>=nze6Andn1<=nk3_AndPd<=18Then ’B-C型交界區(qū)

xh(1)="B":xh(2)="C"d1(1)="160--200":d1(2)="200--315"ElseIfn1<=nze6Andn1>=nze6-30AndPd<=10Orn1>=nze6-30And_n1<=nk3AndPd<=18Then ’C-B型交界區(qū)

xh(1)="C":xh(2)="B"d1(1)="200--315":d1(2)="160--200"ElseIfn1<=nze6-30Andn1>=nze7+30AndPd<=18Orn1>=nze7+30_ Andn1<=nk4AndPd<=40Then ’C型區(qū)計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第57頁。xh(1)="C":xh(2)=xh(1)d1(1)="200--315":d1(2)=d1(1)ElseIfn1<=nze7+30Andn1>=nze7AndPd<=18Orn1>=nze7Andn1<=nk4_AndPd<=40Then ’C-D型交界區(qū)

xh(1)="C":xh(2)="D"d1(1)="200--315":d1(2)="355--400"ElseIfn1<=nze7Andn1>=nze7-30AndPd<=18Orn1>=nze7-30And_n1<=nk4AndPd<=40Then ’D-C型交界區(qū)

xh(1)="D":xh(2)="C"d1(1)="355--400":d1(2)="200--315“ElseIfn1<=nze7-30Andn1>=nze9+30AndPd<=40Orn1>=nze9+30-Andn1<=nk5AndPd<=200Then ’D型區(qū)

xh(1)="D":xh(2)=xh(1)d1(1)="355--400":d1(2)="450--500"計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第58頁。ElseIfn1<=nze9+30Andn1>=nze9AndPd<=40Orn1>=nze9And=n1<=nk5AndPd<=200Then’D-E型交界區(qū)

xh(1)="D":xh(2)="E"d1(1)="450--500":d1(2)="500--800"ElseIfn1<=nze9Andn1>=nze9-30AndPd<=40Orn1>=nze9-30And_n1<=nk5AndPd<=200Then’E-D型交界區(qū)

xh(1)="E":xh(2)="D"d1(1)="500--800":d1(2)="450--500"ElseIfn1<=nze9-30Andn1>0AndPd<=200Orn1>0Andn1<=500_ AndPd<=250Then’E型區(qū)

xh(1)="E":xh(2)=xh(1)d1(1)="500--800":d1(2)=d1(1)Elsexh(1)=“NIL”:xh(2)=xh(1)’

選型點(diǎn)落在可選區(qū)域之外，即沒有合適 ’帶型，此時(shí)令xh(1),xh(2)為″NIL″計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第59頁。d1(1)="NIL":d1(2)=d1(1)EndIfEndSub

PrivateSubvsbxuyongyingli-Change()’

功能：改變軸材料的許用應(yīng)力 的值

txtxuyongyingli=vsbxuyongyingli.ValueEndSub

PrivateSubzhoujing()’

功能：計(jì)算軸頸的直徑

DimxuyongyingliAsSinglezhoucailiao=Trim(txtzhoucailiao.Text)Iftxtzhoucailiao.Text=""OrVal(txtzhoucailiao.Text)=0ThenMsgBox("請輸入軸材料代號")EndEndIf計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第60頁。xuyongyingli=Val(txtxuyongyingli.Text)dailunkongjing(1)=(9550!*1000!*Pd/n1*16/3.14/xuyongyingli)^(1/3)dailunkongjing(2)=(9550!*1000!*Pd/sn2*16/3.14/xuyongyingli)^(1/3)IfInt(dailunkongjing(1)/5)<dailunkongjing(1)/5Thendailunkongjing(1)=5*Int(dailunkongjing(1)/5)+5EndIfIfInt(dailunkongjing(2)/5)<dailunkongjing(2)/5Thendailunkongjing(2)=5*Int(dailunkongjing(2)/5)+5EndIfEndSubPrivateSubForm-KeyPress(KeyAsciiAsInteger)’

用回車鍵代替單擊事件

IfKeyAscii=13ThenCallCmdgoon_Click ’13是回車鍵的KeyAscii碼

EndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第61頁。2．FrmOptionxhd1a.frm窗體窗體FrmOptionxhd1a.frm的設(shè)計(jì)見圖5-3，其全部代碼見代碼5-3。代碼5-3窗體FrmOptionxhd1a.frm的全部代碼OptionExplicitOptionBase1PublicoptionxhAsInteger’optionxh=1或optionxh=2說明用戶選擇了型號, ’optionxh=0說明未選擇型號

PrivateSubcmdContinue-Click()’該過程實(shí)現(xiàn)：查詢標(biāo)準(zhǔn)帶輪直徑、單根帶基本功率、功率增量、長度系數(shù)、包角系數(shù)等

Dima0AsSingle ’定義幾個(gè)臨時(shí)變量

Dimdf0AsSingleIfoptionxh<>1Andoptionxh<>2ThenMsgBox“請選擇型號！”:ExitSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第62頁。dd1=Val(txtd1.Text)’

接收用戶輸入的小帶輪直徑（初值）

a0=Val(txta.Text)’

接收用戶輸入的中心距（初值）

Ifdd1<hsbd1.MinOrdd1>(hsbd1.Max)*1.5Orxh1=""ThenMsgBox ("小帶輪直徑選擇不正確，請重新選擇"):ExitSubIfa0<hsba.MinThenMsgBox"中心距選擇不合適,請重新選擇":ExitSubCallbeltd(dd1)’

調(diào)用beltd過程,確定小帶輪標(biāo)準(zhǔn)直徑

dd2=si*dd1Callbeltd(dd2)’

調(diào)用beltd過程,確定大帶輪標(biāo)準(zhǔn)直徑

sis=dd2/dd1’

計(jì)算實(shí)際傳動(dòng)比

sis=Int(sis*100)/100dlti=Str$(Int((sis-si)/si*100))&“%”’計(jì)算傳動(dòng)比誤差（百分?jǐn)?shù)）

Callpower1 ’調(diào)用power1過程,查詢單根帶基本額定功率p1CallbeltkL(a0) ’調(diào)用beltkL過程,查普通V帶長度系數(shù)KL計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第63頁。Callkalf1 ’

調(diào)用kalf1過程,查包角系數(shù)kalfv1=n1*dd1*3.1415/60/1000’

計(jì)算線速度

v1=Int(v1*100)/100Callbeltdp1’

調(diào)用beltdp1過程,查單根V帶的額定功率值的增量dp1Callbeltsize(df0)’

調(diào)用beltsize過程,查帶的截面尺寸和帶初拉力增量df0z=Pd/(p1+dp1)/kalf/kL’

計(jì)算帶根數(shù)

f0=500*(2.5-kalf)*Pd/kalf/z/v1+q*v1^2’

計(jì)算初拉力f0f0=Int(f0*100)/100fz=2*z*f0*Sin(X1/2*3.14159/180)’

計(jì)算壓軸力fzfz=Int(fz*100)/100g=(f0+df0)/16 ’

計(jì)算初拉力的測定值gg=Int(g*100)/100frmbeltDisply.Visible=True’

使下一個(gè)窗體“frmbeltDisply”可見’用下一個(gè)窗體上的控件顯示各參數(shù)值。各被顯示的參數(shù)必須在本窗體或在bas模塊中用public聲明計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第64頁。frmbeltDisply.Lbldisply(0).Caption=xh1frmbeltDisply.Lbldisply(1).Caption=zfrmbeltDisply.Lbldisply(2).Caption=LdfrmbeltDisply.Lbldisply(3).Caption=dd1frmbeltDisply.Lbldisply(4).Caption=dd2frmbeltDisply.Lbldisply(5).Caption=afrmbeltDisply.Lbl2(0).Caption=sisfrmbeltDisply.Lbl2(1).Caption=v1frmbeltDisply.Lbl2(2).Caption=X1frmbeltDisply.Lbl2(3).Caption=kLfrmbeltDisply.Lbl2(4).Caption=kalffrmbeltDisply.Lbl2(5).Caption=ka計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第65頁。frmbeltDisply.Lbl4(0).Caption=f0frmbeltDisply.Lbl4(1).Caption=fzfrmbeltDisply.Lbl4(2).Caption=p1frmbeltDisply.Lbl4(3).Caption=dp1frmbeltDisply.Lbl4(4).Caption=gfrmbeltDisply.Lbl4(5).Caption=dltifrmbeltDisply.Label1(1).Caption=spowerfrmbeltDisply.Label1(3).Caption=PdfrmbeltDisply.Label1(5).Caption=n1CallFrmbeltDisply.cmddisplysize_Click’

調(diào)用下一個(gè)窗體 “frmbeltDisply”的“cmddisply’size_click”過程

FrmOptionxhd1a.Visible=False’

使本窗體FrmOptionxhd1a不可見EndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第66頁。PrivateSubCmdend-Click() ’

功能：結(jié)束程序運(yùn)行

EndEndSubPrivateSubCmdReturn_Click()’

功能：返回到上一個(gè)窗體frmbeltfrmbelt.Visible=TruefrmOptionxhd1a.Visible=Falselblxh1.BackColor=&H8000000Blblxh2.BackColor=&H8000000BEndSub計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第67頁。PrivateSubForm_KeyPress(KeyAsciiAsInteger)’

功能：用回車鍵代替單擊事件

IfKeyAscii=13ThenCallcmdContinue_Click’13是回車鍵的KeyAscii碼EndSub

PrivateSublblxh1_Click() ’功能:為對象賦值

Picd1a.Visible=True ’Picd1a是圖片框，其上安裝有多個(gè)控件：hsbd1,txtd1,-lbld1,hsba,txta,lblaoptionxh=1 ’此賦值語句的作用是:用戶已經(jīng)選擇了帶型號

xh1=lblxh1.Caption ’為帶型號變量xh1賦值

lblxh1.BackColor=vbWhite’使對象lblxh1的背景色變?yōu)榘咨?/p>

lblxh2.BackColor=&H8000000B’使對象lblxh2的背景色變?yōu)樗{(lán)色

hsbd1.Min=Val(Left(d1(1),3))’為水平滾動(dòng)條hsbd1賦最小值

hsbd1.Max=Val(Right(d1(1),3))’為水平滾動(dòng)條hsbd1賦最大值計(jì)算機(jī)輔助機(jī)械設(shè)計(jì)V帶輪設(shè)計(jì)全文共147頁，當(dāng)前為第68頁。hsbd1.LargeChange=10 ’為滾動(dòng)條hsbd1賦最大變化量

hsbd1.SmallChange=1 ’為滾動(dòng)條hsbd1賦最小變化量

hsbd1.Value=Int((hsbd1.Min+hsbd1.Max)/2)’為滾動(dòng)條hsbd1賦當(dāng)前值

lbld1.Caption="小帶輪直徑范圍:"&Str$(hsbd1.Min)&"--"&Str$(hsbd1.Max)’為標(biāo)簽框lbld1賦標(biāo)題

lbla.Caption="推薦中心距范圍:"&Str$(Int((hsbd1.Min+hsbd1.Max)/-2*(1+si)*0.7))&"--"&Str$(Int((hsbd1.Min+hsbd1.Max)/=2*(1+si)*2))hsba.Min=Int((hsbd1.Min+hsbd1.Max)/2*(1+si)*0.7)’