剖面模数和惯性矩在船体结构.doc

《剖面模数和惯性矩在船体结构.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、剖面模数和惯性矩在船体结构、强度设计中经常会碰到，平时我们一般都采取手工计算，过程非常繁琐、单调，又容量出错。现在许多人都已经用计算机编程计算，速度快，又准确，本文介绍剖面模数和惯性矩编程计算两种方法，供大家选择使用。MPexc5_ 1.用Micr0softExcel(电子表格)编程计算e=8z,.Xk 1.1说明：用此方法计算，方便易学，即使没有学过计算机语言的人也能自编,自用。无须专业人员帮助，而且编程速度很快。(_9cL,v 1.2编程及使用举例$bGe1 打开Micr0softExcel设定b1、b2、b3、h1、h2、h3属性为输入项，

2、b1:“型材面板宽度（cm）”、h1：“型材面板厚度（cm）”、b2:“型材腹板高度（cm）”、h2:“型材腹板厚度（cm）”、b3:“型材带板宽度（cm）”、h3:“型材带板厚度（cm）”、可再按下述步骤操作：YFGQPg A1项设定为：b1*h1Uu

3、xNd^ A3项设定为：b3*h39rCvnP= A4项设定为：A1+A2+A3+FYQ7UE S1=A1*((h1+h3)/2+b2)w`77E= I1=A1*((h1+h3)/2+b2)^2+(1/12)*b1*(h1)^3iJr1w&GL$ 

4、S2=A2*(b2+h3)/2bM9:h I2=A2*((b2+h3)/2)^2+(1/12)*h2*(b2)^3%"1*,g{ I3=(1/12)*b3*(h3)^3c'678!r9P S4=S1+S2y*AB=d^ H=S4/A4

5、PI]v`[ I=I1+I2+I3-h^2*A4q,W6wM;,E W=I/((h1+h3)/2+b2-h)!.(%" 惯性矩，W为剖面模数。下次计算时，只用在界面更换b1、b1、b1、b3、h1、h2、h3值可得新的I和w。r%QnV0L^ <Bmqox0 2.用VB编程~[

6、zf*ZISG

7、 )ZU=`!4 2.1说明:用VB编写过程较复杂,要有VB基础,优点是编程后使用时界面较直观,容易使用.OfR8hAY t;Rdrk 2.2编程使用举例：pY3N7&m: -*?Y4}mK 2.2.1创建新窗体3b_tK^

8、' :Rs%(Z 首先启动VB6.0,新建一个工程，系统会自动打开一个新窗体。在窗体中增加如下控件：8个标签控件、8个文本框控件、1个框架控件、3个命令按钮控件。然后将窗体的Caption属性改为“剖面模数计算器”：8个标签的Caption属性分别为“型材面板宽度（cm）”、“型材面板厚度（cm）”、“型材腹板宽度（c

9、m）”、“型材腹板厚度（cm）”、“型材带板宽度（cm）”、“型材带板厚度（cm）”、“惯性矩（cm4）”、“剖面模数（cm3）”；框架控件的Caption属性改为“结果”；3个命令按钮的Caption属性改为“开始计算”、“清除”、“退出”；8个文本框的text属性改为空；其它的属性均取默认值。>!j={hK x5u.D^ 2.2.2程序编制${$XJs4 9

10、o52,nKbE9* =2#a@D6Bl IfTextl(X).Text=””Then6hN~< &][:kG; MsgBox(”输入内容有误,请重新检查”),,”注意”p.q:vI$J oC>QJ(o,8 GoTO10/%Bc*k=ox P}o:WI4.cB EndIf22

11、eiW/a koo`JHC Nextx$rDeI-)S 

12、@={:gRJ{x DimA1、h1、b1、A2、h2、b2、A3、h3、b3、hEom

13、*2vWIC e0"R7a b1=Val(Textl(o).Text)8Cz_LyL K8doYN

14、 h1=Val(Textl(1).Text)npg.*I/> JPS22i)P b2=Val(Textl(2).Text)z`((l#( lz@fXaZM h2=Val(Textl(3).Text)ln)_Jf1r }9t$Cs% b3=Val(Textl(4).Text)Zalgg/. jFpXTy[> h3=Val(Textl(5).Text)RVy8%[Gcq OaRtGJnR A1=Int(b1*h1*100+0.5)/100

15、[(4h kX."

16、] A2=Int(b2*h2*10