【正文】 通過開發(fā)這個系統(tǒng)，我掌握了的基本過程，了解了的基本知識，鞏固了我對Visual ，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。盡管本系統(tǒng)存在著很多不足，但其功能全面、界面友好、操作方便、效率高等優(yōu)點(diǎn)是本精度設(shè)計(jì)系統(tǒng)所必需的。最后基本完成了預(yù)定目標(biāo)。本系統(tǒng)屬于綠色軟件，因此，用戶也可以不選擇自動安裝而改用手動安裝，手動安裝時需要注意要把可執(zhí)行程序及其附件復(fù)制到制定根目錄下即可。，首先確定系統(tǒng)調(diào)試無錯，所有編程過程均已結(jié)束，此程序放置在文件保存目錄下的……\bin\Debug文件夾中，如圖41所示：圖41 exe程序至此，本系統(tǒng)已可以脫離Visual Basic環(huán)境獨(dú)立運(yùn)行。這樣對于普通使用者已經(jīng)足夠。h}%%v + + %%v + Call (zfc1, insertp1, directionp) Dim leaderobj As Dim lpoints(0 To 8) As Double Dim annotationobject As lpoints(0) = ObjInsert(0) : lpoints(1) = ObjInsert(1) : lpoints(2) = 0 lpoints(3) = ObjInsert(0) : lpoints(4) = ObjInsert(1) + 20 : lpoints(5) = 0 lpoints(6) = ObjInsert(0) + 15 : lpoints(7) = ObjInsert(1) + 20 : lpoints(8) = 0 leaderobj = (lpoints, annotationobject, ) End Sub4 軟件功能展示及系統(tǒng)集成(1)進(jìn)入系統(tǒng) （2）選擇軸的類型（3）軸的各項(xiàng)參數(shù)輸入（4）進(jìn)行相應(yīng)的強(qiáng)度校核（5） 輸出Pro/E三維模型（6）進(jìn)行精度設(shè)計(jì)（7）退出基于Visual Basic 2005 的編釋執(zhí)行方式執(zhí)行時不需要代碼或執(zhí)行程序，當(dāng)然也就無法對程序進(jìn)行調(diào)試。AutoCad ，默認(rèn)情況下該類型庫位于C:\program file\mon file\autodesk shard 目錄下（只要在操作系統(tǒng)下安裝了AutoCad，就可以在Visual Basic的“COM”菜單中引用）選擇“ 項(xiàng)目”菜單中的“引用”，在“引用”對話框中選擇 “AutoCad FocusControl for VBA Type Library“（AutoCad2008），即可添加對AutoCad2008 Type Library的引用。要創(chuàng)建AutoCad部件對象的引用，一般需要三個步驟。創(chuàng)建AutoCAD對象，啟動的方法有很多種形式，由于CAD系統(tǒng)多個窗體需要調(diào)用AutoCAD對象變量，所以系統(tǒng)在全局模塊Module中定義AutoCAD對象變量，編寫公用子程序代碼, 各窗體均可通過調(diào)用子程序使用該變量。， 連接起來, 需要兩個步驟： , 編程環(huán)境中引用AutoCAD對象庫；其次編寫VisualBasic .NET程序代碼, 創(chuàng)建AutoCAD對象， 啟動運(yùn)行AutoCAD。在AutoCAD ActiveX界面中有許多不同類型的對象,例如圖形對象、樣式設(shè)置等。ActiveX , Automation 的操作。選擇負(fù)荷狀態(tài)和連接方式，單擊窗體中的【設(shè)計(jì)結(jié)果】按鈕，即可查詢對應(yīng)軸徑的極限偏差、表面粗糙度和形位公差的查詢。傳統(tǒng)的設(shè)計(jì)方法中尺寸公差、形位公差和粗糙度標(biāo)準(zhǔn)需要參照手冊，這對于設(shè)計(jì)者來說是極為繁瑣的，對于缺乏經(jīng)驗(yàn)的初學(xué)設(shè)計(jì)者來說要時常翻閱。圖316鏈接數(shù)據(jù)庫軸零件圖樣體現(xiàn)了設(shè)計(jì)要求和質(zhì)量要求，是加工制造、檢驗(yàn)、安裝及生產(chǎn)質(zhì)量管理的重要技術(shù)文件。圖315引用選項(xiàng)““，實(shí)現(xiàn)Access數(shù)據(jù)庫的自動識別。本系統(tǒng)中采用ADO控件連接Access數(shù)據(jù)庫。同傳統(tǒng)的數(shù)據(jù)對象層次不同。OEL DB是一個低層的數(shù)據(jù)訪問接口，用它可以訪問各種數(shù)據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫。查詢鍵寬、鍵槽深度尺寸及其偏差數(shù)據(jù)庫如圖314所示：圖314數(shù)據(jù)庫 ActiveX Data Objects()是微軟公司最新的數(shù)據(jù)訪問技術(shù)。數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。，.。對稱度的公差等級按GB/T11841996《形狀和位置公差》中的7 —9級選取。其中軸槽的公差、偏差數(shù)值從GB/。平鍵連接中，鍵是標(biāo)準(zhǔn)件，鍵與鍵槽的配合為基軸制，鍵寬只有一種公差帶h8。鍵的類型有平鍵、半圓鍵、楔鍵、切向鍵等多種，其中以平鍵用的最多，本文只討論平鍵的連接。（2）與鍵連接處鍵槽的精度設(shè)計(jì)鍵連接常用于齒輪、皮帶輪、聯(lián)軸器等軸上零件與軸的連接，以傳遞轉(zhuǎn)矩，并可作導(dǎo)向用。軸徑表面圓柱度、軸肩端面圓跳動按《互換性與測量技術(shù)》表79選取。國家標(biāo)準(zhǔn)對軸承負(fù)荷的大小按徑向當(dāng)量動載荷Pr與徑向額定動載荷Cr比值分為輕負(fù)荷、正常負(fù)荷、重負(fù)荷。軸承配合的選擇應(yīng)綜合考慮作用在軸承上的負(fù)荷的類型、大??；軸承的類型和尺寸；軸和殼體孔的材料、結(jié)構(gòu)、工作環(huán)境、裝配要求等因素。(1) 與滾動軸承配合處的精度設(shè)計(jì)滾動軸承的配合是指成套軸承的內(nèi)圈與軸頸、外圈與殼體孔的尺寸配合。根據(jù)軸的結(jié)構(gòu)設(shè)計(jì)的結(jié)果，可以進(jìn)行精度設(shè)計(jì)。與重要零件(如齒輪)配合處，應(yīng)按齒輪的精度確定軸的精度。零件間不同的配合性質(zhì)，也將導(dǎo)致不同的形位公差、尺寸公差和表面粗糙度的要求。不同的工作性能，遵守不同的原則。這三方面的內(nèi)容并不是孤立的，而是相互關(guān)聯(lián)的。精度設(shè)計(jì)的原則是在保證產(chǎn)品性能優(yōu)良的前提下 盡可能使產(chǎn)品的制造成本低，經(jīng)濟(jì)效益好。對應(yīng)代碼編寫：Imports pfclsImports 【鏈接Pro/E 】按鈕程序代碼：Dim cac As CCpfcAsyncConnection cac = New CCpfcAsyncConnection asyncConnection = (d:\ptc\\bin\, .) Dim proeId As IpfcAsyncConnection proeId = (New CCpfcAsyncConnection).Connect(Nothing, Nothing, Nothing, Nothing) = True【打開模型】按鈕程序代碼： descModel As IpfcModelDescriptor Dim options As IpfcRetrieveModelOptions Dim session As IpfcBaseSession Dim currentws As Object session = options = (New CCpfcRetrieveModelOptions).Create = False (G:\畢業(yè)設(shè)計(jì)黃登春) descModel = (New CCpfcModelDescriptor).Create(, Nothing, Nothing) = G:\畢業(yè)設(shè)計(jì)黃登春\ model = (descModel, options) (model) currentws = () () = True如圖313所示:圖313模型【更新模型】按鈕程序代碼：Dim run As Parameter Dim paramTable As DataTable Dim i As Integer model = run = New Parameter() paramTable = () For i = 0 To 1 With (i) If .Item(name) = L1 Then .Item(value) = End If If .Item(name) = L2 Then .Item(value) = End If If .Item(name) = B Then .Item(value) = End If If .Item(name) = L3 Then .Item(value) = End If If .Item(name) = L4 Then .Item(value) = End If If .Item(name) = L5 Then .Item(value) = End If If .Item(name) = C Then .Item(value) = End If If .Item(name) = A1 Then .Item(value) = End If If .Item(name) = A2 Then .Item(value) = End If If .Item(name) = DⅠ Then .Item(value) = End If If .Item(name) = DⅡ Then .Item(value) = End If If .Item(name) = DⅢ Then .Item(value) = End If If .Item(name) = DⅣ Then .Item(value) = End If If .Item(name) = B1 Then .Item(value) = End If If .Item(name) = H1 Then .Item(value) = End If If .Item(name) = T1 Then .Item(value) = End If If .Item(name) = B2 Then .Item(value) = End If If .Item(name) = H2 Then .Item(value) = End If If .Item(name) = T2 Then .Item(value) = End If End With Next (, paramTable, False) (Nothing) = True【精度設(shè)計(jì)】按鈕程序代碼：Private Sub Button3_Click_1(ByVal sender As , ByVal e As ) Handles () () d1 = Val() d2 = Val() d4 = Val() End Sub精度設(shè)計(jì)是否合理，將直接影響機(jī)械產(chǎn)品的質(zhì)量、使用壽命及經(jīng)濟(jì)效益。VB API