注册 |

微信扫一扫登录

x

人人文库网 > 毕业设计 > 毕业论文 > GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计【优秀机械机电毕业设计论文】【A6311】

附录2.doc

GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计【优秀机械机电毕业设计论文】【A6311】

资源目录

GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计【优秀机械机电毕业设计论文】【A6311】.rar

附录2.doc---(点击预览)

附录1.doc---(点击预览)

进度记录表.doc---(点击预览)

设计说明书.doc---(点击预览)

源程序.doc---(点击预览)

开题报告.doc---(点击预览)

任务书.doc---(点击预览)

压缩包内文档预览：

预览图

预览图

预览图

预览图

预览图

预览图

预览图

编号：981427 类型：共享资源大小：573.17KB 格式：RAR 上传时间：2017-01-11 上传人：木*** IP属地：江苏

50
积分

版权申诉

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

关键词：: gsk928 数控车削仿真系统研究钻研开发 nc 代码功能设计优秀优良机械机电电机毕业设计论文 a6311

资源描述：

文档包括:

说明书一份。40页，20300字。

任务书一份。

开题报告一份。

源程序一份。

A0-阿内容简介.gif

内容简介：: 徐州工程学院毕业设计（论文）任务书机电工程学院学院机械设计制造及其自动化专业设计（论文）题目数控模拟仿真车削系统的研究与开发学生姓名王金信班级 04机本（1）班起止日期 2008-2-252008-6-2 指导教师滕凯教研室主任李志发任务书日期 2008 年 2 月 25 日1.毕业设计的背景：数控机床是当今机械制造业的工作母机，在我国的应用越来越广泛。对数控操作人员培训已经成为一个非常重要的问题。在目前如何培养适应社会需求的数控操作技工人才主要存在两方面的问题:一方面培养的对象多，另一方面资金设备受到严格的限制且安全系数低。所以说学生多设备少危险性大始终是困扰着数控培训的一个严重问题。虽然目前市场上有不少先进的仿真软件，但它们所能解决的大都是些共性的问题，并且价格昂贵。在大量采用半手工数控编程的我国制造业，研究开发基于NC代码的仿真加工软件具有十分重要的意义。2.毕业设计(论文)的内容和要求：本文进行的主要工作如下：（1）对数控车削模拟编程器的结构和关键技术进行了认真的分析，确定了系统的整体结构、功能模块，并且选择了系统的开发工具以及开发方法。（2）采用面向对象编程思想，利用VB语言易学易会及可视化的优势。（3）进行了关于系统界面的设计以及NC代码解析等模块的开发工作。（4）深入研究了数控系统的工作过程，针对车削加工的是回转零件的特点对毛坯采用了二维建模方法，实现了刀具和工件形状的动态变化，完成了车削加工过程的动态仿真。要求通过对数控模拟仿真软件的设计进一步了解数控车床的编程及其工作原理。3.主要参考文献： 1 葛研军.虚拟数控车削加工系统研究M.东北大学博士论文，1998.2 唐泽圣，周嘉玉，李新友.计算机图形学基础M.清华大学出版社，1995.3 王玲，王晓春.实用数控与编程技术M.国防工业出版社，1993.4 李浙昆，樊瑜瑾.零件加工轨迹计算机仿真M.机械设计与研究，1999.5 刘书华.数控机床与编程M.机械工业出版社，2001.6 李春葆，刘圣才，张植民.Visual Basic程序设计M.北京:清华大学出版社，2005.4.毕业设计(论文)进度计划(以周为单位)：起止日期工作内容备注第1、2周第3、4周第5、6周第7、8周第9、10周第11、12周第13、14周第15、16周了解数控车床的工作原理，数控面板的操作；了解各个主要组成部分及其功能；熟悉数控编程指令。了解VB编程语言；熟悉VB操作环境。熟悉VB编程语言；深入了解VB中各个相关工具的运用。用VB相关工具制作仿真软件控制面板。编写各个按钮、控件的程序代码；逐步实现具体功能。完善代码；完善各个部分功能；调试代码。逐一检查操作面板所实现的功能；编写并完善系统使用手册；初步编写论文。完善论文；检查相应代码；熟悉本系统。主要参考：虚拟数控车削加工系统研究，实用数控与编程技术，零件加工轨迹计算机仿真，Visual Basic程序设计等相关文献。教研室审查意见：室主任年月日学院审查意见：教学院长年月日开题报告课题名称：数控车削仿真系统的开发与研究学生姓名：指导教师：所在学院：机电工程学院专业名称：机械设计制造及其自动化说明1根据学院毕业设计(论文)管理规定，学生必须撰写毕业设计（论文）开题报告，由指导教师签署意见、教研室审查，学院教学院长批准后实施。2开题报告是毕业设计（论文）答辩委员会对学生答辩资格审查的依据材料之一。学生应当在毕业设计（论文）工作前期内完成，开题报告不合格者不得参加答辩。3毕业设计开题报告各项内容要实事求是，逐条认真填写。其中的文字表达要明确、严谨，语言通顺，外来语要同时用原文和中文表达。第一次出现缩写词，须注出全称。4本报告中，由学生本人撰写的对课题和研究工作的分析及描述，没有经过整理归纳，缺乏个人见解仅仅从网上下载材料拼凑而成的开题报告按不合格论。5. 课题类型填：工程设计类；理论研究类；应用（实验）研究类；软件设计类；其它。6、课题来源填：教师科研；社会生产实践；教学；其它课题名称GSK928数控车削模拟仿真系统的研究与开发课题来源教师科研课题类型软件工程选题的背景及意义随者我国工业化程度的加深，产业结构的优化升级，生产制造的自动化程度越来越高。因此，数控技术已成为当前工业生产领域的一大主流。但是，在培养合格的数控技术工人方面存在着重要问题：一方面，培养的对象多，另一方面，设备资金方面是一个很大的负担。还有一个问题是数控本身操作容易，编程难。因此，开发出仿真软件可以很好的解决以上两个比较突出的问题。传统技术里，数控程序的检验一般都用试切法，这种方法给生产带来一定的损失。而仿真，从工程角度来看，就是通过对系统模型的实验研究一个已有或设计出的系统。数控加工仿真研究包含几何仿真和物理仿真。几何仿真的主要目的就是检验程序的正确性。物理仿真主要目的是在保证程序正确运行的情况下，消除因切削变形引起的加工误差。这种方法可以在不消耗实际材料，不需要实际机床的情况下，对零件切削过程进行模拟和检验。这样，缩短了研制周期，降低成本，提高产品质量。所以，数控模拟系统在生产、教学和培训新员工上面有着重要的实际意义。研究内容拟解决的主要问题由于车刀对零件的加工主要涉及到圆柱面、圆锥面、螺纹、端面、切槽、切断等表面加工，但是无论加工什么样的零件，工件均以回转运动为主运动，刀具作直线运动、圆弧运动和其它轨迹运动。因此，二维图形仿真能够模拟实际机床的加工过程并检验数控程序。本文选用了简单的二维图形仿真，其主要内容包含：（1）用二维图形模拟实心或空心毛坯；（2）提供七种常用刀具，并通过背景色透明处理以实现双边车削；（3）着重解决了译码、插补、加工程序段连续执行的关键技术问题。系统关键技术包括：译码、快速定位、插补、系统各部分的动态实现、程序段连续执行的实现这五个方面。本文按照这五个问题将本系统分为五个模块。主要解决问题：数控模拟仿真软件面板的制作，并通过VB编写相关程序进而实现插补功能。研究方法技术路线（1）译码，就是将数控标准程序转换为CNC系统内部能够识别的数据的过程。译码有解释和编译两种形式，解释方式为边插补边译码，而编译则是将所有程序转换成所谓的目标程序，存储在系统里以便调用。但本系统采用解释方式，虽然较编译方式来说占用内存少，可是会出现停顿和过切的错误。另外，译码时程序会按照几何的、工艺的、开关功能三种类型来分类，分别进行译码。（2）快速定位的特点是从一点移动到另一点，但是对它的运动轨迹不作任何要求。由于这种特性，本系统将按坐标轴移动分为X、Z轴两大方向。若指令要求刀具单向移动，则只有一个方向上的运动指令有效；若指令要求刀具按照某一个斜线移动，则两方向移动指令均有效。这样就完成了快速移动功能。（3）插补是数据密化的过程。实际加工中，我们没有必要也不可能严格地按照工件的实际外轮廓形状加工出工件来。没有必要是因为，当我们得到符合一定粗糙度要求和准确度要求的工件时，我们就没有必要再得到完全符合轮廓的工件了。没有可能是因为，当前的技术、所用的设备等其它因素都是无法得到完美轮廓的原因。由此说来，插补技术是非常重要的技术。随着技术水平的提高，现在有两类插补算法：一是脉冲增量插补算法，一种是数据采样插补算法。本文采用的逐点比较属于前者。（4）图形与动画处理方面。对于毛坯，将图片框的Drawmode属性设置为“异或“，用方法绘制外径矩形和内径矩形，通过判断内径是否为零，实现对工件实心、空心的模拟。实时动画方面，采用简单的动画法，即“绘制-清除-重画”的方法。但是清除环节容易造成动画过程中出现屏幕闪烁。工件动画方面，通过设置用户控件实现。首先，定义Backstyle为透明的控件；其次，通过设置Maskcolor为刀具图片背景以用来告诉系统中哪种颜色被裁剪掉；接着，控件属性设置为与属性一致的刀具图片；保留并调用此控件，即可实现动画功能。（5）程序段的连续执行是依靠定时器周期性触发自动加工模块，而自动加工模块只有在循环启动按钮有效时才转到下一个程序段，这样，就能达到连续自动加工的目的。其主要组成为定时器、循环启动按钮、自动加工模块。研究的总体安排和进度计划论文提纲：（1）论述该设计题目提出的背景、意义。（2）构建该系统各个功能模块及实现各个功能的程序设计。（3）阐明该系统各个关键技术的实现方法。（4）用该系统仿真数个典型工件的加工过程。（5）对该设计题目发展前景的展望和对该系统缺陷的分析总结。（6）谢辞及参考文章和数目。进度安排：第1、2周了解数控车床的工作原理，数控面板的操作；了解各个主要组成部分及其功能；熟悉数控编程指令。第3、4周了解VB编程语言；熟悉VB操作环境。第5、6周熟悉VB编程语言；深入了解VB中各个相关工具的运用。第7、8周用VB相关工具制作数控车床的面板；深刻了解面板上各个功能。第9、10周编写各个按钮、控件的程序代码；逐步实现具体功能。第11、12周完善代码；完善各个部分功能；调试代码。第13、14周逐一检查操作面板所实现的功能；编写并完善系统使用手册；初步编写论文。第15、16周完善论文；检查相应代码；熟悉本系统。主要参考文献1 葛研军.虚拟数控车削加工系统研究M.东北大学博士论文，1998，12. 2 赵继政，魏生民，杨彭基.数控加工的图形仿真与验证技术研究N.西北工业大学学报，1998， 11.3 韩向利，袁哲俊，肖田元，温秀梅.直线与刀具扫描体求交算法及其应用研究P.计算机辅助设计与图形学报，1997， 2.4 唐泽圣，周嘉玉，李新友.计算机图形学基础M.清华大学出版社，1995，12.5 王玲，王晓春.实用数控与编程技术M.国防工业出版社，1993，10.6 李浙昆，樊瑜瑾.零件加工轨迹计算机仿真M.机械设计与研究，1999，3.7 郑堤，张建，王春海，陈廉清.数控机床与编程M.机械工业出版社，2005，8.8 刘书华.数控机床与编程M.机械工业出版社，2001.9 魏志强.车削加工数控自动编程及数控程序仿真系统的研究R.哈尔滨工业大学硕士论文1995, 3.10 杨合明.数控加工过程仿真A.华中理工大学博士论文，1994.11 高华，李进京.基于VB的数控加工图形仿真M.农机化研究，2005，1.12 李春葆，刘圣才，张植民.Visual Basic程序设计M.北京:清华大学出版社，2005.13 牛又奇，孙建国.新编Visual Basic程序设计教程M.苏州大学出版社，2003，4.14 张翠华，李进京，陈兴.数控仿真系统技术的研究现状N.山东农机，2005，7.15 严爱珍.机床数控原理与系统M.机械工业出版社，1999.16 原彬.数控车削加工仿真系统的研究与实现（硕士学位论文）D.大连铁道学院，2002.17 郑爱军.关于数控编程与仿真系统的探讨N.黑龙江纺织，2000，1.18 谢明红.基于PC的数控系统编译及图形仿真研究A.现代制造工程，2003，3.19 赵瑾，周来水，张臣，余湛悦.数控仿真中的实时碰撞检测算法的研究C.计算机工程与应用，2005，10.20 张建钢，胡大泽.数控技术M.华中科技大学出版社，2000， 1.21 章富元，方江龙，汤季安.对我国数控技术发展的思考A.中国机械工程，2001，5.22 任玉田，焦振学，王宏甫.机床计算机数字控制技术C.北京理工大学出版社，1996，1.23 孟凡力.数控车削几何仿真系统研究D.大连铁道学院工学硕士学位论文，2003.24 朱晓春.数控技术M.机械工业出版社，2001，7.指导教师意见指导教师签名：年月日教研室意见学院意见教研室主任签名：年月日教学院长签名：年月日基于VB的数控车削仿真系统研究与开发Public fangshi As Integer 加工方式Public CODE1, CODE2, CODE3, CODE4, CODE5, CODE6, CODE7, CODE8 As Integer 定义中间变量Public CODE9, CODE10, CODE11, CODE12, CODE13, CODE14, CODE15 As Integer 定义中间变量Public dataS As Single S数值Public dataI As Single i数值Public dataK As Single k数值Public dataR As Single r数值Public dataF As Single f数值Public dataP As Single p数值Public DataX As Single x数值Public DataZ As Single z数值Public ZiChengXu As String 子程序名Public xmbz As Single X增量Public zmbz As Single Z增量Public imbz As Single I增量Public kmbz As Single K增量Public pdgs As Single F=XiZe-XeZiPublic zdpd As Integer 插补总步数Public ni As Integer 字符行Public JXS As Single IPublic JZS As Single KPublic zdyxbz As Boolean 自动运行标志Public cankaodian As Boolean 回参考点Public chaocjc As Boolean 超程Public ZouDaoX As Single 自动X走刀量Public ZouDaoZ As Single 自动Z走刀量Public ZouDao As Single 手动X、Z走刀量Public duandianbz As Single 断点标志Public chengxubz As Integer 程序标志Public djian As Integer 装卸顶尖Public Asii As Integer 输入地址判断Public jingeibeilv As Single 进给倍率Public JGBLBH As Integer 进给率变换参数Public JGpanduan As Integer 进给率判断参数Public jingeilvbh As Boolean 自动进给率变换判断（还没有运行时）参数和进给率变换标志Public dingjian As Boolean 进给率变换标志Public G04CanShu As Integer G04参数Public G96CanShu As Single G96/97参数Public G97CanShu As Single G96/97参数Public dataSii As Single dataS过渡变量Public LIMS As Single LIMS变量最高转速限制Public wenjiani, xinchengxu, XCXI, mm, anniu As Integer 新程序,文件名,文件选择Public richi, labeli, jjkk, kkjj, Shift As Integer jjkk向上翻与kkjj向左翻判断参数Public zifucs As String 字符参数MDIForm1:Public suofang As Integer 缩放按钮Private Sub chengxu01_Click() 导入程序01Form7.ShowForm7.Enabled = TrueEnd SubPrivate Sub chengxu02_Click() 导入程序Form7.ShowForm7.Enabled = TrueEnd SubPrivate Sub chengxu03_Click() 导入程序Form7.ShowForm7.Enabled = TrueEnd SubPrivate Sub chengxu04_Click() 导入程序Form7.ShowForm7.Enabled = TrueEnd SubPrivate Sub chengxu05_Click() 导入程序Form7.ShowForm7.Enabled = TrueEnd SubPrivate Sub chuangti_Click(Index As Integer)MsgBox 主窗体MDIForm1为加工模拟显示区；子窗体Form1为程序运行区；子窗体Form2为控制区；子窗体Form3为软件简介区；子窗体Form4为刀具刀位选择区；子窗体Form5为工件装夹区；子窗体Form6为启动封面区；子窗体Form7为导入程序区。, 0, 提示：End SubPrivate Sub mokuai_Click(Index As Integer)MsgBox 定义了“fangshi（方式）”，“dataX（X值）”，“zdyxbz（自动运行标志）”等全局变量。, 0, 提示：End SubPrivate Sub Timer11_Timer() 水滴滴水动画Static Sss As IntegerSelect Case SssCase 0 UserC1.Visible = True UserC2.Visible = True UserC4.Visible = True UserC3.Visible = False UserC5.Visible = False UserC6.Visible = False Sss = 1Case 1 UserC3.Visible = True UserC5.Visible = True UserC6.Visible = True UserC1.Visible = False UserC2.Visible = False UserC4.Visible = False Sss = 0End SelectEnd SubPrivate Sub yonghukongjian_Click(Index As Integer)MsgBox 定义了“UserC11（粗车刀）”，“UserC31（螺纹刀）”，“UserC51（精车刀）”，“UserC71（切刀）”等用户控件。, 0, 提示：End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 标准工具栏（点击）Select Case Button.KeyCase 新建 Form1.Show Form1.Visible = True Form1.Picture8.Visible = False For anniu = 0 To 9 Form1.Command11(anniu).Visible = False Next anniu For anniu = 10 To 14 Form1.Command11(anniu).Visible = True Next anniu For anniu = 15 To 19 Form1.Command11(anniu).Visible = False Next anniu Form1.Label13.Caption = 打开 Form1.Label14.Caption = 新程序 Form1.Label15.Caption = 删除 Form1.Label16.Caption = 改名 Form1.Label17.Caption = 关闭 Form1.Label35.Visible = False Form1.Label36.Visible = True jjkk = 0 Form1.Picture9.Visible = True Form1.RichTB(0).Visible = False Form1.RichTB(1).Visible = False For anniu = 0 To 4 Form1.RichTB1(anniu).Visible = False Next anniu Form1.Picture8.Visible = False Select Case XCXI Case 0 xinchengxu = 0 XCXI = XCXI + 1 Case 1 xinchengxu = 1 XCXI = XCXI + 1 Case 2 xinchengxu = 2 XCXI = XCXI + 1 Case 3 xinchengxu = 3 XCXI = XCXI + 1 Case 4 xinchengxu = 4 XCXI = 0 End Select Form1.Text5.Text = Form1.Text5.SetFocus 新建程序名输入获得焦点 Asii = 0Case 打开 Form1.Show Form1.Visible = True Form1.Picture9.Visible = False For anniu = 0 To 4 Form1.Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Form1.Command11(anniu).Visible = False Next anniu Form1.Label13.Caption = Form1.Label14.Caption = 程序检验 Form1.Label15.Caption = 程序 Form1.Label16.Caption = Form1.Label17.Caption = 选择 Form1.Label35.Visible = True kkjj = 1 Form1.Picture8.Visible = True Form1.RichTB(0).Visible = False Form1.RichTB(1).Visible = False For richi = 0 To 4 Form1.RichTB1(richi).Visible = False Next richiCase 菜单 Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 刀架回参考点前的坐标值 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 直径 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = Format(Form1.Text2.Text, #0.000)If zhukongmb.Checked = False Then Form1.Show Form1.Visible = True Form2.Show Form2.Visible = True zhukongmb.Checked = True cikongmb.Checked = True Else: zhukongmb.Checked = False Form1.Visible = False Form2.Visible = False zhukongmb.Checked = False cikongmb.Checked = False End IfCase 次菜单 If zhukongmb.Checked = True And cikongmb.Checked = True Then zhukongmb.Checked = False Form1.Visible = False cikongmb.Checked = True Form2.Show Form2.Visible = True ElseIf cikongmb.Checked = True And zhukongmb.Checked = False Then zhukongmb.Checked = True Form1.Visible = True cikongmb.Checked = False Form2.Visible = False ElseIf zhukongmb.Checked = True And cikongmb.Checked = False Then zhukongmb.Checked = False Form1.Visible = False cikongmb.Checked = True Form2.Visible = True Else zhukongmb.Checked = False cikongmb.Checked = False Form1.Visible = False Form2.Visible = False End IfCase 加工区 If gongjianjgq.Checked = True Then Picture2.BorderStyle = 0 UCkp52.Visible = False gongjianjgq.Checked = False Else: gongjianjgq.Checked = True Picture2.BorderStyle = 1 UCkp52.Visible = True If Val(Form5.Text1.Text) 0 Then UCkp52.Left = (Val(Form5.Text2.Text) - 20) * 50 - 220 工件坐标系显示 UCkp52.Top = Val(Form5.Text1.Text) / 2 * 50 - 300 Else UCkp52.Left = (Val(Form5.Text5.Text) - 20) * 50 - 220 UCkp52.Top = Val(Form5.Text3.Text) / 2 * 50 - 300 End If End IfCase 对刀 Form1.Show Form1.Picture10(0).Visible = True For anniu = 0 To 14 Form1.Command11(anniu).Visible = False Next anniu For anniu = 15 To 19 Form1.Command11(anniu).Visible = True Next anniu For anniu = 20 To 24 Form1.Command11(anniu).Visible = False Next anniuForm1.Label13.Caption = 复位刀沿Form1.Label14.Caption = Form1.Label16.Caption = Form1.Label17.Caption = 对刀Case 刀具箱 Form4.Visible = TrueCase 装夹工件 Form5.Visible = True Form5.Timer1.Enabled = True TEXT6文本显示 If Form5.Text1.Text 0.00 Then Form5.Text1.SetFocus 输入获得焦点 ElseIf Form5.Text4.Text 0.00 Then Form5.Text4.SetFocus 输入获得焦点 End IfCase 顶尖 dingjian = True 顶尖应用判断 If Form5.Text1.Text = 0.00 Then Form1.Label4.Caption = 顶尖装夹错误！ Form1.Label39.Caption = 顶尖装夹错误！轴的直径不能为“0”或孔类工件不能装夹 Exit Sub Else: Form1.Label4.Caption = 运行正常！ Form1.Label39.Caption = 运行正常！ End If Select Case djian Case 0 MDIForm1.UserControl11.Top = Val(Form5.Text1.Text) * 50 / 2 - 625 MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 + 3000 Form2.Picture8.BackColor = &H80FF80 Form2.Timer12.Enabled = True djian = djian + 1 Case 1 MDIForm1.UserControl11.Top = Val(Form5.Text1.Text) * 50 / 2 - 625 MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Form2.Picture8.BackColor = &H8000& Form2.Timer13.Enabled = True Form2.Timer14.Enabled = False MDIForm1.UserControl21.Visible = False djian = 0 End Select MDIForm1.UserControl11.Visible = True Case 放大 If Picture2.Height 500 Then Picture2.Height = Picture2.Height - 500 Picture2.Width = Picture2.Width - 500 End If Case 缩放 Select Case suofang Case 0 Timer9.Enabled = True suofang = 1 Case 1 Timer9.Enabled = False suofang = 2 Case 2 Timer10.Enabled = True suofang = 3 Case 3 Timer10.Enabled = False suofang = 0 End Select Case 拖动 End SelectEnd SubPrivate Sub Timer9_Timer() 缩小 Picture2.Height = Picture2.Height - 100 Picture2.Width = Picture2.Width - 100 If Picture2.Height 13000 Then Timer10.Enabled = False End IfEnd SubPrivate Sub zhukongmb_Click() 主控面板显示If zhukongmb.Checked = False Thenzhukongmb.Checked = TrueForm1.ShowElse: zhukongmb.Checked = FalseUnload Form1End IfEnd SubPrivate Sub biaozhungjl_Click() 标准工具栏显示If biaozhungjl.Checked = False Thenbiaozhungjl.Checked = TrueToolbar1.Visible = TrueElse: biaozhungjl.Checked = FalseToolbar1.Visible = FalseEnd IfEnd SubPrivate Sub cikongmb_Click() 次控面板显示If cikongmb.Checked = False Thencikongmb.Checked = TrueForm2.ShowElse: cikongmb.Checked = FalseUnload Form2End IfEnd SubPrivate Sub tuichu_Click() 退出下拉菜单MDIForm1.Visible = FalseForm1.Visible = FalseForm2.Visible = FalseForm3.Visible = FalseForm4.Visible = FalseForm5.Visible = FalseEnd SubPrivate Sub xinjian_Click() 新建程序菜单Form1.ShowForm1.Visible = True For anniu = 0 To 9 Form1.Command11(anniu).Visible = False Next anniu For anniu = 10 To 14 Form1.Command11(anniu).Visible = True Next anniu For anniu = 15 To 19 Form1.Command11(anniu).Visible = False Next anniu Form1.Label13.Caption = 打开 Form1.Label14.Caption = 新程序 Form1.Label15.Caption = 删除 Form1.Label16.Caption = 改名 Form1.Label17.Caption = 关闭 Form1.Label35.Visible = False Form1.Label36.Visible = True jjkk = 0 Form1.Picture8.Visible = False Form1.Picture9.Visible = True Form1.RichTB(0).Visible = False Form1.RichTB(1).Visible = False For anniu = 0 To 4 Form1.RichTB1(anniu).Visible = False Next anniu Form1.Picture8.Visible = False Select Case XCXI Case 0 xinchengxu = 0 XCXI = XCXI + 1 Case 1 xinchengxu = 1 XCXI = XCXI + 1 Case 2 xinchengxu = 2 XCXI = XCXI + 1 Case 3 xinchengxu = 3 XCXI = XCXI + 1 Case 4 xinchengxu = 4 XCXI = 0 End Select Form1.Text5.Text = Form1.Text5.SetFocus 新建程序名输入获得焦点 Asii = 0End SubPrivate Sub dakai_Click() 打开菜单Form1.ShowForm1.Visible = TrueFor anniu = 0 To 4 Form1.Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Form1.Command11(anniu).Visible = False Next anniu Form1.Label13.Caption = Form1.Label14.Caption = 程序检验 Form1.Label15.Caption = 程序 Form1.Label16.Caption = Form1.Label17.Caption = 选择 Form1.Label35.Visible = True kkjj = 1 Form1.Picture8.Visible = True Form1.Picture9.Visible = False Form1.RichTB(0).Visible = False Form1.RichTB(1).Visible = False For richi = 0 To 4 Form1.RichTB1(richi).Visible = False Next richiEnd SubPrivate Sub gongjianjgq_Click() 工件加工区域显示 If gongjianjgq.Checked = True Then Picture2.BorderStyle = 0 UCkp52.Visible = False gongjianjgq.Checked = False Else: gongjianjgq.Checked = True Picture2.BorderStyle = 1 UCkp52.Visible = True If Val(Form5.Text1.Text) 0 Then UCkp52.Left = (Val(Form5.Text2.Text) - 20) * 50 - 220 工件坐标系显示 UCkp52.Top = Val(Form5.Text1.Text) / 2 * 50 - 300 Else UCkp52.Left = (Val(Form5.Text5.Text) - 20) * 50 - 220 UCkp52.Top = Val(Form5.Text3.Text) / 2 * 50 - 300 End If End IfEnd SubPrivate Sub guanyu_Click() 帮助-关于Form3.ShowForm3.Text1.Text = 西门子数控车仿真软件（XMZFZ-01A）是针对SIENMENS 802S数控系统而设计与开发的。End SubPrivate Sub MDIForm_Load() 工具栏加载biaozhungjl.Checked = Truegongjianjgq.Checked = Falsezdyxbz = Falsejingeilvbh = Falsechaocjc = Falsecankaodian = FalseG96CanShu = 1 恒线速初始量LIMS = 5000 机床最高转速限制End SubPrivate Sub Timer1_Timer() 卡盘正转Static i As IntegerSelect Case iCase 0UCkp11.Visible = TrueUCkp21.Visible = FalseUCkp31.Visible = FalseUCkp41.Visible = TrueUCkp51.Visible = Falsei = i + 1Case 1UCkp11.Visible = FalseUCkp21.Visible = TrueUCkp31.Visible = FalseUCkp41.Visible = FalseUCkp51.Visible = Truei = i + 1Case 2UCkp11.Visible = TrueUCkp21.Visible = FalseUCkp31.Visible = TrueUCkp41.Visible = FalseUCkp51.Visible = Truei = 0End SelectIf dingjian = True Then 顶尖应用判断 If MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Then 如果顶上工件 Form2.Timer14.Enabled = True 顶尖旋转 Else: Form2.Timer14.Enabled = False End If Else: Form2.Timer14.Enabled = False 如果顶尖按钮没按动则顶尖不旋转End IfEnd SubPrivate Sub Timer2_Timer() 卡盘反转Static j As IntegerSelect Case jCase 0UCkp11.Visible = FalseUCkp21.Visible = TrueUCkp31.Visible = FalseUCkp41.Visible = FalseUCkp51.Visible = Truej = j + 1Case 1UCkp11.Visible = TrueUCkp21.Visible = FalseUCkp31.Visible = FalseUCkp41.Visible = TrueUCkp51.Visible = Falsej = j + 1Case 2UCkp11.Visible = TrueUCkp21.Visible = FalseUCkp31.Visible = TrueUCkp41.Visible = FalseUCkp51.Visible = Truej = 0End SelectIf dingjian = True Then 顶尖应用判断 If MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Then Form2.Timer14.Enabled = True Else: Form2.Timer14.Enabled = False End If Else: Form2.Timer14.Enabled = FalseEnd IfEnd SubPrivate Sub Timer3_Timer() -Z Select Case jingeibeilv 进给率调整速率50，100，150。 Case 0 ZouDao = 0 Case 1 ZouDao = 2 Case 2 ZouDao = 5 Case 3 ZouDao = 10 Case 4 ZouDao = 15 End SelectIf jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给率！ Exit SubEnd IfIf Form5.Text1.Text 0.00 Then 轴类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then 主轴没有旋转撞刀 If Image01.Top = 1185 + Val(Form5.Text1.Text) * 50 And Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer3.Enabled = False Exit Sub End If End If Picture4.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 Picture2.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)ElseIf Form5.Text3.Text 0.00 Then 孔类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then 主轴没有旋转撞刀 If Image01.Top = 1185 + Val(Form5.Text3.Text) * 50 And Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer3.Enabled = False Exit Sub End If End If Picture1.Line (0, Val(Form5.Text4.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 Picture2.Line (0, Val(Form5.Text3.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)End IfForm2.XZcmd43.Enabled = TrueIf fangshi = 4 Then 方式4手动方式下 If Image01.Left -3845 Then X负向向超程解除ChaoCheng = 1 And(还没完成超程标) Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True End IfEnd IfForm1.Picture7.Visible = True Z运行标志DaoJiaShuiDi01 切削液水滴移动01If Form4.Option3(0).Value = True Then Form1.Label31.Caption = T1 刀具号 Form1.Label33.Caption = D1UserC11.Move UserC11.Left - ZouDao, UserC11.TopPianDao1 90偏刀（粗）UserC21.Move UserC21.Left - ZouDao, UserC21.TopPianDao2 90偏刀（粗）隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form4.Option3(1).Value = True Then Form1.Label31.Caption = T2 刀具号 Form1.Label33.Caption = D1UserC31.Move UserC31.Left - ZouDao, UserC31.Top 螺纹刀 - ZLuoWenDao1 螺纹刀UserC41.Move UserC41.Left - ZouDao, UserC41.TopLuoWenDao2 螺纹刀隐形刀具If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form4.Option3(2).Value = True Then Form1.Label31.Caption = T3 刀具号 Form1.Label33.Caption = D1UserC51.Move UserC51.Left - ZouDao, UserC51.Top 精车刀-ZJingCheDao1 精车刀UserC61.Move UserC61.Left - ZouDao, UserC61.Top 隐形刀具JingCheDao2 精车刀隐形刀具If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form4.Option3(3).Value = True Then Form1.Label31.Caption = T4 刀具号 Form1.Label33.Caption = D1UserC71.Move UserC71.Left - ZouDao, UserC71.Top 切槽刀-ZQieCaoDao1 切槽刀UserC81.Move UserC81.Left - ZouDao, UserC81.Top 隐形刀具QieCaoDao2 切槽刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form4.Option3(4).Value = True Then Form1.Label31.Caption = T5 刀具号 Form1.Label33.Caption = D1UserC91.Move UserC91.Left - ZouDao, UserC91.Top 镗刀-ZTangDao1 镗刀UserC101.Move UserC101.Left - ZouDao, UserC101.Top 隐形刀具TangDao2 镗刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& ThenForm1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02Form1.Text2.Text = Format(Form1.Text2.Text, #0.000)End IfEnd SubPrivate Sub Timer5_Timer() -X Select Case jingeibeilv 进给率调整速率50，100，150。 Case 0 ZouDao = 0 Case 1 ZouDao = 2 Case 2 ZouDao = 5 Case 3 ZouDao = 10 Case 4 ZouDao = 15 End SelectIf jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给率！ Exit SubEnd IfIf Form5.Text1.Text 0.00 Then 轴类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then If Image01.Top = 1185 + Val(Form5.Text1.Text) * 50 And Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer5.Enabled = False Exit Sub End If End If Picture4.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 Picture2.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)ElseIf Form5.Text3.Text 0.00 Then 孔类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then If Image01.Top = 1185 + Val(Form5.Text3.Text) * 50 And Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer5.Enabled = False Exit Sub End If End If Picture1.Line (0, Val(Form5.Text4.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 Picture2.Line (0, Val(Form5.Text3.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)End If Form2.XZcmd41.Enabled = TrueIf fangshi = 4 Then 指示灯亮-方式4手动方式下Form2.zsd1(4).BackColor = &H80FF80 If Image01.Top 800 Then Z负向向超程解除ChaoCheng = 1 And(还没完成超程标) Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True End IfEnd IfForm1.Picture6.Visible = True X运行标志Image01.Move Image01.Left, Image01.Top - ZouDaoIf Form4.Option3(0).Value = True Then Form1.Label31.Caption = T1 刀具号 Form1.Label33.Caption = D1UserC11.Move UserC11.Left, UserC11.Top - ZouDao 90偏刀（粗）-XPianDao1 90偏刀（粗）UserC21.Move UserC21.Left, UserC21.Top + ZouDaoPianDao2 90偏刀（粗）隐形刀具Picture4.Line (UserC21.Left + 480, UserC21.Top + 1095 - 370)-Step(0, -715), RGB(128, 255, 128) If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(1).Value = True Then Form1.Label31.Caption = T2 刀具号 Form1.Label33.Caption = D1UserC31.Move UserC31.Left, UserC31.Top - ZouDao 螺纹刀 - XLuoWenDao1 螺纹刀UserC41.Move UserC41.Left, UserC41.Top + ZouDaoLuoWenDao2 螺纹刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(2).Value = True Then Form1.Label31.Caption = T3 刀具号 Form1.Label33.Caption = D1UserC51.Move UserC51.Left, UserC51.Top - ZouDao 精车刀-XJingCheDao1 精车刀UserC61.Move UserC61.Left, UserC61.Top + ZouDao 隐形刀具JingCheDao2 精车刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(3).Value = True Then Form1.Label31.Caption = T4 刀具号 Form1.Label33.Caption = D1UserC71.Move UserC71.Left, UserC71.Top - ZouDao 切槽刀-XQieCaoDao1 切槽刀UserC81.Move UserC81.Left, UserC81.Top + ZouDao 隐形刀具QieCaoDao2 切槽刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(4).Value = True Then Form1.Label31.Caption = T5 刀具号 Form1.Label33.Caption = D1UserC91.Move UserC91.Left, UserC91.Top - ZouDao 镗刀-ZTangDao1 镗刀UserC101.Move UserC101.Left, UserC101.Top + ZouDao 隐形刀具TangDao2 镗刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件长度=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& ThenForm1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2Form1.Text1.Text = Format(Form1.Text1.Text, #0.000)End IfEnd SubPrivate Sub Timer4_Timer() +Z Select Case jingeibeilv 进给率调整速率50，100，150。 Case 0 ZouDao = 0 Case 1 ZouDao = 2 Case 2 ZouDao = 5 Case 3 ZouDao = 10 Case 4 ZouDao = 15 End SelectIf jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给率！ Exit SubEnd IfForm2.XZcmd42.Enabled = TrueIf fangshi = 5 Then 方式5回参考点 Form2.zsd1(5).BackColor = &H80FF80 Form2.XZcmd40.Enabled = False Form2.XZcmd42.Enabled = False Timer4.Interval = 10 ZouDao = 10 If Image01.Left = 9000 Then Form2.XZcmd43.Enabled = False Form1.Text4.Text = 参考点回零 Form1.Label4.Caption = 参考点回零 Form1.Label39.Caption = 参考点回零 cankaodian = True 回参判断 Form1.Text2.Text = 0 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) Form1.Picture7.Visible = False 参考点图形显示 Form1.Picture4.Visible = True Timer4.Enabled = False Exit Sub End IfEnd IfIf fangshi = 4 Then 指示灯亮-方式4手动方式下Form2.zsd1(4).BackColor = &H80FF80 If Image01.Left = 9010 Then Form1.Label4.Caption = Z正向超程 Form1.Label39.Caption = Z正向超程请在手动方式下Z负向回程！ Form2.XZcmd43.Enabled = False Timer4.Enabled = False 超程标志 ChaoCheng = 1 Exit Sub End If If Image01.Top = 8000 Then Form2.XZcmd41.Enabled = False Form1.Text4.Text = 参考点回零 Form1.Label4.Caption = 参考点回零 Form1.Label39.Caption = 参考点回零 cankaodian = True 回参判断 Form1.Text1.Text = 0 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Picture6.Visible = False 参考点图形显示 Form1.Picture3.Visible = True Timer6.Enabled = False Exit Sub End IfEnd IfIf fangshi = 4 Then 指示的亮-方式4手动Form2.zsd1(4).BackColor = &H80FF80 If Image01.Top = 8010 Then Form1.Label4.Caption = X正向超程 Form1.Label39.Caption = X正向超程请在手动方式下X负向回程！ Form2.XZcmd41.Enabled = False Timer6.Enabled = False 超程标志 ChaoCheng = 1 Exit Sub End If If Image01.Left 9000 Then Z正向超程解除ChaoCheng = 1 And（还没完成超程标志） Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True Form2.XZcmd40.Enabled = True Form2.XZcmd42.Enabled = True End IfEnd IfImage01.Move Image01.Left, Image01.Top + ZouDaoIf Form4.Option3(0).Value = True Then 90偏刀（粗）加工 Form1.Label31.Caption = T1 刀具号 Form1.Label33.Caption = D1UserC11.Move UserC11.Left, UserC11.Top + ZouDao 90偏刀（粗）+XPianDao1 90偏刀（粗）UserC21.Move UserC21.Left, UserC21.Top - ZouDaoPianDao2 90偏刀（粗）隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(1).Value = True Then 螺纹刀加工 Form1.Label31.Caption = T2 刀具号 Form1.Label33.Caption = D1UserC31.Move UserC31.Left, UserC31.Top + ZouDao 螺纹刀 +XLuoWenDao1 螺纹刀UserC41.Move UserC41.Left, UserC41.Top - ZouDaoLuoWenDao2 螺纹刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(2).Value = True Then 精车刀加工 Form1.Label31.Caption = T3 刀具号 Form1.Label33.Caption = D1UserC51.Move UserC51.Left, UserC51.Top + ZouDao 精车刀+XJingCheDao1 精车刀UserC61.Move UserC61.Left, UserC61.Top - ZouDao 隐形刀具JingCheDao2 精车刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(3).Value = True Then 切槽刀加工 Form1.Label31.Caption = T4 刀具号 Form1.Label33.Caption = D1UserC71.Move UserC71.Left, UserC71.Top + ZouDao 切槽刀+XQieCaoDao1 切槽刀UserC81.Move UserC81.Left, UserC81.Top - ZouDao 隐形刀具QieCaoDao2 切槽刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form4.Option3(4).Value = True Then Form1.Label31.Caption = T5 刀具号 Form1.Label33.Caption = D1UserC91.Move UserC91.Left, UserC91.Top + ZouDao 镗刀-ZTangDao1 镗刀UserC101.Move UserC101.Left, UserC101.Top - ZouDao 隐形刀具TangDao2 镗刀隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件长度=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& ThenForm1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2Form1.Text1.Text = Format(Form1.Text1.Text, #0.000)End IfEnd SubPrivate Sub Timer7_Timer() 卡爪移动夹紧If Form5.Text1.Text 0.00 And Form5.Text3.Text = 0.00 Then If UCkp11.Top = 3400 + Val(Form5.Text1.Text) * 50 / 2 Then UCkp11.Move UCkp11.Left, UCkp11.Top + 5 卡爪移动 UCkp21.Move UCkp21.Left, UCkp21.Top + 5 UCkp41.Move UCkp41.Left, UCkp41.Top - 5 UCkp51.Move UCkp51.Left, UCkp51.Top - 5 Else Timer7.Enabled = False End IfElseIf Form5.Text3.Text 0.00 And Form5.Text1.Text = 0.00 Then If UCkp11.Top = 3400 + Val(Form5.Text3.Text) * 50 / 2 Then UCkp11.Move UCkp11.Left, UCkp11.Top + 5 卡爪移动 UCkp21.Move UCkp21.Left, UCkp21.Top + 5 UCkp41.Move UCkp41.Left, UCkp41.Top - 5 UCkp51.Move UCkp51.Left, UCkp51.Top - 5 Else Timer7.Enabled = False End IfEnd IfEnd SubPrivate Sub Timer8_Timer() 划中心线 Picture4.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 Picture2.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)End SubPrivate Sub DaoJiaShuiDi01() 刀架，水滴移动函数-Z Image01.Move Image01.Left - ZouDao, Image01.Top UserC0.Move UserC0.Left - ZouDao, UserC0.Top UserC1.Move UserC1.Left - ZouDao, UserC1.Top UserC2.Move UserC2.Left - ZouDao, UserC2.Top UserC3.Move UserC3.Left - ZouDao, UserC3.Top UserC4.Move UserC4.Left - ZouDao, UserC4.Top UserC5.Move UserC5.Left - ZouDao, UserC5.Top UserC6.Move UserC6.Left - ZouDao, UserC6.TopEnd SubPrivate Sub DaoJiaShuiDi02() 刀架，水滴移动函数+Z Image01.Move Image01.Left + ZouDao, Image01.Top UserC0.Move UserC0.Left + ZouDao, UserC0.Top UserC1.Move UserC1.Left + ZouDao, UserC1.Top UserC2.Move UserC2.Left + ZouDao, UserC2.Top UserC3.Move UserC3.Left + ZouDao, UserC3.Top UserC4.Move UserC4.Left + ZouDao, UserC4.Top UserC5.Move UserC5.Left + ZouDao, UserC5.Top UserC6.Move UserC6.Left + ZouDao, UserC6.TopEnd SubPrivate Sub PianDao1() 90偏刀（粗） Picture4.Line (UserC11.Left, UserC11.Top)-Step(0, 500), RGB(128, 255, 128) 工作刀具 Picture4.Line (UserC11.Left, UserC11.Top + 500)-Step(70, 0), RGB(128, 255, 128) Picture4.Line (UserC11.Left + 60, UserC11.Top + 500)-Step(0, 620), RGB(128, 255, 128) Picture4.Line (UserC11.Left, UserC11.Top - 20)-Step(350, 80), RGB(128, 255, 128) Picture4.Line (UserC11.Left + 350, UserC11.Top + 80)-Step(130, 310), RGB(128, 255, 128) Picture4.Line (UserC11.Left + 480, UserC11.Top + 380)-Step(0, 740), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left + 60, MDIForm1.UserC11.Top + 1120)-Step(420, 0), RGB(128, 255, 128)End SubPrivate Sub PianDao2() 90偏刀（粗）隐形刀具 Picture4.Line (UserC21.Left + 70, UserC21.Top)-Step(0, 625), RGB(128, 255, 128) 隐形刀具 Picture4.Line (UserC21.Left + 70, UserC21.Top + 625)-Step(-70, 0), RGB(128, 255, 128) Picture4.Line (UserC21.Left, UserC21.Top + 625)-Step(0, 480), RGB(128, 255, 128) Picture4.Line (UserC21.Left, UserC21.Top + 1150)-Step(350, -80), RGB(128, 255, 128) Picture4.Line (UserC21.Left + 360, UserC21.Top + 1095 - 70)-Step(130, -300), RGB(128, 255, 128) Picture4.Line (UserC21.Left + 480, UserC21.Top + 1095 - 370)-Step(0, -715), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left, MDIForm1.UserC21.Top)-Step(470, 0), RGB(128, 255, 128)End SubPrivate Sub LuoWenDao1() 螺纹刀Picture4.Line (UserC31.Left + 100, UserC31.Top - 10)-Step(-120, 240), RGB(128, 255, 128) 工作刀具Picture4.Line (UserC31.Left, UserC31.Top + 240)-Step(0, 930), RGB(128, 255, 128)Picture4.Line (UserC31.Left + 120, UserC31.Top - 10)-Step(120, 250), RGB(128, 255, 128)Picture4.Line (UserC31.Left + 240, UserC31.Top + 240)-Step(0, 930), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC31.Left, MDIForm1.UserC31.Top + 1160)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub LuoWenDao2() 螺纹刀隐形刀具Picture4.Line (UserC41.Left, UserC41.Top)-Step(0, 930), RGB(128, 255, 128) 隐形刀具Picture4.Line (UserC41.Left, UserC41.Top + 930)-Step(125, 240), RGB(128, 255, 128)Picture4.Line (UserC41.Left + 110, UserC41.Top + 1170)-Step(110, -240), RGB(128, 255, 128)Picture4.Line (UserC41.Left + 260, UserC41.Top + 930)-Step(0, -930), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC41.Left, MDIForm1.UserC41.Top)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub JingCheDao1() 精车刀Picture4.Line (UserC51.Left, UserC51.Top)-Step(0, 550), RGB(128, 255, 128) 工作刀具Picture4.Line (UserC51.Left, UserC51.Top + 550)-Step(80, 0), RGB(128, 255, 128)Picture4.Line (UserC51.Left + 80, UserC51.Top + 550)-Step(0, 610), RGB(128, 255, 128)Picture4.Line (UserC51.Left, UserC51.Top)-Step(360, 240), RGB(128, 255, 128)Picture4.Line (UserC51.Left + 360, UserC51.Top + 240)-Step(120, 360), RGB(128, 255, 128)Picture4.Line (UserC51.Left + 480, UserC51.Top + 600)-Step(0, 560), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left, MDIForm1.UserC51.Top + 1150)-Step(480, 0), RGB(128, 255, 128)End SubPrivate Sub JingCheDao2() 精车刀隐形刀具Picture4.Line (UserC61.Left + 80, UserC61.Top)-Step(0, 610), RGB(128, 255, 128)Picture4.Line (UserC61.Left + 80, UserC61.Top + 590)-Step(-80, 0), RGB(128, 255, 128)Picture4.Line (UserC61.Left, UserC61.Top + 610)-Step(0, 550), RGB(128, 255, 128)Picture4.Line (UserC61.Left, UserC61.Top + 1160)-Step(360, -240), RGB(128, 255, 128)Picture4.Line (UserC61.Left + 360, UserC61.Top + 920)-Step(120, -360), RGB(128, 255, 128)Picture4.Line (UserC61.Left + 490, UserC61.Top + 560)-Step(0, -550), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left, MDIForm1.UserC61.Top)-Step(480, 0), RGB(128, 255, 128)End SubPrivate Sub QieCaoDao1() 切槽刀Picture4.Line (UserC71.Left, UserC71.Top)-Step(0, 1160), RGB(128, 255, 128) 工作刀具Picture4.Line (UserC71.Left, UserC71.Top)-Step(240, 0), RGB(128, 255, 128)Picture4.Line (UserC71.Left + 240, UserC71.Top)-Step(0, 1160), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC71.Left, MDIForm1.UserC71.Top + 1160)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub QieCaoDao2() 切槽刀隐形刀具Picture4.Line (UserC81.Left, UserC81.Top)-Step(0, 1155), RGB(128, 255, 128)Picture4.Line (UserC81.Left, UserC81.Top + 1150)-Step(240, 0), RGB(128, 255, 128)Picture4.Line (UserC81.Left + 240, UserC81.Top)-Step(0, 1155), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC81.Left, MDIForm1.UserC81.Top)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub TangDao1() 镗刀Picture4.Line (UserC91.Left - 5, UserC91.Top + 450)-Step(50, -230), RGB(128, 255, 128) 工作刀具Picture4.Line (UserC91.Left + 50, UserC91.Top + 225)-Step(310, -230), RGB(128, 255, 128)Picture4.Line (UserC91.Left + 360, UserC91.Top)-Step(870, 0), RGB(128, 255, 128)Picture4.Line (UserC91.Left - 5, UserC91.Top + 465)-Step(420, 0), RGB(128, 255, 128)Picture4.Line (UserC91.Left + 420, UserC91.Top + 460)-Step(0, -160), RGB(128, 255, 128)Picture4.Line (UserC91.Left + 420, UserC91.Top + 290)-Step(810, 0), RGB(128, 255, 128)Picture4.Line (UserC91.Left + 1220, UserC91.Top)-Step(0, 280), RGB(128, 255, 128)End SubPrivate Sub TangDao2() 镗刀隐形刀具Picture4.Line (UserC101.Left, UserC101.Top)-Step(420, 0), RGB(128, 255, 128)Picture4.Line (UserC101.Left + 420, UserC101.Top)-Step(0, 160), RGB(128, 255, 128)Picture4.Line (UserC101.Left + 420, UserC101.Top + 160)-Step(810, 0), RGB(128, 255, 128)Picture4.Line (UserC101.Left + 1220, UserC101.Top + 160)-Step(0, 280), RGB(128, 255, 128)Picture4.Line (UserC101.Left, UserC101.Top)-Step(50, 230), RGB(128, 255, 128)Picture4.Line (UserC101.Left + 50, UserC101.Top + 235)-Step(310, 230), RGB(128, 255, 128)Picture4.Line (UserC101.Left + 350, UserC101.Top + 460)-Step(870, 0), RGB(128, 255, 128)End SubForm1：Private Sub Command28_Click() -Shift键作用Static bnbn As IntegerSelect Case bnbn Case 0 选上方字符 Shift = 1 bnbn = 1 Case 1 选下方字符 Shift = 0 bnbn = 0End SelectEnd SubPrivate Sub ZIFUSHURU() -字符输入函数 Select Case Asii 判断在那儿输入文本 Case 0 Text5.Text = Text5.Text & zifucs 输新程序名处 Text5.SetFocus Case 1 RichTB1(0).Text = RichTB1(0).Text & zifucs 输入程序段01 RichTB1(0).SetFocus Case 2 RichTB1(1).Text = RichTB1(1).Text & zifucs RichTB1(1).SetFocus Case 3 RichTB1(2).Text = RichTB1(2).Text & zifucs RichTB1(2).SetFocus Case 4 RichTB1(3).Text = RichTB1(3).Text & zifucs RichTB1(3).SetFocus Case 5 RichTB1(4).Text = RichTB1(4).Text & zifucs RichTB1(4).SetFocus Case 6 Text6.Text = Text6.Text & zifucs MDA程序输入 Text6.SetFocus End SelectEnd SubPrivate Sub Command14_Click() -字符F输入 If Shift = 0 Then zifucs = F ZIFUSHURU Else zifucs = O ZIFUSHURU End IfEnd SubPrivate Sub Command15_Click() -字符S输入If Shift = 0 Then zifucs = S ZIFUSHURU Else zifucs = Q ZIFUSHURU End IfEnd SubPrivate Sub Command16_Click() -字符M输入If Shift = 0 Then zifucs = M ZIFUSHURU Else zifucs = H ZIFUSHURUEnd IfEnd Sub Private Sub Command17_Click() -字符.输入 zifucs = . ZIFUSHURUEnd SubPrivate Sub Command18_Click(Index As Integer) -字符0-9输入Select Case IndexCase 0If Shift = 0 Then zifucs = 0 ZIFUSHURU Else zifucs = $ ZIFUSHURUEnd IfCase 1If Shift = 0 Then zifucs = 1 ZIFUSHURU Else zifucs = , ZIFUSHURUEnd IfCase 2 zifucs = 2 ZIFUSHURUCase 3If Shift = 0 Then zifucs = 3 ZIFUSHURU Else zifucs = = ZIFUSHURUEnd IfCase 4If Shift = 0 Then zifucs = 4 ZIFUSHURU Else zifucs = ZIFUSHURUEnd IfCase 8If Shift = 0 Then zifucs = 8 ZIFUSHURU Else zifucs = / ZIFUSHURUEnd IfCase 9If Shift = 0 Then zifucs = 9 ZIFUSHURU Else zifucs = + ZIFUSHURUEnd IfEnd SelectEnd SubPrivate Sub Command19_Click() -字符I输入If Shift = 0 Then zifucs = I ZIFUSHURU Else zifucs = ZIFUSHURUEnd IfEnd SubPrivate Sub Command20_Click() -字符J输入 If Shift = 0 Then zifucs = J ZIFUSHURU Else zifucs = ZIFUSHURUEnd IfEnd SubPrivate Sub Command21_Click() -字符K输入 zifucs = K ZIFUSHURUEnd SubPrivate Sub Command22_Click() -字符L输入If Shift = 0 Then zifucs = L ZIFUSHURU Else zifucs = _ ZIFUSHURUEnd IfEnd SubPrivate Sub Command23_Click() -字符P输入If Shift = 0 Then zifucs = P ZIFUSHURU Else zifucs = : ZIFUSHURUEnd IfEnd SubPrivate Sub Command24_Click() -字符R输入If Shift = 0 Then zifucs = R ZIFUSHURU Else zifucs = ZIFUSHURUEnd IfEnd SubPrivate Sub Command25_Click() -字符A输入If Shift = 0 Then zifucs = A ZIFUSHURU Else zifucs = U ZIFUSHURUEnd IfEnd SubPrivate Sub Command26_Click() -字符B输入If Shift = 0 Then zifucs = B ZIFUSHURU Else zifucs = V ZIFUSHURUEnd IfEnd SubPrivate Sub Command27_Click() -字符C输入If Shift = 0 Then zifucs = C ZIFUSHURU Else zifucs = W ZIFUSHURUEnd IfEnd SubPrivate Sub Command29_Click() -字符输入 zifucs = ZIFUSHURUEnd SubPrivate Sub Command3_Click() 进入程序库Form7.ShowForm7.Enabled = TruePicture12.BackColor = &H80FF80 指示灯亮End SubPrivate Sub Command6_Click() -字符N输入 If Shift = 0 Then zifucs = N ZIFUSHURU Else zifucs = : ZIFUSHURU End IfEnd SubPrivate Sub Command7_Click(Index As Integer) -字符X、Y、Z输入Select Case IndexCase 0 zifucs = X ZIFUSHURUCase 1 zifucs = Y ZIFUSHURUCase 2 zifucs = Z ZIFUSHURUEnd SelectEnd SubPrivate Sub Command8_Click() -字符T输入 If Shift = 0 Then zifucs = T ZIFUSHURU Else zifucs = ( ZIFUSHURU End IfEnd SubPrivate Sub Command9_Click() -字符D输入If Shift = 0 Thenzifucs = D ZIFUSHURU Else zifucs = ) ZIFUSHURU End IfEnd SubPrivate Sub Command13_Click() -字符G输入 If Shift = 0 Then zifucs = G ZIFUSHURU Else zifucs = E ZIFUSHURU End IfEnd SubPrivate Sub Command30_Click() 回车按钮If Picture9.Visible = True Then -文件名输入状态If xinchengxu = 0 ThenPicture9.Visible = False Label19(0).Caption = Text5.Text RichTB1(0).Visible = True RichTB1(0).SetFocus 获得焦点，输入数据 Asii = 1 Label5.Caption = RichTB1(0).M(S)PFEnd IfIf xinchengxu = 1 Then Picture9.Visible = False Label19(1).Caption = Text5.Text RichTB1(1).Visible = True RichTB1(1).SetFocus 获得焦点，输入数据 Asii = 2 Label5.Caption = RichTB1(1).M(S)PFEnd IfIf xinchengxu = 2 Then Picture9.Visible = False Label19(2).Caption = Text5.Text RichTB1(2).Visible = True RichTB1(2).SetFocus 获得焦点，输入数据 Asii = 3 Label5.Caption = RichTB1(2).M(S)PFEnd IfIf xinchengxu = 3 Then Picture9.Visible = False Label19(3).Caption = Text5.Text RichTB1(3).Visible = True RichTB1(3).SetFocus 获得焦点，输入数据 Asii = 4 Label5.Caption = RichTB1(3).M(S)PFEnd IfIf xinchengxu = 4 Then Picture9.Visible = False Label19(4).Caption = Text5.Text RichTB1(4).Visible = True RichTB1(4).SetFocus 获得焦点，输入数据 Asii = 5 Label5.Caption = RichTB1(4).M(S)PFEnd IfElse -MDA输入状态 If cankaodian = False Then 回参判断 Label4.Caption = 没有回参考点！ Label39.Caption = 没有回参考点！请点击进行回参考按钮，进行回参考点操作！ Exit Sub Else: Label4.Caption = 运行正常 Label39.Caption = 运行正常 End If If jingeibeilv = 0 Then 进给为零 zdyxbz = False Label4.Caption = 无法运行，进给率为0！ Label39.Caption = 无法运行，进给率为0请调整进给倍率 Exit Sub Else: Label4.Caption = 运行正常 Label39.Caption = 运行正常 End IfRichTB(0).Text = Text6.Text -MDA输入Text6.Text = End If -End SubPrivate Sub Command31_Click(Index As Integer) 上下选择Static wjk As IntegerSelect Case IndexCase 0 Select Case wenjiani Case 0 For wjk = 0 To 3 Label19(wjk).BackColor = &HFFFFFF Next wjk Label19(4).BackColor = &HC0FFC0 wenjiani = 4 Case 1 Label19(0).BackColor = &HC0FFC0 For wjk = 1 To 4 Label19(wjk).BackColor = &HFFFFFF Next wjk wenjiani = wenjiani - 1 Case 2 Label19(0).BackColor = &HFFFFFF Label19(1).BackColor = &HC0FFC0 For wjk = 2 To 4 Label19(wjk).BackColor = &HFFFFFF Next wjk wenjiani = wenjiani - 1 Case 3 Label19(0).BackColor = &HFFFFFF Label19(1).BackColor = &HFFFFFF Label19(2).BackColor = &HC0FFC0 Label19(3).BackColor = &HFFFFFF Label19(4).BackColor = &HFFFFFF wenjiani = wenjiani - 1 Case 4 For wjk = 0 To 2 Label19(wjk).BackColor = &HFFFFFF Next wjk Label19(3).BackColor = &HC0FFC0 Label19(4).BackColor = &HFFFFFF wenjiani = wenjiani - 1 End SelectCase 1 Select Case wenjiani Case 0 Label19(0).BackColor = &HFFFFFF Label19(1).BackColor = &HC0FFC0 For wjk = 2 To 4 Label19(wjk).BackColor = &HFFFFFF Next wjk wenjiani = wenjiani + 1 Case 1 Label19(0).BackColor = &HFFFFFF Label19(1).BackColor = &HFFFFFF Label19(2).BackColor = &HC0FFC0 Label19(3).BackColor = &HFFFFFF Label19(4).BackColor = &HFFFFFF wenjiani = wenjiani + 1 Case 2 For wjk = 0 To 2 Label19(wjk).BackColor = &HFFFFFF Next wjk Label19(3).BackColor = &HC0FFC0 Label19(4).BackColor = &HFFFFFF wenjiani = wenjiani + 1 Case 3 For wjk = 0 To 3 Label19(wjk).BackColor = &HFFFFFF Next wjk Label19(4).BackColor = &HC0FFC0 wenjiani = wenjiani + 1 Case 4 Label19(0).BackColor = &HC0FFC0 For wjk = 1 To 4 Label19(wjk).BackColor = &HFFFFFF Next wjk wenjiani = 0 End SelectCase 2Case 3End SelectEnd SubPrivate Sub Command11_Click(Index As Integer) 命令按钮组&Select Case IndexCase 0 刀具补偿 Picture10(0).Visible = True For anniu = 0 To 14 Command11(anniu).Visible = False Next anniu For anniu = 15 To 19 Command11(anniu).Visible = True Next anniu For anniu = 20 To 24 Command11(anniu).Visible = False Next anniuLabel13.Caption = 复位刀沿Label14.Caption = Label16.Caption = Label17.Caption = 对刀Case 1 程检Timer2.Enabled = TrueCase 2 程序名界面 Picture8.Visible = True RichTB(0).Visible = False RichTB(1).Visible = False For richi = 0 To 4 RichTB1(richi).Visible = False Next richi Picture9.Visible = False Form1.Timer2.Enabled = False 程检强行停止Case 3 机床/工件坐标屏幕显示Static jizuobiaoi As IntegerIf jizuobiaoi = 0 Then Text4.Text = 工件坐标 Form2.Picture11.BackColor = &H80FF80 机床/工件坐标指示灯亮 If Form4.Option3(0).Value = True Then 1号刀具加工位置 Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(1).Value = True Then Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(2).Value = True Then Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(3).Value = True Then Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(4).Value = True Then Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If Text1.Text = Format(Text1.Text, #0.000) Text2.Text = Format(Text2.Text, #0.000) jizuobiaoi = jizuobiaoi + 1Else: Text4.Text = 机床坐标 Form2.Picture11.BackColor = &H8000& 机床/工件坐标指示灯灭 Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + 300 Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + 105 直径 Text1.Text = Format(Text1.Text, #0.000) Text2.Text = Format(Text2.Text, #0.000) jizuobiaoi = 0 End IfCase 4 选择：加工前必须先选择程序 Picture9.Visible = False RichTB(0).Visible = False RichTB(1).Visible = False For richi = 0 To 4 RichTB1(richi).Visible = False Next richi Picture8.Visible = False For labeli = 0 To 4 If Label19(labeli).BackColor = &HC0FFC0 Then RichTB(0).Text = RichTB1(labeli).Text Label5.Caption = Label19(labeli).Caption End If Next labeliCase 5 加工 For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = Label14.Caption = 自动 Label15.Caption = Label16.Caption = 机/工坐标 Label17.Caption = Label35.Visible = False Label36.Visible = FalseCase 6 参数 For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = 刀具补偿 Label14.Caption = Label15.Caption = Label16.Caption = Label17.Caption = Label35.Visible = False Label36.Visible = FalseCase 7 程序 For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = Label14.Caption = 程序检验 Label15.Caption = 程序 Label16.Caption = Label17.Caption = 选择 Label35.Visible = True kkjj = 1Case 8 通讯 For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = Label14.Caption = Label15.Caption = Label16.Caption = Label17.Caption = Label35.Visible = False Label36.Visible = FalseCase 9 诊断 Picture11.Visible = True 程序诊断界面 For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = Label14.Caption = Label15.Caption = Label16.Caption = Label17.Caption = Label35.Visible = False Label36.Visible = FalseCase 10 打开程序 Picture8.Visible = False RichTB(0).Visible = False RichTB(1).Visible = False For richi = 0 To 4 RichTB1(richi).Visible = False Next richi For labeli = 0 To 4 If Label19(labeli).BackColor = &HC0FFC0 Then RichTB1(labeli).Visible = True Asii = labeli + 1 RichTB1(labeli).SetFocus 输入获得焦点 End If Next labeliCase 11 新建程序 Picture9.Visible = True RichTB(0).Visible = False RichTB(1).Visible = False For richi = 0 To 4 RichTB1(richi).Visible = False Next richi Picture8.Visible = False Select Case XCXI Case 0 xinchengxu = 0 XCXI = XCXI + 1 Case 1 xinchengxu = 1 XCXI = XCXI + 1 Case 2 xinchengxu = 2 XCXI = XCXI + 1 Case 3 xinchengxu = 3 XCXI = XCXI + 1 Case 4 xinchengxu = 4 XCXI = 0 End Select Text5.Text = Text5.SetFocus 新建程序名输入获得焦点 Asii = 0Case 12 删除 For labeli = 0 To 4 If Label19(labeli).BackColor = &HC0FFC0 Then RichTB1(labeli).Text = Label19(labeli).Caption = XCXI = labeli End If Next labeliCase 13Case 14 关闭 RichTB(0).Visible = False RichTB(1).Visible = False For richi = 0 To 4 RichTB1(richi).Visible = False Next richi Picture8.Visible = False Label5.Caption = Case 15 复位刀沿 If Text11(0).Visible = True Then For anniu = 0 To 3 Text11(anniu).Text = 0.000 Next anniu End If If Text12(0).Visible = True Then For anniu = 0 To 3 Text12(anniu).Text = 0.000 Next anniu End If If Text14(0).Visible = True Then For anniu = 0 To 3 Text14(anniu).Text = 0.000 Next anniu End If If Text15(0).Visible = True Then For anniu = 0 To 3 Text15(anniu).Text = 0.000 Next anniu End If If Text16(0).Visible = True Then For anniu = 0 To 3 Text16(anniu).Text = 0.000 Next anniu End If If Text17(0).Visible = True Then For anniu = 0 To 3 Text17(anniu).Text = 0.000 Next anniu End If Case 16 For anniu = 0 To 3 Text11(anniu).Visible = False Next anniu For anniu = 0 To 3 Text12(anniu).Visible = False Next anniu For anniu = 0 To 3 Text14(anniu).Visible = False Next anniu For anniu = 0 To 3 Text15(anniu).Visible = False Next anniu For anniu = 0 To 3 Text16(anniu).Visible = False Next anniu For anniu = 0 To 3 Text17(anniu).Visible = False Next anniuSelect Case mm Case 0 Text7.Text = 2 Text21.Text = 2 For anniu = 0 To 3 Text12(anniu).Visible = True Next anniu mm = mm + 1 Case 1 Text7.Text = 3 Text21.Text = 3 For anniu = 0 To 3 Text14(anniu).Visible = True Next anniu mm = mm + 1 Case 2 Text7.Text = 4 Text21.Text = 4 For anniu = 0 To 3 Text15(anniu).Visible = True Next anniu mm = mm + 1 Case 3 Text7.Text = 5 Text21.Text = 5 For anniu = 0 To 3 Text16(anniu).Visible = True Next anniu mm = mm + 1 Case 4 Text7.Text = 6 Text21.Text = 6 For anniu = 0 To 3 Text17(anniu).Visible = True Next anniu mm = mm + 1 Case 5 Text7.Text = 1 Text21.Text = 1 For anniu = 0 To 3 Text11(anniu).Visible = True Next anniu mm = 0End Select Text19(0).Text = 0 Text20(0).Text = 0 Text19(0).Text = Format(Text19(0).Text, #0.000) Text20(0).Text = Format(Text20(0).Text, #0.000) Text19(1).Text = 0 Text20(1).Text = 0 Text19(1).Text = Format(Text19(1).Text, #0.000) Text20(1).Text = Format(Text20(1).Text, #0.000)Case 18Case 19 对刀 Picture10(0).Visible = False 刀具补偿界面 Picture10(1).Visible = True 对刀界面 Picture12.Visible = False Text10(0).Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 机床坐标（X） Text10(1).Text = (MDIForm1.Image01.Left - 9000) * 0.02 机床坐标（Z） Text10(0).Text = Format(Text10(0).Text, #0.000) Text10(1).Text = Format(Text10(1).Text, #0.000) Text9.Visible = False Text10(0).Visible = True Text19(0).Visible = True Text20(0).Visible = True For anniu = 0 To 19 Command11(anniu).Visible = False Next anniu For anniu = 20 To 24 Command11(anniu).Visible = True Next anniu Label13.Caption = Label14.Caption = 轴+ Label15.Caption = Label16.Caption = 计算 Label17.Caption = 确定 Label36.Visible = True jjkk = 2 Text19(0).SetFocus X直径，输入获得焦点Case 20Case 21 轴+ If Text9.Visible = False Then Text9.Visible = True Text10(1).Visible = True Text19(1).Visible = True Picture12.Visible = True Z对刀显示图 Text20(1).Visible = True Text10(0).Visible = False Text19(0).Visible = False Text20(0).Visible = False Else Text9.Visible = False Picture12.Visible = False Z对刀显示图 Text10(1).Visible = False Text19(1).Visible = False Text20(1).Visible = False Text10(0).Visible = True Text19(0).Visible = True Text20(0).Visible = True End If Text19(1).SetFocus Z长度，输入获得焦点Case 22Case 23 计算 If Text9.Visible = False Then Text20(0).Text = Val(Text10(0).Text) - Val(Text19(0).Text) Text20(0).Text = Format(Text20(0).Text, #0.000) Else Text20(1).Text = Val(Text10(1).Text) - Val(Text19(1).Text) Text20(1).Text = Format(Text20(1).Text, #0.000) End IfCase 24 确定 Picture10(0).Visible = True 刀具补偿界面 Picture10(1).Visible = False 对刀界面 If Text7.Text = 1 Then Text11(0).Text = Val(Text20(0).Text) 1号刀X偏置 Text11(2).Text = Val(Text20(1).Text) 1号刀Z偏置 Text11(0).Text = Format(Text11(0).Text, #0.000) Text11(2).Text = Format(Text11(2).Text, #0.000) ElseIf Text7.Text = 2 Then Text12(0).Text = Val(Text20(0).Text) Text12(2).Text = Val(Text20(1).Text) Text12(0).Text = Format(Text12(0).Text, #0.000) Text12(2).Text = Format(Text12(2).Text, #0.000) ElseIf Text7.Text = 3 Then Text14(0).Text = Val(Text20(0).Text) Text14(2).Text = Val(Text20(1).Text) Text14(0).Text = Format(Text14(0).Text, #0.000) Text14(2).Text = Format(Text14(2).Text, #0.000) ElseIf Text7.Text = 4 Then Text15(0).Text = Val(Text20(0).Text) Text15(2).Text = Val(Text20(1).Text) Text15(0).Text = Format(Text15(0).Text, #0.000) Text15(2).Text = Format(Text15(2).Text, #0.000) ElseIf Text7.Text = 5 Then Text16(0).Text = Val(Text20(0).Text) Text16(2).Text = Val(Text20(1).Text) Text16(0).Text = Format(Text16(0).Text, #0.000) Text16(2).Text = Format(Text16(2).Text, #0.000) ElseIf Text7.Text = 6 Then Text17(0).Text = Val(Text20(0).Text) Text17(2).Text = Val(Text20(1).Text) Text17(0).Text = Format(Text17(0).Text, #0.000) Text17(2).Text = Format(Text17(2).Text, #0.000) End If For anniu = 0 To 14 Command11(anniu).Visible = False Next anniu For anniu = 15 To 19 Command11(anniu).Visible = True Next anniu For anniu = 20 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = 复位刀沿 Label14.Caption = Label16.Caption = Label17.Caption = 对刀End SelectEnd Sub &*&*&*&*&*&*&*&Private Sub RichTB1_GotFocus(Index As Integer)RichTB1(0).SelStart = Len(RichTB1(0).Text) -在RichTB1(0)控件中,保持光标一直在最后RichTB1(1).SelStart = Len(RichTB1(1).Text)RichTB1(2).SelStart = Len(RichTB1(2).Text)RichTB1(3).SelStart = Len(RichTB1(3).Text)RichTB1(4).SelStart = Len(RichTB1(4).Text)End SubPrivate Sub Text5_GotFocus() 建文件名获得焦点 Text5.SelStart = Len(Text5.Text) -在text5box控件中,保持光标一直在最后End SubPrivate Sub Text5_KeyPress(KeyAscii As Integer) 建文件名If KeyAscii = 13 And xinchengxu = 0 ThenPicture9.Visible = False Label19(0).Caption = Text5.Text RichTB1(0).Visible = True RichTB1(0).SetFocus 获得焦点，输入数据 Asii = 1 Label5.Caption = RichTB1(0).M(S)PFEnd IfIf KeyAscii = 13 And xinchengxu = 1 Then Picture9.Visible = False Label19(1).Caption = Text5.Text RichTB1(1).Visible = True RichTB1(1).SetFocus 获得焦点，输入数据 Asii = 2 Label5.Caption = RichTB1(1).M(S)PFEnd IfIf KeyAscii = 13 And xinchengxu = 2 Then Picture9.Visible = False Label19(2).Caption = Text5.Text RichTB1(2).Visible = True RichTB1(2).SetFocus 获得焦点，输入数据 Asii = 3 Label5.Caption = RichTB1(2).M(S)PFEnd IfIf KeyAscii = 13 And xinchengxu = 3 Then Picture9.Visible = False Label19(3).Caption = Text5.Text RichTB1(3).Visible = True RichTB1(3).SetFocus 获得焦点，输入数据 Asii = 4 Label5.Caption = RichTB1(3).M(S)PFEnd IfIf KeyAscii = 13 And xinchengxu = 4 Then Picture9.Visible = False Label19(4).Caption = Text5.Text RichTB1(4).Visible = True RichTB1(4).SetFocus 获得焦点，输入数据 Asii = 5 Label5.Caption = RichTB1(4).M(S)PFEnd IfEnd SubPrivate Sub Text6_GotFocus() MDA输入 Text6.SelStart = Len(Text6.Text) 在textbox控件中,保持光标一直在最后End SubPrivate Sub Text6_KeyPress(KeyAscii As Integer) MDA输入If KeyAscii = 13 ThenRichTB(0).Text = Text6.TextEnd IfEnd Sub*Private Sub Command4_Click() 左翻菜单If kkjj = 1 Then For anniu = 0 To 9 Command11(anniu).Visible = False Next anniu For anniu = 10 To 14 Command11(anniu).Visible = True Next anniu For anniu = 15 To 19 Command11(anniu).Visible = False Next anniu Label13.Caption = 打开 Label14.Caption = 新程序 Label15.Caption = 删除 Label16.Caption = 改名 Label17.Caption = 关闭 Label35.Visible = False Label36.Visible = True jjkk = 0End IfEnd SubPrivate Sub Command5_Click() 返回主菜单 Picture10(0).Visible = False 刀具补偿界面 Picture10(1).Visible = False 刀具对刀界面 Picture8.Visible = False 程序选择界面 Picture9.Visible = False 给定程序名界面 Picture11.Visible = False 程序诊断界面 RichTB(0).Visible = False RichTB(1).Visible = False For anniu = 0 To 4 输入程序界面 RichTB1(anniu).Visible = False Next anniu For anniu = 0 To 4 Command11(anniu).Visible = False Next anniu For anniu = 5 To 9 Command11(anniu).Visible = True Next anniu For anniu = 10 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = 加工 Label14.Caption = 参数 Label15.Caption = 程序 Label16.Caption = 通讯 Label17.Caption = 诊断 Label35.Visible = False Label36.Visible = FalseEnd SubPrivate Sub Command1_Click() M按钮、返回主菜单 Picture10(0).Visible = False 刀具补偿界面 Picture10(1).Visible = False 刀具对刀界面 Picture8.Visible = False 程序选择界面 Picture9.Visible = False 给定程序名界面 Picture11.Visible = False 程序诊断界面 RichTB(0).Visible = False RichTB(1).Visible = False For anniu = 0 To 4 输入程序界面 RichTB1(anniu).Visible = False Next anniu For anniu = 0 To 4 Command11(anniu).Visible = False Next anniu For anniu = 5 To 9 Command11(anniu).Visible = True Next anniu For anniu = 10 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = 加工 Label14.Caption = 参数 Label15.Caption = 程序 Label16.Caption = 通讯 Label17.Caption = 诊断 Label35.Visible = False Label36.Visible = FalseEnd SubPrivate Sub Command2_Click() 菜单上翻按钮If jjkk = 0 Then For anniu = 0 To 4 Command11(anniu).Visible = True Next anniu For anniu = 5 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = Label14.Caption = 程序检验 Label15.Caption = 程序 Label16.Caption = Label17.Caption = 选择 Label35.Visible = True kkjj = 1 Label36.Visible = FalseElseIf jjkk = 2 Then Picture10(0).Visible = True 刀具补偿界面 Picture10(1).Visible = False 对刀界面 For anniu = 0 To 14 Command11(anniu).Visible = False Next anniu For anniu = 15 To 19 Command11(anniu).Visible = True Next anniu For anniu = 20 To 24 Command11(anniu).Visible = False Next anniu Label13.Caption = 复位刀沿 Label14.Caption = Label16.Caption = Label17.Caption = 对刀 Label36.Visible = FalseEnd IfEnd SubPrivate Sub Timer1_Timer() S转速显示(计时器)Static ii As IntegerStatic JJ As IntegerStatic ddss As SingleIf dataS = 0 Then JJ = 15000 / MDIForm1.Timer1.Interval ddss = JJ * G96CanShu If ddss = LIMS Then ddss = LIMS End If Select Case ii Case 0 Label30.Caption = ddss + 1 + .602 ii = ii + 1 Case 1 Label30.Caption = ddss + .153 ii = ii + 1 Case 2 Label30.Caption = ddss + -1 + .417 ii = 0 End SelectElse -自动运行时ddss = dataS * G96CanShu If ddss = LIMS Then ddss = LIMS End If Select Case ii Case 0 Text3.Text = ddss + 1 + .602 Label30.Caption = ddss + 1 + .602 ii = ii + 1 Case 1 Text3.Text = ddss + .153 Label30.Caption = ddss + .153 ii = ii + 1 Case 2 Text3.Text = ddss + -1 + .417 Label30.Caption = ddss + -1 + .417 ii = 0 End SelectEnd If Label30.Caption = Format(Label30.Caption, #0.000)End SubPrivate Sub Timer3_Timer() SP转速显示(计时器)Static rr As SingleIf rr 行数为1string_flag = 1 标志为1test_string = Right(src_str, 2)If test_string vbCrLf Thentest_string = src_str + vbCrLfElsetest_string = src_strEnd IfDoEventsDoline_cnt = line_cnt + 1string_flag = InStr(test_string, vbCrLf)ret_string = Left(test_string, string_flag)test_string = Right(test_string, Len(test_string) - string_flag - 1)Loop Until lineno = line_cntIf line_cnt = 1 Then ReadStringLine = ret_stringElseReadStringLine = Left(ret_string, Len(ret_string) - 1)End IfEnd FunctionPrivate Sub Timer2_Timer() 自动运行时行显示的切换时间chengxujianyanEnd Sub %3.chengxuzhix()Private Sub chengxujianyan() 自动运行时程序的读入与执行 Static str88, CJ As String Static mi As Integer Do Until UCase(str88) = M30 Or UCase(str88) = M02 Or UCase(Trim(str88) = RETURN 或者Do While UCase(str88) M30 Or UCase(str88) M02 Or UCase(Trim(str88) RETURN str88 = ReadStringLine(Form1.RichTB(0).Text, mi) DaiMaWenJian = FreeFile 代码文件 Open e:mdifile.txt For Output As #DaiMaWenJian Print #DaiMaWenJian, Trim(UCase(str3) Close #DaiMaWenJian DaiMaWenJian = FreeFile Open e:mdifile.txt For Input As #1 DMWJ = FreeFile 代码文件 Open e:mdifile.txt For Output As #DMWJ Print #DMWJ, Trim(UCase(str88) Close #DMWJ DMWJ = FreeFile Open e:mdifile.txt For Input As #1 Do Until EOF(1) CJ = UCase(Trim(Input$(1, #1) If CJ = Or CJ = Or CJ = Or CJ = ￥ Or CJ = % Or CJ = Or CJ = & Or CJ = Or CJ = Or CJ = 【 Or CJ = 】 Or CJ = | Or CJ = 、 Then Form1.Label4.Caption = 非标准代码 Close #1 Timer2.Enabled = False Text8.Text = mi mi = 0 回到初始值 Exit Sub ElseIf CJ = ， Or CJ = ？ Or CJ = ； Or CJ = Or CJ = “ Or CJ = Or CJ = ! Or CJ = Or CJ = Then Form1.Label4.Caption = 非标准代码 Close #1 Timer2.Enabled = False Text8.Text = mi mi = 0 回到初始值 Exit Sub ElseIf CJ = # Or CJ = ? Then Form1.Label4.Caption = 非标准代码 Close #1 Timer2.Enabled = False Text8.Text = mi mi = 0 回到初始值 Exit Sub Else: Form1.Label4.Caption = 标准代码 Text8.Text = mi End If Loop Close #1 mi = mi + 1 Exit Do Loop If UCase(str88) = M30 Or UCase(str88) = M02 Or UCase(Trim(str88) = RETURN Then Form1.Text8.Text = Form1.Label4.Caption = 程序检验通过 Timer2.Enabled = False str88 = CJ = mi = 0 End If End SubForm2：Public ZhiJing As Integer 直径、半径Public N158X, N158Z As Single G158偏置，X/Z偏移量Private Sub Command34_Click() 装/卸顶尖If Form5.Text1.Text = 0.00 Then Form1.Label4.Caption = 顶尖装夹错误！ Form1.Label39.Caption = 顶尖装夹错误！轴的直径不能为“0”或孔类工件不能装夹 Exit SubElse: Form1.Label4.Caption = 运行正常！ Form1.Label39.Caption = 运行正常！End IfMDIForm1.UserControl11.Visible = TrueSelect Case djianCase 0 MDIForm1.UserControl11.Top = Val(Form5.Text1.Text) * 50 / 2 - 625 MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 + 3000 Picture8.BackColor = &H80FF80 Timer12.Enabled = True djian = djian + 1 dingjian = True 顶尖应用判断Case 1 MDIForm1.UserControl11.Top = Val(Form5.Text1.Text) * 50 / 2 - 625 MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Picture8.BackColor = &H8000& Timer13.Enabled = True Timer14.Enabled = False MDIForm1.UserControl21.Visible = False djian = 0 dingjian = False 顶尖应用判断End SelectEnd SubPrivate Sub Command35_Click() 开关切削液If MDIForm1.UserC0.Visible = False Then 水龙头没有-水龙头出现 MDIForm1.UserC0.Visible = True Picture9.BackColor = &HFF& 红ElseIf MDIForm1.UserC0.Visible = True And MDIForm1.Timer11.Enabled = False And MDIForm1.UserC1.Visible = False And MDIForm1.UserC3.Visible = False Then MDIForm1.UserC0.Visible = True 水龙头有、水滴没有、两股流水都停-流水开 Picture9.BackColor = &H80FF80 绿(工作) MDIForm1.Timer11.Enabled = TrueElseIf MDIForm1.UserC0.Visible = True And MDIForm1.Timer11.Enabled = True Then MDIForm1.Timer11.Enabled = False 水龙头有、流水开-流水停 Picture9.BackColor = &HFF& 红ElseIf Picture9.BackColor = &HFF& And MDIForm1.Timer11.Enabled = False And MDIForm1.UserC1.Visible = True Or MDIForm1.UserC3.Visible = True Then MDIForm1.UserC0.Visible = False 水龙头有、任一股流水看见-全没有(停) Picture9.BackColor = &H8000& 浅绿 MDIForm1.Timer11.Enabled = False MDIForm1.UserC1.Visible = False MDIForm1.UserC2.Visible = False MDIForm1.UserC3.Visible = False MDIForm1.UserC4.Visible = False MDIForm1.UserC5.Visible = False MDIForm1.UserC6.Visible = FalseEnd IfEnd SubPrivate Sub Command38_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Form7.ShowForm7.Enabled = TruePicture12.BackColor = &H80FF80 指示灯亮End SubPrivate Sub Command38_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture12.BackColor = &H8000& 机床/工件坐标指示灯灭End SubPrivate Sub Timer11_Timer() -G96/G97 G96CanShu = dataS * Val(MDIForm1.Image01.Top * 0.02) 动态的速度变化参数 G96CanShu = dataS * (Val(Form1.Text13(13).Text) + xmbz) / 10 If CODE15 = 1 Then G96CanShu = G97CanShu / (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) ElseIf CODE15 = 2 Then G96CanShu = G97CanShu / (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) ElseIf CODE15 = 3 Then G96CanShu = G97CanShu / (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) ElseIf CODE15 = 4 Then G96CanShu = G97CanShu / (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) ElseIf CODE15 = 5 Then G96CanShu = G97CanShu / (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) End IfEnd SubPrivate Sub Timer12_Timer() 装顶尖 If MDIForm1.UserControl11.Left Val(Form5.Text6.Text) * 50 - 300 Then MDIForm1.UserControl11.Move MDIForm1.UserControl11.Left - 15, MDIForm1.UserControl11.Top Else Timer12.Enabled = False If Form1.Text3.Text 0.000 Then 主轴旋转时顶尖转 Timer14.Enabled = True Else: Timer14.Enabled = False End If If MDIForm1.Timer1.Enabled = True Then 主轴旋转时顶尖转 Timer14.Enabled = True Else: Timer14.Enabled = False End If MDIForm1.UserControl21.Top = Val(Form5.Text1.Text) * 50 / 2 - 625 MDIForm1.UserControl21.Left = Val(Form5.Text6.Text) * 50 - 300 End IfEnd SubPrivate Sub Timer13_Timer() 卸顶尖 If MDIForm1.UserControl11.Left Val(Form5.Text6.Text) * 50 + 3000 Then MDIForm1.UserControl11.Move MDIForm1.UserControl11.Left + 15, MDIForm1.UserControl11.Top Else Timer13.Enabled = False MDIForm1.UserControl11.Visible = False End IfEnd SubPrivate Sub Timer14_Timer() 顶尖旋转Static xz As IntegerSelect Case xzCase 0MDIForm1.UserControl11.Visible = TrueMDIForm1.UserControl21.Visible = Falsexz = xz + 1Case 1MDIForm1.UserControl11.Visible = FalseMDIForm1.UserControl21.Visible = Truexz = 0End SelectIf MDIForm1.Timer1.Enabled = False Then Timer14.Enabled = FalseEnd IfEnd SubPrivate Sub Image1_Click(Index As Integer) 进给倍率选择Static beilvi As IntegerForm1.Label4.Caption = 运行正常Form1.Label39.Caption = 运行正常Select Case IndexCase 0 程序段点停止 JGpanduan = 0 进给判断 Image2(0).Visible = True For beilvi = 1 To 3 Image2(beilvi).Visible = False Next beilvi If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Or fangshi = 3 Then 进给率变换判断 JGBLBH = 0 进给率变换参数 If jingeilvbh = False Then 如果只在自动方式下，还没有运行时，调节倍率 jingeibeilv = 0 End If Form2.Text1.Text = jingeibeilv 进给率显示 End If If fangshi = 4 Or fangshi = 5 Then jingeibeilv = 0 JGBLBH = 0 Form2.Text1.Text = jingeibeilv 进给率显示 End IfTimer10.Enabled = False If Timer2.Enabled = True Then Timer2.Enabled = False duandianbz = 1 End If If Timer3.Enabled = True Then Timer3.Enabled = False duandianbz = 2 End If If Timer4.Enabled = True Then Timer4.Enabled = False duandianbz = 3 End If If Timer5.Enabled = True Then Timer5.Enabled = False duandianbz = 4 End If If Timer6.Enabled = True Then Timer6.Enabled = False duandianbz = 5 End If If Timer7.Enabled = True Then Timer7.Enabled = False duandianbz = 6 End If If Timer8.Enabled = True Then Timer8.Enabled = False duandianbz = 7 End If If Timer9.Enabled = True Then Timer9.Enabled = False duandianbz = 8 End IfCase 1 -进给倍率50% JGpanduan = 1 进给判断 Image2(0).Visible = False Image2(1).Visible = True For beilvi = 2 To 3 Image2(beilvi).Visible = False Next beilvi jingeibeilv = 1 JGBLBH = jingeibeilv If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Or fangshi = 3 Then 进给率变换判断 JGBLBH = 1 进给率变换参数 If jingeilvbh = False Then 如果只在自动方式下，还没有运行时，调节倍率 jingeibeilv = 1 End If Form2.Text1.Text = jingeibeilv 进给率显示 End If If fangshi = 4 Or fangshi = 5 Then JGBLBH = 1 jingeibeilv = 1 Form2.Text1.Text = jingeibeilv 进给率显示 End IfForm1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000)If jingeilvbh = True Then 进给倍率可以变换，防止点击后直接运行程序！ If duandianbz 0 Then 是单段方式 If duandianbz = 1 Then 断点标志1 Timer2.Enabled = True End If If duandianbz = 2 Then Timer3.Enabled = True End If If duandianbz = 3 Then Timer4.Enabled = True End If If duandianbz = 4 Then Timer5.Enabled = True End If If duandianbz = 5 Then Timer6.Enabled = True End If If duandianbz = 6 Then Timer7.Enabled = True End If If duandianbz = 7 Then Timer8.Enabled = True End If If duandianbz = 8 Then Timer9.Enabled = True End If duandianbz = 0Else If cankaodian = False Then 回参判断 Form1.Label4.Caption = 没有回参考点！ Form1.Label39.Caption = 没有回参考点！请点击回参考点按钮，进行回参考点操作！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给倍率！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End IfIf fangshi = 0 And duandianbz = 0 Then -自动方式 zdyxbz = True 自动运行标志 If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End Ifstr2 = ReadStringLine(Form1.RichTB(0).Text, 1) If Right(Trim(str2), 3) MPF Then Form1.Label4.Caption = 该程序不是有效的G代码程序! Form1.Label39.Caption = 该程序不是有效的G代码程序! Exit Sub Else: CODE14 = 0 允许程序运行 End If If zdyxbz = True Then Timer10.Enabled = True End IfEnd If If fangshi = 1 Then -单段方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End If CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End If If fangshi = 2 Then -MDA方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End IfEnd IfEnd IfCase 2 -进给倍率100% JGpanduan = 2 进给判断 For beilvi = 0 To 1 Image2(beilvi).Visible = False Next beilvi Image2(2).Visible = True Image2(3).Visible = False If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Or fangshi = 3 Then 进给率变换判断 JGBLBH = 2 进给率变换参数 If jingeilvbh = False Then 如果只在自动方式下，还没有运行时，调节倍率 jingeibeilv = 2 End If Form2.Text1.Text = jingeibeilv 进给率显示 End If If fangshi = 4 Or fangshi = 5 Then JGBLBH = 2 jingeibeilv = 2 Form2.Text1.Text = jingeibeilv 进给率显示 End If Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) If jingeilvbh = True Then 进给倍率可以变换，防止点击后直接运行程序！ If duandianbz 0 Then 是单段方式 If duandianbz = 1 Then 断点标志1 Timer2.Enabled = True End If If duandianbz = 2 Then Timer3.Enabled = True End If If duandianbz = 3 Then Timer4.Enabled = True End If If duandianbz = 4 Then Timer5.Enabled = True End If If duandianbz = 5 Then Timer6.Enabled = True End If If duandianbz = 6 Then Timer7.Enabled = True End If If duandianbz = 7 Then Timer8.Enabled = True End If If duandianbz = 8 Then Timer9.Enabled = True End If duandianbz = 0Else If cankaodian = False Then 回参判断 Form1.Label4.Caption = 没有回参考点！ Form1.Label39.Caption = 没有回参考点！请点击回参考点按钮，进行回参考点操作！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给倍率！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End IfIf fangshi = 0 And duandianbz = 0 Then -自动方式 zdyxbz = True 自动运行标志 If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End Ifstr2 = ReadStringLine(Form1.RichTB(0).Text, 1) If Right(Trim(str2), 3) MPF Then Form1.Label4.Caption = 该程序不是有效的G代码程序! Form1.Label39.Caption = 该程序不是有效的G代码程序! Exit Sub Else: CODE14 = 0 允许程序运行 End If If zdyxbz = True Then Timer10.Enabled = True End IfEnd If If fangshi = 1 Then -单段方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End If CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End If If fangshi = 2 Then -MDA方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End IfEnd IfEnd IfCase 3 -进给倍率150% JGpanduan = 3 进给判断 Image2(3).Visible = True For beilvi = 0 To 2 Image2(beilvi).Visible = False Next beilvi If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Or fangshi = 3 Then 进给率变换判断 JGBLBH = 3 进给率变换参数 If jingeilvbh = False Then 如果只在自动方式下，还没有运行时，调节倍率 jingeibeilv = 3 End If Form2.Text1.Text = jingeibeilv 进给率显示 End If If fangshi = 4 Or fangshi = 5 Then JGBLBH = 3 jingeibeilv = 3 Form2.Text1.Text = jingeibeilv 进给率显示 End If Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) If jingeilvbh = True Then 进给倍率可以变换，防止点击后直接运行程序！ If duandianbz 0 Then 是单段方式 If duandianbz = 1 Then 断点标志1 Timer2.Enabled = True End If If duandianbz = 2 Then Timer3.Enabled = True End If If duandianbz = 3 Then Timer4.Enabled = True End If If duandianbz = 4 Then Timer5.Enabled = True End If If duandianbz = 5 Then Timer6.Enabled = True End If If duandianbz = 6 Then Timer7.Enabled = True End If If duandianbz = 7 Then Timer8.Enabled = True End If If duandianbz = 8 Then Timer9.Enabled = True End If duandianbz = 0Else If cankaodian = False Then 回参判断 Form1.Label4.Caption = 没有回参考点！ Form1.Label39.Caption = 没有回参考点！请点击回参考点按钮，进行回参考点操作！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给倍率！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End IfIf fangshi = 0 And duandianbz = 0 Then -自动方式 zdyxbz = True 自动运行标志 If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End Ifstr2 = ReadStringLine(Form1.RichTB(0).Text, 1) If Right(Trim(str2), 3) MPF Then Form1.Label4.Caption = 该程序不是有效的G代码程序! Form1.Label39.Caption = 该程序不是有效的G代码程序! Exit Sub Else: CODE14 = 0 允许程序运行 End If If zdyxbz = True Then Timer10.Enabled = True End IfEnd If If fangshi = 1 Then -单段方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End If CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End If If fangshi = 2 Then -MDA方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End IfEnd IfEnd IfEnd SelectEnd SubPrivate Sub Command33_Click()Static daojiai As IntegerIf daojiai = 0 ThenMDIForm1.Image01.Visible = FalsePicture7.BackColor = &H80FF80daojiai = daojiai + 1Else: MDIForm1.Image01.Visible = TruePicture7.BackColor = &H8000&daojiai = 0End IfEnd SubPrivate Sub Command36_Click() Static jizuobiaoi As IntegerIf jizuobiaoi = 0 Then Form1.Text4.Text = 工件坐标 Form2.Picture11.BackColor = &H80FF80 机床/工件坐标指示灯亮 If Form4.Option3(0).Value = True Then 1号刀具加工位置 Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(1).Value = True Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(2).Value = True Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(3).Value = True Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If If Form4.Option3(4).Value = True Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件直径=X机床坐标+X磨损-X偏置 End If Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) jizuobiaoi = jizuobiaoi + 1Else: Form1.Text4.Text = 机床坐标 Form2.Picture11.BackColor = &H8000& 机床/工件坐标指示灯灭 Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 直径 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) jizuobiaoi = 0 End IfEnd SubPrivate Sub Command37_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 刀架四刀位换刀Picture10.BackColor = &H80FF80 换刀指示灯亮Static ihd As IntegerForm1.Label33.Caption = D1If ihd = 0 Then 刀位01 MDIForm1.UserC11.Left = MDIForm1.Image01.Left MDIForm1.UserC11.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC21.Left = MDIForm1.Image01.Left If Form5.Text1.Text 0.00 Then 车削轴 MDIForm1.UserC21.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC21.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = True 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T1 ihd = ihd + 1 ElseIf ihd = 1 Then 刀位02 MDIForm1.UserC31.Left = MDIForm1.Image01.Left MDIForm1.UserC31.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC41.Left = MDIForm1.Image01.Left If Form5.Text1.Text 0.00 Then 车削轴 MDIForm1.UserC41.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC41.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = True Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T2 ihd = ihd + 1 ElseIf ihd = 2 Then 刀位03 MDIForm1.UserC51.Left = MDIForm1.Image01.Left MDIForm1.UserC51.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC61.Left = MDIForm1.Image01.Left If Form5.Text1.Text 0.00 Then 车削轴 MDIForm1.UserC61.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC61.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = True Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T3 ihd = ihd + 1 ElseIf ihd = 3 Then 刀位04 MDIForm1.UserC71.Left = MDIForm1.Image01.Left MDIForm1.UserC71.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC81.Left = MDIForm1.Image01.Left If Form5.Text1.Text 0.00 Then 车削轴 MDIForm1.UserC81.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC81.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = True Form4.Option3(4).Value = False Form1.Label31.Caption = T4 ihd = ihd + 1 Else 刀位05 MDIForm1.UserC91.Left = MDIForm1.Image01.Left - 1200 MDIForm1.UserC91.Top = MDIForm1.Image01.Top MDIForm1.UserC101.Left = MDIForm1.Image01.Left - 1200 If Form5.Text1.Text 0.00 Then 车削轴 MDIForm1.UserC101.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top - 440 End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC101.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top - 440 End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = True Form1.Label31.Caption = T5 ihd = 0End IfEnd SubPrivate Sub Command37_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 刀架四刀位换刀Picture10.BackColor = &H8000& 机床/工件坐标指示灯灭End SubPrivate Sub Command39_Click(Index As Integer) 加工方式选择Static zlfsii As Integer zsd1(0).BackColor = &H8000& zsd1(1).BackColor = &H8000& zsd1(2).BackColor = &H8000& zsd1(3).BackColor = &H8000& zsd1(4).BackColor = &H8000& zsd1(5).BackColor = &H8000& Form1.Picture8.Visible = False 文件选择界面 Form1.Text8.Text = 增量x100不显示If Index = 0 Then fangshi = 0 自动方式 XZcmd40.Enabled = True XZcmd42.Enabled = True Form1.Text4.Text = 机床坐标 Form1.Label3.Caption = 自动 zsd1(Index).BackColor = &H80FF80ElseIf Index = 1 Thenfangshi = 1 单段XZcmd40.Enabled = TrueXZcmd42.Enabled = TrueForm1.Text4.Text = 机床坐标Form1.Label3.Caption = 单段zsd1(Index).BackColor = &H80FF80ElseIf Index = 2 Thenfangshi = 2 MDAXZcmd40.Enabled = TrueXZcmd42.Enabled = TrueForm1.Text6.SetFocus MDA输入获得焦点Asii = 6Form1.Text4.Text = 机床坐标Form1.Label3.Caption = MDAzsd1(Index).BackColor = &H80FF80ElseIf Index = 3 Thenfangshi = 3 增量方式XZcmd40.Enabled = TrueXZcmd42.Enabled = TrueForm1.Text4.Text = 机床坐标Form1.Label3.Caption = 增量zsd1(Index).BackColor = &H80FF80 If zlfsii = 0 Then Form1.Text8.Text = x1 jingeibeilv = 1 0%,50%,100%,150%,200% 进给率 JGBLBH = 1 zlfsii = zlfsii + 1 ElseIf zlfsii = 1 Then Form1.Text8.Text = x10 jingeibeilv = 2 0%,50%,100%,150%,200% 进给率 JGBLBH = 2 zlfsii = zlfsii + 1 ElseIf zlfsii = 2 Then Form1.Text8.Text = x100 jingeibeilv = 3 0%,50%,100%,150%,200% 进给率 JGBLBH = 3 zlfsii = zlfsii + 1 Else Form1.Text8.Text = x1000 系统默认倍率为1000 jingeibeilv = 4 0%,50%,100%,150%,200% 进给率 JGBLBH = 4 zlfsii = 0 End If Form2.Text1.Text = jingeibeilv 进给率显示ElseIf Index = 4 Thenfangshi = 4 手点动XZcmd40.Enabled = TrueXZcmd41.Enabled = TrueXZcmd42.Enabled = TrueXZcmd43.Enabled = TrueForm1.Text4.Text = 机床坐标Form1.Label3.Caption = 手动zsd1(Index).BackColor = &H80FF80ZouDao = 2Picture9.BackColor = &H8000&Else: fangshi = 5 手动REFXZcmd40.Enabled = FalseXZcmd42.Enabled = FalseForm1.Text4.Text = 参考点Form1.Label3.Caption = 手动REFzsd1(Index).BackColor = &H80FF80Picture11.BackColor = &H8000&jingeilvbh = False 进给倍率变换不可用End IfEnd SubPrivate Sub Command45_Click() 正转MDIForm1.Timer1.Enabled = TrueForm1.Timer1.Enabled = True SForm1.Timer3.Enabled = True SPIf MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Then Timer14.Enabled = True 顶尖转End IfEnd SubPrivate Sub Command46_Click() 停车MDIForm1.Timer1.Enabled = FalseMDIForm1.Timer2.Enabled = FalseForm1.Timer1.Enabled = False PForm1.Timer3.Enabled = False SPTimer14.Enabled = False 顶尖不转Form1.Label30.Caption = 0.000Form1.Text3.Text = 0.000End SubPrivate Sub Command47_Click() 反转MDIForm1.Timer2.Enabled = TrueForm1.Timer1.Enabled = True SForm1.Timer3.Enabled = True SPIf MDIForm1.UserControl11.Left = Val(Form5.Text6.Text) * 50 - 300 Then Timer14.Enabled = True 顶尖转End IfEnd SubPrivate Sub Command51_Click() 快进按钮If Form2.Timer10.Enabled = False And ZouDaoX = 0 And ZouDaoZ = 0 Then 程序运行时快进不能调节Static kuaijindengi, ip As IntegerIf kuaijindengi = 0 Then jingeibeilv = 4 0%,50%,100%,150%,200% 进给率 JGBLBH = 4 Form1.Label22.Caption = 0.500 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) Form1.Label24.Caption = 0.500 Form1.Label24.Caption = Format(Form1.Label24.Caption, #0.000) For ip = 0 To 3 进给按钮显示 Form2.Image2(ip).Visible = False Next ip Form2.Image2(3).Visible = True 进给按钮显示kuaijindengi = kuaijindengi + 1Else: jingeibeilv = 1 0%,50%,100%,150%,200% 进给率 JGBLBH = 1 Form1.Label22.Caption = 0.100 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) Form1.Label24.Caption = 0.100 Form1.Label24.Caption = Format(Form1.Label24.Caption, #0.000) For ip = 0 To 3 进给按钮显示 Form2.Image2(ip).Visible = False Next ip Form2.Image2(1).Visible = True 进给按钮显示kuaijindengi = 0End IfForm2.Text1.Text = jingeibeilv 进给率显示End IfEnd SubPrivate Sub Command54_Click() 急停MDIForm1.Timer1.Enabled = FalseMDIForm1.Timer2.Enabled = FalseTimer14.Enabled = False 顶尖停转Form1.Timer1.Enabled = FalseForm1.Timer3.Enabled = FalseForm1.Label30.Caption = 0.000Form1.Text3.Text = 0.000End SubPrivate Sub Timer15_Timer()Text2.Text = JGBLBHEnd SubPrivate Sub XZcmd40_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) -X移动If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 Then 手动方式4与增量方式3MDIForm1.Timer5.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd40_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) -X停止If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer5.Enabled = FalseEnd IfEnd SubPrivate Sub XZcmd41_Click() 点击按钮X方向回参考点方式5If Form2.zsd1(5).BackColor = &H80FF80 ThenMDIForm1.Timer6.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd41_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) +X移动If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer6.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd41_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) +X停止If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer6.Enabled = FalseEnd IfEnd SubPrivate Sub XZcmd42_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) -Z移动If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer3.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd42_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) -Z停止If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer3.Enabled = FalseEnd IfEnd SubPrivate Sub XZcmd43_Click() 点击按钮Z方向回参考点方式5If Form2.zsd1(5).BackColor = &H80FF80 ThenMDIForm1.Timer4.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd43_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) +Z移动If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer4.Enabled = TrueEnd IfEnd SubPrivate Sub XZcmd43_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) +Z停止If Form2.zsd1(4).BackColor = &H80FF80 Or Form2.zsd1(3).BackColor = &H80FF80 ThenMDIForm1.Timer4.Enabled = FalseEnd IfEnd Sub*Private Sub Timer9_Timer() %G33螺纹车削Static N As IntegerIf fangshi = 0 Or fangshi = 1 Or fangshi = 2 Then 单段或自动方式 Timer10.Enabled = False Timer9.Interval = 10 If pdgs = 0 Then f =0 If zmbz 0 Then L1, L4先走Z向 ZouDaoZ = 15 ZouDaoX = 0 Else: ZouDaoZ = -15 ZouDaoX = 0 End If pdgs = pdgs - Abs(xmbz / 0.3) P75公式F=F-ABS(Ye) Else f 0 Then L1, L2先走X向 ZouDaoX = 15 ZouDaoZ = 0 Else ZouDaoX = -15 ZouDaoZ = 0 End If pdgs = pdgs + Abs(zmbz / 0.3) P75公式F=F-ABS(Xe) End If DaoJiaShuiDi MDIForm1.UserC31.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC31.Top + ZouDaoX zdpd = zdpd - 1 P75公式Jz=Jz-1 N = N + 1 If N = 10 Then LuoWenDao1 螺纹刀 MDIForm1.UserC41.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC41.Top - ZouDaoX LuoWenDao2 螺纹刀隐形刀具 -为使螺纹槽图形完整，附加的程序 MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 105 + 150, MDIForm1.UserC31.Top - 5)-Step(-115, 900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 115 + 150, MDIForm1.UserC31.Top - 10)-Step(115, 900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 110 + 150, MDIForm1.UserC31.Top - 5)-Step(0, 900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC41.Left + 110, MDIForm1.UserC41.Top + 1170)-Step(0, -900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 210 + 150, MDIForm1.UserC31.Top + 180)-Step(0, 900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 180 + 150, MDIForm1.UserC31.Top + 120)-Step(0, 900), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 220 + 150, MDIForm1.UserC31.Top + 200)-Step(0, 900), RGB(128, 255, 128) N = 0 End If If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) Else Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If If zdpd = 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 IfDaoJiaShuiDi 刀架，水滴移动 90偏刀（粗）If Form4.Option3(0).Value = True ThenMDIForm1.UserC11.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC11.Top + ZouDaoXPianDao1 90偏刀（粗）MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top - ZouDaoXPianDao2 90偏刀（粗）隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000)End 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 Then NR3 -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 zmbz 0 Then NR1 +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 SelectEnd IfEnd IfDaoJiaShuiDi 刀架，水滴移动 90偏刀（粗）If Form4.Option3(0).Value = True ThenMDIForm1.UserC11.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC11.Top + ZouDaoXPianDao1 90偏刀（粗）MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top - ZouDaoXPianDao2 90偏刀（粗）隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& ThenForm1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2Form1.Text1.Text = Format(Form1.Text1.Text, #0.000)Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02Form1.Text2.Text = Format(Form1.Text2.Text, #0.000)End Ifzdpd = zdpd - 1If zdpd 0 Or pdgs = 0 Then f =0 If (zmbz = 0 And xmbz 0) Then +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 If (xmbz = 0 And zmbz 0) Then +Z Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoZ = 2 Case 2 ZouDaoZ = 5 Case 3 ZouDaoZ = 10 End Select ZouDaoX = 0 End If If zmbz 0 Then L1,L4先走Z向 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoZ = 2 Case 2 ZouDaoZ = 5 Case 3 ZouDaoZ = 10 End Select ZouDaoX = 0 Else L2,L3先走-Z向 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoZ = -2 Case 2 ZouDaoZ = -5 Case 3 ZouDaoZ = -10 End Select ZouDaoX = 0 End IfSelect Case jingeibeilv 进给率调整速率50，100，150。 Case 1 pdgs = pdgs - Abs(xmbz / 0.04) P75公式F=F-ABS(Xe) Case 2 pdgs = pdgs - Abs(xmbz / 0.1) P75公式F=F-ABS(Xe) Case 3 pdgs = pdgs - Abs(xmbz / 0.2) P75公式F=F-ABS(Xe) End SelectElse f 0 Then L1、L2先走X向 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoX = 2 Case 2 ZouDaoX = 5 Case 3 ZouDaoX = 10 End Select ZouDaoZ = 0 Else L3. L4先走一X向 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoX = -2 Case 2 ZouDaoX = -5 Case 3 ZouDaoX = -10 End Select ZouDaoZ = 0 End IfSelect Case jingeibeilv 进给率调整速率50，100，150。 Case 1 pdgs = pdgs + Abs(zmbz / 0.04) P75公式F=F+ABS(Ze) Case 2 pdgs = pdgs + Abs(zmbz / 0.1) P75公式F=F+ABS(Ze) Case 3 pdgs = pdgs + Abs(zmbz / 0.2) P75公式F=F+ABS(Ze) End SelectEnd IfIf Form5.Text1.Text 0.00 Then 轴类工件 If CODE13 1 And CODE13 2 Then 主轴没有旋转撞刀 If MDIForm1.Image01.Top = 1185 + Val(Form5.Text1.Text) * 50 And MDIForm1.Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer7.Enabled = False Exit Sub End If End If MDIForm1.Picture4.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 MDIForm1.Picture2.Line (0, Val(Form5.Text1.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)ElseIf Form5.Text3.Text 0.00 Then 孔类工件 If CODE13 1 And CODE13 2 Then 主轴没有旋转撞刀 If MDIForm1.Image01.Top = 1185 + Val(Form5.Text3.Text) * 50 And MDIForm1.Image01.Left = 30 + Val(Form5.Text6.Text) * 50 Then Form1.Label4.Caption = 主轴没有旋转撞刀 Form1.Label39.Caption = 主轴没有旋转撞刀 Timer3.Enabled = False Exit Sub End If End If MDIForm1.Picture1.Line (0, Val(Form5.Text4.Text) * 25)-Step(7000, 0), RGB(0, 0, 255) 划中心线 MDIForm1.Picture2.Line (0, Val(Form5.Text3.Text) * 25)-Step(7000, 0), RGB(0, 0, 255)End IfForm1.Picture6.Visible = True X运行标志Form1.Picture7.Visible = True Z运行标志DaoJiaShuiDi 刀架，水滴移动 90偏刀（粗）If Form4.Option3(0).Value = True ThenMDIForm1.UserC11.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC11.Top + ZouDaoXPianDao1 90偏刀（粗）MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top - ZouDaoXPianDao2 90偏刀（粗）隐形刀具 If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) 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 Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfEnd IfIf Form2.Picture11.BackColor = &H8000& ThenForm1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2Form1.Text1.Text = Format(Form1.Text1.Text, #0.000)Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02Form1.Text2.Text = Format(Form1.Text2.Text, #0.000)End Ifzdpd = zdpd - 1 P75公式Jz=Jz-1If zdpd = 0 Then ZouDaoX = 0 ZouDaoZ = 0 xmbz = 0 zmbz = 0 Timer6.Enabled = False Timer6.Interval = 0 jingeibeilv = JGBLBH 进给率变换参数赋值给jingeibeilv Form2.Text1.Text = jingeibeilv 进给率显示 Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) If fangshi = 0 Then Timer10.Enabled = True chengxuzhix()函数 ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End IfEnd IfEnd If If MDIForm1.Image01.Left -3845 Then X负向向超程解除ChaoCheng = 1 And(还没完成超程标) Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If MDIForm1.Image01.Top 800 Then Z负向向超程解除ChaoCheng = 1 And(还没完成超程标) Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If MDIForm1.Image01.Left = 9010 Then Form1.Label4.Caption = Z正向超程 Form1.Label39.Caption = Z正向超程请在手动方式下Z负向回程！ Timer6.Enabled = False 超程标志 ChaoCheng = 1 Exit Sub End If If MDIForm1.Image01.Top = 8010 Then Form1.Label4.Caption = X正向超程 Form1.Label39.Caption = X正向超程请在手动方式下X负向回程！ Timer6.Enabled = False 超程标志 ChaoCheng = 1 Exit Sub End If If MDIForm1.Image01.Left 9000 Then Z正向超程解除ChaoCheng = 1 And（还没完成超程标志） Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End IfEnd SubPrivate Sub Timer1_Timer() % G04If fangshi = 0 Or fangshi = 1 Or fangshi = 2 Then 单段或自动方式Timer10.Enabled = FalseTimer1.Interval = 1000 If G04CanShu 0 Then G04CanShu = G04CanShu - 1 Else Timer1.Enabled = False Timer1.Interval = 0 CODE3 = 0 代码复位 jingeibeilv = JGBLBH 进给率变换参数赋值给jingeibeilv Form2.Text1.Text = jingeibeilv 进给率显示 Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) If fangshi = 0 Then Timer10.Enabled = True chengxuzhix()函数 ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End If End IfEnd IfEnd SubPrivate Sub Timer2_Timer() %+XG00Timer10.Enabled = FalseTimer2.Interval = 5If CODE2 = 0 And xmbz 0 Then MDIForm1.Image01.Move MDIForm1.Image01.Left, MDIForm1.Image01.Top + ZouDaoX If Form4.Option3(0).Value = True Then 90粗车刀 MDIForm1.UserC11.Move MDIForm1.UserC11.Left, MDIForm1.UserC11.Top + ZouDaoX PianDao1 90偏刀（粗） MDIForm1.UserC21.Move MDIForm1.UserC11.Left, MDIForm1.UserC21.Top - ZouDaoX PianDao2 90偏刀（粗）隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 xmbz = xmbz - 8 * 0.02 Case 2 xmbz = xmbz - 10 * 0.02 Case 3 xmbz = xmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End If End If If Form4.Option3(1).Value = True Then 螺纹刀 MDIForm1.UserC31.Move MDIForm1.UserC31.Left, MDIForm1.UserC31.Top + ZouDaoX 螺纹刀 LuoWenDao1 螺纹刀 MDIForm1.UserC41.Move MDIForm1.UserC41.Left, MDIForm1.UserC41.Top - ZouDaoX LuoWenDao2 螺纹刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 xmbz = xmbz - 8 * 0.02 Case 2 xmbz = xmbz - 10 * 0.02 Case 3 xmbz = xmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End If End If If Form4.Option3(2).Value = True Then MDIForm1.UserC51.Move MDIForm1.UserC51.Left, MDIForm1.UserC51.Top + ZouDaoX 精车刀+X JingCheDao1 精车刀 MDIForm1.UserC61.Move MDIForm1.UserC61.Left, MDIForm1.UserC61.Top - ZouDaoX 隐形刀具 JingCheDao2 精车刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 xmbz = xmbz - 8 * 0.02 Case 2 xmbz = xmbz - 10 * 0.02 Case 3 xmbz = xmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End If End If If Form4.Option3(3).Value = True Then 切槽刀加工 MDIForm1.UserC71.Move MDIForm1.UserC71.Left, MDIForm1.UserC71.Top + ZouDaoX 切槽刀+X QieCaoDao1 切槽刀 MDIForm1.UserC81.Move MDIForm1.UserC81.Left, MDIForm1.UserC81.Top - ZouDaoX 隐形刀具 QieCaoDao2 切槽刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 xmbz = xmbz - 8 * 0.02 Case 2 xmbz = xmbz - 10 * 0.02 Case 3 xmbz = xmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) 工件直径=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End If End If If Form4.Option3(4).Value = True Then MDIForm1.UserC91.Move MDIForm1.UserC91.Left, MDIForm1.UserC91.Top + ZouDaoX 镗刀 TangDao1 镗刀 MDIForm1.UserC101.Move MDIForm1.UserC101.Left, MDIForm1.UserC101.Top - ZouDaoX 隐形刀具 TangDao2 镗刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 xmbz = xmbz - 8 * 0.02 Case 2 xmbz = xmbz - 10 * 0.02 Case 3 xmbz = xmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) 工件长度=X机床坐标+X磨损-X偏置 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End If End If If Form2.Picture11.BackColor = &H8000& Then Form1.Text1.Text = (MDIForm1.Image01.Top - 8000) * 0.02 * 2 Form1.Text1.Text = Format(Form1.Text1.Text, #0.000) End IfElse: Timer2.Enabled = False Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) Timer2.Interval = 0 ZouDaoX = 0 xmbz = 0 Form1.Label47.Caption = 0 jingeibeilv = JGBLBH 进给率变换参数赋值给jingeibeilvEnd If If fangshi = 0 Then Timer10.Enabled = True ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End IfEnd SubPrivate Sub Timer3_Timer() %-XG00Timer10.Enabled = FalseTimer3.Interval = 5If CODE2 = 0 And xmbz 0 Then DaoJiaShuiDi01 刀架，水滴移动 If Form4.Option3(0).Value = True Then 90粗车刀 MDIForm1.UserC11.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC11.Top PianDao1 90偏刀（粗） MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top PianDao2 90偏刀（粗）隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz - 8 * 0.02 Case 2 zmbz = zmbz - 10 * 0.02 Case 3 zmbz = zmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(1).Value = True Then 螺纹刀 MDIForm1.UserC31.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC31.Top 螺纹刀 LuoWenDao1 螺纹刀 MDIForm1.UserC41.Move MDIForm1.UserC41.Left + ZouDaoZ, MDIForm1.UserC41.Top LuoWenDao2 螺纹刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz - 8 * 0.02 Case 2 zmbz = zmbz - 10 * 0.02 Case 3 zmbz = zmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(2).Value = True Then MDIForm1.UserC51.Move MDIForm1.UserC51.Left + ZouDaoZ, MDIForm1.UserC51.Top 精车刀 JingCheDao1 精车刀 MDIForm1.UserC61.Move MDIForm1.UserC61.Left + ZouDaoZ, MDIForm1.UserC61.Top 隐形刀具 JingCheDao2 精车刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz - 8 * 0.02 Case 2 zmbz = zmbz - 10 * 0.02 Case 3 zmbz = zmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(3).Value = True Then 切槽刀加工 MDIForm1.UserC71.Move MDIForm1.UserC71.Left + ZouDaoZ, MDIForm1.UserC71.Top 切槽刀 QieCaoDao1 切槽刀 MDIForm1.UserC81.Move MDIForm1.UserC81.Left + ZouDaoZ, MDIForm1.UserC81.Top 隐形刀具 QieCaoDao2 切槽刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz - 8 * 0.02 Case 2 zmbz = zmbz - 10 * 0.02 Case 3 zmbz = zmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(4).Value = True Then MDIForm1.UserC91.Move MDIForm1.UserC91.Left + ZouDaoZ, MDIForm1.UserC91.Top 镗刀 TangDao1 镗刀 MDIForm1.UserC101.Move MDIForm1.UserC101.Left + ZouDaoZ, MDIForm1.UserC101.Top 隐形刀具 TangDao2 镗刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz - 8 * 0.02 Case 2 zmbz = zmbz - 10 * 0.02 Case 3 zmbz = zmbz - 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form2.Picture11.BackColor = &H8000& Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfElse: Timer4.Enabled = False Timer4.Interval = 0 Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) ZouDaoZ = 0 zmbz = 0 Form1.Label51.Caption = 0 jingeibeilv = JGBLBH 进给率变换参数赋值给jingeibeilvEnd If If fangshi = 0 Then Timer10.Enabled = True ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End IfEnd SubPrivate Sub Timer5_Timer() %-ZG00Timer10.Enabled = FalseTimer5.Interval = 5If CODE2 = 0 And zmbz 0 Then DaoJiaShuiDi01 刀架，水滴移动 If Form4.Option3(0).Value = True Then 90粗车刀 MDIForm1.UserC11.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC11.Top PianDao1 90偏刀（粗） MDIForm1.UserC21.Move MDIForm1.UserC11.Left + ZouDaoZ, MDIForm1.UserC21.Top PianDao2 90偏刀（粗）隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz + 8 * 0.02 Case 2 zmbz = zmbz + 10 * 0.02 Case 3 zmbz = zmbz + 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(1).Value = True Then 螺纹刀 MDIForm1.UserC31.Move MDIForm1.UserC31.Left + ZouDaoZ, MDIForm1.UserC31.Top 螺纹刀 LuoWenDao1 螺纹刀 MDIForm1.UserC41.Move MDIForm1.UserC41.Left + ZouDaoZ, MDIForm1.UserC41.Top LuoWenDao2 螺纹刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz + 8 * 0.02 Case 2 zmbz = zmbz + 10 * 0.02 Case 3 zmbz = zmbz + 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(2).Value = True Then MDIForm1.UserC51.Move MDIForm1.UserC51.Left + ZouDaoZ, MDIForm1.UserC51.Top 精车刀 JingCheDao1 精车刀 MDIForm1.UserC61.Move MDIForm1.UserC61.Left + ZouDaoZ, MDIForm1.UserC61.Top 隐形刀具 JingCheDao2 精车刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz + 8 * 0.02 Case 2 zmbz = zmbz + 10 * 0.02 Case 3 zmbz = zmbz + 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(3).Value = True Then 切槽刀加工 MDIForm1.UserC71.Move MDIForm1.UserC71.Left + ZouDaoZ, MDIForm1.UserC71.Top 切槽刀 QieCaoDao1 切槽刀 MDIForm1.UserC81.Move MDIForm1.UserC81.Left + ZouDaoZ, MDIForm1.UserC81.Top 隐形刀具 QieCaoDao2 切槽刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz + 8 * 0.02 Case 2 zmbz = zmbz + 10 * 0.02 Case 3 zmbz = zmbz + 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form4.Option3(4).Value = True Then MDIForm1.UserC91.Move MDIForm1.UserC91.Left + ZouDaoZ, MDIForm1.UserC91.Top 镗刀 TangDao1 镗刀 MDIForm1.UserC101.Move MDIForm1.UserC101.Left + ZouDaoZ, MDIForm1.UserC101.Top 隐形刀具 TangDao2 镗刀隐形刀具 Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zmbz = zmbz + 8 * 0.02 Case 2 zmbz = zmbz + 10 * 0.02 Case 3 zmbz = zmbz + 15 * 0.02 End Select If Form2.Picture11.BackColor = &H80FF80 Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 工件长度=Z机床坐标+Z磨损-Z偏置 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End If End If If Form2.Picture11.BackColor = &H8000& Then Form1.Text2.Text = (MDIForm1.Image01.Left - 9000) * 0.02 Form1.Text2.Text = Format(Form1.Text2.Text, #0.000) End IfElse: Timer5.Enabled = False Timer5.Interval = 0 Form1.Label22.Caption = Val(Form1.Label24.Caption) * jingeibeilv / 2 实际进给量显示 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000) ZouDaoZ = 0 zmbz = 0 Form1.Label51.Caption = 0- jingeibeilv = JGBLBH 进给率变换参数赋值给jingeibeilvEnd If If fangshi = 0 Then Timer10.Enabled = True ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End IfEnd Sub* %1.循环启动、进给保持、复位Private Sub Command3_Click(Index As Integer) jingeilvbh = True 用于自动运行方式下调节倍率判断（此时运行） Form1.Picture6.Visible = True X运行标志 Form1.Picture7.Visible = True Z运行标志 Form1.Label2.Caption = 复位显示 If Form5.Text1.Text 0.00 Then 轴类工件 MDIForm1.Timer8.Enabled = True 划中心线 End IfSelect Case IndexCase 0 If duandianbz 0 Then 是单段方式 If duandianbz = 1 Then 断点标志1 Timer2.Enabled = True End If If duandianbz = 2 Then Timer3.Enabled = True End If If duandianbz = 3 Then Timer4.Enabled = True End If If duandianbz = 4 Then Timer5.Enabled = True End If If duandianbz = 5 Then Timer6.Enabled = True End If If duandianbz = 6 Then Timer7.Enabled = True End If If duandianbz = 7 Then Timer8.Enabled = True End If If duandianbz = 8 Then Timer9.Enabled = True End If duandianbz = 0 CODE10 = 0 M00M01复位Else If cankaodian = False Then 回参判断 Form1.Label4.Caption = 没有回参考点！ Form1.Label39.Caption = 没有回参考点！请点击回参考点按钮，进行回参考点操作！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End If If jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为0！ Form1.Label39.Caption = 无法运行，进给率为0请调整进给倍率！ Exit Sub Else: Form1.Label4.Caption = 运行正常 Form1.Label39.Caption = 运行正常 End IfIf fangshi = 0 And duandianbz = 0 Then -自动方式 zdyxbz = True 自动运行标志 If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End Ifstr2 = ReadStringLine(Form1.RichTB(0).Text, 1) If Right(Trim(str2), 3) MPF Then Form1.Label4.Caption = 该程序不是有效的G代码程序! Form1.Label39.Caption = 该程序不是有效的G代码程序! Exit Sub Else: CODE14 = 0 允许程序运行 End If If zdyxbz = True Then Timer10.Enabled = True End IfEnd If If fangshi = 1 Then -单段方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False If Form1.RichTB(0).Text = Then Form1.Label4.Caption = 请先选择加工程序! Form1.Label39.Caption = 请先选择加工程序! zdyxbz = False End If CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End If If fangshi = 2 Then -MDA方式 zdyxbz = True 自动运行标志 Timer10.Enabled = False CODE14 = 0 允许程序运行 If zdyxbz = True Then chengxuzhix End If End IfEnd IfCase 1 程序段点停止 Timer10.Enabled = False If Timer2.Enabled = True Then Timer2.Enabled = False duandianbz = 1 End If If Timer3.Enabled = True Then Timer3.Enabled = False duandianbz = 2 End If If Timer4.Enabled = True Then Timer4.Enabled = False duandianbz = 3 End If If Timer5.Enabled = True Then Timer5.Enabled = False duandianbz = 4 End If If Timer6.Enabled = True Then Timer6.Enabled = False duandianbz = 5 End If If Timer7.Enabled = True Then Timer7.Enabled = False duandianbz = 6 End If If Timer8.Enabled = True Then Timer8.Enabled = False duandianbz = 7 End If If Timer9.Enabled = True Then Timer9.Enabled = False duandianbz = 8 End IfCase 2 复位 Form1.Cls 清除运行时在窗体上生成的图像或文本 Form1.Label2.Caption = 复位 CODE1 = 0: CODE2 = 0: CODE3 = 0: CODE4 = 0: CODE5 = 0 CODE6 = 0: CODE7 = 0: CODE8 = 0: CODE9 = 0: CODE10 = 0 CODE11 = 0: CODE12 = 0: CODE13 = 0: CODE14 = 0: CODE15 = 0 dataS = 0: dataI = 0: dataK = 0: dataR = 0: dataF = 0 DataX = 0: ataZ = 0: dataP = 0: xmbz = 0: zmbz = 0 imbz = 0: kmbz = 0: pdgs = 0: Pzdpd = 0 ni = 0: JXS = 0: JZS = 0: ZouDaoX = 0: ZouDaoZ = 0 chengxubz = 0: duandianbz = 0: Asii = 0 G97CanShu = 0: dataSii = 0: LIMS = 5000 Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False Timer7.Enabled = False Timer8.Enabled = False Timer9.Enabled = False Timer10.Enabled = False Select Case JGpanduan 进给判断 Case 0 jingeibeilv = 0 Case 1 jingeibeilv = 1 Case 2 jingeibeilv = 2 Case 3 jingeibeilv = 3 End Select Form2.Text1.Text = jingeibeilv 进给率显示End SelectEnd Sub %.Timer10Private Sub Timer10_Timer() 自动运行时行显示的切换时间chengxuzhixEnd Sub %3.chengxuzhix()Private Sub chengxuzhix() 自动运行时程序的读入与执行Dim str3 As StringStatic XunHuanCS, zcxchazhao As Integer 循环次数、子程序查找Static ZiFuHS As Integer 字符行数If Command3(0).Enabled = True Then zdyxbz = False 自动运行标志 Do Until UCase(str3) = M30 Or UCase(str3) = M02 Or UCase(Trim(str3) = RETURN 或者Do While UCase(str3) M30 Or UCase(str3) M02 Or UCase(Trim(str3) RETURN If chengxubz = 0 Then 执行或调转到主程序标志- str3 = ReadStringLine(Form1.RichTB(0).Text, ni) ElseIf chengxubz = 1 Then str3 = ReadStringLine(Form1.RichTB(1).Text, ni) End If - If ni = 1 Then Form1.Label5.Caption = str3 面板显示程序名 End If Form1.Text6.Text = str3 面板显示执行程序段 If Left(UCase(Trim(str3), 1) = _ Then If InStr(UCase(str3), P) = 0 Then ZiChengXu = Mid(str3, 2, 4) 获取子程序名 XunHuanCS = 1 Else: ZiChengXu = Mid(str3, 2, 4) XunHuanCS = Val(Right(str3, 1) End If -* For zcxchazhao = 0 To 4 子程序查找 str3 = ReadStringLine(Form1.RichTB1(zcxchazhao).Text, 1) If ZiChengXu = Left(UCase(Trim(str3), 4) Then Form1.RichTB(1).Text = Form1.RichTB1(zcxchazhao).Text End If Next zcxchazhao -* ZiFuHS = ni ni = 0 chengxubz = 1 调转到子程序标志 End If If chengxubz = 1 Then -# If UCase(Trim(str3) = RETURN Then If XunHuanCS 1 Then XunHuanCS = XunHuanCS - 1 ni = 0 str3 = chengxubz = 1 ElseIf XunHuanCS = 1 Then ni = ZiFuHS chengxubz = 0 End If End If End If -# DaiMaWenJian = FreeFile 代码文件 Open e:mdifile.txt For Output As #DaiMaWenJian Print #DaiMaWenJian, Trim(UCase(str3) Close #DaiMaWenJian DaiMaWenJian = FreeFile Open e:mdifile.txt For Input As #1 chengxuchuli Close #1 yimachengxu Form1.Label47.Caption = ni L行号 If fangshi = 0 Then If CODE10 = 0 Then M00M01不动作判断 Timer10.Enabled = True Else: Timer10.Enabled = False End If ni = ni + 1 ElseIf fangshi = 1 Then ni = ni + 1 Timer10.Enabled = False ElseIf fangshi = 2 Then MDA ni = 1 Timer10.Enabled = False End If Exit Do LoopElse: Exit SubEnd IfEnd Sub %4.代码识别VB源程序:Private Sub chengxuchuli()Dim Gxx, Sss As IntegerDim Mxx, Txx, Sxx, Pxx, pd, NewWenJian As StringDim Xno, Zno, Ino, Kno, Rno As BooleanOn Error Resume Nextzdyxbz = FalseXno = True X无数据输入Zno = True X无数据输入Ino = TrueKno = TrueRno = TrueDo Until EOF(1)NewWenJian = Input$(1, #1)Form1.Text18.Text = Select Case NewWenJian Case GGH:Gxx = Input$(2, #1)Select Case GxxCase 00CODE2 = 0Form1.Text13(7).Text = GxxCase 01CODE2 = 1Form1.Text13(7).Text = GxxCase 02CODE2 = 2Form1.Text13(7).Text = GxxCase 03CODE2 = 3Form1.Text13(7).Text = GxxCase 33 螺纹插补CODE2 = 4Form1.Text13(7).Text = GxxCase 90CODE1 = 0Form1.Text13(10).Text = GxxCase 91CODE1 = 1Form1.Text13(10).Text = GxxCase 21 公制CODE12 = 0Form1.Text13(9).Text = GxxCase 20 英制CODE12 = 1Form1.Text13(9).Text = GxxCase 94 每分钟进给CODE7 = 1Form1.Text13(11).Text = GxxCase 95 每转进给CODE7 = 0Form1.Text13(11).Text = GxxCase 23 直径CODE5 = 0ZhiJing = 2Form1.Text13(12).Text = GxxCase 22 半径CODE5 = 1ZhiJing = 1Form1.Text13(12).Text = GxxCase 96 恒线速CODE8 = 1Form1.Text13(13).Text = GxxdataSii = dataSG97CanShu = Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) 转速起始值Case 97 恒转速CODE8 = 0G96CanShu = 1dataS = dataSiiForm1.Text13(13).Text = GxxCase 15 G158偏移坐标系CODE6 = 1Case 04 暂停CODE3 = 1Case 25 主轴转速下限CODE11 = 1Case 26 主轴转速上限CODE11 = 2End SelectCase MMH:Mxx = Input$(2, #1)Form1.Text13(14).Text = MxxIf Mxx = 05 ThenCODE13 = 0Form1.Text13(15).Text = ElseIf Mxx = 03 ThenCODE13 = 1Form1.Text13(15).Text = SxxElseIf Mxx = 04 ThenCODE13 = 2ElseIf Mxx = 08 ThenCODE9 = 1ElseIf Mxx = 09 ThenCODE9 = 2ElseIf Mxx = 30 Or Mxx = 02 ThenCODE14 = 1Form1.Text13(17).Text = Form1.Text13(18).Text = Form1.Text13(19).Text = Form1.Text13(20).Text = Form1.Text13(21).Text = Form1.Text13(22).Text = ElseIf Mxx = RETURN ThenCODE14 = 2ElseIf Mxx = 00 Or Mxx = 01 Then 程序暂停CODE10 = 1ElseEnd IfCase TTH:Txx = Input$(1, #1)Form1.Text13(16).Text = TxxIf Txx = 1 Then CODE15 = 1If Txx = 2 Then CODE15 = 2If Txx = 3 Then CODE15 = 3If Txx = 4 Then CODE15 = 4If Txx = 5 Then CODE15 = 5Txx = Input$(2, #1)Form1.Text13(16).Text = TxxIf Left(Txx, 2) = 01 Then CODE15 = 1If Left(Txx, 2) = 02 Then CODE15 = 2If Left(Txx, 2) = 03 Then CODE15 = 3If Left(Txx, 2) = 04 Then CODE15 = 4If Left(Txx, 2) = 05 Then CODE15 = 5Case SSH:Sxx = Input$(4, #1)If CODE13 0 Then If CODE11 = 1 Then 主轴转速下限 If dataS Val(Sxx) Then dataS = Val(Sxx) Else: dataS = Val(Sxx) End If CODE11 = 0 End If If CODE11 = 0 Then 主轴转速没有限制 dataS = Val(Sxx) End IfForm1.Text13(15).Text = dataS -End IfCase XXH:Form1.Text18.Text = Xno = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = Z Then GoTo ZHIf pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = G Then GoTo GHIf pd = T Then GoTo THIf pd = I Then GoTo IHIf pd = K Then GoTo KHIf pd = R Then GoTo RHIf pd = P Then GoTo PHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(17).Text = Form1.Text18.TextDataX = Format(Form1.Text13(17).Text, #0.000)If CODE6 = 1 Then G158的X偏移量（直径值） N158X = DataXEnd IfLoopCase ZZH:Form1.Text18.Text = Zno = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = X Then GoTo ZHIf pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = T Then GoTo THIf pd = I Then GoTo IHIf pd = K Then GoTo KHIf pd = R Then GoTo RHIf pd = P Then GoTo PHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(18).Text = Form1.Text18.TextDataZ = Format(Form1.Text13(18).Text, #0.000)If CODE6 = 1 Then G158的Z偏移量 N158Z = DataZEnd IfLoopCase P -&PH:Form1.Text18.Text = Xno = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = X Then GoTo ZHIf pd = Z Then GoTo ZHIf pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = G Then GoTo GHIf pd = T Then GoTo THIf pd = I Then GoTo IHIf pd = K Then GoTo KHIf pd = R Then GoTo RHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(0).Text = Form1.Text18.TextdataP = Format(Form1.Text13(0).Text, #0.000)G04CanShu = Val(Form1.Text13(0).Text)LoopCase IIH:Form1.Text18.Text = Ino = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = T Then GoTo THIf pd = K Then GoTo KHIf pd = R Then GoTo RHIf pd = P Then GoTo PHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(19).Text = Form1.Text18.TextdataI = Format(Form1.Text13(19).Text, #0.000)LoopCase KKH:Form1.Text18.Text = Kno = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = T Then GoTo THIf pd = I Then GoTo IHIf pd = R Then GoTo RHIf pd = P Then GoTo PHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(21).Text = Form1.Text18.TextdataK = Format(Form1.Text13(21).Text, #0.000)LoopCase RRH:Form1.Text18.Text = Rno = FalseDo Until EOF(1)pd = Input$(1, #1)If pd = F Then GoTo FHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = T Then GoTo THIf pd = P Then GoTo PHIf pd = + Or pd = - ThenForm1.Text18.Text = Form1.Text18.Text & pdElseIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdEnd IfForm1.Text13(22).Text = Form1.Text18.TextdataR = Format(Form1.Text13(22).Text, #0.000)LoopCase FFH:Form1.Text18.Text = Do Until EOF(1)pd = Input$(1, #1)If pd = X Then GoTo ZH -If pd = Z Then GoTo ZHIf pd = M Then GoTo MHIf pd = S Then GoTo SHIf pd = G Then GoTo GHIf pd = T Then GoTo THIf pd = I Then GoTo IHIf pd = K Then GoTo KHIf pd = R Then GoTo RHIf pd = M Then GoTo MH -If pd = S Then GoTo SHIf pd = T Then GoTo THIf pd = P Then GoTo PHIf pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . ThenForm1.Text18.Text = Form1.Text18.Text & pdElse: End If Form1.Label24.Caption = Form1.Text18.Text Form1.Label24.Caption = Format(Form1.Label24.Caption, #0.000) Form1.Label22.Caption = Val(Form1.Text18.Text) * jingeibeilv / 2 Form1.Label22.Caption = Format(Form1.Label22.Caption, #0.000)dataF = Format(Form1.Text18.Text, #0.000)LoopCase LLH:Form1.Text18.Text = Do Until EOF(1)pd = Input$(3, #1)If pd = IMS Then Do Until EOF(1) pd = Input$(1, #1) If pd = 9 Or pd = 8 Or pd = 7 Or pd = 6 Or pd = 5 Or pd = 4 Or pd = 3 Or pd = 2 Or pd = 1 Or pd = 0 Or pd = . Then Form1.Text18.Text = Form1.Text18.Text & pd End If LoopEnd IfForm1.Text13(1).Text = Form1.Text18.TextLIMS = Format(Form1.Text13(1).Text, #0.000)LoopEnd SelectIf Xno = True And CODE1 = 1 Then Form1.Text13(17).Text = 0If Zno = True And CODE1 = 1 Then Form1.Text13(18).Text = 0If Ino = True And CODE1 = 1 Then Form1.Text13(19).Text = 0If Kno = True And CODE1 = 1 Then Form1.Text13(21).Text = 0If Rno = True And CODE1 = 1 Then Form1.Text13(22).Text = 0LoopEnd Sub Private Sub yimachengxu() %5.功能码译码并执行VB源程序:If CODE14 = 1 Then ni = 0 Timer10.Enabled = False MDIForm1.Timer8.Enabled = False 划中心线 MDIForm1.Timer1.Enabled = False MDIForm1.Timer2.Enabled = False Form1.Timer1.Enabled = False Form1.Timer3.Enabled = False Form1.Text3.Text = 0 MDIForm1.Timer11.Enabled = False 水龙头有、流水开-流水停 MDIForm1.UserC1.Visible = False MDIForm1.UserC2.Visible = False MDIForm1.UserC4.Visible = False MDIForm1.UserC3.Visible = False MDIForm1.UserC5.Visible = False MDIForm1.UserC6.Visible = False Picture9.BackColor = &HFF& 红 Exit SubEnd IfIf CODE15 = 1 Then 刀位01 MDIForm1.UserC11.Left = MDIForm1.Image01.Left MDIForm1.UserC11.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC21.Left = MDIForm1.Image01.Left If Form5.Text3.Text 0.00 Then 轴类工件车削 MDIForm1.UserC21.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC21.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = True 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T1 Form1.Label33.Caption = D1ElseIf CODE15 = 2 Then 刀位02 MDIForm1.UserC31.Left = MDIForm1.Image01.Left MDIForm1.UserC31.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC41.Left = MDIForm1.Image01.Left If Form5.Text3.Text 0.00 Then 轴类工件车削 MDIForm1.UserC41.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC41.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = True Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T2 Form1.Label33.Caption = D1ElseIf CODE15 = 3 Then 刀位03 MDIForm1.UserC51.Left = MDIForm1.Image01.Left MDIForm1.UserC51.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC61.Left = MDIForm1.Image01.Left If Form5.Text3.Text 0.00 Then 轴类工件车削 MDIForm1.UserC61.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC61.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = True Form4.Option3(3).Value = False Form4.Option3(4).Value = False Form1.Label31.Caption = T3 Form1.Label33.Caption = D1ElseIf CODE15 = 4 Then 刀位04 MDIForm1.UserC71.Left = MDIForm1.Image01.Left MDIForm1.UserC71.Top = MDIForm1.Image01.Top - 1140 MDIForm1.UserC81.Left = MDIForm1.Image01.Left If Form5.Text3.Text 0.00 Then 轴类工件车削 MDIForm1.UserC81.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC81.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC91.Left = 3480 MDIForm1.UserC91.Top = 6600 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = True Form4.Option3(4).Value = False Form1.Label31.Caption = T4 Form1.Label33.Caption = D1ElseIf CODE15 = 5 Then 刀位05 MDIForm1.UserC91.Left = MDIForm1.Image01.Left - 1200 MDIForm1.UserC91.Top = MDIForm1.Image01.Top MDIForm1.UserC101.Left = MDIForm1.Image01.Left - 1200 If Form5.Text3.Text 0.00 Then 轴类工件车削 MDIForm1.UserC101.Top = Val(Form5.Text1.Text) * 50 - MDIForm1.Image01.Top - 440 End If If Form5.Text3.Text 0.00 Then 孔类工件车削 MDIForm1.UserC101.Top = Val(Form5.Text3.Text) * 50 - MDIForm1.Image01.Top - 440 End If MDIForm1.UserC31.Left = 1200 MDIForm1.UserC31.Top = 6000 MDIForm1.UserC51.Left = 2280 MDIForm1.UserC51.Top = 6000 MDIForm1.UserC11.Left = 240 MDIForm1.UserC11.Top = 6000 MDIForm1.UserC71.Left = 3120 MDIForm1.UserC71.Top = 6000 Form4.Option3(0).Value = False 刀具工作标志 Form4.Option3(1).Value = False Form4.Option3(2).Value = False Form4.Option3(3).Value = False Form4.Option3(4).Value = True Form1.Label31.Caption = T5 Form1.Label33.Caption = D1End Ifzdyxbz = FalseIf CODE1 = 1 Or CODE1 = 0 Then G91、G90 If Form1.Text13(19).Text = Or Form1.Text13(19).Text = 0 Then imbz = 0 Else imbz = Val(Form1.Text13(19).Text) End If If Form1.Text13(21).Text = Or Form1.Text13(21).Text = 0 Then kmbz = 0 Else kmbz = Val(Form1.Text13(21).Text) End IfEnd IfIf CODE1 = 1 Then G91 If Form1.Text13(17).Text = Or Form1.Text13(17).Text = 0 Then xmbz = 0 Else xmbz = Val(Form1.Text13(17).Text) / 2 End If If Form1.Text13(18).Text = Or Form1.Text13(18).Text = 0 Then zmbz = 0 Else zmbz = Val(Form1.Text13(18).Text) End IfDataX = MDIForm1.UserC11.Top 当前点的坐标DataZ = MDIForm1.UserC11.Left 当前点的坐标JXS = Abs(Val(Form1.Text13(19).Text) IJZS = Abs(Val(Form1.Text13(21).Text) KElseIf CODE1 = 0 Then G90 If Form1.Text13(17).Text = Or Form1.Text13(17).Text = 0 Then xmbz = 0 Else If CODE15 = 1 Then xmbz = (Val(Form1.Text13(17).Text) - (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text11(1).Text) - Val(Form1.Text11(0).Text) / ZhiJing 增量 ElseIf CODE15 = 2 Then xmbz = (Val(Form1.Text13(17).Text) - (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text12(1).Text) - Val(Form1.Text12(0).Text) / ZhiJing ElseIf CODE15 = 3 Then xmbz = (Val(Form1.Text13(17).Text) - (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text14(1).Text) - Val(Form1.Text14(0).Text) / ZhiJing ElseIf CODE15 = 4 Then xmbz = (Val(Form1.Text13(17).Text) - (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text15(1).Text) - Val(Form1.Text15(0).Text) / ZhiJing ElseIf CODE15 = 5 Then xmbz = (Val(Form1.Text13(17).Text) - (Val(MDIForm1.Image01.Top - 8000) * 0.02 * 2) + Val(Form1.Text16(1).Text) - Val(Form1.Text16(0).Text) / ZhiJing End If If xmbz = -0.1 Then xmbz = 0 End If End If ?(追加的end if) If Form1.Text13(18).Text = Or Form1.Text13(18).Text = 0 Then zmbz = 0 Else 工件长度=Z机床坐标+Z磨损-Z偏置 If CODE15 = 1 Then zmbz = Val(Form1.Text13(18).Text) - (Val(MDIForm1.Image01.Left - 9000) * 0.02) + Val(Form1.Text11(3).Text) - Val(Form1.Text11(2).Text) 增量z1 ElseIf CODE15 = 2 Then zmbz = Val(Form1.Text13(18).Text) - (Val(MDIForm1.Image01.Left - 9000) * 0.02) + Val(Form1.Text12(3).Text) - Val(Form1.Text12(2).Text) 增量z2 ElseIf CODE15 = 3 Then zmbz = Val(Form1.Text13(18).Text) - (Val(MDIForm1.Image01.Left - 9000) * 0.02) + Val(Form1.Text14(3).Text) - Val(Form1.Text14(2).Text) 增量z3 ElseIf CODE15 = 4 Then zmbz = Val(Form1.Text13(18).Text) - (Val(MDIForm1.Image01.Left - 9000) * 0.02) + Val(Form1.Text15(3).Text) - Val(Form1.Text15(2).Text) 增量z4 ElseIf CODE15 = 5 Then zmbz = Val(Form1.Text13(18).Text) - (Val(MDIForm1.Image01.Left - 9000) * 0.02) + Val(Form1.Text16(3).Text) - Val(Form1.Text16(2).Text) 增量z5 End If If zmbz = -0.1 Then zmbz = 0 End If End If ?(追加的end if)DataX = MDIForm1.UserC11.Top 当前点的坐标DataZ = MDIForm1.UserC11.Left 当前点的坐标JXS = Abs(Val(Form1.Text13(19).Text) IJZS = Abs(Val(Form1.Text13(21).Text) KEnd IfIf (CODE1 = 1 And CODE2 = 0) Or (CODE1 = 0 And CODE2 = 0) Then G91G00或G90G00 If zmbz 0 Then Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoZ = 8 Case 2 ZouDaoZ = 10 Case 3 ZouDaoZ = 15 End Select Timer4.Enabled = True Timer4.Interval = 5 ElseIf zmbz = 0 Then ZouDaoZ = 0 Timer5.Enabled = False Timer4.Enabled = False End If If xmbz 0 Then Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 ZouDaoX = 8 Case 2 ZouDaoX = 10 Case 3 ZouDaoX = 15 End Select Timer2.Enabled = True Timer2.Interval = 5 ElseIf xmbz = 0 Then ZouDaoX = 0 Timer3.Enabled = False Timer2.Enabled = False End IfElseIf (CODE1 = 1 And CODE2 = 1) Or (CODE1 = 0 And CODE2 = 1) ThenG91G01或G90G01pdgs = 0Select Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.04) 总步数 Case 2 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.1) 总步数 Case 3 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.2) 总步数End Select If (zmbz = 0 And xmbz = 0) Then ZouDaoX = 0 ZouDaoZ = 0 Timer6.Enabled = False Else Timer6.Enabled = True Timer6.Interval = 5 End IfElseIf (CODE1 = 1 And CODE2 = 2) Or (CODE1 = 0 And CODE2 = 2) Then G91G02或G90G02pdgs = 0 JfSelect Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.04) 总步数 Case 2 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.1) 总步数 Case 3 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.2) 总步数End Select If (zmbz = 0 And xmbz = 0) Then ZouDaoX = 0 ZouDaoZ = 0 Timer7.Enabled = False Else Timer7.Enabled = True Timer7.Interval = 5 End IfElseIf (CODE1 = 1 And CODE2 = 3) Or (CODE1 = 0 And CODE2 = 3) Then G91G03或G90G03pdgs = 0 JfSelect Case jingeibeilv 进给率调整速率50，100，150。 Case 1 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.04) 总步数 Case 2 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.1) 总步数 Case 3 zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.2) 总步数End Select If (zmbz = 0 And xmbz = 0) Then Timer8.Enabled = False ZouDaoX = 0 ZouDaoZ = 0 Else Timer8.Enabled = True Timer8.Interval = 5 End IfElseIf (CODE1 = 1 And CODE2 = 4) Or (CODE1 = 0 And CODE2 = 4) ThenG91G33或G90G33pdgs = 0zdpd = Int(Abs(xmbz) + Abs(zmbz) / 0.3) 总步数 If (zmbz = 0 And xmbz = 0) Then ZouDaoX = 0 ZouDaoZ = 0 Timer9.Enabled = False Else Timer9.Enabled = True Timer9.Interval = 5 End IfEnd IfIf CODE3 = 1 Then -G04 Timer1.Enabled = True Timer1.Interval = 100End IfIf CODE5 = 1 Then ZhiJing = 1 Form1.Text13(12).Text = 22ElseIf CODE5 = 0 Then ZhiJing = 2 Form1.Text13(12).Text = 23End IfIf CODE6 = 1 Then -G158 Form1.Text11(0) = Form1.Text11(0) + N158X 16号刀具的新的刀偏值 Form1.Text12(0) = Form1.Text12(0) + N158X Form1.Text14(0) = Form1.Text14(0) + N158X Form1.Text15(0) = Form1.Text15(0) + N158X Form1.Text16(0) = Form1.Text16(0) + N158X Form1.Text17(0) = Form1.Text17(0) + N158X Form1.Text11(2) = Form1.Text11(2) + N158Z Form1.Text12(2) = Form1.Text12(2) + N158Z Form1.Text14(2) = Form1.Text14(2) + N158Z Form1.Text15(2) = Form1.Text15(2) + N158Z Form1.Text16(2) = Form1.Text16(2) + N158Z Form1.Text17(2) = Form1.Text17(2) + N158Z CODE6 = 0 N158X = 0 N158Z = 0 If fangshi = 0 Then Timer10.Enabled = True ElseIf fangshi = 1 Or fangshi = 2 Then Timer10.Enabled = False End IfEnd IfIf CODE7 = 1 Then Form1.Label8.Caption = F:mm/min ElseIf CODE7 = 0 Then Form1.Label8.Caption = F:mm/radEnd IfIf CODE8 = 1 Then -G96/G97 Form2.Timer11.Enabled = True Form2.Timer11.Interval = 5 Else: Form2.Timer11.Enabled = False G96CanShu = 1 Form2.Timer11.Interval = 0End IfIf CODE13 = 2 Then M04 MDIForm1.Timer2.Enabled = True Form1.Timer1.Enabled = True Form1.Timer3.Enabled = True ElseIf CODE13 = 1 Then M03 MDIForm1.Timer1.Enabled = True Form1.Timer1.Enabled = True Form1.Timer3.Enabled = True ElseIf CODE13 = 0 Then M05 jingeilvbh = False 用于自动运行方式下调节倍率判断(没有运行时) MDIForm1.Timer1.Enabled = False 主轴正转停 MDIForm1.Timer2.Enabled = False 主轴反转停 Form1.Timer1.Enabled = False Form1.Timer3.Enabled = False Form1.Text3.Text = 0 MDIForm1.Timer11.Enabled = False 水龙头有、流水开-流水停 MDIForm1.UserC1.Visible = False MDIForm1.UserC2.Visible = False MDIForm1.UserC4.Visible = False MDIForm1.UserC3.Visible = False MDIForm1.UserC5.Visible = False MDIForm1.UserC6.Visible = False Picture9.BackColor = &HFF& 红End IfIf CODE10 = 1 Then M00&M01Timer10.Enabled = False If Timer2.Enabled = True Then Timer2.Enabled = False duandianbz = 1 End If If Timer3.Enabled = True Then Timer3.Enabled = False duandianbz = 2 End If If Timer4.Enabled = True Then Timer4.Enabled = False duandianbz = 3 End If If Timer5.Enabled = True Then Timer5.Enabled = False duandianbz = 4 End If If Timer6.Enabled = True Then Timer6.Enabled = False duandianbz = 5 End If If Timer7.Enabled = True Then Timer7.Enabled = False duandianbz = 6 End If If Timer8.Enabled = True Then Timer8.Enabled = False duandianbz = 7 End If If Timer9.Enabled = True Then Timer9.Enabled = False duandianbz = 8 End IfEnd IfIf CODE9 = 1 Then MDIForm1.UserC0.Visible = True 水龙头流水开 Picture9.BackColor = &H80FF80 绿(工作) MDIForm1.Timer11.Enabled = TrueEnd IfIf CODE9 = 2 Then MDIForm1.Timer11.Enabled = False 水龙头有、流水开-流水停 MDIForm1.UserC1.Visible = False MDIForm1.UserC2.Visible = False MDIForm1.UserC4.Visible = False MDIForm1.UserC3.Visible = False MDIForm1.UserC5.Visible = False MDIForm1.UserC6.Visible = False Picture9.BackColor = &HFF& 红End IfEnd Sub %如何从一个字符串中读取一行字符？Function ReadStringLine(src_str As String, lineno As Integer) As StringOn Error Resume NextDim string_flag As IntegerDim line_cnt As IntegerDim test_string As StringDim ret_string As Stringline_cnt = 0 初始- 行数为1string_flag = 1 标志为1test_string = Right(src_str, 2)If test_string vbCrLf Thentest_string = src_str + vbCrLfElsetest_string = src_strEnd IfDoEventsDoline_cnt = line_cnt + 1string_flag = InStr(test_string, vbCrLf)ret_string = Left(test_string, string_flag)test_string = Right(test_string, Len(test_string) - string_flag - 1)Loop Until lineno = line_cntIf line_cnt = 1 Then ReadStringLine = ret_stringElseReadStringLine = Left(ret_string, Len(ret_string) - 1)End IfEnd FunctionPrivate Sub DaoJiaShuiDi() 刀架，水滴移动函数+Z,-Z,+X,-X（插补）MDIForm1.Image01.Move MDIForm1.Image01.Left + ZouDaoZ, MDIForm1.Image01.Top + ZouDaoXMDIForm1.UserC0.Move MDIForm1.UserC0.Left + ZouDaoZ, MDIForm1.UserC0.TopMDIForm1.UserC1.Move MDIForm1.UserC1.Left + ZouDaoZ, MDIForm1.UserC1.TopMDIForm1.UserC2.Move MDIForm1.UserC2.Left + ZouDaoZ, MDIForm1.UserC2.TopMDIForm1.UserC3.Move MDIForm1.UserC3.Left + ZouDaoZ, MDIForm1.UserC3.TopMDIForm1.UserC4.Move MDIForm1.UserC4.Left + ZouDaoZ, MDIForm1.UserC4.TopMDIForm1.UserC5.Move MDIForm1.UserC5.Left + ZouDaoZ, MDIForm1.UserC5.TopMDIForm1.UserC6.Move MDIForm1.UserC6.Left + ZouDaoZ, MDIForm1.UserC6.TopEnd SubPrivate Sub DaoJiaShuiDi01() 刀架，水滴移动函数+Z,-Z(快速定位)MDIForm1.Image01.Move MDIForm1.Image01.Left + ZouDaoZ, MDIForm1.Image01.TopMDIForm1.UserC0.Move MDIForm1.UserC0.Left + ZouDaoZ, MDIForm1.UserC0.TopMDIForm1.UserC1.Move MDIForm1.UserC1.Left + ZouDaoZ, MDIForm1.UserC1.TopMDIForm1.UserC2.Move MDIForm1.UserC2.Left + ZouDaoZ, MDIForm1.UserC2.TopMDIForm1.UserC3.Move MDIForm1.UserC3.Left + ZouDaoZ, MDIForm1.UserC3.TopMDIForm1.UserC4.Move MDIForm1.UserC4.Left + ZouDaoZ, MDIForm1.UserC4.TopMDIForm1.UserC5.Move MDIForm1.UserC5.Left + ZouDaoZ, MDIForm1.UserC5.TopMDIForm1.UserC6.Move MDIForm1.UserC6.Left + ZouDaoZ, MDIForm1.UserC6.TopEnd SubPrivate Sub PianDao1() 90偏刀（粗） MDIForm1.Picture4.Line (MDIForm1.UserC11.Left, MDIForm1.UserC11.Top)-Step(0, 500), RGB(128, 255, 128) 工作刀具 MDIForm1.Picture4.Line (MDIForm1.UserC11.Left, MDIForm1.UserC11.Top + 500)-Step(70, 0), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left + 60, MDIForm1.UserC11.Top + 500)-Step(0, 620), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left, MDIForm1.UserC11.Top - 20)-Step(350, 80), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left + 350, MDIForm1.UserC11.Top + 80)-Step(130, 310), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left + 480, MDIForm1.UserC11.Top + 380)-Step(0, 740), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC11.Left + 60, MDIForm1.UserC11.Top + 1120)-Step(420, 0), RGB(128, 255, 128)End SubPrivate Sub PianDao2() 90偏刀（粗）隐形刀具 MDIForm1.Picture4.Line (MDIForm1.UserC21.Left + 70, MDIForm1.UserC21.Top)-Step(0, 625), RGB(128, 255, 128) 隐形刀具 MDIForm1.Picture4.Line (MDIForm1.UserC21.Left + 70, MDIForm1.UserC21.Top + 625)-Step(-70, 0), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left, MDIForm1.UserC21.Top + 625)-Step(0, 480), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left, MDIForm1.UserC21.Top + 1150)-Step(350, -80), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left + 360, MDIForm1.UserC21.Top + 1095 - 70)-Step(130, -300), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left + 480, MDIForm1.UserC21.Top + 1095 - 370)-Step(0, -715), RGB(128, 255, 128) MDIForm1.Picture4.Line (MDIForm1.UserC21.Left, MDIForm1.UserC21.Top)-Step(470, 0), RGB(128, 255, 128)End SubPrivate Sub LuoWenDao1() 螺纹刀MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 100, MDIForm1.UserC31.Top - 10)-Step(-130, 250), RGB(128, 255, 128) 工作刀具MDIForm1.Picture4.Line (MDIForm1.UserC31.Left - 10, MDIForm1.UserC31.Top + 240)-Step(0, 930), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 120, MDIForm1.UserC31.Top - 10)-Step(120, 250), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC31.Left + 240, MDIForm1.UserC31.Top + 240)-Step(0, 930), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC31.Left, MDIForm1.UserC31.Top + 1160)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub LuoWenDao2() 螺纹刀隐形刀具MDIForm1.Picture4.Line (MDIForm1.UserC41.Left, MDIForm1.UserC41.Top)-Step(0, 930), RGB(128, 255, 128) 隐形刀具MDIForm1.Picture4.Line (MDIForm1.UserC41.Left, MDIForm1.UserC41.Top + 930)-Step(125, 240), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC41.Left + 110, MDIForm1.UserC41.Top + 1170)-Step(110, -240), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC41.Left + 260, MDIForm1.UserC41.Top + 930)-Step(0, -930), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC41.Left, MDIForm1.UserC41.Top)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub JingCheDao1() 精车刀MDIForm1.Picture4.Line (MDIForm1.UserC51.Left, MDIForm1.UserC51.Top)-Step(0, 550), RGB(128, 255, 128) 工作刀具MDIForm1.Picture4.Line (MDIForm1.UserC51.Left, MDIForm1.UserC51.Top + 550)-Step(80, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left + 80, MDIForm1.UserC51.Top + 550)-Step(0, 610), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left, MDIForm1.UserC51.Top)-Step(360, 240), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left + 360, MDIForm1.UserC51.Top + 240)-Step(120, 360), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left + 480, MDIForm1.UserC51.Top + 600)-Step(0, 560), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC51.Left, MDIForm1.UserC51.Top + 1150)-Step(480, 0), RGB(128, 255, 128)End SubPrivate Sub JingCheDao2() 精车刀隐形刀具MDIForm1.Picture4.Line (MDIForm1.UserC61.Left + 80, MDIForm1.UserC61.Top)-Step(0, 610), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left + 80, MDIForm1.UserC61.Top + 590)-Step(-80, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left, MDIForm1.UserC61.Top + 610)-Step(0, 550), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left, MDIForm1.UserC61.Top + 1160)-Step(360, -240), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left + 360, MDIForm1.UserC61.Top + 920)-Step(120, -360), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left + 490, MDIForm1.UserC61.Top + 560)-Step(0, -550), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC61.Left, MDIForm1.UserC61.Top)-Step(480, 0), RGB(128, 255, 128)End SubPrivate Sub QieCaoDao1() 切槽刀MDIForm1.Picture4.Line (MDIForm1.UserC71.Left, MDIForm1.UserC71.Top)-Step(0, 1160), RGB(128, 255, 128) 工作刀具MDIForm1.Picture4.Line (MDIForm1.UserC71.Left, MDIForm1.UserC71.Top)-Step(240, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC71.Left + 240, MDIForm1.UserC71.Top)-Step(0, 1160), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC71.Left, MDIForm1.UserC71.Top + 1160)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub QieCaoDao2() 切槽刀隐形刀具MDIForm1.Picture4.Line (MDIForm1.UserC81.Left, MDIForm1.UserC81.Top)-Step(0, 1155), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC81.Left, MDIForm1.UserC81.Top + 1150)-Step(240, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC81.Left + 240, MDIForm1.UserC81.Top)-Step(0, 1155), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC81.Left, MDIForm1.UserC81.Top)-Step(240, 0), RGB(128, 255, 128)End SubPrivate Sub TangDao1() 镗刀MDIForm1.Picture4.Line (MDIForm1.UserC91.Left - 5, MDIForm1.UserC91.Top + 450)-Step(50, -230), RGB(128, 255, 128) 工作刀具MDIForm1.Picture4.Line (MDIForm1.UserC91.Left + 50, MDIForm1.UserC91.Top + 225)-Step(310, -230), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC91.Left + 360, MDIForm1.UserC91.Top)-Step(870, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC91.Left - 5, MDIForm1.UserC91.Top + 465)-Step(420, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC91.Left + 420, MDIForm1.UserC91.Top + 460)-Step(0, -160), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC91.Left + 420, MDIForm1.UserC91.Top + 290)-Step(810, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC91.Left + 1220, MDIForm1.UserC91.Top)-Step(0, 280), RGB(128, 255, 128)End SubPrivate Sub TangDao2() 镗刀隐形刀具MDIForm1.Picture4.Line (MDIForm1.UserC101.Left, MDIForm1.UserC101.Top)-Step(420, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left + 420, MDIForm1.UserC101.Top)-Step(0, 160), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left + 420, MDIForm1.UserC101.Top + 160)-Step(810, 0), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left + 1220, MDIForm1.UserC101.Top + 160)-Step(0, 280), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left, MDIForm1.UserC101.Top)-Step(50, 230), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left + 50, MDIForm1.UserC101.Top + 235)-Step(310, 230), RGB(128, 255, 128)MDIForm1.Picture4.Line (MDIForm1.UserC101.Left + 350, MDIForm1.UserC101.Top + 460)-Step(870, 0), RGB(128, 255, 128)End SubForm4：Private Sub Command1_Click()Form4.Visible = FalseEnd SubPrivate Sub Command2_Click()Form4.Enabled = FalseForm4.Visible = FalseEnd SubPrivate Sub Option1_Click(Index As Integer) 刀位表Static daojvi As IntegerIf Option2(0).Value = True Then If Option1(Index).Value = True Then If Index = 0 Then Text1(0).Text = 90粗车刀 Picture1(0).Visible = False Picture1(1).Visible = True For daojvi = 2 To 5 Picture1(daojvi).Visible = False Next daojvi ElseIf Index = 1 Then Text1(0).Text = 三角螺纹刀 Picture1(0).Visible = False Picture1(1).Visible = False Picture1(2).Visible = True For daojvi = 3 To 5 Picture1(daojvi).Visible = False Next daojvi ElseIf Index = 2 Then Text1(0).Text = 90精车刀 For daojvi = 0 To 2 Picture1(daojvi).Visible = False Next daojvi Picture1(3).Visible = True Picture1(4).Visible = False Picture1(5).Visible = False ElseIf Index = 3 Then Text1(0).Text = 外圆切槽刀 For daojvi = 0 To 3 Picture1(daojvi).Visible = False Next daojvi Picture1(4).Visible = True Picture1(5).Visible = False ElseIf Index = 4 Then Text1(0).Text = 内孔镗刀 For daojvi = 0 To 4 Picture1(daojvi).Visible = False Next daojvi Picture1(5).Visible = True Else: Text1(0).Text = 内孔切槽刀 Picture1(0).Visible = True End If End IfEnd IfIf Option2(1).Value = True Then If Option1(Index).Value = True Then If Index = 0 Then Text1(1).Text = 90粗车刀 Picture1(0).Visible = False Picture1(1).Visible = True For daojvi = 2 To 5 Picture1(daojvi).Visible = False Next daojvi ElseIf Index = 1 Then Text1(1).Text = 三角螺纹刀 Picture1(0).Visible = False Picture1(1).Visible = False Picture1(2).Visible = True For daoj

温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

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

关于本文

本文标题：GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计【优秀机械机电毕业设计论文】【A6311】
链接地址：https://www.renrendoc.com/p-981427.html

官方联系方式

网站客服

网站客服

侵权投诉

1:下载资料失败解决办法

2:不支持迅雷下载,请使用浏览器下载

3:不支持QQ浏览器下载,请用其他浏览器

4:下载后的文档和图纸-无水印

5:文档经过压缩，下载后原文更清晰

点击下载此资源

关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ：2881952447

copyright@ 2020-2025 renrendoc.com 人人文库版权所有联系电话：400-852-1180

备案号:蜀ICP备2022000484号-2 经营许可证: 川B2-20220663 川公网安备: 51019002004831号

本站为文档C2C交易模式，即用户上传的文档直接被用户下载，本站只是中间服务平台，本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私，请立即通知人人文库网，我们立即给予删除！