资源目录
压缩包内文档预览：(预览前20页/共49页)
编号：492310
类型：共享资源
大小：26.76MB
格式：ZIP
上传时间：2015-11-06
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
30
积分
- 关 键 词：
-
机械毕业设计全套
- 资源描述：
-
JD01-055@弹簧CAD软件的开发,机械毕业设计全套
- 内容简介：
-
盐城工学院 本科毕业设计程序清单 2004 1 1 压缩弹簧设计软件的程序清单 变量的选择 Public a As Integer 安装载荷 Public b As Integer 安装高度 Public c As Integer 工作载荷 Public d As Integer 工作行程 Public e As Double 弹簧刚度 Public f As Double 载荷作用次数 Public g As String 载荷类型 Public name1 As String 材料名称 Public txml As Integer 弹性模量 Public qbml As Double 切变模量 Public klqd As Integer 抗拉强度 Public qyl As Integer 许用切应力 Public dimention1 As Double 钢丝直径 Public xrb As Integer 旋绕比 Public thzj As Double 弹簧中径 Public yxqs As Double 有效圈数 Public m As String 定义端部型式 Public n As String 定义压并圈数取值范围 Public l As Integer 定义压并圈数取值 Public k As Double 曲度系数 Public h0 As Double 弹簧自由长度 Public e1 As Double 弹簧实际刚度 Public wc As Single 弹簧刚度相对误差 Public f1 As Double 弹簧安装变形量 Public f2 As Double 弹簧工作变形量 Public fs As Double 弹簧试验变形量 Public fs1 As Double 试验载荷 Public ybgd As Double 定义压并高度 Public Rn As Double text8 文本框的的内容 Public y1 As Double text5 文本框的的内容 Public y2 As Double text6 文本框的的内容 nts盐城工学院 本科毕业设计程序清单 2004 2 Public l1 As String label26 标签的标题 Public l2 As String label29 标签的标题 Public l3 As String label28 标签的标题 Public t1 As Double text10 文本框的的内容 Public t2 As Double text11 文本框的的内容 Public t3 As Double text12文本框的的内容 Public t4 As Double text13 文本框的的内容 Public x1 As String label26 的标题 Public x2 As String label32 的标题 Public x3 As String label30 的标题 Public x4 As String label28的标题 Public x As Double 定义压缩弹簧螺旋升角 Form1:压缩弹簧设计窗体 Private Sub Command3_Click() 显示 Form2 窗体 Form1.Hide Form2.Show Form1.Command4.Visible = False End Sub Form2：注册信息窗体 Private Sub Command25_Click() If Text1.Text Then Unload Me Form1.Show Form1.Command4.Visible = True Form1.Picture1.Visible = True Form1.Command4.SetFocus Form1.Text1.Text = 压缩弹簧设计报告 & vbCrLf & vbCrLf & 一、设计信息 & vbCrLf & 设计者 Name=姚卫华 & vbCrLf & 设计单位 Comp = 盐城工学院 & vbCrLf & 设计日期 Date = 2004 - 3- 1 & vbCrLf & 设计时间 Time=2004.3.1-2004.6.1 Else MsgBox 请输入设计者和设计单位！ nts盐城工学院 本科毕业设计程序清单 2004 3 End If End Sub Private Sub Command4_Click() 显示 Form3 窗体Form1.Hide Form3.Show Form3.Text1.SetFocus End Sub Form3 窗体：输入参数 Private Sub Command4_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) If Val(Text1.Text) Val(Text3.Text) Then MsgBox 对不起，安装载荷不能大于最工作载荷，请重新输入 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocus ElseIf Val(Text1.Text) = 1000000 Then Text7.Text = I 类 ElseIf Val(Text6.Text) And Text3.Text And Text6.Text c Then Label28.Caption = 满足要求 nts盐城工学院 本科毕业设计程序清单 2004 20 Label28.ForeColor = &HC00000 Else MsgBox 稳定性不满足条件，可以加导杆或导套 End If End If If Combo1.Text = 一端固定 And Text14.Text c Then Label28.Caption = 满足要求 Label28.ForeColor = &HC00000 Else MsgBox 稳定性不满足条件，可以加导杆或导套 End If End If If Combo1.Text = 两端回转 And Text14.Text c Then Label28.Caption = 满足要求 Label28.ForeColor = &HC00000 Else MsgBox 稳定性不满足条件，可以加导杆或导套 End If End If x4 = Label28.Caption l1 = Label26.Caption l2 = Label29.Caption l3 = Label28.Caption t1 = Text10.Text t2 = Text11.Text nts盐城工学院 本科毕业设计程序清单 2004 21 t3 = Text12.Text t4 = Text13.Text End Sub Private Sub Command2_Click() Unload Me Form1.Show Form1.Picture6.Visible = True Form1.Command9.Visible = True Form1.Command9.SetFocus Form1.Text1.Text = 压缩弹簧设计报告 & vbCrLf & vbCrLf & 一、设计信息 & vbCrLf & 设计者 Name=姚卫华 & vbCrLf & 设计单位 Comp = 盐城工学院 & vbCrLf & 设计日期 Date = 2004 - 3- 1 & vbCrLf & 设计时间 Time=2004.3.1-2004.6.1 & vbCrLf & vbCrLf & 二、设计要求 & vbCrLf & 安装载荷 (要求 )F1 = & a & N & vbCrLf & 安装高度 H1= & b & mm & vbCrLf & 工作载荷 (要求 ) F2= & c & (N) & vbCrLf & 工作行程 h= & d & (mm) & vbCrLf & 要求刚度 k= & e & (N/mm) & vbCrLf & 载荷作用次数 N= & f & 次 & vbCrLf & 载荷类型 NType= & g & vbCrLf & vbCrLf & 三、材料 & vbCrLf & 材料名称 M_Name= & name1 & vbCrLf & 切变模量 E= & txml & (MPa) & vbCrLf & 切变模量 G= & qbml & (MPa) & vbCrLf & 抗拉强度 b= & klqd & (MPa) & vbCrLf & 许用切应力 b= & qyl & ( MPa) & vbCrLf & vbCrLf & 四、端部型式 & vbCrLf & 端部型式 sType= & m & vbCrLf & 压并圈取值范围 n2= & n & vbCrLf & 压并圈数 n2= & l & vbCrLf & vbCrLf & 五、弹簧基本参数 & vbCrLf & 钢丝直径 d= & dimention1 & (mm) & vbCrLf & 弹簧中径 D= & thzj & (mm) & vbCrLf & 旋绕比 C= & xrb & vbCrLf & 曲度系数 K= & Left(k, 6) & vbCrLf & 有效圈数 n= & yxqs & vbCrLf & 压并圈数 n2= & l & vbCrLf & 弹簧总圈数 n1= & yxqs + l & vbCrLf & 实际刚度 k= & Left(e1 * 1000, 6) & (N/mm) & vbCrLf & vbCrLf & 六、校核与分析 & vbCrLf & 要求刚度 k= & e & (N / mm) & vbCrLf & 实际刚度 k= & Left(e1 * 1000, 6) & (N / mm) & vbCrLf & 刚度相对误差 = & wc * 100 & vbCrLf & 安装变形量 f1= & Left(f1, 6) & mm & vbCrLf & 安装载荷 = & a & N & vbCrLf & 工作变形量 f2= & Left(f2, 6) & mm & vbCrLf & 工作载荷 = & c & N & vbCrLf & 试验变形量 fs= & Left(fs, 6) & mm & vbCrLf & 最小变形比 f1/fs= & Left(y1, 6) & vbCrLf & 弹簧特性（安装） : & x1 & vbCrLf & 最大变形比 f2/fs= & Left(y2, 6) & vbCrLf & 弹簧特性（工作） : & x2 & vbCrLf & nts盐城工学院 本科毕业设计程序清单 2004 22 最小切应力 min= & Left(t1, 6) & MPa & vbCrLf & 最大切应力 max= & Left(t2, 6) & MPa & vbCrLf & 切应力特性系数 = & Left(t3, 6) & vbCrLf & 最大切应力比许用切应力 max/ p= & Left(t4, 6) & vbCrLf & _ 弹簧疲劳强度 Tq= & l2 & vbCrLf & 弹簧自 振频率 n= & Rn & Hz & vbCrLf & 共振要求 : & x3 & vbCrLf & 稳定性要求： & x4 & vbCrLf & vbCrLf & 七、其余尺寸参数 & vbCrLf & 自由高度 H0= & Left(h0, 6) & mm & vbCrLf & 安装高度 H1= & Left(b, 6) & mm & vbCrLf & 工作高度 H2= & Left(h0 - f2), 6) & mm & vbCrLf & 压并高度 = & Left(yxqs + l) * dimention1, 6) & mm & vbCrLf & 试验高度 = & Left(h0 - fs), 6) & mm & vbCrLf & 节距 P0= & Left(h0 - l * dimention1) / yxqs, 6) & mm & vbCrLf & 弹簧材料展开长度 & Left(3.1415926 * thzj * (yxqs + l), 6) & mm End Sub 以上程序是对压缩弹簧的校核，包括弹簧特性验算 、疲劳强度验算、稳定性验算以及共振验算。 Private Sub Command9_Click() 显示 Form8 窗体 Unload Me Form8.Show End Sub Form8：压缩弹簧图窗体 Private Sub Command2_Click() Text1.Text = dimention1 Text2.Text = thzj Text3.Text = Left(h0, 4) Text4.Text = Left(h0 - l * dimention1) / yxqs, 4) x = Atn(h0 - l * dimention1) / (yxqs * 3.14159 * thzj) Text5.Text = Left(x, 6) End Sub Private Sub Command1_Click() Unload Me Form1.Show Form1.Picture1.Visible = True Form1.Picture2.Visible = True Form1.Picture3.Visible = True nts盐城工学院 本科毕业设计程序清单 2004 23 Form1.Picture4.Visible = True Form1.Picture5.Visible = True Form1.Picture6.Visible = True Form1.Picture7.Visible = True Form1.Command1.Visible = True Form1.Command3.Visible = True Form1.Command4.Visible = True Form1.Command5.Visible = True Form1.Command6.Visible = True Form1.Command7.Visible = True Form1.Command8.Visible = True Form1.Command9.Visible = True Form1.Command1.SetFocus Form1.Text1.Text = 压缩弹簧设计报告 & vbCrLf & vbCrLf & 一、设计信息 & vbCrLf & 设计者 Name=姚卫华 & vbCrLf & 设计单位 Comp = 盐城工学院 & vbCrLf & 设计日期 Date = 2004 - 3- 1 & vbCrLf & 设计时间 Time=2004.3.1-2004.6.1 & vbCrLf & vbCrLf & _ 二、设计要求 & vbCrLf & 安装载荷 (要求 )F1 = & a & N & vbCrLf & _ 安装高度 H1= & b & mm & vbCrLf & 工作载荷 (要求 ) F2= & c & (N) & vbCrLf & 工作行程 h= & d & (mm) & vbCrLf & 要求刚度 k= & e & (N/mm) & vbCrLf & 载荷作用次数 N= & f & 次 & vbCrLf & 载荷类型 NType= & g & vbCrLf & vbCrLf & 三、材料 & vbCrLf & 材料名称 M_Name= & name1 & vbCrLf & 切变模量 E= & txml & (MPa) & vbCrLf & 切变模量 G= & qbml & (MPa) & vbCrLf & 抗拉强度 b= & klqd & (MPa) & vbCrLf & 许用切应力 b= & qyl & ( MPa) & vbCrLf & vbCrLf & 四、端部型式 & vbCrLf & 端部型式 sType= & m & vbCrLf & 压并圈取值范围 n2= & n & vbCrLf & 压并圈数 n2= & l & vbCrLf & vbCrLf & 五、弹簧基本参数 & vbCrLf & 钢丝直径 d= & dimention1 & (mm) & vbCrLf & 弹簧中径 D= & thzj & (mm) & vbCrLf & 旋绕比 C= & xrb & vbCrLf & 曲度系数 K= & k & vbCrLf & 有效圈数 n= & yxqs & vbCrLf & 压并圈数 n2= & l & vbCrLf & 弹簧总圈数 n1= & yxqs + l & vbCrLf & 实际刚度 k= & Left(e1 * 1000, 6) & (N/mm) & vbCrLf & vbCrLf & 六、校核与分析 & vbCrLf & 要求刚 度 k= & e & (N / mm) & vbCrLf & 实际刚度 k= & Left(e1 * 1000, 6) & (N / mm) & vbCrLf & 刚度相对误差 = & Left(wc * 100, 6) & % & vbCrLf & 安装变形量 f1= & Left(f1, 6) & mm & vbCrLf & 安装载荷 = & a & N & vbCrLf & 工作nts盐城工学院 本科毕业设计程序清单 2004 24 变形量 f2= & Left(f2, 6) & mm & vbCrLf & 工作 载荷 = & c & N & vbCrLf & 试验变形量 fs= & Left(fs, 6) & mm & vbCrLf & 最小变形比 f1/fs= & Left(y1, 6) & vbCrLf & 弹簧特性（安装） : & x1 & vbCrLf & 最大变形比 f2/fs= & Left(y2, 6) & vbCrLf & 弹簧特性（工作） : & x2 & vbCrLf & 最小切应力 min= & t1 & MPa & vbCrLf & 最大切应力 max= & t2 & MPa & vbCrLf & 切应力特性系数 = & t3 & vbCrLf & 最大切应力比许用切应力 max/ p= & t4 & vbCrLf & 弹簧疲劳强度 Tq= & l2 & vbCrLf & 弹簧自振频率 n= & Left(Rn, 8) & Hz & vbCrLf & 共振要求 : & x3 & vbCrLf & 稳定性要求： & x4 & vbCrLf & vbCrLf & _ 七、其余尺寸参数 & vbCrLf & 自由高 度 H0= & Left(h0, 6) & mm & vbCrLf & 安装高度 H1= & Left(b, 6) & mm & vbCrLf & 工作高度 H2= & Left(h0 - f2), 6) & mm & vbCrLf & 压并高度 = & Left(yxqs + l) * dimention1, 6) & mm & vbCrLf & 试验高度 = & Left(h0 - fs), 6) & mm & vbCrLf & 节距 P0= & Left(h0 - l * dimention1) / yxqs, 6) & mm & vbCrLf & 螺旋升角 & Left(x, 6) & 度 & vbCrLf & 弹簧材料展开长度 & Left(3.1415926 * thzj * (yxqs + l), 6) & mm End Sub 以上程序计算压缩弹簧自由长度、节距、螺旋升角。 压缩弹簧图窗体 Private Sub Command1_Click() CommonDialog1.FileName = default.Txt) CommonDialog1.DefaultExt = Txt CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub “文件”菜单中的“新建”的代码 Private Sub filenew_Click(Index As Integer) Form1.Show Form1.Command3.Visible = True Form1.Command1.Visible = False nts盐城工学院 本科毕业设计程序清单 2004 25 Form1.Command4.Visible = False Form1.Command5.Visible = False Form1.Command6.Visible = False Form1.Command7.Visible = False Form1.Command8.Visible = False Form1.Command9.Visible = False Form1.Picture1.Visible = True Form1.Picture2.Visible = False Form1.Picture3.Visible = False Form1.Picture4.Visible = False Form1.Picture5.Visible = False Form1.Picture6.Visible = False Form1.Picture7.Visible = False Form1.Text1.Text = 压缩弹簧设计报告 End Sub “文件”菜单中的“另存为”的代码 Private Sub filesaveagain_Click(Index As Integer) CommonDialog1.FileName = default.doc) CommonDialog1.DefaultExt = doc CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub “文件”菜单中的“设计报告输出”的代码 Private Sub fileOut_Click(Index As Integer) CommonDialog1.FileName = default.Txt) CommonDialog1.DefaultExt = Txt CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub nts盐城工学院 本科毕业设计程序清单 2004 26 “窗口”菜单中的“设计”的代码 Private Sub chuangkousheji_Click(Index As Integer) Form1.Show Form1.Command3.Visible = True Form1.Command1.Visible = False Form1.Command4.Visible = False Form1.Command5.Visible = False Form1.Command6.Visible = False Form1.Command7.Visible = False Form1.Command8.Visible = False Form1.Command9.Visible = False Form1.Picture1.Visible = True Form1.Picture2.Visible = False Form1.Picture3.Visible = False Form1.Picture4.Visible = False Form1.Picture5.Visible = False Form1.Picture6.Visible = False Form1.Picture7.Visible = False Form1.Text1.Text = 压缩弹簧设计报告 End Sub “编辑”菜单中的“剪切”的代码 Private Sub clear_Click() Clipboard.SetText Text1.SelText Text1.SelText = End Sub “编辑”菜单中的“复制”的代码 Private Sub copy_Click() Clipboard.SetText Text1.SelText End Sub “编辑”菜单中的“粘贴”的代码 nts盐城工学院 本科毕业设计程序清单 2004 27 Private Sub copy1_Click() Text1.SelText = Clipboard.GetText End Sub “数据管理”菜单中的“材料数据总揽”的代码 Private Sub shujuguanliCAILIAO_Click(Index As Integer) frm表 1.Show End Sub “数据管理”菜单中的“压簧有效圈系列”的代码 Private Sub shujuguanliYOUXIAOCHUAN_Click(Index As Integer) frm有效圈数 .Show End Sub “帮助”菜单中的“帮助主题”的代码 Private Sub bangzhuzhuti_Click(Index As Integer) frmBrowser.Show End Sub 2 拉伸弹簧设计软件的程序清单 变量选择 Public a0 As Integer 定义安装载荷 Public b0 As Integer 定义工作载荷 Public c0 As Integer 定义工作行程 Public e0 As Integer 定义试验载荷 Public g0 As String 定义载荷类型 Public wc1 As Single 定义刚度相对误差 Public e2 As Double 定义实际刚度 Public azgd As Double 定义安装高度 Public f0 As Double 定义作用次数 Public d0 As Double 定义工作行程 Public name10 As String 定义材料名称 Public qbml0 As Double 定义切变模量 nts盐城工学院 本科毕业设计程序清单 2004 28 Public txml0 As Double 定义弹性模量 Public klqd0 As Double 定义抗拉强度 Public xyqyl0 As Double 定义许用切应力 Public m1 As String 定义端部形式 Public n1 As String 定义端部钢丝长度系数 Public xrb0 As Double 定义旋绕比 Public thzj0 As Double 定义弹簧中径 Public dimention2 As Double 定义钢丝直径 Public yxqs0 As Double 定义有效圈数 Public gj0 As Double Public qs0 As Double Public k0 As Double 曲度系数 Public f01 As Double 弹簧初拉力 Public x5 As Double 最小变形比 Public x6 As Double 最大变形比 Public x7 As String label13标签的标题 Public x8 As String label14标签的标题 Public x9 As Double 最大切应力比许用切应力 Public x10 As String label20标签的标题 Public min As Double 最小切应力 Public max As Double 最大切应力 Public As Double 切应力系数 Public fl1 As Double 安装变形量 Public fl2 As Double 工作变形量 Public fls As Double 试验变形量 Public h01 As Double 弹簧自由长度 Public x0 As Double 定义拉伸弹簧螺旋升角 Private Sub Command2_Click() 显示 Form13 窗体Form13.Show Form13.Text1.SetFocus End Sub Form13：输入参数窗体 nts盐城工学院 本科毕业设计程序清单 2004 29 Private Sub Command4_Click() a0 = Val(Text1.Text) b0 = Val(Text2.Text) c0 = Val(Text3.Text) azgd = Val(Text8.Text) If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text6.Text = Then MsgBox 请输入数据！ End If If Val(Text1.Text) Val(Text2.Text) Then MsgBox 对不起，安装载荷不能大于最工作载荷，请重新输入 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text1.SetFocus ElseIf Val(Text1.Text) = 1000000 Then Text7.Text = I 类 ElseIf Val(Text6.Text) And Text3.Text ) Then Unload Me Form9.Show Form9.Command3.Visible = True Form9.Picture2.Visible = True Form9.Command3.SetFocus Else MsgBox 请输入数据，谢谢 End If Form9.Text1.Text = 拉伸弹簧设计报告 & vbCrLf & 一 ,设计信息 & vbCrLf & 设计者 :Name=姚卫华 & vbCrLf & 设计单位 :comp=盐工机械系 & vbCrLf & 设计日期 :Date=2004-4-4 & vbCrLf & 设计时间 :Time=2004.3.1-2004.6.1 & vbCrLf & _ 二 ,设计要求 & vbCrLf & 安装载荷 (要求 )F1= & a0 & N & vbCrLf & 安 装高度 = & azgd & mm & vbCrLf & 工作载荷 (要求 )F2= & b0 & (N) & vbCrLf & 工作行程 h= & c0 & (MM) & vbCrLf & 弹簧刚度 k= & d0 & (N/MM) & vbCrLf & 试验载荷 fs= & e0 & (N) & vbCrLf & 载荷作用次数 N= & f0 & (次 ) & vbCrLf & 载荷类型 NType= & g0 End Sub 以上程序是计算拉伸弹簧弹簧刚度、试验载荷 以及判断受载荷类型。 Private Sub Command3_Click() 进入 选择弹簧钢丝材材窗体 Unload Me If g0 = I类 Then Form14.Show Form14.Text1.Text = f0 Form14.Text5.Text = g0 End If If g0 = II类 Then Form24.Show Form24.Text1.Text = f0 Form24.Text5.Text = g0 End If nts盐城工学院 本科毕业设计程序清单 2004 31 If g0 = III类 Then Form25.Show Form25.Text1.Text = f0 Form25.Text5.Text = g0 End If End Sub Private Sub Command4_Click() Dim cr3 As String Dim curr3 As String name10 = Combo1.Text curr3 = Data1.Recordset.Bookmark cr3 = 材料名称标准 = & & name10 & Data2.Recordset.FindFirst (cr3) klqd0 = Val(Text4.Text) xyqyl0 = Val(Text8.Text) Dim name2 As String Dim cr4 As String Dim curr4 As String name2 = Combo1.Text curr4 = Data2.Recordset.Bookmark cr4 = 弹簧材料 = & & name2 & Data1.Recordset.FindFirst (cr4) txml0 = Val(Text3.Text) qbml0 = Val(Text2.Text) End Sub Private Sub Command2_Click() Unload Me Form9.Show Form9.Command3.Visible = True Form9.Picture2.Visible = True Form9.Command4.Visible = True Form9.Picture3.Visible = True Form9.Command4.SetFocus Form9.Text1.Text = 拉伸弹簧设计报告 & nts盐城工学院 本科毕业设计程序清单 2004 32 vbCrLf & 一 ,设计信息 & vbCrLf & 设计者 :Name=姚卫华 & vbCrLf & 设计单位 :comp=盐工机械系 & vbCrLf & 设计日期 :Date=2004-4-4 & vbCrLf & 设计时间 :Time=2004.3.1-2004.6.1 & vbCrLf & _ 二 ,设计要求 & vbCrLf & 安装载荷 (要求 )F1= & a0 & N & vbCrLf & 安装高度 = & azgd & mm & vbCrLf & 工作载荷 (要求 )F2= & b0 & (N) & vbCrLf & 工作行程 h= & c0 & (MM) & vbCrLf & 弹簧刚度 k= & d0 & (N/MM) & vbCrLf & 试验载荷 fs= & e0 & (N) & vbCrLf & 载荷作用次数 N= & f0 & (次 ) & vbCrLf & 载荷类型 NType= & g0 & vbCrLf & 三 ,材料 & vbCrLf & 材料名称 M_Name= & name10 & vbCrLf & 切变模量 G= & qbml0 & (Mpa) & vbCrLf & 弹性模量 E= & txml0 & (Mpa) & vbCrLf & 抗拉强度 b= & klqd0 & (Mpa) & vbCrLf & 许用切应力 b= & xyqyl0 & (Mpa) End Sub 以上程序实现通过选择弹簧材料来判断切变模量、弹性模量、平均抗拉强度、推荐 硬度范围、推荐温度范围、平均许用切应力。 Private Sub Command4_Click() 显示 Form15 窗体 Form15.Show End Sub Form15：选择端部型式窗体 Private Sub Command2_Click() m1 = Text1.Text n1 = Text2.Text Form15.Hide Form9.Show Form9.Command5.Visible = True Form9.Picture5.Visible = True Form9.Command5.SetFocus Form9.Text1.Text = 拉伸弹簧设计报告 & vbCrLf & 一 ,设计信息 & vbCrLf & 设计者 :Name=姚卫华 & vbCrLf & 设计单位 :comp=盐工机械系 & vbCrLf & 设计日期 :Date=2004-4-4 & vbCrLf & 设计时间 :Time=2004.3.1-2004.6.1 & vbCrLf & _ 二 ,设计要求 & vbCrLf & 安装 载荷 (要求 )F1= & a0 & N & vbCrLf & 安装高度 = & azgd & mm & vbCrLf & 工作载荷 (要求
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号