《浅基础工程及程序设计》-丁继辉-程序代码 第二章

1、2.8源代码本章的扩展基础设施设计计算项目主要由3个表格和2个模块组成。主接口和两个模块的程序代码基本上与第一章相匹配。这里主要为墙下条形基础加固和柱下独立基础加固计算提供了主程序代码。2.8.1墙下条形基础加固计算源代码Dim Bwide基础宽度Dim Fload负载N(kN/m)Dim Mshot短边方向弯矩值Dim FcYshj混凝土轴压强度设计值Dim FkTshj凝固拉伸强度设计值Dim FkyGshj加固抗拉强度设计值Dim强侯壁厚Dim Hbaohc混凝土保护层厚度(m)Dim Dgangjin钢筋直径(mm)Private subtianjiapij()将文本框的输入参数赋给变

2、量Bwide=Val(Text(0)。Text)基准宽度Fload=Val(Text(1)。Text)负载N(kN/m)Mshot=Val(文本(2)。Text)短边方向弯矩值FcYshj=Val(Text(3)。Text)混凝土轴抗压强度设计值FkTshj=Val(Text(4)。Text)凝固拉伸强度设计值FkyGshj=Val(Text(5)。Text)钢筋抗拉强度设计值QiangHou=Val(Text(6)。Text)壁厚Hbaohc=Val(Text(7)。Text)混凝土保护层厚度(m)Dgangjin=Val(Text(8)。Text)钢筋直径(mm)End SubPrivat

3、e Sub CmdClear_Click()清单1。ClearEnd SubPrivate Sub Command1_Click()Me .HideEnd SubPrivate Sub Command2_Click()科尔蒂芬H0xiao=Val(Text4)。Text)Hjichu=Val(Text5 .Text)清单1。AddItem(考虑“基准构造要求”后，实际基准高度h(m) h= Format(Hjichu， 0.00 )清单1。AddItem(考虑“基础构造要求”后，实际基础有效高度h0(m) h0= Format(H0xiao， 0.00 )条形基础底面的地基净反力计算pj ma

4、x=f load/b wide 6 * ms hot/b wide 2pjmin=f load/b wide-6 * ms hot/b wide 2剖面1到基准边的距离B1=(Bwide-QiangHou)/2剖面的剪切设计值If Bwide=0 ThenV1=B1/Bwide * FloadElsev1=B1/(2 * b wide)*(2 * b wide-B1)* pj max B1 * pj min)End If基板的钢筋基本检查剖面的弯矩设计值(mm 2)M1shj=V1 * B1/2清单1。AddItem(悬臂根的最大弯矩M(kNm) M= Format(M1shj， 0.00 )

5、每个墙长度的力钢筋剖面面积：ASI=m1shj/(0.9 * fkygshj * h 0 Xiao)* 10 6清单1。AddItem(每个墙长度的力钢筋剖面面积mm 2 as= format (ASI， 0.00 )应力钢筋根数ng ang Jin=int(ASI/(3.14 *(DG ang Jin/2)2)1清单1。AddItem(每个墙长度的力钢筋数 N= Format(Ngangjin， 0.00 )实际力钢筋面积asishiji=3.14 *(dgangjin/2)2 * ngangjin清单1。AddItem(实际力钢筋剖面面积mm 2 as= format (asishiji，

6、 0.00 )力钢筋间距gjjjjianju=(b wide-2 * HBA OHC)* 1000/ngangjin-dgangjin清单1。AddItem(实际力钢筋间距 GJjianu= Format(GJjianju， 0.00 )Exit SubCUOWUCHULI:MsgBox“数据输入无效，无法获得结果”，vbExclamationEnd SubPrivate Sub Command4_Click()科尔蒂芬条形基础底面的地基净反力计算pj max=f load/b wide 6 * ms hot/b wide 2pjmin=f load/b wide-6 * ms hot/b w

7、ide 2清单1。AddItem(条形基础基础基础净反作用力最大pj max(kpa) pj max= format(pj max， 0.00 )清单1。AddItem(条形基础底部基础净反作用力最小pj min(kpa) pjm in= format(pjm in， 0.00 )剖面1到基准边的距离B1=(Bwide-QiangHou)/2清单1。add item( section 1到b1(m) b1= Format(b1， 0.00 )剖面的剪切设计值If Bwide=0 ThenV1=B1/Bwide * FloadElsev1=B1/(2 * b wide)*(2 * b wide-

8、B1)* pj max B1 * pj min)End If清单1。AddItem(剖面I中的剪切力值V1(kN/m) V1= Format(V1， 0.00 )计算基础的有效高度h0由混凝土剪切条件确定H0xiao=V1/(0.07 * FcYshj)清单1。AddItem(根据混凝土剪切条件计算的基准有效高度h0(m) h0= Format(H0xiao， 0.00 )Text4 .Text=Format(H0xiao， 0.00 )计算基础高度Hjichu=H0xiao HbaohcText5 .Text=Format(Hjichu， 0.00 )清单1。AddItem(计算高度h(m)

9、 h= Format(Hjichu， 0.00 )“MsgBox”根据配置要求确定默认大小。“边缘高度大于200mm！”，vbQuestionEnd Subprivate subform _ query unload(cancel as integer，unload mode as integer)Me .Hide在正常情况下关闭表单并不真正退出隐藏表单，因为仍然需要表单中的数据仅当代码关闭表单时，才会实际关闭表单if not unload mode=vbformowner and not unload mode=vbformcode thenCancel=TrueElseCancel=Fal

10、seEnd IfEnd Sub2.8.2柱下独立基础加固计算源代码Dimf load、b wide、llong、ms hot、m longDimbc章、LC章、h 0小、fc yshj、fktshj、fkygshjl、dgangjinDimfkygshjb、dgangjin b、Bei a1、Beit、Bei h1、Bei H2、BH、pjmax和pjminDimbt、bb、BM、fl、fqiangdu、m11、m22、ngangjin、ngangjinbDimas11、as22、jic huh 0、asshejil和asshejibDimbbian 1、abian 1、h 0 bian 1、

11、bbian 2、abian 2、h 0 bian 2Dimbbian 3、abian 3、h 0 bian 3、m 11 bian 1、m 22 bian 1Dimm 11 bian 2、m 22 bian 2、m 11 bian 3、m 22 bian 3、fqiangdubian 3Dimfl bian1、fl bian2、fl bian3、fqiangdubian 1、fqiangdubian 2Private Sub Command1_Click()Me .HideEnd SubPrivate Sub TianJiaBianL()将文本框的输入参数指定给参数Bwide=Val(Text

12、(0)。Text)负载N(kN/m)Llong=Val(文本(1)。Text)基准宽度Fload=Val(文本(2)。Text)基准长度Mshot=Val(文本(3)。Text)短边方向弯矩值Mlong=Val(文本(4)。Text)长边方向弯矩值Bczhu=Val(文本(5)。Text)柱截面短边长度Lczhu=Val(文本(6)。Text)柱截面长边长度H0xiao=Val(Text(7)。Text)冲孔破坏圆锥的有效高度(m)FcYshj=Val(Text(8)。Text)混凝土轴抗压强度设计值FkTshj=Val(Text(9)。Text)凝固拉伸强度设计值FkyGshjL=Val(T

13、ext(10)。Text)钢筋抗拉强度设计值Dgangjin=val (text (11)。text)长边l方向力钢筋直径(mm)FkyGshjB=Val(Text(12)。Text)短边b方向加强抗拉强度设计值fy(kPa)DgangjinB=Val(Text(13)。Text)短边b方向力钢筋直径(mm)if option 5 . value=true or option 5 . value=true thenBeiA1=Val(Text4)。Text)杯底厚度a1(mm)BeiT=Val(Text5 .Text)杯底厚度t(mm)BeiH1=Val(Text7)。Text)根据配置确定杯

14、子基准尺寸h1(mm)BeiH2=Val(Text8)。Text)根据配置确定杯子端口基准尺寸h2(mm)End IfIf Option7。Value=True Then主要Bbian1=Val(Text9)。Text)Abian1=Val(Text10)。Text)H0bian1=Val(Text11)。Text)End IfIf Option8。Value=True Then辅助Bbian1=Val(Text9)。Text)Abian1=Val(Text10)。Text)H0bian1=Val(Text11)。Text)Bbian2=Val(Text12)。Text)Abian2=Val(Text13)。Text)H0bian2=Val(Text14)。Text)End IfIf Option9。Value=True Then第三