材料力学上机大作业Word文件下载.docx
- 文档编号:17619909
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:11
- 大小:1.41MB
材料力学上机大作业Word文件下载.docx
《材料力学上机大作业Word文件下载.docx》由会员分享,可在线阅读,更多相关《材料力学上机大作业Word文件下载.docx(11页珍藏版)》请在冰豆网上搜索。
2010年7月1日
运行环境:
microsoftvisualbasic语言环境
结果数据:
几种常用截面的面积、形心坐标、惯性矩。
1.双击打开材料力学几种常用截面图形的几何性质
通用程序,弹出下示对话框
2单击三角形按钮,弹出如下对话框。
3在“输入”框中输入b=10h=20并单击计算按钮,出现以下对话框,在计算结果框中,可以看到面积、形心坐标、惯性矩的结果。
4单击清空按钮后,已有的数据清空,可以再次进行计算。
5单击返回首页按钮则返回第一个窗口。
6单击退出按钮即可退出程序。
附源程序代码:
Form1语句
PrivateSubCommand1_Click()
Form1.Hide
Form2.Show
EndSub
PrivateSubCommand2_Click()
Form3.Show
PrivateSubCommand3_Click()
Form4.Show
PrivateSubCommand4_Click()
Form5.Show
PrivateSubCommand5_Click()
Form6.Show
PrivateSubCommand6_Click()
Form7.Show
PrivateSubCommand7_Click()
Form8.Show
Form2语句
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
Label7.Caption=Str(Y)
Label9.Caption=Str(z)
Label12.Caption=Str(m)
Label14.Caption=Str(n)
Label18.Caption=Str(s)
Text1.Text="
"
Text2.Text="
Label7.Caption="
Label9.Caption="
Label12.Caption="
Label14.Caption="
Label18.Caption="
Form2.Hide
Form1.Show
Form3语句
ConstPIAsSingle=3.1415926
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
Label6.Caption=Str(s)
Label6.Caption="
Form3.Hide
Form4语句
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
Label9.Caption=Str(Y)
Label11.Caption=Str(z)
Label14.Caption=Str(m)
Label16.Caption=Str(n)
Label11.Caption="
Label16.Caption="
Form4.Hide
Form5语句
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))
Label7.Caption=Str(s)
Label10.Caption=Str(Y)
Label12.Caption=Str(z)
Label15.Caption=Str(m)
Text3.Text="
Label10.Caption="
Label15.Caption="
Form5.Hide
Form6语句
DimaAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
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)
Label5.Caption="
Label8.Caption="
Label13.Caption="
Form6.Hide
Form7语句
DimaAsSingle,bAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
s=PI*a*b/4
z=b/2
m=PI*a*b*b*b/64
Form7.Hide
Form8语句
DimdAsSingle,aAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
a=Val(Text2.Text)
s=a*PI*d*d/(180*4)
z=d*Sin(a*PI/180)*180/(3*a*PI)
m=(d*d*d*d/64)*((a*PI/180)+(Sin(a*PI/180)*Cos(a*PI/180))-(180*16*Sin(a*PI/180)*Sin(a*PI/180)/(9*a*PI)))
Form8.Hide
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 材料力学 上机 作业