机床数控课设

一、课设任务用 DDA 法插补第二象限直线。用逐点比较法插补第三到第二象限顺圆弧。二、课设要求1、具有数据输入界面，有起点、终点、半径与插补步长等；2、具有单步插补过程的动态显示功能；3、插补的步长可调；三、编程语言VisualBasic四、功能说明本程序用逐点比较法插补第二象限的直线，与第三二象限的顺圆弧，可进行连续插补或单步插补。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 - BG = 1Do While (2 ^ G) <= FG = G + 1LoopFor H = 0 To (2 ^ G) Step 1I = I + (-C + A)x1 = x2If (I / (2 ^ G)) >= E Then I = I - E * (2 ^ G): x2 = x2 - EJ = J + (D - B)y1 = y2If (J / (2 ^ G)) >= E Then J = J - E * (2 ^ G): y2 = y2 - EPicture1.Line (x2 * Text6.Text, y2 * Text6.Text)-(x1 * Text6.Text, y1 * Text6.Text), vbGreenNext HPicture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedEnd Sub****************单步直线插补*************Private Sub Command2_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 ^ G) <= FG = G + 1Picture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedLoopI = I + (-C + A)J = J + (D - B)If (I / (2 ^ G)) >= E And (J / (2 ^ G)) >= E ThenPicture1.Line ((x2 - E) * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenI = I - E * (2 ^ G)J = J - E * (2 ^ G)x2 = x2 - Ey2 = y2 - EElseIf (I / (2 ^ G)) >= E And (J / (2...