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

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, F

3、m, 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(Text5)R

4、2 = 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) 2For x = 0 To Xmax Step 0.001F = b * c * x * (H1 - a * x) * (H1 - 0.5 * a * x) + H2 2)If H1 = 3.92 Then Picture1.PSet (x, F), vbRedIf H1 = 3.05 Th

5、en Picture1.PSet (x, F), vbBlueIf H1 = 4.69 Then Picture1.PSet (x, F), vbYellowIf R1 = 110 Then Picture1.PSet (x, F), vbBlackIf R1 = 120 Then Picture1.PSet (x, F), vbGreenNext xEnd SubPrivate Sub Command3_Click()Picture1.ForeColor = vbRedPicture1.Scale (-1, 10000)-(8, -500)Picture1.Line (0, 0)-(7, 0

6、): 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

7、= -50: Picture1.Print iNext 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.Print1000 * iNext iPicture1.CurrentX = -0.2: Picture1.CurrentY = -50: Picture1.Print 0Picture1.CurrentX = 7: Picture1.CurrentY

8、= 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 =

9、2.8Text5 = 116Text6 = 93Text7 = 114Text8 = 97Text9 = 7End 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 SubPr

10、ivate 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, Xmax, a, b, cText1 = 2.1 * 10 5Text2 = 0