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

6.6 附源程序代码 本章基础计算工程主要包括个窗体，个模块。Dim Xx 50 , Fji 50 , Xpi 50 , Pjidi 50 Dim x Private Sub Command1_Click 箱形基础内力计算 Dim Iceng 50 , Kceng 50 , Iliang 50 , Kliang 50 Dim Iguan, EIji Dim EIshang, EIqiang Dim Qzuo 50 , Qyou 50 , Mzuoy 50 , Mzhong 50 Dim x 50 Dim SumM1 Dim SumPm1 Call TianJiaJiBen Call TianJiaHeZai Me.List4.AddItem 箱形基础内力分析 Me.List4.AddItem 计算箱形基础刚度 箱形基础横截面惯性矩 Iguan Bji * Hji ^ 3 - Bjing * Hjing ^ 3 / 12 EIji Ef * Iguan Me.List4.AddItem 箱形基础刚度 kN.m^2 EIji Format EIji, 00.00 计算上部结构刚度 各层上下柱的截面惯性矩 Sum 0# For I 1 To Nceng Iceng I Mheng + 1 * ZhuB I * ZhuL I ^ 3 / 12 Kceng I Iceng I / ZhuHh I Next I 纵梁线刚度 For I 1 To Mzong Iliang I Mheng + 1 * LiangB I * LiangL I ^ 3 / 12 Kliang I Iliang I / ZhuLL I Next I For I 1 To Nceng - 1 Sum Sum + Eb * Iliang I * 1# + Mzong ^ 2 * Kceng I + Kceng I + 1 / 2 * Kliang I + Kceng I + Kceng I + 1 Next I Me.List4.AddItem 上部结构各层刚度和 kN.m^2 Sum Format Sum, 00.00 EIqiang Ew * Mheng * Bqiang * Hqiang ^ 3 / 12 Me.List4.AddItem 连续墙刚度 kN.m^2 EIqiang Format EIqiang, 00.00 EIshang Sum + EIqiang Me.List4.AddItem 上部结构总刚度 kN.m^2 EIshang Format EIshang, 00.00 集中力作用截面处的剪力和弯矩 Qzuo 1 Pjidi 1 * Xpi 1 - Fji 1 Qyou 1 Qzuo 1 - Fji 2 Mzuoy 1 Pjidi 1 * Xx 2 ^ 2 / 2 - Fji 1 * Xpi 1 For I 2 To List9.ListCount - 1 sumf 0# SumM 0# sump 0# SumPm 0# For j 1 To I sumf sumf + Fji j sump sump + Pjidi j * Xpi j SumM SumM + Fji j * Xx I + 1 - Xx j SumPm SumPm + Pjidi j * Xpi j * Xpi j / 2 + Xx I + 1 - Xx j + 1 Next j Qzuo I sump - sumf Qyou I Qzuo I - Fji I + 1 Mzuoy I SumPm - SumM Next I Me.List4.AddItem Me.List4.AddItem 荷载作用位置 m 左端剪力 kN 右端剪力 kN For I 1 To List1.ListCount Me.List4.AddItem Format Xx I + 1 , 00.00 Format Qzuo I , 00.00 Format Qyou I , 00.00 Next I Me.List4.AddItem Me.List4.AddItem 荷载作用位置 m 弯矩 kN.m For I 1 To List1.ListCount Me.List4.AddItem Format Xx