资源描述：
《河海大学结构分析程序设计课程作业--钢筋混凝土受压vb程序.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、结构分析程序设计课程作业钢筋混凝土偏心受压构件程序设计姓名：王少康学号：1104010437（河海大学土木与交通学院，江苏省南京市210098）1引言（概述）本程序为“钢筋混凝土偏心受压构件配筋计算”程序，运用vb6.0编程语言，以钢筋混凝土偏心受压计算方法为基础，为了使用方便，本文借鉴了以下论文从而编写了此程序。中间略。。。。。。。。。。2.5计算程序框图-1-结构分析程序设计课程作业-2-结构分析程序设计课程作业-3-结构分析程序设计课程作业3源程序本程序采用vb编程语言编写。（每个代表字母后加u6，去掉即可运行。）3.1代码如下：-4-结构分析程序设计课程作业3.2程序界面如下：3.3
2、程序代码：OptionExplicit'王少康1104010437土木五班，指导老师：张勤Dimku6AsSingle,As2u6AsSingle,xu6AsSingle,eau6AsSingle,au6AsSingleDimE1u6AsSingle,Esu6AsSingle,h01u6AsSingleDimm1u6AsSingle,m2u6AsSingle,Nu6AsSingle,lu6AsSingle,bu6AsSingleDimα1u6AsSingle,β1u6AsSingle,As1u6AsSingle,kbu6AsSingle,eu6AsSingleDimhu6AsSingle,f
3、yu6AsSingle,fcu6AsSingle,as11u6AsSingle,as12u6AsSingleDimcmu6AsSingle,oeu6AsSingle,exu6AsSingle,cou6AsSingle,mu6AsSingleDimeiu6AsSingle,h0u6AsSingle,ho1u6AsSingle,αsu6AsSingle'大偏压子程序1PrivateSubda1()'大偏压子程序1eu6=eiu6+hu6/2-as11u6E1u6=eiu6-hu6/2+as12u6IfAs1u6>0Then'判断受压钢筋是否已知αsu6=(Nu6*eu6-As1u6*fyu6*(
4、h0u6-as12u6))/(α1u6*fcu6*bu6*(h0u6^2))-5-结构分析程序设计课程作业ku6=1-Sqr(1-2*αsu6)Ifku6<=kbu6ThenIfku6*h0u6>=2*as12u6ThenAs2u6=(α1u6*fcu6*bu6*ku6*h0u6+As1u6*fyu6-Nu6)/fyu6'计算受压钢筋面积IfAs2u6>=0.002*bu6*hu6ThenAs2u6=As2u6ElseAs2u6=0.002*bu6*hu6Text16.Text="大偏压构件"ElseAs2u6=Nu6*E1u6/(fyu6*(h0u6-as12u6))IfAs2u6>=0.
5、002*bu6*hu6ThenAs2u6=As2u6ElseAs2u6=0.002*bu6*hu6Text16.Text="大偏压构件"EndIfElseCallda2'调用大偏压子程序2EndIfElseCallda2'调用大偏压子程序2EndIfEndSub'大偏压子程序2PrivateSubda2()eu6=eiu6+hu6/2-as11u6E1u6=eiu6-hu6/2+as12u6As1u6=(Nu6*eu6-α1u6*fcu6*bu6*h0u6*h0u6*kbu6*(1-0.5*kbu6))/(fyu6*(h0u6-as12u6))IfAs1u6>0.002*bu6*hu6The
6、nAs2u6=(α1u6*fcu6*kbu6*bu6*h0u6+fyu6*As1u6-Nu6)/fyu6'计算受拉钢筋面积IfAs2u6>=0.002*bu6*hu6ThenAs2u6=As2u6ElseAs2u6=0.002*bu6*hu6xu6=(Nu6+As2u6*fyu6-As1u6*fyu6)/(α1u6*fcu6*bu6)Ifxu6/h0u6<=kbu6ThenAs2u6=As2u6:As1u6=As1u6:Text16.Text="大偏压构件"Else:CallxiaoElseAs1u6=0.002*bu6*hu6:Callda1'调用大偏压子程序1EndIfEndSub-6-
7、结构分析程序设计课程作业'小偏心受压子程序PrivateSubxiao()Esu6=hu6/2-mu6/Nu6+eau6-as12u6As2u6=(Nu6*Esu6-fcu6*bu6*hu6*(h01u6-0.5*hu6))/(fyu6*(h0u6-as11u6))IfAs2u6>=0.002*bu6*hu6ThenAs2u6=As2u6ElseAs2u6=0.002*bu6*hu6ku6=as12u6/h0
