機床數(shù)控課設-插補原理及流程圖設計-文庫吧
2025-05-14 17:46 本頁面
【正文】 55, 0, 0) i = i1 Next a ElseIf xe 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 End If flag1 = 1 End If If 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。*********************** 2象限 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。*********************** 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。***********************４象限 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。****************畫直線 (x0, y0)(x1, y1), RGB(0, 0, 255) End If End Sub Private Sub Command2_Click() 39。****************退出 End Sub Private Sub Command3_Click() 39。************逐點法單步插補 Static count 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() y
畢業(yè)設計相關推薦
鄂ICP備17016276號-1