材力上机报告 压杆稳定性分析及截面几何性质的计算VB.docx

材力上机报告 压杆稳定性分析及截面几何性质的计算VB.docx

《材力上机报告 压杆稳定性分析及截面几何性质的计算VB.docx》由会员分享，可在线阅读，更多相关《材力上机报告 压杆稳定性分析及截面几何性质的计算VB.docx（26页珍藏版）》请在冰豆网上搜索。

材力上机报告压杆稳定性分析及截面几何性质的计算VB

HarbinInstituteofTechnology

材料力学上机作业

课程名称：

材料力学

设计题目：

压杆稳定性分析及截面几何性质的计算

院系：

机电工程学院

班级：

学号：

设计者：

指导教师：

张桂莲

哈尔滨工业大学

2014年6月

1.题目:

压杆稳定分析

输入:

1.截面参数输入

圆截面—d

圆环截面—D，d

矩形截面—h，b

工字型截面—对形心轴的惯性矩Iy、Iz及截面面积A

2.相当长度系数

、长度l

3.材料参数：

E、,σp、σs;线性经验公式系数a、b

4.工作压力P及稳定安全系数nw

输出：

1.绘制临界应力总图（图示）

2.临界压力Pcr或临界应力σcr

3.稳定安全校核结果

在此基础上，加了一个截面图形几何性质的计算功能，要求输入截面的几何尺寸，即可输出其面积、形心、惯性矩等几何性质

2.程序及截图:

Form1

PrivateSubCommand1_Click（）

Form1.Hide

Form2.Show

EndSub

PrivateSubCommand2_Click（）

Form1.Hide

Form7.Show

EndSub

PrivateSubCommand3_Click（）

End

EndSub

Form2

PrivateSubCommand1_Click（）

Form2.Hide

Form3.Show

EndSub

PrivateSubCommand2_Click（）

Form2.Hide

Form4.Show

EndSub

PrivateSubCommand3_Click（）

Form2.Hide

Form5.Show

EndSub

PrivateSubCommand4_Click（）

Form2.Hide

Form6.Show

EndSub

Form3（圆形截面压杆稳定性判断）

PrivateSubCommand1_Click（）

Dimd,u,l,e,tp,ts,a,b,p,n,tAsDouble

Dimi,sAsDouble

Dimr,rp,rsAsDouble

ConstPI=3.1415

d=Text1.Text

u=Text2.Text

l=Text3.Text

e=Text4.Text

tp=Text5.Text

ts=Text6.Text

a=Text7.Text

b=Text8.Text

p=Text9.Text

n=Text10.Text

i=PI*d^4/64

s=PI*d*d/4

r=1000*u*l/Sqr（i/s）

rp=PI*Sqr（e/tp）

rs=（a-ts）/b

Ifr>=rpThen

t=PI^2*e/（r^2*n）

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

ElseIfr>=rsThen

t=（a-b*r）/n

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

Else

Text11.Text=""

Text12.Text="这是一个强度问题"

EndIf

DimYAsDouble

Picture1.Cls

Picture1.ScaleMode=0

Picture1.Scale（-10,300）-（200,-10）

Picture1.DrawWidth=1

Picture1.Line（0,0）-（200,0）,RGB（0,0,255）

Picture1.Line（0,0）-（0,300）,RGB（0,0,255）

ForX=0TorsStep0.01

Y=ts

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rsTorpStep0.01

Y=a-b*X

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rpTo300Step0.01

Y=PI^2*e/X^2

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

EndSub

PrivateSubCommand2_Click（）

Form3.Hide

Form1.Show

EndSub

Form4（圆环截面压杆稳定性判断）

t=PI^2*e/（r^2*n）

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

ElseIfr>=rsThen

t=（a-b*r）/n

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

Else

Text11.Text=""

Text12.Text="这是一个强度问题"

EndIf

DimYAsDouble

Picture1.Cls

Picture1.ScaleMode=0

Picture1.Scale（-10,300）-（200,-10）

Picture1.DrawWidth=1

Picture1.Line（0,0）-（200,0）,RGB（0,0,255）

Picture1.Line（0,0）-（0,300）,RGB（0,0,255）

ForX=0TorsStep0.01

Y=ts

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rsTorpStep0.01

Y=a-b*X

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rpTo300Step0.01

Y=PI^2*e/X^2

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

EndSub

PrivateSubCommand2_Click（）

Form4.Hide

Form1.Show

EndSub

Form5（矩形截面压杆稳定性判断）

PrivateSubCommand1_Click（）

Dimh,d,u,l,e,tp,ts,a,b,p,n,tAsDouble

Dimi,sAsDouble

Dimr,rp,rsAsDouble

ConstPI=3.1415

h=Text1.Text

d=Text13.Text

u=Text2.Text

l=Text3.Text

e=Text4.Text

tp=Text5.Text

ts=Text6.Text

a=Text7.Text

b=Text8.Text

p=Text9.Text

n=Text10.Text

i=h*d^3/12

s=h*d

r=1000*u*l/Sqr（i/s）

rp=PI*Sqr（e/tp）

rs=（a-ts）/b

Ifr>=rpThen

t=PI^2*e/（r^2*n）

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

ElseIfr>=rsThen

t=（a-b*r）/n

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

Else

Text11.Text=""

Text12.Text="这是一个强度问题"

EndIf

DimYAsDouble

Picture1.Cls

Picture1.ScaleMode=0

Picture1.Scale（-10,300）-（200,-10）

Picture1.DrawWidth=1

Picture1.Line（0,0）-（200,0）,RGB（0,0,255）

Picture1.Line（0,0）-（0,300）,RGB（0,0,255）

ForX=0TorsStep0.01

Y=ts

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rsTorpStep0.01

Y=a-b*X

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rpTo300Step0.01

Y=PI^2*e/X^2

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

EndSub

PrivateSubCommand2_Click（）

Form5.Hide

Form1.Show

EndSub

Form6（工字钢截面压杆稳定性判断）

PrivateSubCommand1_Click（）

Dimiy,iz,s,u,l,e,tp,ts,a,b,p,n,tAsDouble

DimiAsDouble

Dimr,rp,rsAsDouble

ConstPI=3.1415

iy=Text1.Text

iz=Text13.Text

s=Text14.Text

u=Text2.Text

l=Text3.Text

e=Text4.Text

tp=Text5.Text

ts=Text6.Text

a=Text7.Text

b=Text8.Text

p=Text9.Text

n=Text10.Text

Ifiz

i=iz

Else

i=iy

EndIf

r=1000*u*l/Sqr（i/s）

rp=PI*Sqr（e/tp）

rs=（a-ts）/b

Ifr>=rpThen

t=PI^2*e/（r^2*n）

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

ElseIfr>=rsThen

t=（a-b*r）/n

Text11.Text=t

Ifp/s<=tThen

Text12.Text="满足稳定条件"

Else

Text12.Text="不满足稳定条件"

EndIf

Else

Text11.Text=""

Text12.Text="这是一个强度问题"

EndIf

DimYAsDouble

Picture1.Cls

Picture1.ScaleMode=0

Picture1.Scale（-10,300）-（200,-10）

Picture1.DrawWidth=1

Picture1.Line（0,0）-（200,0）,RGB（0,0,255）

Picture1.Line（0,0）-（0,300）,RGB（0,0,255）

ForX=0TorsStep0.01

Y=ts

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rsTorpStep0.01

Y=a-b*X

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

ForX=rpTo300Step0.01

Y=PI^2*e/X^2

Picture1.PSet（X,Y）,RGB（255,0,0）

NextX

EndSub

PrivateSubCommand2_Click（）

Form6.Hide

Form1.Show

EndSub

Form7

PrivateSubCommand1_Click（）

Form7.Hide

Form8.Show

EndSub

PrivateSubCommand2_Click（）

Form7.Hide

Form9.Show

EndSub

PrivateSubCommand3_Click（）

Form7.Hide

Form10.Show

EndSub

PrivateSubCommand4_Click（）

Form7.Hide

Form11.Show

EndSub

PrivateSubCommand5_Click（）

Form7.Hide

Form12.Show

EndSub

PrivateSubCommand6_Click（）

Form7.Hide

Form13.Show

EndSub

PrivateSubCommand7_Click（）

Form7.Hide

Form14.Show

EndSub

PrivateSubCommand8_Click（）

End

EndSub

Form8（矩形截面几何性质计算）

PrivateSubCommand1_Click（）

DimbAsSingle,hAsSingle,YAsSingle,zAsSingle,mAsSingle,nAsSingle,sAsSingle

b=Val（Text1.Text）

h=Val（Text2.Text）

s=b*h

Y=b/2

z=h/2

m=b*h*h*h/12

n=h*b*b*b/12

Label8.Caption=Str（Y）

Label10.Caption=Str（z）

Label13.Caption=Str（m）

Label15.Caption=Str（n）

Label5.Caption=Str（s）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Label8.Caption=""

Label10.Caption=""

Label13.Caption=""

Label15.Caption=""

Label5.Caption=""

EndSub

PrivateSubCommand3_Click（）

Form8.Hide

Form1.Show

EndSub

PrivateSubCommand4_Click（）

End

EndSub

Form9（圆形截面几何性质计算）

ConstPIAsSingle=3.1415926535

PrivateSubCommand1_Click（）

DimdAsSingle,sAsSingle,zAsSingle,mAsSingle,nAsSingle

d=Val（Text1.Text）

s=PI*d*d/4

z=d/2

m=PI*d*d*d*d/64

n=m

Label5.Caption=Str（s）

Label8.Caption=Str（z）

Label10.Caption=Str（z）

Label13.Caption=Str（m）

Label15.Caption=Str（n）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Label5.Caption=""

Label8.Caption=""

Label10.Caption=""

Label13.Caption=""

Label15.Caption=""

EndSub

PrivateSubCommand3_Click（）

Form9.Hide

Form1.Show

EndSub

PrivateSubCommand4_Click（）

End

EndSub

Form10（三角形截面几何性质计算）

PrivateSubCommand1_Click（）

DimbAsSingle,hAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle,nAsSingle

b=Val（Text1.Text）

h=Val（Text2.Text）

s=b*h/2

Y=b/3

z=h/3

m=b*h*h*h/36

n=h*b*b*b/36

Label8.Caption=Str（Y）

Label10.Caption=Str（z）

Label13.Caption=Str（m）

Label15.Caption=Str（n）

Label5.Caption=Str（s）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Label8.Caption=""

Label10.Caption=""

Label13.Caption=""

Label15.Caption=""

Label5.Caption=""

EndSub

PrivateSubCommand3_Click（）

Form10.Hide

Form1.Show

EndSub

PrivateSubCommand4_Click（）

End

EndSub

Form11（梯形截面几何性质计算）

PrivateSubCommand1_Click（）

DimaAsSingle,bAsSingle,hAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle

a=Val（Text1.Text）

b=Val（Text2.Text）

h=Val（Text3.Text）

s=（（a+b）*h）/2

Y=（a*a+a*b+b*b）/（（a+b）*3）

z=（（b+2*a）*h）/（3*（a+b））

m=（h*h*h*（b*b+4*a*b-a*a））/（36*（a+b））

Label5.Caption=Str（s）

Label8.Caption=Str（Y）

Label10.Caption=Str（z）

Label13.Caption=Str（m）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Label5.Caption=""

Label8.Caption=""

Label10.Caption=""

Label13.Caption=""

EndSub

PrivateSubCommand3_Click（）

Form11.Hide

Form1.Show

EndSub

PrivateSubCommand4_Click（）

End

EndSub

Form12（半圆形截面几何性质计算）

ConstPIAsSingle=3.1415926

PrivateSubCommand1_Click（）

DimaAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle

a=Val（Text1.Text）

s=PI*a*a/8

Y=0

z=（2*a）/（3*PI）

m=0.00686*a*a*a*a

Label5.Caption=Str（s）

Label8.Caption=Str（Y）

Label10.Caption=Str（z）

Label13.Caption=Str（m）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Label5.Caption=""

Label8.Caption=""

Label10.Caption=""

Label13.Caption=""

EndSub

PrivateSubCommand3_Click（）

Form12.Hide

Form1.Show

EndSub

PrivateSubCommand4_Click（）

End

EndSub

ConstPIAsSingle=3.1415926

PrivateSubCommand1_Click（）

DimaAsSingle,bAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSin