【正文】 2) DT0(i).Y2 = DT0(i).Visible = True (x0, y0)(偏距圓 XY(i * j, 1), 偏距圓 XY(i * j, 2)), amp。HFFFF00 (x0, y0)(偏距圓 XY(δ 0 + δ 1, 1), 偏距圓 XY(δ 0 + δ 1, 2)), amp。HFFFF00 = 1 (x0, y0)(偏距圓 XY(0, 1), 偏距圓 XY(0, 2)), amp。HFFamp。 Next = True: = True = True = True = True = True = True = True = True = True = True 39。 (XY(i, 1), XY(i, 2)), amp。HFFamp。 39。畫基圓 = 1 (x0, y0), r0, amp。畫坐標(biāo)軸 = PointXY(0, 2): = PointXY(0, 2) = PointXY(0, 2): = PointXY(0, 2) + 200 39。HFFFFamp。 = 1 End If Forth_step End Sub Public Sub First0_step() Dim i As Integer 39。 Third_Step End Sub Private Sub Command4_Click() If r1 = 0 Then = ,得凸輪輪廓。 First_Step End Sub Private Sub Command2_Click() Dim i As Integer = ,畫等分線與偏距圓交點(diǎn)的切線，與基圓相交。 Next End Sub Private Sub Command_Click() = 、基圓和偏距圓 ,并標(biāo)明各運(yùn)動(dòng)角。HFFFFC0 Next = 3 (FactPXY(0, 1), FactPXY(0, 2)) For i = 1 To 360 Step 1 (FactPXY(i, 1), FactPXY(i, 2)), amp。lin凸輪 DT2(i).Visible = True Next i End Sub Public Sub Third_Step() = True End Sub Public Sub Forth_step() = False = False .Enabled = False = False .Enabled = False .Enabled = False = True End Sub Frm 偏置設(shè)計(jì)的代碼： Option Explicit Private Sub cmdSixth_Click() Dim i As Integer = ，以滾子半徑為半徑作圓 ,所得包絡(luò)線為凸輪實(shí)際輪廓曲線。HFF00FF End Sub Public Sub Second_Step() Dim j As Integer Dim i As Integer For i = 1 To i等分 DT0 Load DT0(i) Load DT0(i) Load DT0(i) Next For i = 1 To i等分 DT2 Load DT2(i) Load DT2(i) Load DT2(i) Next j = δ 0 / i等分 DT0 For i = 1 To i等分 DT0 DT0(i).X1 = XY(i * j, 1) DT0(i).X2 = XY(i * j, 1) DT0(i).Y1 = XY(i * j, 2) DT0(i).Y2 = DT0(i).Visible = True DT0(i).X1 = 基圓 XY(i * j, 1) DT0(i).X2 = 偏距圓 XY(i * j, 1) DT0(i).Y1 = 基圓 XY(i * j, 2) DT0(i).Y2 = 偏距圓 XY(i * j, 2) DT0(i).Visible = True DT0(i).X1 = PointXY(i * j, 1) DT0(i).X2 = 基圓 XY(i * j, 1) DT0(i).Y1 = PointXY(i * j, 2) DT0(i).Y2 = 基圓 XY(i * j, 2) 39。HFF00FF (x0, y0)(PointXY(δ0 + δ1, 1), PointXY(δ0 + δ1, 2)), amp。 End Sub Public Sub First_Step() (x0, y0)(PointXY(0, 1), PointXY(0, 2)), amp。畫偏距圓 = 1 (x0, y0), e, amp。HFFamp。 39。位移線圖 = 3 For i = 1 To 360 If i = 1 Then (O(1), O(2)), amp。HFFamp。O(1) = : O(2) = = O(2) 10 = O(2) + 30 39。 39。畫回轉(zhuǎn)中心 x0 = 230: y0 = 300 (x0, y0), 10, amp。 = 3 Else = ,得凸輪理論輪廓曲線。 If i等分 DT0 0 Then For i = 1 To i等分 DT0 Unload DT0(i) Unload DT0(i) Unload DT0(i) Next End If If i等分 DT2 0 Then For i = 1 To i等分 DT2 Unload DT2(i) Unload DT2(i) Unload DT2(i) Next End If frm等分 .Show vbModal If i等分 DT0 * i等分 DT2 = 0 Then Exit Sub Second_Step End Sub Private Sub Command3_Click() = ，延長線段長度與位移線圖對(duì)應(yīng)等分線段長度相等。 Next End Sub Private Sub cmdSixth_Click() Unload Me End Sub Private Sub Command_Click() = ,并標(biāo)明各運(yùn)動(dòng)角。If i = 0 Then (FactPXY(i, 1), FactPXY(i, 2)), amp。 = 1 For i = 0 To 360 Step 10 (PointXY(i, 1), PointXY(i, 2)), r1, amp。 七、界面設(shè)計(jì)： 說到程序當(dāng)然要考慮兩個(gè)方面的因素，第一就是代碼，第二就是界面，我們力求界面友好，程序清晰客觀。 VB 綜合運(yùn)用了 Basic 語言和可視化設(shè)計(jì)工具，巧妙地將 Windows 應(yīng)用程序編程的復(fù)雜 性封裝起來，既沒有犧牲 Windows 應(yīng)用程序的特點(diǎn)，又提供了編程的簡易性。 VB 采用了可視化的程序設(shè)計(jì)方法，利用系統(tǒng)提供的大量可視化控件，可以直接繪制用 戶圖形界面，并可直觀、動(dòng)態(tài)地調(diào)整界面，不必再用大量程序代碼來描述界面元素的外觀 和位置，從而克服了傳統(tǒng)編輯模式，提高了編程效率。 傳統(tǒng)的程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過 程中看不到界 面的實(shí)際效果，只有在運(yùn)行程序時(shí)才能觀察到。 B 點(diǎn)在坐標(biāo)系中的表達(dá)式為： 六、 VB 簡介： Visual Basic（簡稱 VB）是面向?qū)ο罂梢暬某绦蛟O(shè)計(jì)語言，具有良好的交互式界面。設(shè)對(duì)應(yīng)此過程滾子中心按已知的運(yùn)動(dòng)規(guī)律產(chǎn)生的位移為 s=s。（ 1） 理論廓線方程過凸輪的回轉(zhuǎn)中心 O 建立直角坐標(biāo)系 XOY,如圖 29 所示，設(shè)推程開始時(shí)從動(dòng)件滾子中心處于 B0 點(diǎn)， B0 即為凸輪理論廓線的起始點(diǎn)。 用解析法設(shè)計(jì)一直動(dòng)滾子從動(dòng)件盤形凸輪機(jī)構(gòu)。尤其是近年來隨著計(jì)算機(jī)與數(shù)控加工技術(shù)的發(fā)展，解析法在凸輪廓線的設(shè)計(jì)中已得到了廣泛的應(yīng)用。 五、解析法： 用作圖法設(shè)計(jì)凸輪廓線，概念清晰，簡便易行；但誤差大，效率低。推桿在推程或回程中 移 動(dòng) 的 距 離 h 稱 為 推 桿 的 行 程 。最后，當(dāng)推桿與凸輪廓線 DA 段接觸時(shí)，由于 DA 段為以凸輪軸心 O 為圓心的圓弧，所以推桿將在最低位置靜止不動(dòng)，此一過程稱為近休，相應(yīng) 的凸輪轉(zhuǎn)角 02 ? 稱為近休止角。凸輪繼續(xù)轉(zhuǎn)動(dòng)，推桿與凸輪廓線的 BC 段接觸，由于 BC 段為以凸輪軸心 O 為圓心的圓弧，所以推桿將處于最高位置而靜止不動(dòng)，此一過程稱為遠(yuǎn)休，與之相應(yīng)的凸輪轉(zhuǎn)角 01 ? 稱為遠(yuǎn)休止角。凸輪與推桿在點(diǎn) A 接觸時(shí)，推桿處于最低位置。圖中，以凸輪的回轉(zhuǎn)軸心 O 為圓心，以凸輪的最小半徑 0 r 為半徑所作的圓稱為基圓， 0 r 稱為基圓半徑。如果這方面 再不下大力氣，我國的凸輪機(jī)構(gòu)的研究水平還將長期落后于世界先進(jìn)水平。在凸輪機(jī)構(gòu)制造方面，與發(fā)達(dá)國家相比，還有一定的差距。因此，凸輪 機(jī)構(gòu)在生產(chǎn)中具有無可替代的優(yōu)越性，尤其在高速度、 高精度傳動(dòng)與分度機(jī)構(gòu)及引導(dǎo)機(jī)構(gòu) 中，更有突出的優(yōu)點(diǎn)。 為了提高產(chǎn)品的質(zhì)量和生產(chǎn)率，對(duì)機(jī)械設(shè)備的性能指標(biāo)提出更高的要求，就凸輪機(jī)構(gòu)而言， 必須進(jìn)一步提高其設(shè)計(jì)水平，在解析法的基礎(chǔ)上開展計(jì)算機(jī)輔助設(shè)計(jì)的研究和推廣應(yīng)用。然后，在 Visual Basic 軟件中，對(duì)凸輪機(jī)構(gòu)參數(shù)設(shè)計(jì)進(jìn)行編程，通過 VB 編程畫出凸輪機(jī)構(gòu)的位移曲線、速度曲線、加 速度曲線及凸輪輪廓曲線，并將 VB 源程序打包成可執(zhí)行程序。本文通過凸輪機(jī)構(gòu)運(yùn)動(dòng)參數(shù)理論計(jì)算，建立凸輪機(jī)構(gòu)數(shù)學(xué)模型，利用 Visual Basic 實(shí) 現(xiàn)面向?qū)ο蠡木幊獭? 課程設(shè)計(jì)報(bào)告 課程設(shè)計(jì)題目：計(jì)算機(jī)輔助設(shè)計(jì)基于 Visual 設(shè)計(jì)凸輪輪廓曲線 學(xué)生姓名 ：席翔 專 業(yè)：機(jī)械工程及其自動(dòng)化 班 級(jí) ：機(jī)械 1101班 指導(dǎo)教師 ：劉衍平 2020年 07 月 0 1 日 計(jì)算機(jī)輔助設(shè)計(jì) VB 設(shè)計(jì)凸輪輪廓曲