王毅辉数控课设报告.doc

机床数控技术课程设计
姓名:王毅辉　
学号:０50６１０５25
指导老师:王宏涛
．1５
目录:
一:课程设计要求………………………………………………3
二:ＤDA直线插补……………………………………………4
ＤDＡ法直线插补流程图…………………………………４
ＤＤA法直线插补源程序…………………………………5
实现的情况……………………………………………… 9
三：逐点比较法圆弧插补………………………… …………１０
逐点比较法圆弧插补流程图……………………………1０
逐点比较法圆弧插补源程序……………………………１1
实现情况…………………………………………………20
四:总计与体会…………………………………　……………20
一:课程设计的要求:

-１象限顺圆弧。
,如起点、终点、圆心、半径及插补步长等
,如单步插补、连续插补
，直线的起点、圆弧圆心在坐标系中位置可调。
6建议用C语言编程 ,也可以使用VB、ＶC等语言编程。
二、DDＡ法直线插补
1、流程图
求num的值
起始并初始化
yi<=0
yi>0
ry有溢出
-y走一步
rx有溢出
N
Y
+x走一步
Y
num=num-1
num=0？
Y
ry有溢出
+y走一步
rx有溢出
N
Y
-x走一步
Y
num=num-1
num=0？
结束
Y
N
yi<=0
N
Y
N
2、源程序:
Ｐrivatｅ　Ｓub Comｍａnd１_Cliｃk(）
Ｏｎ Ｅｒror　ＧｏTo BUG
Dｉm　ｘs　As Ｄoｕbｌe, yｓ Ａs Ｄoｕbｌｅ, xe As Doubｌe， yｅ　Aｓ Doｕble, steｐ As Doｕble, x0 Aｓ　Doubｌe, y0 Ａs Ｄoｕｂle
Ｄim xi Ａｓ Douｂle, yi Ａｓ Ｄｏuble，
Dim vｘ　As　Doｕｂle, vy As Ｄoubｌe,　rｘ As Douｂｌe, ｒｙ　As　Douｂle， ｎｕm As　Doｕｂｌe
vx ＝ 0
ｖy = ０
rx = ０
ｒy ＝ ０
num =　０
xｓ　=
yｓ =　
ｘe ＝
ye ＝ Ｔext4．Text
step　=
ｘ０　= ｘｓ
ｙ0　=　ys
xｉ　=　ｘ０
ｙi ＝ y０
num =　Aｂs(xe - xｓ） / ｓtｅp +　Ａｂs(ｙｅ － ys) ／ sｔep
ｖx ＝ Ａｂｓ(ｘe - ｘｓ)
vy　＝ Ａｂs(yｅ -　yｓ）
　＝　ｘ0
= y０
Iｆ (xe >　ｘs) Ａｎd　(ye > ｙｓ）　Tｈｅn
Do Ｗhiｌe　(nuｍ ＞ 0)
rx　= rｘ + Aｂｓ(vx）
ｒｙ = rｙ ＋　Ａbs（vy)
If （rx　＞　256)　Tｈen
　ｘi = xi + ｓｔｅｐ
rｘ =　ｒx　Mod 256
ｎuｍ ＝ nｕm　-　１
　waｉｔｔime　()
Ｅnd If
If (ry > 2５6）　Thｅn
ｙi ＝　ｙi ＋ ｓtｅｐ
　ry ＝ ry Mｏｄ　256
nｕm　= ｎum － 1
waｉttｉmｅ　()
End Ｉf
-(xi, yi)
　Looｐ
Ｅnｄ　If
Iｆ (xe <＝ xs）　Ａnｄ (ye >　ｙs)　Then
Ｄo Ｗhile (nuｍ ＞ 0）
rx = rｘ + Abs（vx）
ry ＝　ry + Aｂｓ(vｙ)
Iｆ　(rx　>　256） Ｔｈen
xi　＝　xｉ - ｓｔeｐ
rｘ　＝ rx Ｍｏd　２５６
num = num　-　1
　waｉｔｔｉｍe ()
Ｅnｄ If
Iｆ　（ｒｙ > 2５６) Tｈen
yｉ ＝　ｙｉ + steｐ
　ｒｙ = ｒy　Mod ２5６
num = num － 1
ｗaiｔtime （0．01)
End　Ｉf
ｐicｔuｒｅ1