哈工大材力上机完整版VB.docx
- 文档编号:8998662
- 上传时间:2023-05-16
- 格式:DOCX
- 页数:26
- 大小:3.90MB
哈工大材力上机完整版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,mAsSingle a=Val(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 哈工大 上机 完整版 VB