【正文】 Else: count = 0 End If ElseIf ye 0 Then 39。*******步長 If L = 0 Then L = 1 = L End If If L 0 Then L = Abs(L) = L End If xe = x1 x0 ye = y1 y0 n = CInt(Abs(xe) / L) + CInt(Abs(ye) / L) 39。 《機床數(shù)控技術》課程設計 說明書 班級 :0511105 學號 :0511105 姓名： 指導教師： 時間： 2021 年 1 月 地點：明故宮校區(qū)計算中心 目 錄 一、簡要說明 3 二、設計目的和 任 務 3 三、設計要求 3 四 .插補原理及流程圖設計 4 五 .變量說明 6 六．程序界面及運行截圖 6 七 . 源程序代碼 7 八參考文獻 18 一、簡要說明 插補 （ Interpolation） 在數(shù)控機床中，刀具不能嚴格地按照要求加工的曲線 運動，只能用折線軌跡逼近所要加工的曲線。*******終點 y1 = Val() L = Val() 39。***********Ｙ軸插補 If ye 0 Then 39。*****************************換算后的起點，終點坐標 qy = y0 b zx = x1 a zy = y1 b u = 1 If qx = 0 And qy 0 Then Call danbuddashun1(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx 0 And qy = 0 Then Call danbuddashun2(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx = 0 And qy 0 Then Call danbuddashun3(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx 0 And qy = 0 Then Call danbuddashun4(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) End If End Sub Private Sub danbuddashun1(ByVal qx, ByVal qy, ByVal zx, ByVal zy, ByVal r, ByVal L, a, b, ByVal n, u, count1, count2) i = qx 39。***********************４象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f = 0 Then i1 = i + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f Abs(ye) ElseIf f 0 Then j1 = j L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m End If If flag1 = 0 Then 39。 三、設計要求 （ 1） 具有數(shù)據(jù)輸入界面，如起點、終點、圓心、半徑及插補步長等； （ 2） 具有插補過程的動態(tài)顯示功能，如單步插補、連續(xù)插補； （ 3） 適當?shù)木幊陶Z言，詳細的程序設計流程圖，變量說明、源程序； （ 4） 插補的步長可調(diào)。 插補計算就是數(shù)控裝置根據(jù)輸入的基本數(shù)據(jù)，通過計算，把工件輪廓的形狀描述出來，邊計算邊根據(jù)計算結(jié)果向各 坐標發(fā)出進給脈沖，對應每個脈沖，機床在響應的坐標方向上移動一個脈沖當量的距離，從而將工件加工出所需要輪廓的形狀。*************Ｙ負向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j L (x0, j + y0)(x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a End If flag1 = 1 End If If ye = 0 Then 39。*************x負向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a = 1 To count i1 = i L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a Else: count = 0 End If End If fla