[浅基础工程及程序设计-丁继辉-程序代码第六章程序代码.doc

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