资源描述:
《实验五:受弯剪扭构件截面承载力设计计算源代码optionexplicit》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、实验五:受弯剪扭构件截面承载力设计计算源代码OptionExplicitPrivatebAsSingle,hAsSingle,hOAsSingle,MAsSingle,VAsSingle,TAsSingle,VmaxAsSingle,nAsSingle,dAsSinglePrivateWtAsSingle,assAsSingle,hwAsSingle,BtAsSingle,alAsSinglePrivateT1AsSingle,T2AsSingle,T3AsSingle,fyvAsSingle,ksAsSingle,PsvAsSingl
2、e,PsvminAsSinglePrivateAstiAsSingle,AcorAsSingle,UcorAsSingle,ksbAsSingle,xAsSinglePrivateBlAsSingle,EsAsSingle,sscuAsSingle,AAsAsSinglePrivatePAsSingle,PtlAsSingle,PminAsSingle,PtlminAsSinglePrivateBeAsSingle,fyAsSingle,fcAsSingle,ftAsSingle,SmaxAsSinglePrivatessbAsSing
3、le,AsvlAsSingle,sAsSinglePrivateSubCommandl_Click()b=Textlh=Text2M=Text3V=Text4T=Text5Constn=2'第一步Constass=35Wt=(b*b*(3*h-b))/6hO=h-asshw=hOBe=1Iffy=0Orfc=0Orfyv=0ThenMsgBox'储选择混凝土和钢筋",1Combol.SetFocusExitSubEndIfIf(hw/b)<4ThenIf(V*1000/(b*hO))+仃*1000000/(0.8*Wt))<(0.25*
4、Be*fc)ThenText6=”截面尺寸满足要求”&vbCrLfElseMsgBox面尺寸不满足要求,请重新设计”ExitSubEndIfEndIf,第二步验算简化计算条件If(0.35*ft*b*h0)<(V*1000)And(0.175*ft*Wt)<(T*1000000)ThenText6=Text6&”应按弯剪扭构件计算“&vbCrLfElseMsgBox”不能按简化计算条件计算,请重新设计参数”ExitSubEndIf'第三步If(V*1000/(b*hO)+仃*1000000/Wt))>(0.7*ft)ThenText6=
5、Text6&”需按计算配置纵向钢筋和箍筋”&vbCrLfElseMsgBox“不应按计算配置纵向配筋,请重新设计”ExitSubEndIf'第四步Bt=(1.5)/((l+0.5*((V*1000*Wt)/(T*1000000*b*h0))))IfBt>1ThenBt=lT1=((V*1000)・(0.7*(1.5・Bt)*ft*b*h0))/(1.25*fyv*n*hO)Text6=Text6&,,Asvl/s="&T1&vbCrLfAcor=(b-2*25)*(h-2*25)Ucor=2*((b・2*25)+(h・2*25))T2=
6、(T*1000000-0.35*Bt*ft*Wt)/(1.2*(Sqr(1.2))*fyv*Acor)T3=T1+T2d=Val(lnputBox("请输入d"))Ifd=0Thend=Val(lnputBox("请输入d"))87:SelectCasedCase6Asvl=28.3Case6.5Asvl=33.2Case8Asvl=50.3Case8.2Asvl=52.8Case10Asvl=78.5Case12Asvl=113.1Case14Asvl=153.9Case16Asvl=201.1EndSelects=Asvl/T3If
7、s=0Then'冋到87行MsgBox"请确定尺寸d"d=lnputBox(n请输入d")GoTo87EndIfIfsPsvminThenText6=Text6&“满足要求,,&vbCrLf1计算受扭纵向钢筋ks=1.2Asti=(ks*fyv*Ucor*T2)/fyText6=Text6&nAstl=n&Asti&"mm2"&vbCrLf'计算受弯a
8、l=1x=h0・Sqr(hO*hO・(2*M*1000000)/(al*fc*b))Bl=0.8,还需要查表重新改Es=200000sscu=0.0033ksb=Bl/(1+(fy/(Es*sscu)))I