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

剖面模数和惯性矩在船体结构、强度设计中经常会碰到，平时我们一般都采取手工计算，过程非常繁琐、单调，又容量出错。现在许多人都已经用计算机编程计算，速度快，又准确，本文介绍剖面模数和惯性矩编程计算两种方法，供大家选择使用。用Micr0softExcel（电子表格）编程计算1.1说明：用此方法计算，方便易学，即使没有学过计算机语言的人也能自编，自用。无须专业人员帮助，而且编程速度很快。1.2编程及使用举例打开Micr0softExcel设定b1、b2、b3、h1、h2、h3属性为输入项，b1:“型材面板宽度（cm）”、h1：''型材面板厚度（cm）”、b2:“型材腹板高度（cm）”、h2:“型材腹板厚度（cm）”、b3:“型材带板宽度（cm）”、h3:“型材带板厚度（cm）”、可再按下述步骤操作：A1项设定为：b1*h1A2项设定为：b2*h2A3项设定为：b3*h3A4项设定为：A1+A2+A3S1=A1*（（h1+h3）/2+b2）I1=A1*（（h1+h3）/2+b2）八2+（1/12）*b1*（h1）八3S2=A2*（b2+h3）/2I2=A2*（（b2+h3）/2）八2+（1/12）*h2*（b2）八3I3=（1/12）*b3*（h3）八3S4=S1+S2H=S4/A4I=I1+I2+I3-h八2*A4W=I/（（h1+h3）/2+b2-h）惯性矩，W为剖面模数。下次计算时，只用在界面更换b1、b1、b1、b3、h1、h2、h3值可得新的I和w。用VB编程2.1说明:用VB编写过程较复杂，要有VB基础，优点是编程后使用时界面较直观，容易使用.2.2编程使用举例：2.2.1创建新窗体首先启动VB6.0,新建一个工程，系统会自动打开一个新窗体。在窗体中增加如下控件：8个标签控件、8个文本框控件、1个框架控件、3个命令按钮控件。然后将窗体的Caption属性改为''剖面模数计算器"：8个标签的Caption属性分别为''型材面板宽度（cm）"、''型材面板厚度（cm）"、''型材腹板宽度（cm）"、''型材腹板厚度（cm）"、''型材带板宽度（cm）"、''型材带板厚度（cm）"、''惯性矩（cm4）"、''剖面模数（cm3）"；框架控件的Caption属性改为''结果”；3个命令按钮的Caption属性改为''开始计算”、''清除”、''退出”；8个文本框的text属性改为空；其它的属性均取默认值。2.2.2程序编制打开代码窗口，添加如下代码：privateSubCommandl_Click()forx=oTo5IfTextl(X).Text=””ThenMsgBox(”输入内容有误，请重新检查”)〃”注意"GoTO10EndIfNextxDimA1、h1、b1、A2、h2、b2、A3、h3、b3、hb1=Val(Textl(o).Text)h1=Val(Textl(1).Text)b2=Val(Textl(2).Text)h2=Val(Textl(3).Text)b3=Val(Textl(4).Text)h3=Val(Textl(5).Text)A1=Int(b1*h1*100+0.5)/100A2=Int(b2*h2*100+0.5)/100A3=Int(b3*h3*100+0.5)/100h=(A1*(b2+h1/2+h3/2)+A2*(b2/2+h3/2))/(A1+A2+A3)h=Int(h*100+0.5)/100i=A1*((h1+h3)/2+b2)八2+(1/12)*b1*(h1)八3+A2*((b2+h3)/2)八2+(1/12)*h2*(b2)八3+(1/12)*b3*(h3)八3-(A1+A2+A3)*h八2W=i/((h1+h3)/2+h2-h)i=Int(I*100+1.5)/100W=Int(w*100+0.5)/100Text2.Enadled=TrueText2.Text=Str(i)Text2.Enabled=FalseText3.Enabled=TeueText3.Text=Str(w)Text3.Enabled=False10EndSubPrivateSubCommand2-Click()Text2.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText2.True=””Text3.True=””Text2.Enabled=FalseText3.Enabled=FalseEndSudPrivateSubCommand3-Click()UnloadMeEndSubPrivateSubmnuxpForm-Load()Text2.Enabled=FalseText3.Enabled=FalseEndSubPrivateSubTextl-KeyPress(IndexAsInteger,KeyAsciiAsInteger)’KeyAscii32以下是一此控制键，防止输入非数字IfKeyAscii>=33ThenIfKeyAscii<=vbKey9AndKeyAscii>-vbKey0ThenElse’把KeyAscii设为0就取消输入KeyAscii=0MsgBox”不可输入非数字“，，”注意！”EndIfEndIfEndSub3.从上