关 键 词：

GSK928 数控 车削 仿真 系统 研究 开发 NC 代码 功能 设计 机械设计 图纸 文档

资源描述：

GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计机械设计带图纸文档,GSK928,数控,车削,仿真,系统,研究,开发,NC,代码,功能,设计,机械设计,图纸,文档

内容简介：

基于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 = &H