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

交通与汽车工程学院
《汽车设计》
实验指导书

适用专业:车辆工程
课程代码:8204980
学时:4学分:
编写单位:汽车系
编写人:
审核人:
审批人:

实验一：膜片弹簧特性曲线程序设计
实验目的
1、理解并掌握膜片弹簧的弹性特性。
2、熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。
3、掌握常用控件的创建方法以及如何用控件建立用户界面。
二、实验环境与工具
操作系统：WINDOWS98/2000/2003/XP
工具：VisualBasic6.0
三、实验内容
请利用VisualBaisc高级语言，设计一个程序，绘制描述膜片弹簧工作点位置的膜片弹簧弹性特性曲线，并要求有坐标系。
四、实验步骤
1、在窗体界面上设计好标签、文本框和图片容器以及按钮，并对各个控件命名。
2、在窗体上填入各个文本框的默认值。
3、程序设计过程：
1）首先规定图片容器的相对坐标，再在上面画出坐标线。
2）利用书上的公式算出函数值。
3）用pset命令在图片容器上画出函数曲线。
4）注意坐标线与函数曲线要用不同的颜色。
5）注意控制好图片容器的宽度高度，和相对坐标。
五、思考题
1.如何用程序实现坐标系？要求坐标轴不靠边，且有箭头；

2.比值H/h的改变对膜片弹簧特性的影响？

3.比值R/r的改变对膜片弹簧特性的影响？

PrivateSubCommand1_Click()
DimF,E,Fm,Fn,Fh,Fc,Fb
Dimx,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

EndSub

PrivateSubCommand2_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
Forx=0ToXmaxStep0.001
F=b*c*x*((H1-a*x)*(H1-0.5*a*x)+H2^2)
IfH1=3.92ThenPicture1.PSet(x,F),vbRed

IfH1=3.05ThenPicture1.PSet(x,F),vbBlue
IfH1=4.69ThenPicture1.PSet(x,F),vbYellow
IfR1=110ThenPicture1.PSet(x,F),vbBlack
IfR1=120ThenPicture1.PSet(x,F),vbGreen

Nextx

EndSub

PrivateSubCommand3_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)-(0,9000)'画纵轴箭头
Picture1.Line(0.1,8800)-(0,9000)
Fori=1To6'画横坐标刻度线和刻度
Picture1.Line(i,0)-(i,200)
Picture1.CurrentX=i-0.1:Picture1.CurrentY=-50:Picture1.Printi
Nexti

Fori=1To8'画纵坐标刻度线和刻度
Picture1.Line(0,1000*i)-(0.2,1000*i)
Picture1.CurrentX=-0.6:Picture1.CurrentY=1000*i+200:Picture1.Print1000*i
Nexti
Picture1.CurrentX=-0.2:Picture1.CurrentY=-50:Picture1.Print0

Picture1.CurrentX=7:Picture1.CurrentY=300:Picture1.Print"x"
Picture1.CurrentX=0.2:Picture1.Curren