直线圆弧插补程序
直线插补
Private Sub Command1_Click()
Command1.Enabled = False
Line (x(0), y(0))-(xa, ya)
f(0) = 0
For i = 0 To n - 1
If (xa >= 0) And (ya >= 0) Then
If f(i) >= 0 Then
For j = x(i) To x(i) + 1 Step 0.0001
PSet (j, y(i)), 255
Next j
x(i + 1) = x(i) + 1
y(i + 1) = y(i)
f(i + 1) = f(i) - ya
Else
For j = y(i) To y(i) + 1 Step 0.0001
PSet (x(i), j), 255
Next j
y(i + 1) = y(i) + 1
x(i + 1) = x(i)
f(i + 1) = f(i) + xa
End If
End If
If (xa > 0) And (ya < 0) Then
If f(i) >= 0 Then
For j = x(i) To x(i) + 1 Step 0.0001
PSet (j, y(i)), 255
Next j
x(i + 1) = x(i) + 1
y(i + 1) = y(i)
f(i + 1) = f(i) + ya
Else
For j = y(i) To y(i) - 1 Step -0.0001
PSet (x(i), j), 255
Next j
y(i + 1) = y(i) - 1
x(i + 1) = x(i)
f(i + 1) = f(i) + xa
End If
End If
If (xa < 0) And (ya > 0) Then
If f(i) >= 0 Then
For j = x(i) To x(i) - 1 Step -0.0001
PSet (j, y(i)), 255
你可能喜欢
- 直线插补算法
- 数控插补原理
- 数控机床原理
- 三菱PLC
- CA6140车床
- 数控编程代码大全
- DDA直线插补算法在单片机上的实现基于C4页
- 多坐标轴广义直线插补的简易算法5页
- C语言实现开环数控系统逐点法直线插补算法介绍3页
- 一种新的直线逐点比较法插补算法2页
- 直线圆的各种插补算法68页
- 基于最小偏差三维直线插补算法的精度分析2页
- 数控机床插补原理94页
- 第3章数控系统的插补原理与刀具补偿原理163页
- 数控加工空间直线插补原理5页
- 数控技术-数控插补原理46页
- 数控机床的插补原理3页
- 数控插补原理与伺服控制实验指导书2页
- 数控机床的组成及工作原理3页
- 数控机床与数控原理试题库(1)33页
- 数控机床插补原理94页
- 《§1-3数控机床的组成及工作原理》课件22页
- 数控机床的组成及工作原理5页
- 数控机床基准点的故障原理分析与排除2页
- 饲料生产线的三菱PLC和三菱变频器的改造11页
- 三菱PLC教育训练基础篇.PPT10页
- 2011-学习资料大全：三菱PLC编程实例16页
- 三菱PLC入门之二17页
- 三菱PLC编程手册[1]76页
- 三菱PLC的难点和重点4页
- CA6140车床电气控制改造PLC控制33页
- CA6140车床拨叉课程设计说明书26页
- 课程设计CA6140车床拨叉831002的加工工艺及钻φ25孔的钻床夹具设计48页
- CA6140车床刀架体17页
- CA6140车床套设计24页
- 毕业设计 CA6140车床拨叉机械加工工艺2页
- 数控车床编程与操作指令代码大全6页
- 数控编程代码大全31页
- 天乐网-现代数控编程代码整合大全34页
- 数控编程代码大全12页
- 数控编程G代码大全6页
- 数控编程G代码大全3页
