混凝土大偏压配筋VB程序

《混凝土大偏压配筋VB程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《混凝土结构设计原理》课程上机实验报告专业勘查技术与工程班级学号勘查080221姓名朱斌指导教师徐德良学期2010-2011第一学期南京工业大学交通学院二0一0年十二月目录一概述二大偏压一般情况和对称配筋程序三计算例题及结果截图四总结一．概述钢筋混凝土基本构件配筋计算”程序，深化本课程所学习的有关钢筋混凝土基本构件设计的内容，同时增强学生计算机的应用能力。本组成员朱斌、金昭。二大偏压一般情况和对称配筋情况下的主要程序PrivateSubCommand1_Click()StaticmAsSingle,nAsSingleDimbAsSingl

2、e,hAsSingle,fcAsSingle,fyAsSingleDimeoAsSingle,eAsSingle,eaAsSingle,xAsSingle,eiAsSingle,loAsDouble,x1AsSingle,x2AsSingle,yAsDouble,aAsSingle,h1AsSingleDimas1AsSingle,as2AsSingleDimebAsSingle,rsAsSingle,Y1AsSingle,y2AsSinglem=Val(Text1)n=Text2b=Text3:h=Text4a=Text5eb=Text

3、12:rs=Text13lo=Text11*1000fc=Text6fy=Text8y2=Val(Text10)h1=h-ax=h/30as1=eb*(1-0.5*eb)Ifx>20Thenea=xElseea=20EndIfeo=(m*10^6)/(n*10^3)ei=eo+eaIflo/h>5Thenx1=0.5*fc*b*h/(n*1000)x2=1.15-0.01*lo/hIfx1>1Thenx1=1EndIfIfx2>1Thenx2=1EndIfy=1+((lo/h)^2)*x1*x2/(1400*ei/(h-a))Elsey=

4、1EndIfIfy*ei<0.32*(h-a)Thena=MsgBox("请确认您输入的数据是否为小偏压！",3+48+0,"数据检查")ExitSubEndIfIfy*ei>0.32*(h-a)ThenIfCheck1.Value=0ThenIfy2=0Thene=y*ei+h/2-ay2=(n*1000*e-rs*fc*b*h1*h1*eb*(1-0.5*eb))/(fy*(h1-a))Ify2<0.002*b*hTheny2=0.002*b*hEndIfY1=(rs*fc*b*h1*eb+fy*y2-n*1000)/fyText14

5、=Y1Text7=y2ExitSubEndIfIfy2<0Ory2>0Thene=y*ei+h/2-aas2=(n*1000*e-y2*fy*(h1-a))/(rs*fc*b*h1*h1)Ifas22*a/h1Theneb=1-Sqr(1-2*as2)Y1=(rs*fc*b*eb*h1+fy*y2-n*1000)/fyIfY1<0.002*b*hThenY1=0.002*b*hEndIfText14=Y1Text7=y2ExitSubEndIfIfas2>as1Thene=y*ei+h/2-ay2=(n*1000*e

6、-rs*fc*b*h1*h1*eb*(1-0.5*eb))/(fy*(h1-a))Ify2<0.002*b*hTheny2=0.002*b*hEndIfY1=(rs*fc*b*h1*eb+fy*y2-n*1000)/fyText14=Y1Text7=y2ExitSubEndIfIf((1-Sqr(1-2*as2))*h1)<2*aThenY1=n*(y*ei-h/2+a)/(fy*(h1-a))IfY1<0.002*b*hThenY1=0.002*b*hEndIfText14=Y1Text7=y2ExitSubEndIfEndIfEndI

7、fIfCheck1.Value=1Thenx=n*1000/(rs*fc*b)Ifx<=2*aThene=y*ei-h/2+aY1=(n*1000*e)/(fy*(h1-a))y2=Y1Text14=Y1Text7=y2ExitSubEndIfe=y*ei+h/2-aY1=(n*1000*e-rs*fc*b*x*(h1-0.5*x))/(fy*(h1-a))y2=Y1Text14=Y1Text7=y2ExitSubEndIfEndIfEndSub三计算例题及结果截图1.不对称配筋截面的设计（1）某框架结构柱，截面尺寸b=300mm,h=5

8、00mm,层高4.5m，计算长度l0=1.25H，轴力设计值N=1500KN,弯矩设计值M=300KN.m，采用C30级混凝土，纵筋采用HRB400级钢筋。求所需配置的As’和As。1.基本数