剖面模数和惯性矩在船体结构、强度设计中经常会碰到，平时我们一般都采取手工计算，过程非常繁琐、单调，又容量出错。现在许多人都已经用计算机编程计算，速度快，又准确，本文介绍剖面模数和惯性矩编程计算两种方法，供大家选择使用。 M_Pexc__5_
1.用Micr0softExcel(电子表格)编程计算 _e=8z,_.Xk
1.1说明：用此方法计算，方便易学，即使没有学过计算机语言的人也能自编,自用。无须专业人员帮助，而且编程速度很快。 (_9_cL,_v_
1.2编程及使用举例 $bG__e1 \
打开Micr0softExcel设定b1、b2、b3、h1、h2、h3属性为输入项，b1:“型材面板宽度（cm）”、h1：“型材面板厚度（cm）”、b2:“型材腹板高度（cm）”、h2:“型材腹板厚度（cm）”、b3:“型材带板宽度（cm）”小魔女蒙娜全集、h3:“型材带板厚度（cm）”、可再按下述步骤操作： YFG_Q_P_g
A1项设定为：b1*h1 _ Uu<Tn#nb
A2项设定为：b2*h2 |x _Nd^___
A3项设定为：b3*h3 9__r_CvnP=
A4项设定为：A1+A2+A3 +FYQ7_U_E
S1=A1*((h1+h3)/2+b2) __ w`77_E=
1.用Micr0softExcel(电子表格)编程计算 _e=8z,_.Xk
1.1说明：用此方法计算，方便易学，即使没有学过计算机语言的人也能自编,自用。无须专业人员帮助，而且编程速度很快。 (_9_cL,_v_
1.2编程及使用举例 $bG__e1 \
打开Micr0softExcel设定b1、b2、b3、h1、h2、h3属性为输入项，b1:“型材面板宽度（cm）”、h1：“型材面板厚度（cm）”、b2:“型材腹板高度（cm）”、h2:“型材腹板厚度（cm）”、b3:“型材带板宽度（cm）”小魔女蒙娜全集、h3:“型材带板厚度（cm）”、可再按下述步骤操作： YFG_Q_P_g
A1项设定为：b1*h1 _ Uu<Tn#nb
A2项设定为：b2*h2 |x _Nd^___
A3项设定为：b3*h3 9__r_CvnP=
A4项设定为：A1+A2+A3 +FYQ7_U_E
S1=A1*((h1+h3)/2+b2) __ w`77_E=
I1=A1*((h1+h3)/2+b2)^2+(1/12)*b1*(h1)^3 iJr 1w&GL$
S2=A2*(b2+h3)/2 _bM__9
:h_
I2=A2*((b2+h3)/2)^2+(1/12)*h2*(b2)^3 _%_"1*,g{
I3=(1/12)*b3*(h3)^3 c'678!r9 P
S4=S1+S2 y*A_B_=_d^
H=S4/A4 |PI]v`[_
I=I1+I2+I3-h^2*A4 q,W6wM;_,E
W=I/((h1+h3)/2+b2-h) !._[N_(%"
惯性矩，W为剖面模数。下次计算时，只用在界面更换b1、b1、b1、b3、h1、h2、h3值可得新的I和w。 r%QnV_0L_^
<_Bmqox0 老板烤箱美食食谱大全窍门视频
2.用VB编程 ~[|zf*ZISG
_)_Z_U=`!4
S2=A2*(b2+h3)/2 _bM__9
:h_
I2=A2*((b2+h3)/2)^2+(1/12)*h2*(b2)^3 _%_"1*,g{
I3=(1/12)*b3*(h3)^3 c'678!r9 P
S4=S1+S2 y*A_B_=_d^
H=S4/A4 |PI]v`[_
I=I1+I2+I3-h^2*A4 q,W6wM;_,E
W=I/((h1+h3)/2+b2-h) !._[N_(%"
惯性矩，W为剖面模数。下次计算时，只用在界面更换b1、b1、b1、b3、h1、h2、h3值可得新的I和w。 r%QnV_0L_^
<_Bmqox0 老板烤箱美食食谱大全窍门视频
2.用VB编程 ~[|zf*ZISG
_)_Z_U=`!4
2.1说明:用VB编写过程较复杂,要有VB基础,优点是编程后使用时界面较直观,容易使用. Of R\8h_AY
t;R_ dr_k
2.2编程使用举例： p_Y3N7&m\:
-*?Y4}m_K
2.2.1创建新窗体 3b__t_K^|'
:R_s_% (Z_
首先启动VB6.0,新建一个工程，系统会自动打开一个新窗体。在窗体中增加如下控件：8个标签控件、8个文本框控件、1个框架控件、3个命令按钮控件。然后将窗体的Caption属性改为“剖面模数计算器”：8个标签的Caption属性分别为“型材面板宽度（cm）”、“型材面板厚度（cm）”、“型材腹板宽度（桌面游戏排行榜cm）”、“型材腹板厚度（cm）”、“型材带板宽度（cm）”、“型材带板厚度（cm）”、“惯性矩（cm4）”、“剖面模数（cm3）”；框架控件的Caption属性改为“结果”；3个命令按钮的Caption属性改为“开始计算”、“清除”、“退出”；8个文本框的text属性改为空；其它的属性均取默认值。 >_!j= {hK
_
x 5_u.D^
t;R_ dr_k
2.2编程使用举例： p_Y3N7&m\:
-*?Y4}m_K
2.2.1创建新窗体 3b__t_K^|'
:R_s_% (Z_
首先启动VB6.0,新建一个工程，系统会自动打开一个新窗体。在窗体中增加如下控件：8个标签控件、8个文本框控件、1个框架控件、3个命令按钮控件。然后将窗体的Caption属性改为“剖面模数计算器”：8个标签的Caption属性分别为“型材面板宽度（cm）”、“型材面板厚度（cm）”、“型材腹板宽度（桌面游戏排行榜cm）”、“型材腹板厚度（cm）”、“型材带板宽度（cm）”、“型材带板厚度（cm）”、“惯性矩（cm4）”、“剖面模数（cm3）”；框架控件的Caption属性改为“结果”；3个命令按钮的Caption属性改为“开始计算”、“清除”、“退出”；8个文本框的text属性改为空；其它的属性均取默认值。 >_!j= {hK
_
x 5_u.D^
2.2.2程序编制 ${$XJ_ s4
_9<An^lLK*
打开代码窗口,添加如下代码： #5?Q{ORN o
_Lw_=._LN
private Sub Commandl_Click( ) /j]r_?KAzw
n:_?fv_=9n
早产儿奶粉排行榜for x=o To 5 2,nK_bE_9*
=2#a@D6B_l
If Textl(X).Text=””Then _ 6h _N~_<
&\][_:kG;
MsgBox(”输入内容有误,请重新检查”),,”注意” p.q :vI$J
oC>QJ(o,8_
Go TO 10 /%Bc*k=ox
P}o:WI4.cB
End If _22|eiW/a
k_ oo`JHC_
_9<An^lLK*
打开代码窗口,添加如下代码： #5?Q{ORN o
_Lw_=._LN
private Sub Commandl_Click( ) /j]r_?KAzw
n:_?fv_=9n
早产儿奶粉排行榜for x=o To 5 2,nK_bE_9*
=2#a@D6B_l
If Textl(X).Text=””Then _ 6h _N~_<
&\][_:kG;
MsgBox(”输入内容有误,请重新检查”),,”注意” p.q :vI$J
oC>QJ(o,8_
Go TO 10 /%Bc*k=ox
P}o:WI4.cB
End If _22|eiW/a
k_ oo`JHC_
Next x $rDeI-_)_S
|@={:gRJ{x
Dim A1、h1、b1、A2、h2、b2、A3、h3、b3、h Eom|*2vWIC
e___0"R_7a
b1=Val(Textl(o).Text) _8Cz_Ly__L
__K8doYN__
h1=Val(Textl(1).Text) npg_.*I/>
JPS2_2_i)P
b2=Val(Textl(2).Text) z_`((l#(_
_l_z@fXaZM
h2=Val(Textl(3).Text) ln)_J_f1r
__}9t$Cs%
b3=Val(Textl(4).Text) Zal_gg_/.
j_Fp_XTy[>
h3=Val(Textl(5).Text) RVy8%[Gcq
OaRtG_J_nR
A1=Int(b1*h1*100+0.5)/100 |[(____4 h
k X."|___]
A2=Int(b2*h2*100+0.5)/100 D{I^__~-\5
[tym~ZZ]_m
A3=Int(b3*h3*100+0.5)/100 eG9 t n{_
]2_4aK__Uu
h=(A1*(b2+h1/2+h3/2)+A2*(b2/2+h3/2))/(A1+A2+A3) %sP_
C3L
p#hs8_x_z
h=Int(h*100+0.5)/100 %&5 !vK__
Re-~C[zwT
i=A1*((h1+h3)/2+b2)^2+(1/12)*b1*(h1)^3+A2*((b2+h3)/2)^2 >J^b__s &j
W!8g.r4u+,
OaRtG_J_nR
A1=Int(b1*h1*100+0.5)/100 |[(____4 h
k X."|___]
A2=Int(b2*h2*100+0.5)/100 D{I^__~-\5
[tym~ZZ]_m
A3=Int(b3*h3*100+0.5)/100 eG9 t n{_
]2_4aK__Uu
h=(A1*(b2+h1/2+h3/2)+A2*(b2/2+h3/2))/(A1+A2+A3) %sP_
C3L
p#hs8_x_z
h=Int(h*100+0.5)/100 %&5 !vK__
Re-~C[zwT
i=A1*((h1+h3)/2+b2)^2+(1/12)*b1*(h1)^3+A2*((b2+h3)/2)^2 >J^b__s &j
W!8g.r4u+,
+(1/12)*h2*(b2)^3+(1/12)*b3*(h3)^3-(A1+A2+A3)*h^2 b|U&{I_>TH
ojU:RRr4l$
W=i/((h1+h3)/2+h2-h) )k_R~|Yn<-
._ii_9-_+_
i=Int(I*100+1.5)/100 _ 98e_iYh
_H_7n5k_,
W=Int(w*100+0.5)/100 _.|_ CcUmx
_v_KN"o* q
Text2.Enadled=True :Y/i%#*1_
j___S//_/
Text2.Text=Str(i) S___p$~)f'
_l<5O\?Vo]
Text2.Enabled=False _l_e*mr0a_
-BU_xQ_8/,
Text3.Enabled=Teue su .hm_c_
0STtwfTr_:
ojU:RRr4l$
W=i/((h1+h3)/2+h2-h) )k_R~|Yn<-
._ii_9-_+_
i=Int(I*100+1.5)/100 _ 98e_iYh
_H_7n5k_,
W=Int(w*100+0.5)/100 _.|_ CcUmx
_v_KN"o* q
Text2.Enadled=True :Y/i%#*1_
j___S//_/
Text2.Text=Str(i) S___p$~)f'
_l<5O\?Vo]
Text2.Enabled=False _l_e*mr0a_
-BU_xQ_8/,
Text3.Enabled=Teue su .hm_c_
0STtwfTr_:
Text3.Text=Str(w) _*W_k__ y#
_ow_L_>w
Text3.Enabled=False NIufL _}6\
%_T@3_-V_
10 }~pT _s_aw
QA?e2_kd
End Sub u__&Q_2/Y_
WE\_@ArY_>
Private Sub Command2-Click( ) )]x/MC:9r
R_3+y*< <e
Text2.Enabled=True M_T__{_7I"
_fNb2__>1
Text2.Enabled=True p)l>b_C?3
^8__dd__ 剪纸图案
Text3.Enabled=True S[p.__`<{J
i,Ha__f_
Y
Text2.True=”” __TAfL_C)
_]|NwC <
Text3.True=”” _+#qW 0g
&_YMz3_ugI
Text2.Enabled=False "#7~}_Z B
_A2Je_*Gz
Text3.Enabled=False MU_o}_Qi0K
`-)_!4oJ]
End Sud G_$_
X+_g{
#qL_?;Zh0S
Private Sub Command3-Click( ) -{_z.8p}IW
G8_}w|'0_m
i,Ha__f_
Y
Text2.True=”” __TAfL_C)
_]|NwC <
Text3.True=”” _+#qW 0g
&_YMz3_ugI
Text2.Enabled=False "#7~}_Z B
_A2Je_*Gz
Text3.Enabled=False MU_o}_Qi0K
`-)_!4oJ]
End Sud G_$_
X+_g{
#qL_?;Zh0S
Private Sub Command3-Click( ) -{_z.8p}IW
G8_}w|'0_m
Unload Me r>fx_5 5dw
6_n xX~k__
End Sub _V_!_!E
)I
_9 yH/5_'_
Private Sub mnuxpForm-Load( ) rC_Gyr}(NC
_1EvAV,_v"
Text2.Enabled=False g_~_FA:R_
_B_%H_G7_
Text3.Enabled=False GC(:}e|_
P ]*,955*)
End Sub %_%[_"_&_
w_4Y_uijhW
Private Sub Textl-KeyPress(Index As Integer,KeyAscii As Integer)’KeyAscii32以下是一此控
制键，防止输入非数字 Ii_"h:GY;\
2y6 e__]D
If KeyAscii>=33 Then OQt_nb#z`{ 腮腺炎引起的睾丸炎
29_R__?HBH
If KeyAscii<=vbKey9 And KeyAscii>-vbKey0 Then d_{_?X:*_F
6?an._ _C_
Else `9IG_/ /__
X_ w vH
’把KeyAscii设为0就取消输入 O,m0Xb2s]~
_X?PcEAi;w
KeyAscii=0 !
Z__f< j
8
t4__o}3>
2y6 e__]D
If KeyAscii>=33 Then OQt_nb#z`{ 腮腺炎引起的睾丸炎
29_R__?HBH
If KeyAscii<=vbKey9 And KeyAscii>-vbKey0 Then d_{_?X:*_F
6?an._ _C_
Else `9IG_/ /__
X_ w vH
’把KeyAscii设为0就取消输入 O,m0Xb2s]~
_X?PcEAi;w
KeyAscii=0 !
Z__f< j
8
t4__o}3>
MsgBox”不可输入非数字“，，”注意！” b
#ih= qE
*_^_|._bBG
EndIf A.`) __0dV
/_XfE_6SBz
EndIf Sz z:_$!t
__) _ ?L
EndSub sr
|afqjXD
Y_w_YCXFQ|
3．从上可以得出比较，用Micr0softExcel编程不需要计算机编程基础，每个人自己都可以动手操作，编程和使用很方便，使用VB或别的计算语言编程要有一定语言基础，编程后使用较简单，这两种方法使用时都较方便，可供具备不同计算机水平的人选择使用
#ih= qE
*_^_|._bBG
EndIf A.`) __0dV
/_XfE_6SBz
EndIf Sz z:_$!t
__) _ ?L
EndSub sr
|afqjXD
Y_w_YCXFQ|
3．从上可以得出比较，用Micr0softExcel编程不需要计算机编程基础，每个人自己都可以动手操作，编程和使用很方便，使用VB或别的计算语言编程要有一定语言基础，编程后使用较简单，这两种方法使用时都较方便，可供具备不同计算机水平的人选择使用
发布评论