机床数控课程设计.docVIP

一、 课设任务 用DDA法插补第二象限直线。 用逐点比较法插补第三到第二象限顺圆弧。 二、课设要求 1、具有数据输入界面，有起点、终点、半径及插补步长等； 2、具有单步插补过程的动态显示功能； 3、插补的步长可调； 三、编程语言 Visual Basic 四、功能说明 本程序用逐点比较法插补第二象限的直线，及第三二象限的顺圆弧，可进行连续插补或单步插补。 1、直线插补：用逐点比较法实现第二象限任意直线的插补，需要输入起点、终点坐标及步长。 2、圆弧插补：用逐点比较法实现第三二象限的顺圆弧段的插补，需要输入起点、终点坐标、半径和步长。 3、插补步长可调。 4、可以单步执行所有插补动作，单击一次按钮执行一次插补。 五、程序内容 DDA法插补第二象限直线 1、源程序： Dim A, B, C, D, E, F, G, I, J, E, F As Single **************连续直线插补************** Private Sub Command1_Click() If (-C + A) (D - B) Then F = -C + A Else: F = D - B G = 1 Do While (2 ^ G) = F G = G + 1 Loop For H = 0 To (2 ^ G) Step 1 I = I + (-C + A) x1 = x2 If (I / (2 ^ G)) = E Then I = I - E * (2 ^ G): x2 = x2 - E J = J + (D - B) y1 = y2 If (J / (2 ^ G)) = E Then J = J - E * (2 ^ G): y2 = y2 - E Picture1.Line (x2 * Text6.Text, y2 * Text6.Text)-(x1 * Text6.Text, y1 * Text6.Text), vbGreen Next H Picture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRed End Sub ****************单步直线插补************* Private Sub Command2_Click() If (-C + A) (D - B) Then F = -C + A Else: F = D - B G = 1 Do While (2 ^ G) = F G = G + 1 Picture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRed Loop I = I + (-C + A) J = J + (D - B) If (I / (2 ^ G)) = E And (J / (2 ^ G)) = E Then Picture1.Line ((x2 - E) * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreen I = I - E * (2 ^ G) J = J - E * (2 ^ G) x2 = x2 - E y2 = y2 - E ElseIf (I / (2 ^ G)) = E And (J / (2 ^ G)) E Then Picture1.Line ((x2 - E) * Text6.Text, y2 * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreen I = I - E * (2 ^ G) x2 = x2 - E ElseIf (I / (2 ^ G)) E And (J / (2 ^ G)) = E Then Picture1.Line (x2 * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreen J = J - E * (2 ^ G) y2 = y2 - E End If End Sub 3. DDA法插补第二象限直线的流程图： 逐点比较法插补第三到第二象限顺圆弧 源程序： Dim X0, Y0, CXY, CD, CX1, CY1, CX2, CY2, CX11, CY11, CX22, CY22, ci, R, a1, b1, c1, d1, e1, x1