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

2.8 源程序代码 本章基础设计计算工程主要包括个窗体，2个模块。源程序代码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 Sub Private Sub CmdClear_Click() List1.Clear End Sub Private Sub Command1_Click() Me.Hide End Sub Private 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 (悬臂根部的最大弯矩M(kN·m) M= Format(M1shj, 0.00)) 每米墙长的受力钢筋截面面积： Asi = M1shj / (0.9 * FkyGshj * H0xiao) * 10 ^ 6 List1.AddItem (每米墙长的受力钢筋截面面积mm^2 As= Format(Asi, 0.00)) 受力钢筋根数 Ngangjin = Int(Asi / (3.14 * (Dgangjin / 2) ^ 2)) + 1 List1.AddItem (每米墙长的受力钢筋数 N= Format(Ngangjin, 0.00)) 实际受力钢筋面积 Asishiji = 3.14 * (Dgangjin / 2) ^ 2 * Ngangjin List1.AddItem (实际受力钢筋截面面积mm^2 As= Format(Asishiji, 0.00)) 受力钢筋间距 GJjianju = (Bwide - 2 * Hbaohc) * 1000 / Ngangjin - Dgangjin List1.AddItem (实际受力钢筋间距 GJjianu= Format(GJj