《浅基础工程及程序设计》-丁继辉-程序代码 第二章(12页)Good is good, but better carries it.精益求精，善益求善。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 TianJiaPeij() '将文本框的输入参数赋于变量 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) '混凝土保护层厚度（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, "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 * Bwide - b1) * Pjmax + b1 * Pjmin) End If'基础底板的配筋'基础验算截面的弯矩设计值(mm^2) M1shj = V1 * b1 / 2 List1.AddItem ("悬臂根部的最大弯矩...
