逐点插补第二象限插补程序.docVIP

第二象限插补Dim k As Integer 总步数Dim x1 As Integer 终点横坐标Dim y1 As Integer 终点纵坐标Dim f As Integer 偏差Dim x2 As Integer 动点横坐标Dim y2 As Integer 动点纵坐标Dim lidu As Integer 加工精度Dim result As IntegerPrivate Sub Command1_Click() 绘制需要插补的直线，并且开始插补x1 = Abs(Val(Text1.Text))y1 = Val(Text2.Text)lidu = Val(Text3.Text)k = Abs(x1) + y1f = 0x2 = 0y2 = 0Picture1.Line (100, 100)-(100 - x1, 100 - y1)Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() 重绘坐标轴draw_xyEnd SubPrivate Sub Command4_Click() 各轴回到原点result = get_status(0, 1, value)If value = 0 Then result = symmetry_absolute_move(0, 1, 0, 1000, 2000, 0.1)result = get_status(0, 2, value)If value = 0 Then result = symmetry_absolute_move(0, 2, 0, 1000, 2000, 0.1)End SubPrivate Sub Form_Load()result = adt8940a1_initialdraw_xyTimer1.Enabled = FalseEnd SubPrivate Sub chabu(f As Integer, x As Integer, y As Integer) 插补函数If f = 0 Then 偏差大于等于0时,x向进给x = x - liduf = f - y1Do 循环判断运动卡状态result = get_status(0, 1, value) 获取状态If value = 0 Then 当运动卡状态为驱动结束时,value值为0,这时可以再次驱动result = symmetry_relative_move(0, 1, -lidu * 10, 1000, 2000, 0.1) x轴运动Picture1.Line (x + lidu + 100, 100 - y)-(x + 100, 100 - y) x轴绘制End IfLoop Until value = 0Else 偏差小于0时,y向进给y = y + liduf = f + x1Doresult = get_status(0, 2, value)If value = 0 Thenresult = symmetry_relative_move(0, 2, lidu * 10, 1000, 2000, 0.1)Picture1.Line (x + 100, 100 - (y - lidu))-(x + 100, 100 - y)End IfLoop Until value = 0End IfEnd SubPrivate Sub Timer1_Timer() 当k0时计时器开始调用插补函数If k 0 Thenk = k