GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计【优秀机械机电毕业设计论文】【A6311】
收藏
资源目录
压缩包内文档预览:
编号:981427
类型:共享资源
大小:573.17KB
格式:RAR
上传时间:2017-01-11
上传人:木***
认证信息
个人认证
高**(实名认证)
江苏
IP属地:江苏
50
积分
- 关 键 词:
-
gsk928
数控
车削
仿真
系统
研究
钻研
开发
nc
代码
功能
设计
优秀
优良
机械
机电
电机
毕业设计
论文
a6311
- 资源描述:
-
文档包括:
说明书一份。40页,20300字。
任务书一份。
开题报告一份。
源程序一份。

- 内容简介:
-
附录附录1关于如何实现插补运算的源程序相关代码如下:Private Sub Timer7_Timer() -G02插补If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Then 单段或自动方式Timer10.Enabled = FalseTimer7.Interval = 5If pdgs = 0 Then f =0 If xmbz * zmbz 0 Then SR3 x方向走 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoX = 2 Case 2 ZouDaoX = 5 Case 3 ZouDaoX = 10 End Select ZouDaoZ = 0 ElseIf xmbz 0 Then SR2,SR4 If zmbz 0 Then SR2 Z方向走 ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = 2 Case 2 ZouDaoZ = 5 Case 3 ZouDaoZ = 10 End Select ElseIf zmbz 0 Then SR4-Z方向走 ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = -2 Case 2 ZouDaoZ = -5 Case 3 ZouDaoZ = -10 End Select End If pdgs = pdgs - 2 * Abs(JZS) + 1 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 JZS = Abs(JZS) - 0.04 Case 2 JZS = Abs(JZS) - 0.1 Case 3 JZS = Abs(JZS) - 0.2 End Select End IfElseIf pdgs 0 Then f0 If xmbz * zmbz 0 Then SR3-Z方向走 ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = -2 Case 2 ZouDaoZ = -5 Case 3 ZouDaoZ = -10 End Select ElseIf xmbz 0 Then SR2, SR4 If zmbz 0 Then SR2 X方向走 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoX = 2 Case 2 ZouDaoX = 5 Case 3 ZouDaoX = 10 End Select ZouDaoZ = 0 ElseIf zmbz 0 Then SR4 -X方向走 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoX = -2 Case 2 ZouDaoX = -5 Case 3 ZouDaoX = -10 End Select ZouDaoZ = 0 End If pdgs = pdgs + 2 * Abs(JXS) + 1 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 JXS = Abs(JXS) + 0.04 Case 2 JXS = Abs(JXS) + 0.1 Case 3 JXS = Abs(JXS) + 0.2 End Select End IfEnd IfPianDao1 90偏刀(粗)MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top - ZouDaoXPianDao2 90偏刀(粗)隐形刀具 If Form1.Picture11.BackColor = &H80FF80 Then Form1.Text3(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text3(0).Text = Format(Form1.Text3(0).Text, #0.000) Form1.Text3(1).Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text3(1).Text = Format(Form1.Text3(1).Text, #0.000) End IfEnd IfIf Form4.Option3(1).Value = True ThenMDIForm1.UserC31.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC31.Top + ZouDaoX 螺纹刀LuoWenDao1 螺纹刀MDIForm1.UserC41.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC41.Top - ZouDaoXLuoWenDao2 螺纹刀隐形刀具 If Form1.Picture11.BackColor = &H80FF80 Then Form1.Text3(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text3(1).Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text3(1).Text = Format(Form1.Text3(1).Text, #0.000) End IfEnd IfIf Form4.Option3(2).Value = True ThenMDIForm1.UserC51.Move MDIForm1.UserC51.Left + ZouDaoZ, MDIForm1.UserC51.Top + ZouDaoX 精车刀JingCheDao1 精车刀MDIForm1.UserC61.Move MDIForm1.UserC51.Left + ZouDaoZ, MDIForm1.UserC61.Top - ZouDaoX 隐形刀具JingCheDao2 精车刀隐形刀具 If Form1.Picture11.BackColor = &H80FF80 Then Form1.Text3(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text3(1).Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) End IfEnd IfIf Form4.Option3(3).Value = True ThenMDIForm1.UserC71.Move MDIForm1.UserC71.Left + ZouDaoZ, MDIForm1.UserC71.Top + ZouDaoX 切槽刀QieCaoDao1 切槽刀MDIForm1.UserC81.Move MDIForm1.UserC71.Left + ZouDaoZ, MDIForm1.UserC81.Top - ZouDaoX 隐形刀具QieCaoDao2 切槽刀隐形刀具 If Form1.Picture11.BackColor = &H80FF80 Then Form1.Text3(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text3(0).Text = Format(Form1.Text3(0).Text, #0.000) Form1.Text3(1).Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) End IfEnd IfIf Form4.Option3(4).Value = True ThenMDIForm1.UserC91.Move MDIForm1.UserC91.Left + ZouDaoZ, MDIForm1.UserC91.Top + ZouDaoX 镗刀TangDao1 镗刀MDIForm1.UserC101.Move MDIForm1.UserC101.Left + ZouDaoZ, MDIForm1.UserC101.Top - ZouDaoX 隐形刀具TangDao2 镗刀隐形刀具 If Form1.Picture11.BackColor = &H80FF80 Then Form1.Text3(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) End IfEnd Ifzdpd = zdpd - 1If zdpd = 0 Then f =0If xmbz * zmbz 0 Then NR2、NR4If xmbz 0 Then NR4 x方向走 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoX = 2 Case 2 ZouDaoX = 5 Case 3 ZouDaoX = 10 End SelectZouDaoZ = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 xmbz = xmbz - 0.04 Case 2 xmbz = xmbz - 0.1 Case 3 xmbz = xmbz - 0.2 End SelectElseIf xmbz 0 Then NR2 -x方向走 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoX = -2 Case 2 ZouDaoX = -5 Case 3 ZouDaoX = -10 End SelectZouDaoZ = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 xmbz = xmbz + 0.04 Case 2 xmbz = xmbz + 0.1 Case 3 xmbz = xmbz + 0.2 End SelectEnd Ifpdgs = pdgs - 2 * Abs(JXS) + 1 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 JXS = Abs(JXS) - 0.04 Case 2 JXS = Abs(JXS) - 0.1 Case 3 JXS = Abs(JXS) - 0.2 End SelectElseIf xmbz * zmbz 0 Then NR3 Z方向走ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = 2 Case 2 ZouDaoZ = 5 Case 3 ZouDaoZ = 10 End Select Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 zmbz = zmbz - 0.04 Case 2 zmbz = zmbz - 0.1 Case 3 zmbz = zmbz - 0.2 End SelectElseIf zmbz 0 Then NR1一Z方向走ZouDaoX = 0Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = -2 Case 2 ZouDaoZ = -5 Case 3 ZouDaoZ = -10 End Select Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 zmbz = zmbz + 0.04 Case 2 zmbz = zmbz + 0.1 Case 3 zmbz = zmbz + 0.2 End SelectEnd Ifpdgs = pdgs - 2 * Abs(JZS) + 1 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 JZS = Abs(JZS) - 0.04 Case 2 JZS = Abs(JZS) - 0.1 Case 3 JZS = Abs(JZS) - 0.2 End SelectEnd IfElseIf pdgs 0 Then f 0 Then NR2、NR4If xmbz 0 Then NR4 +Z方向走ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = 2 Case 2 ZouDaoZ = 5 Case 3 ZouDaoZ = 10 End Select Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 zmbz = zmbz - 0.04 Case 2 zmbz = zmbz - 0.1 Case 3 zmbz = zmbz - 0.2 End SelectElseIf xmbz 0 Then NR2 -Z方向走ZouDaoX = 0 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 ZouDaoZ = -2 Case 2 ZouDaoZ = -5 Case 3 ZouDaoZ = -10 End Select Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 zmbz = zmbz + 0.04 Case 2 zmbz = zmbz + 0.1 Case 3 zmbz = zmbz + 0.2 End SelectEnd Ifpdgs = pdgs + 2 * Abs(JZS) + 1 Select Case jingeibeilv 进给率调整速率50,100,150。 Case 1 JZS = Abs(JZS) + 0.04 Case 2 JZS = Abs(JZS) + 0.1 Case 3 JZS = Abs(JZS) + 0.2 End SelectElseIf xmbz * zmbz 0 The
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。