《浅基础工程及程序设计》丁继辉程序代码 第二章Word文档下载推荐.docx

1、 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） Dgangjin = Val（Text（8）.Text） End SubPrivate Sub CmdClear_Click（） List1.ClearEnd SubPrivate Sub Command1_Click（） Me.HidePrivate Sub Command2_Click（） Call TianJiaP

2、eij H0xiao = Val（Text4.Text） Hjichu = Val（Text5.Text） List1.AddItem （考虑基础构造要求后实际基础高度h（m） & h= Format（Hjichu, 0.00）考虑基础构造要求后实际基础有效高度h0（m） h0= Format（H0xiao, 条形基础底面的地基净反力计算 Pjmax = Fload / Bwide + 6 * Mshot / Bwide 2 Pjmin = Fload / Bwide - 6 * Mshot / Bwide 2截面1至基础边缘距离 b1 = （Bwide - QiangHou） / 2截面的剪

3、力设计值 If Bwide = 0 Then V1 = b1 / Bwide * Fload Else V1 = b1 / （2 * Bwide） * （2 * Bwide - b1） * Pjmax + b1 * Pjmin） End If基础底板的配筋基础验算截面的弯矩设计值（mm2） M1shj = V1 * b1 / 2悬臂根部的最大弯矩M（kNm） M= Format（M1shj, 每米墙长的受力钢筋截面面积： Asi = M1shj / （0.9 * FkyGshj * H0xiao） * 10 6每米墙长的受力钢筋截面面积mm2 As= Format（Asi, 受力钢筋根数 Ng

4、angjin = Int（Asi / （3.14 * （Dgangjin / 2） 2） + 1每米墙长的受力钢筋数 N= Format（Ngangjin, 实际受力钢筋面积 Asishiji = 3.14 * （Dgangjin / 2） 2 * Ngangjin实际受力钢筋截面面积mm2 Format（Asishiji, 受力钢筋间距 GJjianju = （Bwide - 2 * Hbaohc） * 1000 / Ngangjin - Dgangjin实际受力钢筋间距 GJjianu= Format（GJjianju, Exit SubCUOWUCHULI: MsgBox 数据输入有误,

5、不能得出结果, vbExclamationPrivate Sub Command4_Click（）条形基础底面地基净反力最大值Pjmax（kPa） Pjmax= Format（Pjmax, 条形基础底面地基净反力最小值Pjmin（kPa） Pjmin= Format（Pjmin, 截面1至基础边缘距离b1（m） b1= Format（b1, 截面处的剪力值V1（kN/m） V1= Format（V1, 计算基础有效高度h0由混凝土抗剪切条件确定 H0xiao = V1 / （0.07 * FcYshj）由混凝土抗剪切条件计算基础有效高度h0（m） Text4.Text = Format（H0x

6、iao, ）计算基础高度 Hjichu = H0xiao + Hbaohc Text5.Text = Format（Hjichu, 计算高度h（m） 根据构造要求确定基础尺寸。边缘高度大大于等于200mm！, vbQuestionPrivate Sub Form_QueryUnload（Cancel As Integer, UnloadMode As Integer） Me.Hide 在一般的情况下,关闭窗体并没有真正的关闭只是将窗体隐藏起来,因为窗体上的数据还需要用只有当在代码中关闭窗体时,才会真正的关闭一个 窗体 If Not UnloadMode = vbFormOwner And No

7、t UnloadMode = vbFormCode Then Cancel = True Cancel = False2.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, N

8、gangjinBDim As11, As22, 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 TianJiaBianL（ ） Bwide

9、= Val（Text（0）.Text） 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

10、） 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 Option5.Value = True Then BeiA1 = Val（Text4.Text） 杯底厚度 a1（mm） BeiT = Val（Text5.Text） 杯底厚度 t（mm

11、） BeiH1 = Val（Text7.Text） 按构造确定杯口基础尺寸h1（mm） BeiH2 = Val（Text8.Text） 按构造确定杯口基础尺寸h2（mm）If Option7.Value = True Then 一阶 Bbian1 = Val（Text9.Text） Abian1 = Val（Text10.Text） H0bian1 = Val（Text11.Text）End IfIf Option8.Value = True Then 二阶 Bbian2 = Val（Text12.Text） Abian2 = Val（Text13.Text） H0bian2 = Val（Te

12、xt14.Text）If Option9.Value = True Then 三阶 Bbian3 = Val（Text15.Text） Abian3 = Val（Text16.Text） H0bian3 = Val（Text17.Text）Call TianJiaBianL 1. 基础高度及变阶处高度的确定 If Option4.Value = True Or Option5.Value = True Then BhcH = 50 / 1000 JichuH0 = BeiH1 / 1000 + BeiA1 / 1000 + BhcH基础高度H0（m） H0= Format（JichuH0, 杯

13、底厚度 t（mm） t= Format（BeiT, 基底净反力计算 Call Pnmaxnmin（Fload, Llong, Bwide, Pjmax, Pjmin, Mshot, Mlong）基底净反力最大值Pjmax（kPa） 基底净反力最小值Pjmin（kPa） （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

14、 - H0xiao） * Bwide Fl = Pjmax * （Llong / 2 - Lczhu / 2 - H0xiao） * Bwide - （Bwide / 2 - Bczhu / 2 - H0xiao） 2）柱与基础交接处的冲切力（kN） Fl= Format（Fl, Fqiangdu = 0.6 * FkTshj * Bm * H0xiao柱与基础交接处的抗冲切力（kN） Fqiangdu= Format（Fqiangdu, If Fl Fqiangdu Then满足要求 重新调整h0后,再进行验算（2）变阶-（1）处的冲切验算 If Option7.Value = True O

15、r Option8.Value = True Or Option9.Value = True Then Bt = Bbian1 Bb = Bt + 2# * H0bian1 FlBian1 = Pjmax * （Llong / 2 - Abian1 / 2 - H0bian1） * Bwide FlBian1 = Pjmax * （Llong / 2 - Abian1 / 2 - H0bian1） * -（Bwide / 2 - Bbian1 / 2 - H0bian1） 2）变阶-（1）处的冲切力（kN） Format（FlBian1, FqiangduBian1 = 0.6 * FkTsh

16、j * Bm * H0bian1变阶-（1）处的抗冲切力（kN） Fqiangdubian1= Format（FqiangduBian1, If FlBian1 FqiangduBian1 Then重新调整H0bian1后,再进行验算（3）变阶-（2）处的冲切验算 If Option8.Value = True Or Option9.Value = True Then Bt = Bbian2 Bb = Bt + 2# * H0bian2 FlBian2 = Pjmax * （Llong / 2 - Abian2 / 2 - H0bian2） * Bwide FlBian2 = Pjmax *

17、（Llong / 2 - Abian2 / 2 - H0bian2） * -（Bwide / 2 - Bbian2 / 2 - H0bian2） 2）变阶-（2）处的冲切力（kN） Flbian2= Format（FlBian2, FqiangduBian2 = 0.6 * FkTshj * Bm * H0bian2变阶-（2）处的抗冲切力（kN） Fqiangdubian2= Format（FqiangduBian2, If FlBian2 FqiangduBian2 Then重新调整H0bian3后,再进行验算（4）变阶-（3）处的冲切验算 If Option9.Value = True

18、Then Bt = Bbian3 Bb = Bt + 2# * H0bian3 FlBian3 = Pjmax * （Llong / 2 - Abian3 / 2 - H0bian3） * Bwide FlBian3 = Pjmax * （Llong / 2 - Abian3 / 2 - H0bian3） * -（Bwide / 2 - Bbian3 / 2 - H0bian2） 3）变阶-（3）处的冲切力（kN） Flbian3= Format（FlBian3, FqiangduBian3 = 0.6 * FkTshj * Bm * H0bian3变阶-（3）处的抗冲切力（kN） Fqian

19、gdubian3= Format（FqiangduBian3, If FlBian3 FqiangduBian3 Then2底板弯矩及配筋计算柱边长边L方向 Pj1 = Pjmin + （Pjmax - Pjmin） * （Llong - （Llong - Lczhu） / 2#） / Llong M11 = 1 / 12 * （Llong - Lczhu） / 2） 2 * （2 * Bwide + Bczhu） * （Pjmax + Pj1）长边L向柱与基础交接处的基底净压力（kPa） Pj1= Format（Pj1, 长边L向柱与基础交接处的基底弯矩（kN.m） M11= Format（

20、M11, 变阶处-（1） Pj1bian1 = Pjmin + （Pjmax - Pjmin） * （Llong - （Llong - Abian1） / 2#） / Llong M11Bian1 = 1 / 12 * （Llong - Abian1） / 2） 2 * （2 * Bwide + Bbian1） * （Pjmax + Pj1bian1）长边L向变阶-（1）处的基底净压力（kPa） Pj1bian1= Format（Pj1bian1, 长边L向变阶-（1）处的基底弯矩（kN.m） M11bian1= Format（M11Bian1, 变阶处-（2） Pj1bian2 = Pjmin + （Pjmax - Pjmin） * （Llong - （Llong - Abian2） / 2#） / Llong M11Bian2 = 1 / 12 * （Llong - Abian2） / 2） 2 * （2 * Bwide + Bbian2） * （Pjmax + Pj1bian2）长边L向变阶-（2）处的基底净压力（kPa） Pj1bian2= Format（Pj1bian2, 长边L向变阶-（2）处的基底弯矩（kN.m） M11bian2= Format（M11Bian2, 变阶处-（3） If Option9.