材力上机报告 压杆稳定性分析及截面几何性质的计算VB文档格式.docx
- 文档编号:5070484
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:26
- 大小:3.90MB
材力上机报告 压杆稳定性分析及截面几何性质的计算VB文档格式.docx
《材力上机报告 压杆稳定性分析及截面几何性质的计算VB文档格式.docx》由会员分享,可在线阅读,更多相关《材力上机报告 压杆稳定性分析及截面几何性质的计算VB文档格式.docx(26页珍藏版)》请在冰点文库上搜索。
输入:
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()
Form7.Show
PrivateSubCommand3_Click()
End
Form2
Form2.Hide
Form3.Show
Form4.Show
Form5.Show
PrivateSubCommand4_Click()
Form6.Show
Form3(圆形截面压杆稳定性判断)
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
不满足稳定条件"
EndIf
ElseIfr>
=rsThen
t=(a-b*r)/n
Text11.Text="
"
这是一个强度问题"
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
ForX=rpTo300Step0.01
Y=PI^2*e/X^2
Form3.Hide
Form1.Show
Form4(圆环截面压杆稳定性判断)
Form4.Hide
Form5(矩形截面压杆稳定性判断)
Dimh,d,u,l,e,tp,ts,a,b,p,n,tAsDouble
h=Text1.Text
d=Text13.Text
i=h*d^3/12
s=h*d
Form5.Hide
Form6(工字钢截面压杆稳定性判断)
Dimiy,iz,s,u,l,e,tp,ts,a,b,p,n,tAsDouble
DimiAsDouble
iy=Text1.Text
iz=Text13.Text
s=Text14.Text
Ifiz<
iyThen
i=iz
i=iy
Form6.Hide
Form7
Form7.Hide
Form8.Show
Form9.Show
Form10.Show
Form11.Show
PrivateSubCommand5_Click()
Form12.Show
PrivateSubCommand6_Click()
Form13.Show
PrivateSubCommand7_Click()
Form14.Show
PrivateSubCommand8_Click()
Form8(矩形截面几何性质计算)
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)
Text1.Text="
"
Text2.Text="
Label8.Caption="
Label10.Caption="
Label13.Caption="
Label15.Caption="
Label5.Caption="
Form8.Hide
Form9(圆形截面几何性质计算)
ConstPIAsSingle=3.1415926535
DimdAsSingle,sAsSingle,zAsSingle,mAsSingle,nAsSingle
d=Val(Text1.Text)
z=d/2
m=PI*d*d*d*d/64
n=m
Label8.Caption=Str(z)
Form9.Hide
Form10(三角形截面几何性质计算)
DimbAsSingle,hAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle,nAsSingle
s=b*h/2
Y=b/3
z=h/3
m=b*h*h*h/36
n=h*b*b*b/36
Form10.Hide
Form11(梯形截面几何性质计算)
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))
Text3.Text="
Form11.Hide
Form12(半圆形截面几何性质计算)
ConstPIAsSingle=3.1415926
DimaAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
s=PI*a*a/8
Y=0
z=(2*a)/(3*PI)
m=0.00686*a*a*a*a
Form12.Hide
DimaAsSingle,bAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSin
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 材力上机报告 压杆稳定性分析及截面几何性质的计算VB 上机 报告 稳定性 分析 截面 几何 性质 计算 VB