《《浅基础工程及程序设计》-丁继辉-程序代码 第二章》由会员分享，可在线阅读，更多相关《《浅基础工程及程序设计》-丁继辉-程序代码 第二章（11页珍藏版）》请在金锄头文库上搜索。
1、2.8 源程序代码本章扩展基础结构设计计算工程主要包括3个窗体，2个模块。主界面及两个模块的程序代码与第一章基本一致，这里主要给出墙下条形基础配筋及柱下独立基础配筋计算的主要程序代码。2.8.1墙下条形基础配筋计算源程序代码Dim Bwide 基础宽度Dim Fload 荷载N(kN/m)Dim Mshot 短边方向弯矩值Dim FcYshj 混凝土轴心抗压强度设计值Dim FkTshj 混凝抗拉强度设计值Dim FkyGshj 钢筋抗拉强度设计值Dim QiangHou 墙厚度Dim Hbaohc 混凝土保护层厚度（m)Dim Dgangjin 钢筋直径（mm） Private Sub Ti
2、anJiaPeij() 将文本框的输入参数赋于变量 Bwide = Val(Text(0).Text) 基础宽度 Fload = Val(Text(1).Text) 荷载N(kN/m) Mshot = Val(Text(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
3、) 混凝土保护层厚度（m) Dgangjin = Val(Text(8).Text) 钢筋直径（mm） End SubPrivate Sub CmdClear_Click() List1.ClearEnd SubPrivate Sub Command1_Click() Me.HideEnd SubPrivate Sub Command2_Click() Call TianJiaPeij H0xiao = Val(Text4.Text) Hjichu = Val(Text5.Text) List1.AddItem (考虑基础构造要求后实际基础高度h(m) & h= & Format(Hjichu
4、, 0.00) List1.AddItem (考虑基础构造要求后实际基础有效高度h0(m) & h0= & Format(H0xiao, 0.00) 条形基础底面的地基净反力计算 Pjmax = Fload / Bwide + 6 * Mshot / Bwide 2 Pjmin = Fload / Bwide - 6 * Mshot / Bwide 2 截面1至基础边缘距离 b1 = (Bwide - QiangHou) / 2 截面的剪力设计值 If Bwide = 0 Then V1 = b1 / Bwide * Fload Else V1 = b1 / (2 * Bwide) * (2
5、* Bwide - b1) * Pjmax + b1 * Pjmin) End If基础底板的配筋基础验算截面的弯矩设计值(mm2) M1shj = V1 * b1 / 2 List1.AddItem (悬臂根部的最大弯矩M(kNm) & M= & Format(M1shj, 0.00)每米墙长的受力钢筋截面面积： Asi = M1shj / (0.9 * FkyGshj * H0xiao) * 10 6 List1.AddItem (每米墙长的受力钢筋截面面积mm2 & As= & Format(Asi, 0.00)受力钢筋根数 Ngangjin = Int(Asi / (3.14 * (D
6、gangjin / 2) 2) + 1 List1.AddItem (每米墙长的受力钢筋数 & N= & Format(Ngangjin, 0.00) 实际受力钢筋面积 Asishiji = 3.14 * (Dgangjin / 2) 2 * Ngangjin List1.AddItem (实际受力钢筋截面面积mm2 & As= & Format(Asishiji, 0.00) 受力钢筋间距 GJjianju = (Bwide - 2 * Hbaohc) * 1000 / Ngangjin - Dgangjin List1.AddItem (实际受力钢筋间距 & GJjianu= & Form
7、at(GJjianju, 0.00) Exit SubCUOWUCHULI: MsgBox 数据输入有误,不能得出结果, vbExclamationEnd SubPrivate Sub Command4_Click() Call TianJiaPeij条形基础底面的地基净反力计算 Pjmax = Fload / Bwide + 6 * Mshot / Bwide 2 Pjmin = Fload / Bwide - 6 * Mshot / Bwide 2 List1.AddItem (条形基础底面地基净反力最大值Pjmax(kPa) & Pjmax= & Format(Pjmax, 0.00)
8、List1.AddItem (条形基础底面地基净反力最小值Pjmin(kPa) & Pjmin= & Format(Pjmin, 0.00)截面1至基础边缘距离 b1 = (Bwide - QiangHou) / 2 List1.AddItem (截面1至基础边缘距离b1(m) & b1= & Format(b1, 0.00)截面的剪力设计值 If Bwide = 0 Then V1 = b1 / Bwide * Fload Else V1 = b1 / (2 * Bwide) * (2 * Bwide - b1) * Pjmax + b1 * Pjmin) End If List1.AddI
9、tem (截面处的剪力值V1(kN/m) & V1= & Format(V1, 0.00)计算基础有效高度h0由混凝土抗剪切条件确定 H0xiao = V1 / (0.07 * FcYshj) List1.AddItem (由混凝土抗剪切条件计算基础有效高度h0(m) & h0= & Format(H0xiao, 0.00) Text4.Text = Format(H0xiao, 0.00)计算基础高度 Hjichu = H0xiao + Hbaohc Text5.Text = Format(Hjichu, 0.00) List1.AddItem (计算高度h(m) & h= & Format
10、(Hjichu, 0.00) MsgBox 根据构造要求确定基础尺寸。边缘高度大大于等于200mm！ , vbQuestionEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Me.Hide 在一般的情况下,关闭窗体并没有真正的关闭 只是将窗体隐藏起来,因为窗体上的数据还需要用 只有当在代码中关闭窗体时,才会真正的关闭一个 窗体 If Not UnloadMode = vbFormOwner And Not UnloadMode = vbFormCode Then Cancel = Tru
11、e Else Cancel = False End IfEnd Sub2.8.2 柱下独立基础配筋计算源程序代码Dim Fload, Bwide, Llong, Mshot, MlongDim Bczhu, Lczhu, H0xiao, FcYshj, FkTshj, FkyGshjL, DgangjinLDim FkyGshjB, DgangjinB, BeiA1, BeiT, BeiH1, BeiH2, BhcH, Pjmax, PjminDim Bt, Bb, Bm, Fl, Fqiangdu, M11, M22, NgangjinL, NgangjinBDim As11, As22,
12、JichuH0, AsShejiL, AsShejiBDim Bbian1, Abian1, H0bian1, Bbian2, Abian2, H0bian2Dim Bbian3, Abian3, H0bian3, M11Bian1, M22Bian1Dim M11Bian2, M22Bian2, M11Bian3, M22Bian3, FqiangduBian3Dim FlBian1, FlBian2, FlBian3, FqiangduBian1, FqiangduBian2Private Sub Command1_Click() Me.HideEnd SubPrivate Sub Tia
13、nJiaBianL( ) 将文本框的输入参数赋于变量Bwide = Val(Text(0).Text) 荷载N(kN/m) Llong = Val(Text(1).Text) 基础宽度 Fload = Val(Text(2).Text) 基础长度 Mshot = Val(Text(3).Text) 短边方向弯矩值 Mlong = Val(Text(4).Text) 长边方向弯矩值 Bczhu = Val(Text(5).Text) 柱截面短边长度 Lczhu = Val(Text(6).Text) 柱截面长边长度 H0xiao = Val(Text(7).Text) 冲切破坏锥体的有效高度 (m) FcYshj = Val(Text(8).Text) 混凝土轴心抗压强度设计值 FkTshj = Val(Text(9).Text) 混凝抗拉强度设计值 FkyGshjL = Val(Text(10).Text) 钢筋抗拉强度设计值 DgangjinL = Val(Text(11).Text) 长边L方向受力钢筋直径 (mm) FkyGshjB = Val(Text(12).Text) 短边B方向钢筋抗拉强度设计值fy(kPa) Dgangj
