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

交通与汽车工程学院 《汽车设计》 实验指导书 适用专业: 车辆工程 课程代码: 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的改变对膜片弹簧特性的影响？ Private Sub Command1_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 = 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 Private Sub Command3_Click() 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)-(