剖面模數(shù)和慣性矩在船體結(jié)構(gòu)

剖面模數(shù)和慣性矩在船體結(jié)構(gòu)、強(qiáng)度設(shè)計(jì)中經(jīng)常會(huì)碰到，平時(shí)我們一般都采取手工計(jì)算，過(guò)程非常繁瑣、單調(diào)，又容量出錯(cuò)。現(xiàn)在許多人都已經(jīng)用計(jì)算機(jī)編程計(jì)算，速度快，又準(zhǔn)確，本文介紹剖面模數(shù)和慣性矩編程計(jì)算兩種方法，供大家選擇使用。用Micr0softExcel（電子表格）編程計(jì)算1.1說(shuō)明：用此方法計(jì)算，方便易學(xué)，即使沒(méi)有學(xué)過(guò)計(jì)算機(jī)語(yǔ)言的人也能自編，自用。無(wú)須專業(yè)人員幫助，而且編程速度很快。1.2編程及使用舉例打開Micr0softExcel設(shè)定b1、b2、b3、h1、h2、h3屬性為輸入項(xiàng)，b1:“型材面板寬度（cm）”、h1：''型材面板厚度（cm）”、b2:“型材腹板高度（cm）”、h2:“型材腹板厚度（cm）”、b3:“型材帶板寬度（cm）”、h3:“型材帶板厚度（cm）”、可再按下述步驟操作：A1項(xiàng)設(shè)定為：b1*h1A2項(xiàng)設(shè)定為：b2*h2A3項(xiàng)設(shè)定為：b3*h3A4項(xiàng)設(shè)定為：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為剖面模數(shù)。下次計(jì)算時(shí)，只用在界面更換b1、b1、b1、b3、h1、h2、h3值可得新的I和w。用VB編程2.1說(shuō)明:用VB編寫過(guò)程較復(fù)雜，要有VB基礎(chǔ)，優(yōu)點(diǎn)是編程后使用時(shí)界面較直觀，容易使用.2.2編程使用舉例：2.2.1創(chuàng)建新窗體首先啟動(dòng)VB6.0,新建一個(gè)工程，系統(tǒng)會(huì)自動(dòng)打開一個(gè)新窗體。在窗體中增加如下控件：8個(gè)標(biāo)簽控件、8個(gè)文本框控件、1個(gè)框架控件、3個(gè)命令按鈕控件。然后將窗體的Caption屬性改為''剖面模數(shù)計(jì)算器"：8個(gè)標(biāo)簽的Caption屬性分別為''型材面板寬度（cm）"、''型材面板厚度（cm）"、''型材腹板寬度（cm）"、''型材腹板厚度（cm）"、''型材帶板寬度（cm）"、''型材帶板厚度（cm）"、''慣性矩（cm4）"、''剖面模數(shù)（cm3）"；框架控件的Caption屬性改為''結(jié)果”；3個(gè)命令按鈕的Caption屬性改為''開始計(jì)算”、''清除”、''退出”；8個(gè)文本框的text屬性改為空；其它的屬性均取默認(rèn)值。2.2.2程序編制打開代碼窗口，添加如下代碼：privateSubCommandl_Click()forx=oTo5IfTextl(X).Text=””ThenMsgBox(”輸入內(nèi)容有誤，請(qǐng)重新檢查”)〃”注意"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以下是一此控制鍵，防止輸入非數(shù)字IfKeyAscii>=33ThenIfKeyAscii<=vbKey9AndKeyAscii>-vbKey0ThenElse’把KeyAscii設(shè)為0就取消輸入KeyAscii=0MsgBox”不可輸入非數(shù)字“，，”注意！”EndIfEndIfEndSub3.從上