交通与汽车工程学院《汽车设计》
实验指导书
适用专业:车辆工程
课程代码: 8204980 学时: 4 学分:
编写单位:汽车系
编写人:
审核人:
审批人:
实验一：膜片弹簧特性曲线程序设计
一、实验目的
1、理解并掌握膜片弹簧的弹性特性。

2、熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。

3、掌握常用控件的创建方法以及如何用控件建立用户界面。

二、实验环境与工具
操作系统：WINDOWS98/2000/2003/XP
工具：Visual Basic 6.0
三、实验内容
请利用Visual Baisc高级语言，设计一个程序，绘制描述膜片弹簧工作点位置的膜片弹簧弹性特性曲线，并要求有坐标系。

四、实验步骤
1、在窗体界面上设计好标签、文本框和图片容器以及按钮，并对各个控件命名。

2、在窗体上填入各个文本框的默认值。

3、程序设计过程：
1）首先规定图片容器的相对坐标，再在上面画出坐标线。

2）利用书上的公式算出函数值。

3）用pset命令在图片容器上画出函数曲线。

4）注意坐标线与函数曲线要用不同的颜色。

5）注意控制好图片容器的宽度高度，和相对坐标。

五、思考题
1.如何用程序实现坐标系？要求坐标轴不靠边，且有箭头；
2.比值H/h的改变对膜片弹簧特性的影响？
3. 比值R/r的改变对膜片弹簧特性的影响？
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 4.69
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command2_Click()
E = Val(Text1)
u = Val(Text2)
H1 = Val(Text3)
H2 = Val(Text4)
R1 = Val(Text5)
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), vbRed
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 x
End Sub
Picture1.ForeColor = vbRed
Picture1.Scale (-1, 10000)-(8, -500)
Picture1.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: Picture1.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: Picture1.CurrentY = 300: Picture1.Print "x"
Picture1.CurrentX = 0.2: Picture1.CurrentY = 9500: Picture1.Print "F(kN)"
End Sub
Private Sub Command4_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command5_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.05
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command6_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 110
Text6 = 90
Text7 = 110
Text8 = 95
Text9 = 7
End Sub
Private Sub Command7_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 120
Text6 = 95
Text7 = 115
Text8 = 100
Text9 = 7
End Sub
Private Sub Command8_Click()
End
End Sub。