机床数控课设插补Word文件下载.docx

1、4、可以单步执行所有插补动作，单击一次按钮执行一次插补。五、程序容 DDA法插补第二象限直线1、源程序： Dim A, B, C, D, E, F, G, I, J, E, F As Single*连续直线插补*Private Sub Command1_Click（）If （-C + A） （D - B） Then F = -C + A Else: F = D - BG = 1Do While （2 G） = E Then I = I - E * （2 G）: x2 = x2 - EJ = J + （D - B）y1 = y2If （J / （2 G） = E Then J = J - E *

2、 （2 G）: y2 = y2 - EPicture1.Line （x2 * Text6.Text, y2 * Text6.Text）-（x1 * Text6.Text, y1 * Text6.Text）, vbGreenNext HPicture1.Line （C * Text6.Text, -D * Text6.Text）-（A * Text6.Text, -B * Text6.Text）, vbRedEnd Sub*单步直线插补*Private Sub Command2_Click（）G = G + 1= E And （J / （2 G） = E ThenPicture1.Line （x

3、2 - E） * Text6.Text, （y2 - E） * Text6.Text）-（x2 * Text6.Text, y2 * Text6.Text）, vbGreenI = I - E * （2 G）J = J - E * （2 G）x2 = x2 - Ey2 = y2 - EElseIf （I / （2 G） = E And （J / （2 G） E ThenPicture1.Line （x2 - E） * Text6.Text, y2 * Text6.Text）-（x2 * Text6.Text, y2 * Text6.Text）, vbGreenElseIf （I / （2 G）

4、 Picture1.Line （x2 * Text6.Text, （y2 - E） * Text6.Text）-（x2 * Text6.Text, y2 * Text6.Text）, vbGreenEnd If3. DDA法插补第二象限直线的流程图：YNMm-1Xe初始化x，y累加次数e、清零M=0吗？有溢出吗？+向走一步-结束逐点比较法插补第三到第二象限顺圆弧1. 源程序：Dim X0, Y0, CXY, CD, CX1, CY1, CX2, CY2, CX11, CY11, CX22, CY22, ci, R, a1, b1, c1, d1, e1, x1, y1, x2, y2 As S

5、ingleCONST Pi=3.1415926*连续圆弧插补*Private Sub Command6_Click（）d1 = 1 / 2 * （CX22 2 + CY22 2 - CX11 2 - CY11 2） / （CY22 - CY11）e1 = （CX11 - CX22） / （CY22 - CY11）a1 = 1 + e1 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 2 + CY11 2 + d1 2 - 2 * d1 * CY11 - R 2X0 = （-b1 + Sqr（b1 2 - 4 * a1 * c1） /

6、（2 * a1）Y0 = d1 + e1 * X0 *求得圆心If CX1 X0 And CX2 X0 Theno = Atn（CY1 - Y0） / （CX1 - X0） + Pi *起始角o1 = Atn（CY2 - Y0） / （CX2 - X0） + Pi *终止角Picture2.Circle （X0, Y0）, R, vbRed, o1, oElsePicture2.Circle （X0, Y0）, R, vbRed, 2 / Pi, 3 * Pi / 2End If *画圆 again: *开始插补过程If CY1 Y0 ThenIf （CX1 - X0） 2 + （CY1 -

7、Y0） 2 （CX1 - CX2 + ci） 2 + （CY1 - CY2） 2 Or （CX1 - CX2） 2 + （CY1 - CY2） 2 （CX1 - CX2 - ci） 2 + （CY1 - CY2） 2 Or （CX1 - CX2） 2 + （CY1 - CY2） 2 （CX1 - CX2） 2 + （CY1 - CY2 + ci） 2 Or （CX1 - CX2） 2 + （CY1 - CY2） 2 （CX1 - CX2） 2 + （CY1 - CY2 - ci） 2 ThenGoTo again*单步圆弧插补*Private Sub Command7_Click（）o = A

8、tn（CY1 - Y0） / （CX1 - X0） + Pi *终止角End If *画圆GoTo cover *开始插补过程cover:2.变量说明： CX1=圆弧起点的横坐标值，CY1=圆弧起点的纵坐标值 CX2=圆弧终点的横坐标值，CY2=圆弧终点的纵坐标值 X0=圆弧半径的横坐标值， Y0=圆弧半径的纵坐标值R=圆弧半径， ci=圆弧插补的步长a1,b1,c1,d1为计算圆点的中间变量3.逐点比较法插补第三象限顺圆弧程序流程图逐点比较法插补第二象限顺圆弧程序流程图：六、程序界面及运行结果DDA插补第二象限直线运行界面DDA插补第二象限直线运行结果逐点比较法插补二三象限顺圆弧运行界面逐点

9、比较法插补二三象限顺圆弧运行结果七、课设中遇到的问题及解决办法1、在进行单步插补时出现问题，单步插补出不来？ 定义的变量应为全局变量，通过按钮来实现单步操作。按第一次按钮，程序执行一步，按第二次时，程序执行两步，及将第一步做的覆盖后在多做一步。依此，每次按下按钮都比前一次多做一步，这样，作图时就表现为单步运行。2、在圆弧插补是画出的圆跟圆弧的插补在起点和终点处不重合？ 在画图的pitcure属性中的scaletop和scalewidth的值应相等，否则画出的横纵坐标不等，导致在横坐标和纵坐标上的长对不等使得与圆弧不重合。3、如何解决起点不是原点的直线的插补 若是起点不是原点的话，可以将起点平移

10、到原点位置，而终点也相应的平移即可，这样就解决了起点不是原点的问题。根据这个思想在判断象限时就拿终点坐标和起点坐标比较来判断终点属于哪个象限。 和插补直线一样，当圆心不是原点时，可以将圆心平移到原点位置，圆上各点相应的平移即可。八、心得体会通过这次的机床数控课程设计，使我加深了对数控机床的插补的了解，更好的掌握了逐点比较法的插补原理。这次课程设计选择了Visual Basic作为编程语言，由于是初次接触，不能熟练得掌握，所以使用起来不是很顺利，对整体进度有一些影响。通过这次课程设计，增加了知识，锻炼了自己的实际动手和操作能力，对以后的学习有着深远的影响。九、参考资料 陆慰民. 2000 . VisualBasic程序设计教程（6.0版）. ：高等教育 勇. 2002 . VisualBasic课程设计案例精编. ：中国水利水电 段兴. 2002. VisualBasic实用程序100例. ：人民邮电