基于vb60的曲柄滑塊機(jī)構(gòu)的參數(shù)化設(shè)計(jì)與實(shí)現(xiàn)論文(參考版)
2024-11-14 03:24本頁(yè)面
【正文】 總之在整個(gè)設(shè)計(jì)過(guò)程中指導(dǎo)老師給予我了充分耐心的指導(dǎo)，在此我向指導(dǎo)老師以及曾幫助過(guò)我的劉永慶同學(xué)表示真誠(chéng)的感謝?。?！ 參考文獻(xiàn)： ［ 1］孫桓 .機(jī)械原理［ M］ .北京：高等教育出版社， 1996. ［ 2］王永樂(lè) .機(jī)械優(yōu)化設(shè)計(jì)基礎(chǔ)［ M］ .哈爾濱：黑龍江科學(xué)技術(shù)出版社 1987. ［ 3］ 婁建國(guó) .曲柄滑塊機(jī)構(gòu)中 K 值合理范圍的確定［ J］ .機(jī)械傳動(dòng)，2020(1):4142. ［ 4］韓繼光，等 .按行程速比系數(shù)設(shè)計(jì)曲柄滑塊機(jī)構(gòu)的解析法［ J］ .機(jī)械設(shè)計(jì) :2020(12):5556. ［ 5］ 鄒慧君，傅祥志等主編 . 機(jī)械原理〔 M〕 .高等教育出版社， 1999 ［ 6］ 申永勝 . 機(jī)械原理教程〔 M〕 .清華大學(xué)出版社， 1999. ［ 7］ 李建福 . 曲柄搖桿機(jī)構(gòu)極位夾角新定義及按 K值圖解設(shè)計(jì)方法的探討 [J]. 機(jī)械科學(xué)與技術(shù)， 2020， 6. ［ 8］ 謝新平 .機(jī)械優(yōu)化設(shè)計(jì) [J].江西省農(nóng)業(yè)機(jī)械研究所 ,1998； 70～ 110. ［ 9］ 胡自化 .基于 Visual Basic 開(kāi)發(fā)機(jī)械優(yōu)化設(shè)計(jì) CAI 系統(tǒng) [J].湘潭大學(xué)學(xué)報(bào) ,1999（ 5） ； 100～ 110. ［ 10］ 賈瑞芬 ,張翔 .優(yōu)化設(shè)計(jì)方法的發(fā)展與應(yīng)用情況 [J].福建農(nóng)林大學(xué) ,機(jī)電工程學(xué)院學(xué)報(bào) ,2020（ 2） ； 102～ 130. ［ 11］ 楊頂信 .機(jī)械優(yōu)化設(shè)計(jì)方法與評(píng)判指標(biāo) [J].山西晉城廣播電視大學(xué)學(xué)報(bào) ,2020（ 6）； 109～ 120. ［ 12］ 柳林林 ,孫炎 .機(jī)械工程中結(jié)構(gòu)形狀的優(yōu)化設(shè)計(jì) [J].哈爾濱制藥總廠 ,2020；310～ 330. ［ 13］ 陳立周 .機(jī)械設(shè)計(jì)優(yōu)化方法 [J].北京大學(xué)學(xué)報(bào) .1988（ 3） ； 370～ 390. ［ 14］ 周藹如 ,官士鴻 ,林偉建 .《 Visual Basic 程序設(shè)計(jì)》 [M].電子工業(yè)出版社 ,. ［ 15］ 柳林林 ,孫炎 .機(jī)械工程中結(jié)構(gòu)形狀的優(yōu)化設(shè)計(jì) [J].哈爾濱制藥總廠 ,2020；310～ 330. ［ 16］ 陳立周 .機(jī)械設(shè)計(jì)優(yōu)化方法 [J].北京大學(xué)學(xué)報(bào) .1988（ 3） ； 370～ 390. ［ 17］ 吳原生 .許和變 .形狀優(yōu)化設(shè)計(jì)算法的探討 [J].華北工學(xué)院專(zhuān)科學(xué)校學(xué)報(bào) ,1992（ 6） ； 210～ 230. 附程序代碼 ： Public l1 As Single, l2 As Single, e As Single Private Sub yhsj(k, h) Dim w As Single, r2 As Single, r3 As Single, rmin As Single, n As Single, x As Single, y As Single, z As Single n = 100 w = * (k 1) / (k + 1) For a = Tan(w / 2) To Step b = Sqr((1 2 * a * a * (1 + Cos(w))) / (2 * (1 Cos(w)))) c = (1 4 * a * a) / (2 * (1 Cos(w))) * Sin(w) z = c / (a + b) p0 = ( / 2) + Atn(z / Sqr(1 z * z)) y = (c a) / b If a c Then r2 = Atn((y) / Sqr(1 y * y)) 2 * Atn(1) Else r2 = Atn((y) / Sqr(1 y * y)) + 2 * Atn(1) End If x = (c a * Cos(p0 + w)) / b r3 = Atn(x) / Sqr(1 x * x) + 2 * Atn(1) If r2 r3 Then rmin = r3 Else rmin = r2 End If If 0 = w ( / 2) And b a c = 0 And rmin = ( * 40 / 180) Then If rmin n Then n = rmin l1 = a * h l2 = b * h e = c * h End If End If Next a End Sub Private Sub mand1_click() h = Val() k = Val() Call yhsj(k, h) = l1 = l2 = e End Sub Private Sub mand2_click() = = = = = End Sub Private Sub mand3_click() End End Sub 。 （ 6）提高了查閱中外資料和閱讀資料并查找有效信息的能力。 （ 4）加強(qiáng)了論文格式及排版的能力，以及抓圖工具的使用。 （ 2）鍛煉了用計(jì)算機(jī)語(yǔ)言 Visual Basic 軟件同機(jī)械設(shè)計(jì)過(guò)程有機(jī)結(jié)合的能力。點(diǎn)擊 Windows 操作平臺(tái)上的 VB 窗口上的優(yōu)化結(jié)果按鈕（圖 12） 得出優(yōu)化結(jié)果，從優(yōu)化結(jié)果的界面可以看出，通過(guò) VB 優(yōu)化的結(jié)果更節(jié)省材料和準(zhǔn)確。 圖 12 程序輸入?yún)?shù)界面 輸出步驟如下： ①輸入選擇參數(shù)如圖 12，根據(jù)給定的已知條件，通過(guò) VB 編程來(lái)對(duì)未知變量的確定； ② 建立目標(biāo)函數(shù)，對(duì)未知變量進(jìn)行約束； ③ 編寫(xiě)循環(huán)語(yǔ)句并調(diào)用進(jìn)程，來(lái)運(yùn)行程序； ④ 程序運(yùn)行結(jié)束，得出結(jié)果。由此設(shè)計(jì)的曲柄滑塊機(jī)構(gòu)的傳動(dòng)優(yōu)化設(shè)計(jì)程序運(yùn)行界面如圖 11 所示。 圖 10 工具欄窗口 用戶界面的設(shè)計(jì) 運(yùn)用最優(yōu)化方法建立數(shù)學(xué)模型 ,確立曲柄滑塊機(jī)構(gòu) 行程 速比系數(shù) K、滑塊行程H等之間的對(duì)應(yīng)關(guān)系 ,求出零件優(yōu)化結(jié)果。 圖 9菜單欄窗口 工具欄 工具欄上的圖標(biāo)，代表一些經(jīng)常使用的命令，單擊某圖標(biāo)，與單擊菜單命令或按下快捷鍵的效果一樣。單擊菜單欄 (如圖 9)上的菜單標(biāo)題，會(huì)下拉顯示各菜單項(xiàng)命令。 圖 7 代碼窗 口 【窗體布局】窗口 (如圖 8) 用鼠標(biāo)拖動(dòng)【窗體布局】窗口中的白色窗體，可以調(diào)整程序運(yùn)行時(shí)窗體在屏幕上的顯示位置。 圖 6【工程】窗口 代碼窗口 代碼窗口是書(shū)寫(xiě)源程序的地方，在代碼窗口 (如圖 7)的對(duì)象下拉列表框中選擇窗體或控件名．在過(guò)程下拉列表框中選擇該對(duì)象的事件名，代碼窗口將自動(dòng)出現(xiàn)該對(duì)象的事件過(guò)程的首尾兩行代碼，只需在中間輸入源程序即可。 圖 5 屬性窗口 【工程】窗口 【工程】窗口包含了創(chuàng)建的 VB工程文件，比如窗體 Form、模塊 Module。通過(guò)屬性窗口可以設(shè)置窗體、控件等對(duì)象的屬性值，這種方法稱為設(shè)計(jì)時(shí)改變對(duì)象的屬性值；若用程序代碼設(shè)置對(duì)象屬性，則稱為運(yùn)行時(shí)改變對(duì)象的屬性值 如圖 5。要將已添加進(jìn)工具
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1