逐点比较法直线插补VB程序直线程序

Sub 偏差计算()

偏差 = Abs(x终点) × z动点 - x动点 × Abs(z终点)

End Sub

Sub 插补()

Dim c As Integer

Select Case 象限标志

Case 1: '第一象限插补

Do Until x动点 + z动点 >= 总步数

If 偏差 >= 0 Then

x动点 = x动点 + 1:

Line -Step(0, x步长), vbRed

Else

z动点 = z动点 + 1:

Line -Step(z步长, 0), vbRed

End If

偏差计算

Loop

Case 2: '第二象限插补

c = x终点: x终点= z终点: z终点= -c

c = x步长: x步长 = z步长: z步长 = -c

Do Until x动点 + z动点 >= 总步数

If 偏差 >= 0 Then

x动点 = x动点 + 1:

Line -Step(x步长, 0), vbRed

Else

z动点 = z动点 + 1:

Line -Step(0, z步长), vbRed

End If

偏差计算

Loop

Case 3: '第三象限插补

x步长 = -x步长: z步长 = -z步长

Do Until x动点 + z动点 >= 总步数

If 偏差 >= 0 Then

x动点 = x动点 + 1:

Line -Step(0, x步长), vbRed

Else

z动点 = z动点 + 1:

Line -Step(z步长, 0), vbRed

End If

偏差计算

Loop

Case 4: '第四象限插补

c = x终点: x终点= -z终点: z终点 = c

c = x步长: x步长 = -z步长: z步长 = c

Do Until x动点 + z动点 >= 总步数

If 偏差 >= 0 Then

x动点 = x动点 + 1: Line -Step(x步长, 0), vbRed

Else

z动点 = z动点 + 1: Line -Step(0, z步长), vbRed

End If

偏差计算

Loop

End Select

End Sub