vb編程的v帶傳動(dòng)設(shè)計(jì)說明書(包含源程序)

1、.新鄉(xiāng)學(xué)院cad/cam作業(yè)二題目：vb編程的v帶傳動(dòng)設(shè)計(jì)姓 名學(xué) 號(hào)12042010101所在學(xué)院名稱機(jī)電工程學(xué)院專 業(yè) 名 稱機(jī)械設(shè)計(jì)制造及其自動(dòng)化指導(dǎo)教師姓名2013年10月目錄內(nèi)容摘要2關(guān)鍵詞2abstract2keywords31.緒論31.1用vb編程設(shè)計(jì)帶傳動(dòng)31.2帶傳動(dòng)簡介32.v帶傳動(dòng)設(shè)計(jì)42.1已知條件和設(shè)計(jì)內(nèi)容42.2設(shè)計(jì)步驟和方法43.用vb編程的方法設(shè)計(jì)v帶傳動(dòng)63.1編程的前期準(zhǔn)備63.2 vb編程的程序7參考文獻(xiàn)20致謝21內(nèi)容摘要：在隨著科學(xué)技術(shù)的發(fā)展，機(jī)械制造業(yè)的應(yīng)用十分廣泛，特別是在農(nóng)業(yè)機(jī)械、工程機(jī)械、軍事應(yīng)用當(dāng)中占據(jù)著重要位置。一些常用的機(jī)械設(shè)備，一般都

2、是要依靠機(jī)械傳動(dòng)提供所需要的動(dòng)力，而在機(jī)械傳動(dòng)中v帶傳動(dòng)式最傳統(tǒng)也是應(yīng)用最為廣泛的機(jī)械傳動(dòng)。因此，掌握v帶傳動(dòng)的設(shè)計(jì)是十分重要和必要的。本篇文章應(yīng)用傳統(tǒng)的機(jī)械設(shè)計(jì)方法，通過vb軟件強(qiáng)大的功能，使得普通v帶的參數(shù)化得以實(shí)現(xiàn)，與傳統(tǒng)的設(shè)計(jì)方法相比，極大地提高工作效率，縮短了大量的工作時(shí)間。此外，vb上手比較容易，且能建立友好的界面，其功能比較實(shí)用，便于理解面向?qū)ο缶幊?，這也是此次設(shè)計(jì)選取vb的原因?？偟膩砜?，本次設(shè)計(jì)包含了數(shù)學(xué)模型的建立和程序的編制。當(dāng)設(shè)計(jì)的系統(tǒng)完成時(shí)，我們可以得到一個(gè)可視化的操作界面，此界面可以輸入一些用戶給定的原始條件，然后程序自動(dòng)進(jìn)行設(shè)計(jì)校核計(jì)算，并得到相應(yīng)的結(jié)果。關(guān)鍵詞：

3、v帶傳動(dòng) 機(jī)械設(shè)計(jì) 數(shù)學(xué)模型abstract:withthedevelopmentofscienceandtechnology,andmachinerymanufacturingapplicationsisveryextensive,especiallyintheagriculturalmachinery,engineeringmachinery,militaryapplications,whichoccupiesanimportantposition.commonlyusedinmachineryandequipment,aregenerallyrelyonmechanicaltransmi

4、ssionprovidetherequiredpower,whileinthemechanicaltransmissionv-belttransmissiontypemosttraditionalisthemostwidelyusedmechanicaltransmission.therefore,graspthev-beltdrivedesignisveryimportantandnecessary.thisarticletheapplicationoftraditionalmechanicaldesign,throughthepowerfulfeaturesofthevbsoftware,

5、makingtheordinaryv-beltparameterssystemtobeachieved,comparedwiththetraditionaldesignmethods,andgreatlyimproveworkefficiency,andreducestheamountofworkingtime.inaddition,thevbtogetstartedisrelativelyeasyandfriendlyinterface,itsfunctionismorepractical,easytounderstandobject-orientedprogramming,andthisi

6、sthedesignselectthevbreasons.overall,thedesignincludestheestablishmentofthemathematicalmodelandproceduresforthepreparationof.completionofthedesignofthesystem,wecangetavisualuserinterface,thisinterfacecanentersomeusergiveninitialconditions,thentheprogramautomaticallydesigncheckingcalculation,andtheco

7、rrespondingresults.keywords:v belt drive mechanical design mathematical model1.緒論1.1用vb編程設(shè)計(jì)帶傳動(dòng)帶傳動(dòng)用于傳遞動(dòng)力和功率，在機(jī)械傳動(dòng)中扮演者重要的角色，已得到越來越廣泛的應(yīng)用并在我們?nèi)粘Ｉ钪衅鸬街匾淖饔谩＝陙?，特別是在汽車工業(yè)、大型機(jī)械以及各種新型機(jī)械裝備中使用相當(dāng)廣泛。新技術(shù)的研發(fā)以及合成材料的迅速發(fā)展，都能在帶傳動(dòng)上得到使用，帶設(shè)備、工藝水平的持續(xù)提高，使得帶傳動(dòng)的工作能力和工作的效率顯著增強(qiáng)。為滿足各種用途的需要，品種也不斷增加。帶傳動(dòng)具有結(jié)構(gòu)簡單，傳動(dòng)平穩(wěn)，價(jià)格低廉，緩沖吸振、不需潤滑及等

8、特點(diǎn)。這一切，使帶傳動(dòng)在機(jī)械傳動(dòng)中占據(jù)了主導(dǎo)地位，且從易損件向傳動(dòng)的功能部件方向演變，以至在許多場合替代了其它傳動(dòng)形式。隨著高科技的發(fā)展，傳統(tǒng)的v帶設(shè)計(jì)的方法已經(jīng)不能滿足現(xiàn)在工業(yè)的需求，尤其是數(shù)控技術(shù)取代了之前的手工設(shè)計(jì)的方法，這就使得v帶也必須進(jìn)行現(xiàn)代化的改革，鑒于vb的可視化操作界面、操作簡單。所以，本次畢業(yè)設(shè)計(jì)是以vb語言作為開發(fā)的工具，對普通v帶進(jìn)行參數(shù)化設(shè)計(jì)。本次設(shè)計(jì)是基于vb的普通v帶參數(shù)化設(shè)計(jì)系統(tǒng)，熟悉掌握普通v帶傳動(dòng)的設(shè)計(jì)方法及實(shí)現(xiàn)流程，以及vb軟件的開發(fā)環(huán)境，建立軟件平臺(tái)的總體框架。然后在vb集成開發(fā)環(huán)境中編程實(shí)現(xiàn)普通v帶傳動(dòng)的設(shè)計(jì)計(jì)算和校核計(jì)算，確定主要尺寸，校核帶速、包角

9、、中心距及帶強(qiáng)度等主要參數(shù)，建立操作簡單方便的界面，并對其進(jìn)行調(diào)試。1.2帶傳動(dòng)簡介帶傳動(dòng)是兩個(gè)或多個(gè)帶輪之間用帶作為撓性拉拽零件的傳動(dòng)，工作室借助零件之間的摩擦（或嚙合）來傳遞運(yùn)動(dòng)或動(dòng)力。根據(jù)截面形狀不同，可分為平帶傳動(dòng)、v帶傳動(dòng)、同步帶傳動(dòng)、多楔帶傳動(dòng)等。帶傳動(dòng)式具有中間撓性控件的一種傳動(dòng)，所以：（1）能緩和載荷沖擊；（2）運(yùn)行平穩(wěn)，無噪聲；（3）制造和安裝精度不像嚙合傳動(dòng)那樣嚴(yán)格；（4）過載時(shí)將引起帶在帶輪上打滑，可防止其他零件的損壞；（5）可增加帶長以適應(yīng)中心距較大的工作條件（可達(dá)15米）。帶傳動(dòng)和摩擦輪傳動(dòng)一樣，也有下列缺點(diǎn)：（1）有彈性滑動(dòng)和打滑，使效率降低從而不能保證準(zhǔn)確的傳動(dòng)比

10、（同步帶傳動(dòng)式靠嚙合傳動(dòng)的，所以可保證傳動(dòng)同步）；（2）傳遞同樣大的圓周力時(shí)，輪廓尺寸和軸上的壓力都比嚙合傳動(dòng)大；（3）帶的壽命較短。v帶主要有普通v帶、變速v帶、窄v帶、切邊v帶、多楔v帶、聯(lián)組v帶、齒形v帶、寬v帶大楔角v帶等，這里主要介紹最為常見的普通v帶的傳動(dòng)，標(biāo)準(zhǔn)普通v帶是用多種材料制成的無接頭環(huán)形帶，這些材料包括頂膠、抗拉體、底膠和包布。根據(jù)抗拉體結(jié)構(gòu)的不同，普通v帶分為簾布芯v帶和繩芯v帶兩種。簾布芯v帶制造方便;繩芯v帶柔韌性好,主要用于載荷布大和帶輪直徑較小的場合。v帶的截面呈等腰梯形，帶輪上也做出相應(yīng)的輪槽，傳動(dòng)時(shí)，v帶的兩個(gè)側(cè)面和輪槽接觸，靠槽面的摩擦可以提供很大的摩擦力

11、。另外，v帶傳動(dòng)允許的傳動(dòng)比較大，且結(jié)構(gòu)緊湊。2.v帶傳動(dòng)設(shè)計(jì)2.1已知條件和設(shè)計(jì)內(nèi)容2.1.1設(shè)計(jì)v帶傳動(dòng)時(shí)的已知條件（1）帶傳動(dòng)的工作條件；（2）傳動(dòng)位置和總體尺寸限制；（3）所需傳遞的額定功率；（4）小帶輪轉(zhuǎn)速；（5）大帶輪轉(zhuǎn)速和傳動(dòng)比。2.1.2設(shè)計(jì)內(nèi)容（1）v帶的型號(hào)、基準(zhǔn)長度ld和根數(shù)z；（2）大小帶輪的基準(zhǔn)直徑dd2、dd1；（3）裝配的中心距a、張緊力f0、壓軸力fp。2.2設(shè)計(jì)步驟和方法2.2.1確定計(jì)算功率根據(jù)公式（2-1）計(jì)算求得v帶傳動(dòng)的計(jì)算功率pca。 pc=ka p（2-1）式中：pca計(jì)算功率，kw；ka工況系數(shù)；p所需傳遞的額定功率，如電動(dòng)機(jī)的額定功率或名義負(fù)載

12、功率，kw；其中工況系數(shù)ka的值根據(jù)載荷性質(zhì)由機(jī)械設(shè)計(jì)第八版表8-7中查取。2.2.2選擇v帶的帶型根據(jù)計(jì)算功率pca和小帶輪轉(zhuǎn)速n1，從機(jī)械設(shè)計(jì)第八版圖8-11選取普通v帶的型號(hào)。2.2.3確定帶輪的基準(zhǔn)直徑dd并驗(yàn)算帶速（1）初選小帶輪的基準(zhǔn)直徑dd1根據(jù)v 帶的帶型，參考機(jī)械設(shè)計(jì)第八版表8-6和表8-8確定小帶輪的基準(zhǔn)直徑dd1，應(yīng)使dd1（dd）min。（2）驗(yàn)算帶速根據(jù)式（8-13）驗(yàn)算帶的速度帶速不宜過低或過高，一般應(yīng)使v=525m/s，最高不超過30 m/s。（3）計(jì)算大帶輪的基準(zhǔn)直徑由dd2=idd1計(jì)算，并根據(jù)機(jī)械設(shè)計(jì)第八版表8-8加以適當(dāng)圓整。2.2.4確定中心距a，并選擇

13、v帶的基準(zhǔn)長度ld（1）根據(jù)傳動(dòng)總體尺寸的限制條件或要求的中心距，結(jié)合式（8-20）初定中心距a0。（2）計(jì)算相應(yīng)的帶長ld0帶的基準(zhǔn)長度ld根據(jù)ld0由機(jī)械設(shè)計(jì)第八版表8-2選取。（3）計(jì)算中心距a及其變動(dòng)范圍傳動(dòng)的實(shí)際中心距近似為考慮到帶輪的制造誤差、帶長誤差、帶的彈性及因帶的松弛而產(chǎn)生的補(bǔ)充張緊的需要，常給出中心距的變動(dòng)范圍2.2.5驗(yàn)算小帶輪上的包角由式（8-7）可知，小帶輪上的包角小于大帶輪上的包角。又由式（8-6）可知，小帶輪上的總摩擦力相應(yīng)地小于大帶輪上的總摩擦力。因此，打滑只可能在小帶輪上發(fā)生。為了提高帶傳動(dòng)的工作能力，應(yīng)使2.2.6確定帶的根數(shù)z式中：p0由小帶輪基準(zhǔn)直徑dd

14、1和轉(zhuǎn)速n1，查機(jī)械設(shè)計(jì)第八版表8-4a； 由n1，i和帶型，查機(jī)械設(shè)計(jì)第八版表8-4b； 由查機(jī)械設(shè)計(jì)第八版表8-5； 由ld查機(jī)械設(shè)計(jì)第八版表8-2。為了使各根v帶受力均勻，帶的根數(shù)不宜過多，一般應(yīng)少于10根。否則，應(yīng)選擇橫截面積較大的帶型，以減少帶的根數(shù)。2.2.7確定帶的初拉力f0由式（8-6），并計(jì)入離心力和包角的影響，可得單根v帶所需的最小初拉力為 對于新安裝的v帶，初拉力應(yīng)為；對于運(yùn)轉(zhuǎn)后的v帶，初拉力應(yīng)為。圖2-1 初拉力的測定安裝時(shí)，應(yīng)保證初拉力f0大于上述數(shù)值，但也不應(yīng)過大。為了控制實(shí)際f0的大小，可以采用如圖2-1所示的方法，即在v帶與兩帶輪切點(diǎn)的跨度中點(diǎn)，施加一規(guī)定的、與

15、帶邊垂直的力g（參見機(jī)械設(shè)計(jì)第八版表8-9），使帶在每100mm上產(chǎn)生1.6mm的撓度即可。2.2.8計(jì)算帶傳動(dòng)的壓軸力fp為了設(shè)計(jì)帶輪軸的軸承，需要計(jì)算帶傳動(dòng)作用在軸上的壓軸力fp式中，小帶輪的包角。3.用vb編程的方法設(shè)計(jì)v帶傳動(dòng)3.1編程的前期準(zhǔn)備3.1.1已知條件（1）功率p；（2）小帶輪轉(zhuǎn)速n1；（3）原動(dòng)機(jī)及工作機(jī)工作情況；（4）中心距。3.1.2手工設(shè)計(jì)的流程（1）確定計(jì)算功率1）查表得ka；2）計(jì)算功率pca（2）選擇v帶的型號(hào)1）由pca，n1從圖中選擇帶型（3）確定帶輪基準(zhǔn)直徑dd1并驗(yàn)算帶速1）由帶型查表確定小帶輪基準(zhǔn)直徑dd1；2）帶速驗(yàn)算，v（530m/s），如不滿足

16、轉(zhuǎn)至【（3）1）】重新確定dd1；3）計(jì)算大帶輪基準(zhǔn)直徑dd2；4）查表圓整大帶輪基準(zhǔn)直徑。（4）確定中心距a，并選擇v帶基準(zhǔn)長度ld1）由0.7（dd1+dd2）a02(dd1+dd2)給出中心距范圍,初定a0；2）計(jì)算所需基準(zhǔn)長度ld0；3）查表確定基準(zhǔn)長度ld，并查表的kl；4）計(jì)算實(shí)際中心距a；5）驗(yàn)算小帶輪包角，若不滿足轉(zhuǎn)至【（4）1）】重新確定a0。（5）確定帶的根數(shù)1）計(jì)算單根帶功率pr；2)根據(jù)dd1和n1查表得p0；3）根據(jù)n1,i和帶型查表得p0；4）根據(jù)小帶輪包角查表得k；5）計(jì)算帶的根數(shù)z。（6）計(jì)算單根v帶的最小初拉力（f0）min1）計(jì)算（f0）min；2）確定初拉

17、力范圍：新裝1.5（f0）min；已運(yùn)行1.3（f0）min。（7）計(jì)算壓軸力fp（8）顯示計(jì)算結(jié)果（9）結(jié)束3.1.3變量表參數(shù)名稱變量名稱參數(shù)意義輸入/輸出pp傳遞功率（kw）入n1n1主動(dòng)輪轉(zhuǎn)速入ii傳動(dòng)比入kaka工作情況系數(shù)pcapca計(jì)算功率dxv帶帶型出dd1dd1小帶輪基準(zhǔn)直徑出dd2dd2大帶輪基準(zhǔn)直徑出vv帶速a0a0初定中心距aa中心距出ld0ld0計(jì)算基準(zhǔn)長度ldld選取標(biāo)準(zhǔn)基準(zhǔn)長度出aminamin允許最小中心距出amaxamax允許最大中心距出1bj小帶輪包角prpr單根v帶額定功率p0p0單根v帶基本額定功率p0yp0單根普通v帶額定功率增量kkbj包角修正系數(shù)k

18、lklv帶的長度系數(shù)zzv帶的根數(shù)出qqv帶的單位長度的質(zhì)量(f0）minf0min單根v帶最小初拉力1.5(f0）minf0new新安裝v帶最小初拉力出1.3(f0）minf0old已運(yùn)行v帶最小初拉力出fpfp帶傳動(dòng)的壓軸力出3.2 vb編程的程序3.2.1已知條件輸入程序代碼和窗體對象private sub command1_click()if text1.text = or val(text1.text) 0 then msgbox 請輸入正確的功率，重試！: exit subif text2.text = or val(text2.text) 0 then msgbox 請輸入正確的

19、帶輪轉(zhuǎn)速，重試！: exit subif text3.text = or val(text3.text) 0 then msgbox 請輸入正確的傳動(dòng)比，重試！: exit subif option1.value = false and option2.value = false then msgbox 啟動(dòng)情況請選擇一項(xiàng)，重試！: exit subif option3.value = false and option4.value = false and option5.value = false then msgbox 每天工作小時(shí)數(shù)請選擇一項(xiàng)，重試！: exit subif option

20、6.value = false and option7.value = false and option8.value = false and option9.value = false then msgbox 載荷變動(dòng)情況請選擇一項(xiàng)，重試！: exit subp = val(text1.text)n1 = val(text2.text)i = val(text3.text)if option1.value = true and option3.value = true and option6.value = true then ka = 1#if option1.value = true a

21、nd option3.value = true and option7.value = true then ka = 1.1if option1.value = true and option3.value = true and option8.value = true then ka = 1.2if option1.value = true and option3.value = true and option9.value = true then ka = 1.3if option1.value = true and option4.value = true and option6.val

22、ue = true then ka = 1.1if option1.value = true and option4.value = true and option7.value = true then ka = 1.2if option1.value = true and option4.value = true and option8.value = true then ka = 1.3if option1.value = true and option4.value = true and option9.value = true then ka = 1.4if option1.value

23、 = true and option5.value = true and option6.value = true then ka = 1.2if option1.value = true and option5.value = true and option7.value = true then ka = 1.3if option1.value = true and option5.value = true and option8.value = true then ka = 1.4if option1.value = true and option5.value = true and op

24、tion9.value = true then ka = 1.5if option2.value = true and option3.value = true and option6.value = true then ka = 1.1if option2.value = true and option3.value = true and option7.value = true then ka = 1.2if option2.value = true and option3.value = true and option8.value = true then ka = 1.4if opti

25、on2.value = true and option3.value = true and option9.value = true then ka = 1.5if option2.value = true and option4.value = true and option6.value = true then ka = 1.2if option2.value = true and option4.value = true and option7.value = true then ka = 1.3if option2.value = true and option4.value = tr

26、ue and option8.value = true then ka = 1.5if option2.value = true and option4.value = true and option9.value = true then ka = 1.6if option2.value = true and option5.value = true and option6.value = true then ka = 1.3if option2.value = true and option5.value = true and option7.value = true then ka = 1

27、.4if option2.value = true and option5.value = true and option8.value = true then ka = 1.6if option2.value = true and option5.value = true and option9.value = true then ka = 1.8print p= & pprint n1= & n1print i= & iprint ka= & kaka = kaform2.hideform3.showpca = ka * pform3.label1.caption = pca= & pca

28、 & chr(13) & _n1= & n1end sub圖3-1 已知條件窗體3.2.2帶型的選取程序代碼和對象窗體private sub command1_click()form3.hideform2.showform2.text1.text = form2.text2.text = form2.text3.text = form2.option1.value = falseform2.option2.value = falseform2.option3.value = falseform2.option4.value = falseform2.option5.value = falsef

29、orm2.option6.value = falseform2.option7.value = falseform2.option8.value = falseform2.option9.value = falseend subprivate sub command2_click()form3.hideform4.showform4.label2.caption = 帶的型號(hào)是 & dxend subprivate sub list1_click()dx = list1.textend sub圖3-2 帶型選取窗體3.2.3確定帶輪基準(zhǔn)直徑程序代碼和對象窗體public v1 as singl

30、eprivate sub command1_click()form4.hideform3.showend subprivate sub text1_change()dd1 = val(text1.text)dd20 = i * dd1label4.caption = 初算大帶輪直徑 & dd20 & ，據(jù)表圓整大帶輪直徑end subprivate sub command2_click()if dx = z and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.caption = : exit s

31、ubif dx = a and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.caption = : exit subif dx = b and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.caption = : exit subif dx = c and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.

32、caption = : exit subif dx = d and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.caption = : exit subif dx = e and dd1 dd then msgbox 請輸入正確的基準(zhǔn)直徑，重試！: text1.text = : text2.text = : label4.caption = : exit subv1 = 3.1415926 * dd1 * n1 / 1000v = v1 / 60if v 30 then msgbox 請輸入更小

33、的基準(zhǔn)直徑，重試！: text1.text = : text1.setfocus: text2.text = : label4.caption = : exit subdd2 = val(text2.text)form4.hideform5.showform5.text1.text = form5.text2.text = form5.text3.text = form5.label5.caption = end subprivate sub form_load()dim dd20 as singleif dx = z then dd = 50if dx = a then dd = 75if

34、dx = b then dd = 125if dx = c then dd = 200if dx = d then dd = 355if dx = e then dd = 500end sub圖3-3 確定帶輪基準(zhǔn)直徑窗體3.2.4初定中心距a，并選擇v帶的基準(zhǔn)直徑ldprivate sub command1_click()form5.hideform4.showform4.text1.text = form4.text2.text = form4.label4.caption = end subprivate sub command2_click()form5.hideform6.show查

35、8-4a,單根普通v帶的基本額定功率p0dim bg(39, 11) as doubledim g as integer: dim j as integerdim x1 as double: dim x2 as doubledim y1 as double: dim y2 as doubledim h1 as double: dim h2 as doubledim l1 as double: dim lx2 as doubledim p01 as double: dim p02 as doubleopen h:cadcam作業(yè)作業(yè)二p0.txt for input as 1 for g = 1

36、 to 39 for j = 1 to 11 input #1, bg(g, j) next j next gclose #1select case dx case z g = 1 do while dd1 bg(g, 1) g = g + 1 if g = 7 then exit do end if loop case a g = 8 do while dd1 bg(g, 1) g = g + 1 if g = 15 then exit do end if loop case b g = 16 do while dd1 bg(g, 1) g = g + 1 if g = 23 then ex

37、it do end if loop case c g = 24 do while dd1 bg(g, 1) g = g + 1 if g = 31 then exit do end if loop case d g = 32 do while dd1 bg(g, 1) g = g + 1 if g = 39 then exit do end if loopend selectj = 1do while n1 bg(1, j) j = j + 1 loopx2 = bg(1, j)x1 = bg(1, j - 1)y2 = bg(g, 1)y1 = bg(g - 1, 1)h2 = bg(g,

38、j)h1 = bg(g, j - 1)l2 = bg(g - 1, j)l1 = bg(g - 1, j - 1)p01 = (n1 - x1) * (l2 - l1) / (x2 - x1) + l1p02 = (n1 - x1) * (h2 - h1) / (x2 - x1) + h1p0 = (dd1 - y1) * (p02 - p01) / (y2 - y1) + p01p0 = int(p0 * 100 + 0.5) / 100查8-4b，單根普通v帶的基本額定功率增量yp0dim ybg(51, 11) as doubledim b as integer: dim c as in

39、tegerdim m1 as double: dim m2 as doubledim k1 as double: dim k2 as doubleopen h:cadcam作業(yè)作業(yè)二yp0.txt for input as 1 for b = 1 to 51 for c = 1 to 11 input #1, ybg(b, c) next c next bclose #1select case dx case z b = 1 do while i ybg(b, 1) b = b + 1 if b = 11 then exit do end if loop case a b = 12 do wh

40、ile i ybg(b, 1) b = b + 1 if b = 21 then exit do end if loop case b b = 22 do while i ybg(b, 1) b = b + 1 if b = 31 then exit do end if loop case c b = 32 do while i ybg(b, 1) b = b + 1 if b = 41 then exit do end if loop case d b = 42 do while i ybg(b, 1) b = b + 1 if b = 51 then exit do end if loop

41、end selectc = 1do while n1 ybg(1, c) c = c + 1 loopm2 = ybg(1, c)m1 = ybg(1, c - 1)k2 = ybg(b, c)k1 = ybg(b, c - 1)yp0 = (n1 - m1) * (k2 - k1) / (m2 - m1) + k1yp0 = int(yp0 * 100 + 0.5) / 100查8-5，包角修正系數(shù)dim baojiao(2, 13) as doubledim u as integer: dim r as integerdim d1 as double: dim d2 as doubledi

42、m t1 as double: dim t2 as doubleopen h:cadcam作業(yè)作業(yè)二kbj.txt for input as 1 for u = 1 to 2 for r = 1 to 13 input #1, baojiao(u, r) next r next uclose #1 r = 1 do while bj int(z) thenz = int(z) + 1elsez = int(z)end ifend subprivate sub form_load()label1.caption = 0.7 * (dd1 + dd2) & =a0= & 2 * (dd1 + dd

43、2)end subprivate sub text1_change()a0 = val(text1.text)ld0 = 2 * a0 + 3.1415926 * (dd1 + dd2) / 2 + (dd2 - dd1) * (dd2 - dd1) / (a0 * 4)ld0 = int(ld0 + 0.5)label5.caption = 帶輪型號(hào)是 & dx & chr(13) & ld0= & ld0end subprivate sub text2_change()ld = val(text2.text)end subprivate sub text3_change()kl = val(text3.text)a = a0 + (ld - ld0) / 2 中心距a = int(a + 0.5)amin = a - 0.015 * ld 最小中心距amin = int(amin + 0.5)amax = a + 0.03 * ld 最大中心距amax