逐点比较法直线插补VB程序直线程序
摘要:
逐点比较法直线插补VB程序直线程序根据该插补软件框图Sub 偏差计算() 偏差 = Abs(x终点) × z动点 - x动点 × Abs(z终点)End SubSub 插补()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 偏差计算 L 阅读全文
posted @ 2013-01-03 16:15 嵌入式运动控制器 阅读(901) 评论(0) 推荐(0) 编辑