《淺基礎工程及程序設計》-丁繼輝-程序代碼 第二章

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() 將文本框的輸入?yún)?shù)賦于變量 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)受力鋼筋根數(shù) Ngangjin = Int(Asi / (3.14 * (D

6、gangjin / 2) 2) + 1 List1.AddItem (每米墻長的受力鋼筋數(shù) & 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 數(shù)據(jù)輸入有誤,不能得出結果, 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 根據(jù)構造要求確定基礎尺寸。邊緣高度大大于等于200mm！ , vbQuestionEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Me.Hide 在一般的情況下,關閉窗體并沒有真正的關閉 只是將窗體隱藏起來,因為窗體上的數(shù)據(jù)還需要用 只有當在代碼中關閉窗體時,才會真正的關閉一個 窗體 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( ) 將文本框的輸入?yún)?shù)賦于變量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) 沖切破壞錐體的有效高度 (

14、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) DgangjinB = Val(Text(13).Text) 短邊B方向受力鋼筋直徑 (mm)If Option5.Value = True Or Option

15、5.Value = True Then BeiA1 = Val(Text4.Text) 杯底厚度 a1(mm) BeiT = Val(Text5.Text) 杯底厚度 t(mm) BeiH1 = Val(Text7.Text) 按構造確定杯口基礎尺寸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 Op

16、tion8.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 三階 Bbian1 = Val(Text9.Text) Abian1 = Val(Text10.Text) H0bian1 = Val(Text11.Text) B

17、bian2 = Val(Text12.Text) Abian2 = Val(Text13.Text) H0bian2 = Val(Text14.Text) Bbian3 = Val(Text15.Text) Abian3 = Val(Text16.Text) H0bian3 = Val(Text17.Text)End IfEnd SubPrivate Sub Command2_Click()Call TianJiaBianL 1. 基礎高度及變階處高度的確定 If Option4.Value = True Or Option5.Value = True Then BhcH = 50 / 100

18、0 JichuH0 = BeiH1 / 1000 + BeiA1 / 1000 + BhcH List1.AddItem (基礎高度H0(m) & H0= & Format(JichuH0, 0.00) List1.AddItem (杯底厚度 t(mm) & t= & Format(BeiT, 0.00)End If基底凈反力計算 Call Pnmaxnmin(Fload, Llong, Bwide, Pjmax, Pjmin, Mshot, Mlong) List1.AddItem (基底凈反力最大值Pjmax(kPa) & Pjmax= & Format(Pjmax, 0.00) List

19、1.AddItem (基底凈反力最小值Pjmin(kPa) & Pjmin= & Format(Pjmin, 0.00) (1)柱與基礎交接處的沖切強度驗算 Bt 沖切破壞錐體斜截面的上邊長(m) Bm 沖切破壞錐體斜截面的下邊長(m) Bt = Bczhu Bb = Bczhu + 2# * H0xiao Bm = (Bt + Bb) / 2 If Bwide Bb Then Fl = Pjmax * (Llong / 2 - Lczhu / 2 - H0xiao) * Bwide Else Fl = Pjmax * (Llong / 2 - Lczhu / 2 - H0xiao) * Bw

20、ide - (Bwide / 2 - Bczhu / 2 - H0xiao) 2) End If List1.AddItem (柱與基礎交接處的沖切力(kN) & Fl= & Format(Fl, 0.00) Fqiangdu = 0.6 * FkTshj * Bm * H0xiao List1.AddItem (柱與基礎交接處的抗沖切力(kN) & Fqiangdu= & Format(Fqiangdu, 0.00) If Fl Fqiangdu Then List1.AddItem (滿足要求 ) Else MsgBox 重新調整h0后,再進行驗算, vbExclamation Exit

21、Sub End If(2)變階-(1)處的沖切驗算 If Option7.Value = True Or Option8.Value = True Or Option9.Value = True Then Bt = Bbian1 Bb = Bt + 2# * H0bian1 Bm = (Bt + Bb) / 2 If Bwide Bb Then FlBian1 = Pjmax * (Llong / 2 - Abian1 / 2 - H0bian1) * Bwide Else FlBian1 = Pjmax * (Llong / 2 - Abian1 / 2 - H0bian1) * -(Bwi

22、de / 2 - Bbian1 / 2 - H0bian1) 2) End If List1.AddItem (變階-(1)處的沖切力(kN) & Fl= & Format(FlBian1, 0.00) FqiangduBian1 = 0.6 * FkTshj * Bm * H0bian1 List1.AddItem (變階-(1)處的抗沖切力(kN) & Fqiangdubian1= & Format(FqiangduBian1, 0.00) If FlBian1 FqiangduBian1 Then List1.AddItem (滿足要求 ) Else MsgBox 重新調整H0bian1

23、后,再進行驗算, vbExclamation Exit Sub End If End If(3)變階-(2)處的沖切驗算 If Option8.Value = True Or Option9.Value = True Then Bt = Bbian2 Bb = Bt + 2# * H0bian2 Bm = (Bt + Bb) / 2 If Bwide Bb Then FlBian2 = Pjmax * (Llong / 2 - Abian2 / 2 - H0bian2) * Bwide Else FlBian2 = Pjmax * (Llong / 2 - Abian2 / 2 - H0bia

24、n2) * -(Bwide / 2 - Bbian2 / 2 - H0bian2) 2) End If List1.AddItem (變階-(2)處的沖切力(kN) & Flbian2= & Format(FlBian2, 0.00) FqiangduBian2 = 0.6 * FkTshj * Bm * H0bian2 List1.AddItem (變階-(2)處的抗沖切力(kN) & Fqiangdubian2= & Format(FqiangduBian2, 0.00) If FlBian2 FqiangduBian2 Then List1.AddItem (滿足要求 ) Else Ms

25、gBox 重新調整H0bian3后,再進行驗算, vbExclamation Exit Sub End If End If(4)變階-(3)處的沖切驗算 If Option9.Value = True Then Bt = Bbian3 Bb = Bt + 2# * H0bian3 Bm = (Bt + Bb) / 2 If Bwide Bb Then FlBian3 = Pjmax * (Llong / 2 - Abian3 / 2 - H0bian3) * Bwide Else FlBian3 = Pjmax * (Llong / 2 - Abian3 / 2 - H0bian3) * -(

26、Bwide / 2 - Bbian3 / 2 - H0bian2) 3) End If List1.AddItem (變階-(3)處的沖切力(kN) & Flbian3= & Format(FlBian3, 0.00) FqiangduBian3 = 0.6 * FkTshj * Bm * H0bian3 List1.AddItem (變階-(3)處的抗沖切力(kN) & Fqiangdubian3= & Format(FqiangduBian3, 0.00) If FlBian3 M11 Then M11 = M11Bian1 If M11 M11Bian1 Then M11 = M11En

27、d IfIf Option8.Value = True Then If M11Bian1 M11 Or M11Bian1 M11Bian2 Then M11 = M11Bian1 If M11Bian2 M11 Or M11Bian2 M11Bian1 Then M11 = M11Bian2 If M11 M11Bian1 Or M11 M11Bian2 Then M11 = M11End IfIf Option9.Value = True Then If M11Bian1 M11 Or M11Bian1 M11Bian2 Or M11Bian1 M11Bian3 Then M11 = M11

28、Bian1 If M11Bian2 M11 Or M11Bian2 M11Bian2 Or M11Bian2 M11Bian3 Then M11 = M11Bian2 If M11Bian3 M11 Or M11Bian3 M11Bian2 Or M11Bian3 M11 Then M11 = M11Bian3 If M11 M11Bian1 Or M11 M11Bian2 Or M11 M11Bian3 Then M11 = M11End If As11 = M11 / (0.9 * FkyGshjL * H0xiao) * 10 6配筋長邊L方向鋼筋根數(shù) NgangjinL = Int(A

29、s11 / (3.14 * DgangjinL * DgangjinL / 4) + 1 AsShejiL = (3.14 * DgangjinL * DgangjinL / 4) * NgangjinL List1.AddItem (長邊L向配筋面積 (mm2) & As11= & Format(As11, 0.00) List1.AddItem (長邊L向配筋數(shù) & NgangjinL= & Format(NgangjinL, 00) List1.AddItem (長邊L向實際配筋面積(mm2) & AsShijiL= & Format(AsShejiL, 0.00)配筋短邊B方向If Option7.Value = True Then If M22B