数控机床课设.docVIP

《机床数控技术》课程设计 说明书 班级： 学号： 姓名 指导教师： 时间：2018年1月 一、课设任务 DL2:用DDA法插补第二象限直线。 PA32:用逐点比较法插补第三到第二象限顺圆弧。 二、课设要求 1、具有数据输入界面，有起点、终点、半径及插补步长等； 2、具有单步插补过程的动态显示功能； 3、插补的步长可调； 三、编程语言 VisualBasic6.0 四、功能说明 本程序用DDA法插补第二象限的直线，用逐点比较法插补第三到第二象限顺圆弧，可进行连续插补或单步插补。 1、直线插补：用DDA法实现第二象限任意直线的插补，需要输入起点、终点坐标、步长及寄存器位数。 2、圆弧插补：用逐点比较法实现第三二象限的顺圆弧段的插补，需要输入起点、终点坐标、半径和步长。 3、插补步长可调。 4、可以单步执行所有插补动作，单击一次按钮执行一次插补。 五、程序界面及运行结果 5.1DDA法插补第二象限直线 1）DDA法插补第二象限直线运行界面 2）DDA插补第二象限直线运行结果 5.2逐点比较法插补二三象限顺圆弧 1）逐点比较法插补二三象限顺圆弧运行界面 2）逐点比较法插补二三象限顺圆弧运行结果 六、流程图设计、变量介绍及源程序 6.1DDA法插补第二象限直线 6.1.1DDA法插补第二象限直线的流程图：M M←m﹣1 结束 M=0吗？ 初始化xe→Xe, ye→Ye 累计次数m→M, ΣXe，ΣYe清零 ΣXe←ΣXe+Xe ΣYe←ΣYe+Ye ﹣X向走一步 ΣXe有溢出吗？ ΣYe有溢出吗？ Y Y N N Y Y ﹣Y向走一步 ﹣Y向走一步 N N NY N Y 图6-1DDA法插补第二象限直线的程序流程图 6.1.2插补直线程序变量介绍 s：中间变量L：步长 m：中间变量n：寄存器位数 i：中间变量j：中间变量 i1：中间变量j1：中间变量 x1：起点横坐标x2：终点横坐标 y1：起点纵坐标y2：终点纵坐标 flag：中间变量xe：终点与起点的横坐标差值 ye：终点与起点的纵坐标差值jvx：X积分器存xe） jvy：Y积分器存ye） jrx：Y积分器存∑xe） jry：Y积分器存∑ye） 6.1.3插补直线程序介绍 Dims,L,m,n,i,j,i1,j1,x1,x2,y1,y2,flag,xe,ye,jvx,jvy,jrx,jry,snAsSingle ****************定义全局变量 PrivateSubCommand2_Click(****************************画直线 IfIsNumeric(Text1.TextAndVal(Text1.Text0Then L=Val(Text1.Text ElseMsgBox步长输入有误 End If IfIsNumeric(Text2.TextThen x1=Val(Text2.Text Else MsgBox起始点的X坐标有误，请更正 End If IfIsNumeric(Text3.TextThen y1=Val(Text3.Text Else MsgBox起始点的Y坐标有误，请更正 End If IfIsNumeric(Text4.TextThen x2=Val(Text4.Text Else MsgBox终止点的X坐标有误，请更正 End If IfIsNumeric(Text5.TextThen y2=Val(Text5.Text Else MsgBox终止点的Y坐标有误，请更正 End If IfIsNumeric(Text15.TextAndVal(Text15.Text0Then n=Val(Text15.Text Else MsgBox寄存器位数有误，请更正 End If Callzuobiao1 Picture1.Line(x1,y1-(x2,y2,QBColor(6 m=2^n s=CInt(m/L xe=x2-x1 ye=y2-y1 jvx=Abs(xe jvy=Abs(ye i=0 j=0 i1=0 j1=0 flag=0 EndSub PrivateSubCommand3_Click(**********************连续DDA直线插补 Fork=1TosStep1 jrx=jrx+jvx jry=jry+jvy Ifjrx=mThen Ifx2x1Then i1=i+L Else i1=i-L End If flag=1 jrx=jrx-m End If Ifjry=mThen Ify2y1Then j1=j+L Else j1=j-L End If flag=1 jry=jry-m End If Ifflag=1Then Form1.Picture1.Line