【正文】 懇請(qǐng)閱讀此篇論文的老師、同學(xué)，多予指正，不勝感激！ 感謝各位專家的批評(píng)指導(dǎo)。最后要感謝我的家人以及我的朋友們對(duì)我的理解、支持、鼓勵(lì)和幫助，正是因?yàn)橛辛怂麄?，我所做的一切才更有意義；也正是因?yàn)橛辛怂麄?，我才有了追求進(jìn)步的勇氣和信心。沒有高老師的辛勤栽培、孜孜教誨，就沒有我論文的順利完成。在此，我特別要感謝我的導(dǎo)師高老師。這除了自身努力外，與各位老師、同學(xué)和朋友的關(guān)心、支持和鼓勵(lì)是分不開的 論文的寫作是枯燥艱辛而又富有挑戰(zhàn)的。回首既往，自己一生最寶貴的時(shí)光能于這樣的校園之中，能在眾多學(xué)富五車、才華橫溢的老師們的熏陶下度過，實(shí)是榮幸之極。本 文 按照結(jié)構(gòu)化生命周期法對(duì) 閥的規(guī)劃、閥的分析、閥的 設(shè)計(jì)等方面進(jìn)行了全面 的分析和研究，得到了閥的功能模型和數(shù)據(jù)模型，通 Visual Basic編程代碼實(shí)現(xiàn)預(yù)計(jì)的功能和目標(biāo)，并且建立了美觀大方，便捷實(shí)用的交互式界面。 \DV節(jié)流截止閥和單向節(jié)流截止閥 .jpg) List1_Click End Select End Sub Private Sub MSFlexGrid1_SelChange() 41 Dim aaa As String = 1: B = = 2: D1 = = 3: D2 = = 4: D3 = = 5: D4 = = 6: H1 = = 7: H2 = = 8: H3 = = 9: L1 = = 10: L2 = = 11: h = = 12: s = = 13: p = = 14: c = = 15: d = = 16: D5 = = 17: l = = 18: H4 = = 19: p1 = 42 = 20: c1 = = 21: s1 = = 2 End Sub Private Sub MSFlexGrid2_SelChange() Dim i As Integer = 1: guige = = 2: jiekuochiuchun = = 3: lianjieluowen = End Sub Private Sub Command2_Click() Unload Form1 End Sub 這樣才能在 SolidWorks 下編譯執(zhí)行。 \ = 表 1 = amp。展開節(jié)點(diǎn) (i).Expanded = True Case 2 (i).Expanded = True 6 8 10 40 12 16 20 25 30 40 = 6 39。(2) = 800 End Sub Private Sub List1_Click() 36 Select Case Case 6 = 6 = 1 MSFlexGrid1_SelChange = 1 = 1 MSFlexGrid2_SelChange Case 8 = 8 39。初始加列表框 6 8 10 12 16 20 25 30 40 = 6 39。 \ = 表 2 = LoadPicture( amp。初始化數(shù)據(jù)庫(kù) = amp。設(shè)置零件的尺寸 (D1草圖 1).SystemValue = B / 1000 (D2草圖 5).SystemValue = D1 / 1000 (D8草圖 5).SystemValue = D2 / 1000 (D1草圖 12).SystemValue = D3 / 1000 (D1基準(zhǔn)面 2).SystemValue = H3 / 1000 (D1基準(zhǔn)面 1).SystemValue = H2 / 1000 (D2拉伸 1).SystemValue = L1 / 1000 (D5草圖 5).SystemValue = l / 1000 33 (D1拉伸 1).SystemValue = (L2 L1) / 1000 (D7草圖 5).SystemValue = h / 1000 (D4草圖 5).SystemValue = H4 / 1000 (D1草圖 5).SystemValue = D5 / 1000 (D9草圖 5).SystemValue = d / 1000 (D3螺旋線 /渦狀線 2).SystemValue = p * s (D5螺旋線 /渦狀線 2).SystemValue = s (D4螺旋線 /渦狀線 2).SystemValue = p / 1000 (D1草圖 14).SystemValue = c / 1000 (D4螺旋線 /渦狀線 1).SystemValue = p1 / 1000 (D2草圖 7).SystemValue = c1 / 1000 (D3螺旋線 /渦狀線 1).SystemValue = p1 * s1 (D5螺旋線 /渦狀線 1).SystemValue = s1 *等軸測(cè) , 7 End Sub 34 Private Sub Form_Load() 39。 程序代碼如下： Dim swApp As Object Dim Part As Object 31 Dim B As Double Dim H2 As Double Dim D1 As Double Dim D2 As Double Dim D3 As Double Dim D4 As Double Dim H3 As Double Dim L1 As Double Dim L2 As Double Dim h As Double Dim H1 As Double Dim s As Double Dim p As Double Dim c As Double Dim d As Double Dim D5 As Double Dim l As Double Dim H4 As Double Dim c1 As Double Dim p1 As Double Dim s1 As Double 32 Dim Daihao As String Dim Danzhong As String Dim Mingcheng As String Dim Beizhu As String Private Sub Command1_Click() Set swApp = CreateObject() (True) Set Part = ( amp。但是 SolidWorks對(duì) VB 程序的格式有一定的要求，我們可以通過不同的方法來運(yùn)行 Visual Basic應(yīng)用程序，例如 可以不用編譯直接在 SolidWorks中運(yùn)行（用 Basic開發(fā)的程序把后綴替換為 .swp，這類程序通常是只用來調(diào)用 SolidWorks API函數(shù)庫(kù)）、當(dāng)作一個(gè)獨(dú)立的 .exe 文件（可執(zhí)行文件）來運(yùn)行以及在其它應(yīng)用程序 (如 Excel)中運(yùn)行等等。 29 圖 5 系統(tǒng)開發(fā)設(shè)計(jì)框架圖 分析結(jié)構(gòu)特征，建立 DV 節(jié)流截止閥和單向節(jié)流截止閥 體模型 DV 節(jié)流截止閥和單向節(jié)流截止閥 的二維圖 如圖 2所示 ： Solidworks 二次開發(fā)應(yīng)用程序 Solidworks Visual Basic 數(shù)據(jù)庫(kù) ActiveX Automation 通訊標(biāo)準(zhǔn) 30 圖 6 DV 節(jié)流截止閥和單向節(jié)流截止閥的二維圖 用ＶＢ開發(fā)人機(jī)交互界面及運(yùn)行結(jié)果 對(duì)話框是一種方便、實(shí)用的人機(jī)交互界面，在 CAD 軟件中使用十分廣泛。本設(shè)計(jì)用 Access 建立了 DC 型平衡閥標(biāo)準(zhǔn)件的參數(shù)數(shù)據(jù)庫(kù) , 用 VB 編程實(shí)現(xiàn) SolidWorks 下標(biāo)準(zhǔn)件三維實(shí)體圖形的生成。其基本思路是在 SolidWorks 環(huán)境中 , 任意選定某一型號(hào)的標(biāo)準(zhǔn)件 , 按照正確的設(shè)計(jì)關(guān)系繪制標(biāo)準(zhǔn)件的模型 ,當(dāng)需要生成另一規(guī)格的標(biāo)準(zhǔn)件時(shí) , 可根據(jù)用戶給定的相關(guān)約 束變量參數(shù)值 , 對(duì)已定義好的標(biāo)準(zhǔn)模型的相應(yīng)約束關(guān)系進(jìn)行修改與求解 , 使其幾何元素和特征的幾何或拓?fù)潢P(guān)系發(fā)生改變 , 并引起相關(guān)圖形元素及關(guān)系的聯(lián)動(dòng) , 生成所需零件 , 即零件設(shè)計(jì)采用尺寸驅(qū)動(dòng)方式進(jìn)行設(shè)計(jì)。這樣可以大大簡(jiǎn)化設(shè)計(jì)工作，提高設(shè)計(jì)效率。 28 工程設(shè)計(jì)時(shí)，設(shè)計(jì)人員經(jīng)常要選用標(biāo)準(zhǔn)化、系列化的液壓閥，這些液壓閥將在設(shè)計(jì)時(shí)，反復(fù)地在裝配體的不同位置被選用，而且規(guī)格大小不同。另外，還引入了 DHTML應(yīng)用，以擴(kuò)展和簡(jiǎn)化DHTML的編程。 (6)Inter的開發(fā)： Visual Basic Inter的開發(fā)比重。 (5)數(shù)據(jù)庫(kù)功能的增強(qiáng)：它除了增強(qiáng) Web數(shù)據(jù)庫(kù)的功能之外，還增強(qiáng)了諸如 SQL服務(wù)器的連接、提供數(shù)據(jù)庫(kù)管理環(huán)境、數(shù)據(jù)庫(kù)控件的開發(fā)等等，并且除了改進(jìn)原有的數(shù)據(jù)庫(kù)控件之外，還提供了新的數(shù)據(jù)庫(kù)控件 ADODC。Imagelist控件所支持的圖形格式更多，而且其他的控件如 ImageView和TabStrip控件也可以使用圖形或者圖標(biāo)來裝飾和描述，大大的增強(qiáng)了開發(fā)出的程序的美觀程度和直觀性。這個(gè)功能使得程序設(shè)計(jì)人員可以不必為界面控件不確定因素而預(yù)先在窗口中添加控件或者控件數(shù)組。 Visual Basic ： (1)新的 ActiveX控件： Visual Basic ActiveX控件， 其中有工具條控件 Cool bar、圖形列表控件 ImageCombo、日期控件MothView和 DateTimePicker、滾動(dòng)條控件 FlatScrollBar等。 Visual Basic Visual Basic Visual Basic ，其中改進(jìn)的重點(diǎn)在數(shù)據(jù)庫(kù)概念的增加和 Web網(wǎng)頁(yè)的制作。 Visual Basic不僅可以迅速有效的編制程序界面，而且支持與其他的開發(fā)語言的結(jié)合，例如 C等。但是 Visual Basic 而言，具有易用、通用和開發(fā)效率高的優(yōu)點(diǎn)。 本系統(tǒng)開發(fā)使用到的 Visual Basic 1998年微軟公司推出的Visual Studio 98的一個(gè)組件。 26 經(jīng)過 了近 30年的發(fā)展， Visual Basic已經(jīng)相繼推出了多個(gè)版本，產(chǎn)品的功能日趨完善的強(qiáng)大，從 1991年首次正式推出 Visual Basic ，到 1998年推出極為成熟和完善的 Visual Basic ，以及近期的 Visual Basic 20xx． 。直到上世紀(jì) 80年代，被譽(yù)為“ Visual Basic之父”的 Alan Cooper在其基礎(chǔ)之上成功地實(shí)現(xiàn)了 Windows開發(fā)工具的思想和理念，將 Basic的易學(xué)易用和可視化編程以及事件驅(qū)動(dòng)的原理結(jié)合起來，創(chuàng)建了 Visual Basic語言。它是一種非結(jié)構(gòu)化語言，易于理解和學(xué)習(xí)。它為程序設(shè)計(jì)人員提供了一整套的 Windows程序開發(fā)工具，能夠快速有效的建立具有 Windows風(fēng)格窗口的程序。 如圖所示為 : 圖 2 DV節(jié)流截止閥和單向節(jié)流截止閥系列的兩個(gè)數(shù)據(jù)庫(kù) 表 1如圖： 圖 3 數(shù)據(jù)庫(kù)中的尺寸表 表 2如圖： 25 圖 4 數(shù)據(jù)庫(kù)中的屬性表 第四章 Visual Basic Visual Basic Visual Basic Microsoft公司提供的一種