機(jī)床數(shù)控課設(shè)-插補(bǔ)原理及流程圖設(shè)計-展示頁
2025-06-15 17:46本頁面
【正文】 ount As Integer Dim x0, y0, x1, y1, L, xe, ye As Single Dim n As Integer If SHURUchang = 1 Then count = 0 SHURUchang = 0 End If count = count + 1 x0 = Val() y0 = Val() x1 = Val() y1 = Val() L = Val() 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) flag1 = 0 If xe = 0 Then 39。****************畫直線 (x0, y0)(x1, y1), RGB(0, 0, 255) End If End Sub Private Sub Command2_Click() 39。*********************** 3象限 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 ElseIf xe 0 And ye 0 Then 39。*********************** 1象限 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 ElseIf xe 0 And ye 0 Then 39。*************X正向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n i1 = i + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a ElseIf xe 0 Then 39。*************Ｙ負(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。*******Y軸 If 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。 x1 = Val() 39。 四：插補(bǔ)原理及流程圖設(shè)計： 逐點比較法直線插補(bǔ)原理圖： DDA 法圓弧插補(bǔ)原理： （同理在 14 象限） 2. 流程圖設(shè) 五： 變量說明 程序界面控件設(shè)置以及相關(guān)變量說明： 控件名 對應(yīng)變量 相關(guān)說明 寄存器位數(shù) Register 寄存器位數(shù) 半徑 Radius 圓弧半徑 步長 Steplength 步長 X X0 起點橫坐標(biāo) Y Y0 起 點縱坐標(biāo) X X1 終點橫坐標(biāo) Y Y1 終點縱坐標(biāo) 連續(xù)插補(bǔ) succession “連續(xù)插補(bǔ)” 單步插補(bǔ) step “單步插補(bǔ)” 直線 line 直線插補(bǔ)選擇 圓弧 circle 圓弧插補(bǔ)選擇 六．程序界面及運(yùn)行截圖 1. 直
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1