西华大学汽车设计实验指导书

1、交通与汽车工程学院汽车设计实验指导书适用专业: 车辆工程 课程代码: 8204980 学时: 4 学分: 编写单位: 汽车系 编 写 人: 审 核 人: 审 批 人: 实验一：膜片弹簧特性曲线程序设计一、 实验目的1、理解并掌握膜片弹簧的弹性特性。2、熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。3、掌握常用控件的创建方法以及如何用控件建立用户界面。二、实验环境与工具操作系统：WINDOWS98/2000/2003/XP工具：Visual Basic 6.0三、实验内容请利用Visual Baisc高级语言，设计一个程序，绘制描述膜片弹簧工作点位置的膜片弹簧弹性特

2、性曲线，并要求有坐标系。四、实验步骤1、在窗体界面上设计好标签、文本框和图片容器以及按钮，并对各个控件命名。2、在窗体上填入各个文本框的默认值。3、程序设计过程：1）首先规定图片容器的相对坐标，再在上面画出坐标线。2）利用书上的公式算出函数值。3）用pset命令在图片容器上画出函数曲线。4）注意坐标线与函数曲线要用不同的颜色。5）注意控制好图片容器的宽度高度，和相对坐标。五、思考题1.如何用程序实现坐标系？要求坐标轴不靠边，且有箭头；2.比值H/h的改变对膜片弹簧特性的影响？3. 比值R/r的改变对膜片弹簧特性的影响？Private Sub Command1_Click()Dim F, E,

3、Fm, Fn, Fh, Fc, FbDim x, i, Xm, Xn, Xh, Xc, XbDim , H1, H2, R1, R2, R3, R4, Xmax, a, b, cText1 = 2.1 * 10 5Text2 = 0.3Text3 = 4.69Text4 = 2.8Text5 = 116Text6 = 93Text7 = 114Text8 = 97Text9 = 7End SubPrivate Sub Command2_Click() E = Val(Text1) u = Val(Text2) H1 = Val(Text3) H2 = Val(Text4) R1 = Val(T

4、ext5) R2 = Val(Text6) R3 = Val(Text7) R4 = Val(Text8) Xmax = Val(Text9.Text) a = (R1 - R2) / (R3 - R4) b = 3.14 * E * H2 / (6 * (1 - u 2) c = Log(R1 / R2) / (R3 - R4) 2 For x = 0 To Xmax Step 0.001 F = b * c * x * (H1 - a * x) * (H1 - 0.5 * a * x) + H2 2) If H1 = 3.92 Then Picture1.PSet (x, F), vbRe

5、d If H1 = 3.05 Then Picture1.PSet (x, F), vbBlue If H1 = 4.69 Then Picture1.PSet (x, F), vbYellow If R1 = 110 Then Picture1.PSet (x, F), vbBlack If R1 = 120 Then Picture1.PSet (x, F), vbGreen Next xEnd SubPrivate Sub Command3_Click()Picture1.ForeColor = vbRedPicture1.Scale (-1, 10000)-(8, -500) Pict

6、ure1.Line (0, 0)-(7, 0): Picture1.Line (0, 0)-(0, 9000) 画坐标轴 Picture1.Line (6.8, -100)-(7, 0) 画横轴箭头 Picture1.Line (6.8, 100)-(7, 0) Picture1.Line (-0.1, 8800)-(0, 9000) 画纵轴箭头 Picture1.Line (0.1, 8800)-(0, 9000) For i = 1 To 6 画横坐标刻度线和刻度 Picture1.Line (i, 0)-(i, 200) Picture1.CurrentX = i - 0.1: Pict

7、ure1.CurrentY = -50: Picture1.Print i Next i For i = 1 To 8 画纵坐标刻度线和刻度 Picture1.Line (0, 1000 * i)-(0.2, 1000 * i) Picture1.CurrentX = -0.6: Picture1.CurrentY = 1000 * i + 200: Picture1.Print 1000 * i Next i Picture1.CurrentX = -0.2: Picture1.CurrentY = -50: Picture1.Print 0 Picture1.CurrentX = 7: P

8、icture1.CurrentY = 300: Picture1.Print x Picture1.CurrentX = 0.2: Picture1.CurrentY = 9500: Picture1.Print F(kN)End SubPrivate Sub Command4_Click() Dim F, E, Fm, Fn, Fh, Fc, FbDim x, i, Xm, Xn, Xh, Xc, XbDim , H1, H2, R1, R2, R3, R4, Xmax, a, b, cText1 = 2.1 * 10 5Text2 = 0.3Text3 = 3.92Text4 = 2.8T

9、ext5 = 116Text6 = 93Text7 = 114Text8 = 97Text9 = 7 End SubPrivate Sub Command5_Click()Dim F, E, Fm, Fn, Fh, Fc, FbDim x, i, Xm, Xn, Xh, Xc, XbDim , H1, H2, R1, R2, R3, R4, Xmax, a, b, cText1 = 2.1 * 10 5Text2 = 0.3Text3 = 3.05Text4 = 2.8Text5 = 116Text6 = 93Text7 = 114Text8 = 97Text9 = 7End SubPriva

10、te Sub Command6_Click() Dim F, E, Fm, Fn, Fh, Fc, FbDim x, i, Xm, Xn, Xh, Xc, XbDim , H1, H2, R1, R2, R3, R4, Xmax, a, b, cText1 = 2.1 * 10 5Text2 = 0.3Text3 = 3.92Text4 = 2.8Text5 = 110Text6 = 90Text7 = 110Text8 = 95Text9 = 7End SubPrivate Sub Command7_Click() Dim F, E, Fm, Fn, Fh, Fc, FbDim x, i, Xm, Xn, Xh, Xc, XbDim , H1, H2, R1, R2, R3, R4, Xm