数控机床课程设计(插补计算)资料.doc

《机床数控技术》课程设计 说明书 班级： 学号： 姓名： 指导教师： 时间 说明书  = 1 \* GB2 ⑴课设任务：  = 1 \* GB1 ⒈ DL2 ，DDA法插补第二象限直线  = 2 \* GB1 ⒉ PA34,逐点比较法插补第3-4象限逆圆弧  = 2 \* GB2 ⑵课设要求：  = 1 \* GB1 ⒈ 具有数据输入界面，如起点、终点、圆心、半径及插补步长等  = 2 \* GB1 ⒉ 具有插补过程的动态显示功能，如单步插补、连续插补  = 3 \* GB1 ⒊ 插补的步长可调  = 3 \* GB2 ⑶编程语言： Visual Basic  = 4 \* GB2 ⑷程序设计流程图: DDA法插补第二象限直线: J = J + F ; K = K + G 初始化L=A,M=B, 累加次数N=0-2^I (J / (2 ^ I)) = E (K/(2 ^ I)) = E N -x向走一步 +Y向走一步 画直线 N Y Y N=N+1 N=2^I吗？ 结束 N Y 逐点比较法插补第3-4象限逆圆弧： 开始 初始化 Xp=X1；Yp=Y1；F1=0 F1=0 F1 = F1 - (2 * (Yp - Y0)) + U ^ 2;Yp = Yp - U F1 = F1 + (2 * (Xp – X0)) + U ^ 2;Xp = Xp + U N Y 画直线 Xp X0 And Xp X2 F1=0 N Y F1 = F1 + (2 * (Xp - X0)) + U ^ 2: Xp = Xp + U F1 = F1 + (2 * (Yp - Y0)) + U ^ 2: Yp = Yp + U Xp X2 N 画直线 N Y Xp X2 Or Yp Y2 结束 N Y Y  = 5 \* GB2 ⑸变量说明、源程序 Dim A!, B!, C!, D!, E!, F!, G!, H!, I!, J!, K!, L!, M!, N!, P!, Q! Dim X1!, X2!, X3!, F1!, Xp!, Yp!, Y1!, Y2!, Y3!, X0!, Y0!, R!, S!, T!, U!, V!, W!, X!, Y!, Z!,o1! Private Sub Command1_Click() ******************直线DDA连续插补 A = Text1.Text B = Text2.Text 直线起点坐标（A，B） C = Text3.Text D = Text4.Text 直线终点坐标（C，D） E = Text5.Text 直线插补步长 F = (A - C) G = (D - B) Picture1.Line (A, B)-(C, D) If F G Then H = F Else: H = G I = 1 Do While (2 ^ I) = H I = I + 1 Loop J = 0 K = 0 L = A M = B For N = 0 To (2 ^ I) Step 1 J = J + F P = L If (J / (2 ^ I)) = E Then J = J - E * (2 ^ I): L = L - E K = K + G Q = M If (K / (2 ^ I)) = E Then K = K - E * (2 ^ I): M = M + E Picture1.Line (P, Q)-(L, M), vbRed Next N End Sub Private Sub Command2_Click() *******************圆弧单步??点插补 X1 = Text6.Text Y1 = Text7.Text X2 = Text8.Text Y2 = Text9.Text R = Text10.Text U = Text11.Text Dim xe, ye As Single xe = (X1 + X2) / 2 ye = (Y1 + Y2) / 2 S = Sqr(((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)) / 2 T = (Y2 - Y1) / (X2 - X1) If Y1 = Y2 Then X0 = (X1 + X2) / 2 Y0 = Y1 + Sqr(R ^ 2 - S ^ 2) ElseIf Y1 Y2 Then X0 = xe - Sqr((R ^ 2 - S ^