LW01-006@GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计
收藏
资源目录
压缩包内文档预览：(预览前20页/共187页)
编号：503606
类型：共享资源
大小：600.01KB
格式：ZIP
上传时间：2015-11-09
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
机械毕业设计 论文
- 资源描述：
-
LW01-006@GSK928数控车削仿真系统的研究与开发NC代码插补功能的设计,机械毕业设计 论文
- 内容简介：
-
基于 VB的数控车削仿真系统研究与开发 第 1 页 共 187 页 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-XeZi Public zdpd As Integer 插补总步数 Public ni As Integer 字符行 Public JXS As Single I Public JZS As Single K Public 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参数 nts基于 VB的数控车削仿真系统研究与开发 第 2 页 共 187 页 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 字符参数 nts基于 VB的数控车削仿真系统研究与开发 第 3 页 共 187 页 MDIForm1: Public suofang As Integer 缩放按钮 Private Sub chengxu01_Click() 导入程序 01 Form7.Show Form7.Enabled = True End Sub Private Sub chengxu02_Click() 导入程序 Form7.Show Form7.Enabled = True End Sub Private Sub chengxu03_Click() 导入程序 Form7.Show Form7.Enabled = True End Sub Private Sub chengxu04_Click() 导入程序 Form7.Show Form7.Enabled = True End Sub Private Sub chengxu05_Click() 导入程序 Form7.Show Form7.Enabled = True End Sub Private Sub chuangti_Click(Index As Integer) MsgBox 主窗体 MDIForm1 为加工模拟显示区；子窗体 Form1 为程序运行区；子窗体 Form2为控制区；子窗体 Form3 为软件简介区；子窗体 Form4为刀具刀位选择区；子窗体 Form5为工件装夹区；子窗体 Form6为启动封面区；子窗体 Form7为导入程序区。 , 0, 提示： End Sub Private Sub mokuai_Click(Index As Integer) MsgBox 定义了“ fangshi（方式）”， “ dataX（ X值）”，“ zdyxbz（自动运行标志）”等全局变量。, 0, 提示： End Sub Private Sub Timer11_Timer() 水滴滴水动画 Static Sss As Integer nts基于 VB的数控车削仿真系统研究与开发 第 4 页 共 187 页 Select Case Sss Case 0 UserC1.Visible = True UserC2.Visible = True UserC4.Visible = True UserC3.Visible = False UserC5.Visible = False UserC6.Visible = False Sss = 1 Case 1 UserC3.Visible = True UserC5.Visible = True UserC6.Visible = True UserC1.Visible = False UserC2.Visible = False UserC4.Visible = False Sss = 0 End Select End Sub Private Sub yonghukongjian_Click(Index As Integer) MsgBox 定义了“ UserC11（粗车刀）”，“ UserC31（螺纹刀）”，“ UserC51（精车刀）”，“ UserC71（切刀）”等用户控件。 , 0, 提示： End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 标准工具栏（点击） Select Case Button.Key Case 新建 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 nts基于 VB的数控车削仿真系统研究与开发 第 5 页 共 187 页 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 = 0 Case 打开 Form1.Show Form1.Visible = True nts基于 VB的数控车削仿真系统研究与开发 第 6 页 共 187 页 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 richi Case 菜单 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 If Case 次菜单 nts基于 VB的数控车削仿真系统研究与开发 第 7 页 共 187 页 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 If Case 加工区 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) Form1.Label16.Caption = Form1.Label17.Caption = 对刀 Case 刀具箱 Form4.Visible = True Case 装夹工件 Form5.Visible = True Form5.Timer1.Enabled = True TEXT6文本显示 If Form5.Text1.Text 0.00 Then Form5.Text4.SetFocus 输入获得焦点 End If Case 顶尖 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 nts基于 VB的数控车削仿真系统研究与开发 第 9 页 共 187 页 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 拖动 nts基于 VB的数控车削仿真系统研究与开发 第 10 页 共 187 页 End Select End Sub Private Sub Timer9_Timer() 缩小 Picture2.Height = Picture2.Height - 100 Picture2.Width = Picture2.Width - 100 If Picture2.Height 13000 Then Timer10.Enabled = False End If End Sub Private Sub zhukongmb_Click() 主控面板显示 If zhukongmb.Checked = False Then zhukongmb.Checked = True Form1.Show Else: zhukongmb.Checked = False Unload Form1 End If End Sub Private Sub biaozhungjl_Click() 标准工具栏显示 If biaozhungjl.Checked = False Then biaozhungjl.Checked = True Toolbar1.Visible = True Else: biaozhungjl.Checked = False Toolbar1.Visible = False End If End Sub Private Sub cikongmb_Click() 次控面板显示 If cikongmb.Checked = False Then cikongmb.Checked = True Form2.Show nts基于 VB的数控车削仿真系统研究与开发 第 11 页 共 187 页 Else: cikongmb.Checked = False Unload Form2 End If End Sub Private Sub tuichu_Click() 退 出下拉菜单 MDIForm1.Visible = False Form1.Visible = False Form2.Visible = False Form3.Visible = False Form4.Visible = False Form5.Visible = False End Sub Private Sub xinjian_Click() 新建程序菜单 Form1.Show Form1.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 nts基于 VB的数控车削仿真系统研究与开发 第 12 页 共 187 页 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 = 0 End Sub Private Sub dakai_Click() 打开菜单 Form1.Show Form1.Visible = True 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 = 选择 nts基于 VB的数控车削仿真系统研究与开发 第 13 页 共 187 页 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 richi End Sub Private 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.00 Then 轴类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then 主轴没有旋转撞刀 If Image01.Top 0.00 Then 孔类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then 主轴没有旋转撞刀 If Image01.Top -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 If End If Form1.Picture7.Visible = True Z运行标志 DaoJiaShuiDi01 切削液水滴移动 01 If Form4.Option3(0).Value = True Then Form1.Label31.Caption = T1 刀具号 Form1.Label33.Caption = D1 UserC11.Move UserC11.Left - ZouDao, UserC11.Top PianDao1 90偏刀（粗） UserC21.Move UserC21.Left - ZouDao, UserC21.Top PianDao2 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 If End If If Form4.Option3(1).Value = True Then nts基于 VB的数控车削仿真系统研究与开发 第 18 页 共 187 页 Form1.Label31.Caption = T2 刀具号 Form1.Label33.Caption = D1 UserC31.Move UserC31.Left - ZouDao, UserC31.Top 螺纹刀 - Z LuoWenDao1 螺纹刀 UserC41.Move UserC41.Left - ZouDao, UserC41.Top LuoWenDao2 螺纹刀隐形刀具 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 Form1.Label31.Caption = T3 刀具号 Form1.Label33.Caption = D1 UserC51.Move UserC51.Left - ZouDao, UserC51.Top 精车刀 -Z JingCheDao1 精车刀 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 If End If If Form4.Option3(3).Value = True Then Form1.Label31.Caption = T4 刀具号 Form1.Label33.Caption = D1 UserC71.Move UserC71.Left - ZouDao, UserC71.Top 切槽刀 -Z QieCaoDao1 切槽刀 UserC81.Move UserC81.Left - ZouDao, UserC81.Top 隐形刀具 QieCaoDao2 切槽刀隐形刀具 nts基于 VB的数控车削仿真系统研究与开发 第 19 页 共 187 页 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 Form1.Label31.Caption = T5 刀具号 Form1.Label33.Caption = D1 UserC91.Move UserC91.Left - ZouDao, UserC91.Top 镗刀 -Z TangDao1 镗刀 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 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 If End Sub Private Sub Timer5_Timer() -X Select Case jingeibeilv 进给率调整速率 50， 100， 150。 Case 0 ZouDao = 0 Case 1 ZouDao = 2 Case 2 ZouDao = 5 nts基于 VB的数控车削仿真系统研究与开发 第 20 页 共 187 页 Case 3 ZouDao = 10 Case 4 ZouDao = 15 End Select If jingeibeilv = 0 Then 进给为零 zdyxbz = False Form1.Label4.Caption = 无法运行，进给率为 0！ Form1.Label39.Caption = 无法运行，进给率为 0 请调整进给率！ Exit Sub End If If Form5.Text1.Text 0.00 Then 孔类工件 If Timer1.Enabled = False And Timer2.Enabled = False Then 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 If End If Form1.Picture6.Visible = True X 运行标志 Image01.Move Image01.Left, Image01.Top - ZouDao If Form4.Option3(0).Value = True Then Form1.Label31.Caption = T1 刀具号 Form1.Label33.Caption = D1 UserC11.Move UserC11.Left, UserC11.Top - ZouDao 90 偏刀（粗） -X PianDao1 90偏刀（粗） UserC21.Move UserC21.Left, UserC21.Top + ZouDao PianDao2 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 If End If If Form4.Option3(1).Value = True Then Form1.Label31.Caption = T2 刀具号 Form1.Label33.Caption = D1 nts基于 VB的数控车削仿真系统研究与开发 第 22 页 共 187 页 UserC31.Move UserC31.Left, UserC31.Top - ZouDao 螺纹刀 - X LuoWenDao1 螺纹刀 UserC41.Move UserC41.Left, UserC41.Top + ZouDao LuoWenDao2 螺纹刀隐形刀具 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 Form1.Label31.Caption = T3 刀具号 Form1.Label33.Caption = D1 UserC51.Move UserC51.Left, UserC51.Top - ZouDao 精车刀 -X JingCheDao1 精车刀 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 If End If If Form4.Option3(3).Value = True Then Form1.Label31.Caption = T4 刀具号 Form1.Label33.Caption = D1 UserC71.Move UserC71.Left, UserC71.Top - ZouDao 切槽刀 -X QieCaoDao1 切槽刀 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) - nts基于 VB的数控车削仿真系统研究与开发 第 23 页 共 187 页 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 Form1.Label31.Caption = T5 刀具号 Form1.Label33.Caption = D1 UserC91.Move UserC91.Left, UserC91.Top - ZouDao 镗刀 -Z TangDao1 镗刀 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)
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号