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

《《浅基础工程及程序设计》-丁继辉-程序代码 第五章 程序代码.doc》由会员分享，可在线阅读，更多相关《《浅基础工程及程序设计》-丁继辉-程序代码 第五章 程序代码.doc（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流浅基础工程及程序设计-丁继辉-程序代码 第五章 程序代码.精品文档.浅基础工程及程序设计-丁继辉-程序代码 第五章 程序代码 5.7 源程序代码 本章片筏梁基础计算工程主要包括1个窗体，2个模块。两个模块的程序代码与第一章基本一致，这里主要给出片筏基础计算内力的刚性板条法的主要程序代码。 Dim JiKuan '基底宽度 Dim JiChang '基底长度 Dim Nx, Ny '荷载列数和行数 Dim Lxzuo, Lxyou '基础梁x方向左、右伸出长度 Dim Lyshang, Lyxia '基础

2、梁y方向左、右伸出长度 Dim Xx(1 To 100), Yy(1 To 100) '荷载作用位置坐标(m.m) Dim Fxy(1 To 100) Dim Bxx(1 To 50), Byy(1 To 50) '分别为x,y方向基础梁底面宽度(m) Dim Ixx, Iyy Dim Xxin, Yxin, Exx, Eyy Dim Mxx, Myy Dim Pjing Dim SumF, SumMx, SumMy Dim Alfa(1 To 50) Dim Fxiu(1 To 100) Dim Fzhu(1 To 50) Dim Fzping(1 To 50) Dim Pj

3、xiu(1 To 50) Dim SumFzhu Private Sub Command1_Click() Call TianJiaJiBen Call TianJiaHeZai Me.List4.AddItem ( * ) Me.List4.AddItem (纵梁内力分析) Me.List4.AddItem ( ) '基础底面对x,y轴的惯性矩 Ixx = JiChang * JiKuan 3 / 12 Iyy = JiKuan * JiChang 3 / 12 Me.List4.AddItem (筏基底面对x,y轴的惯性矩(m4):) Me.List4.AddItem ( Ixx=

4、 & Format(Ixx, 0.00) & ( 0.00) '计算筏基合力作用点位置 Dim SumF1, SumMx, SumMy SumF1 = 0# SumMx = 0# SumMy = 0# For I = 1 To List1.ListCount SumF1 = SumF1 + Fxy(I) SumMy = SumMy + Fxy(I) * Xx(I) Iyy= & Format(Iyy, SumMx = SumMx + Fxy(I) * Yy(I) Next I SumF = SumF1 Xxin = SumMy / SumF Yxin = Sum

5、Mx / SumF Me.List4.AddItem (筏基总荷载(kN): SumF= ) & Format(SumF, 0.00) Me.List4.AddItem (筏基合力作用点位置(m):) Me.List4.AddItem ( Xxin= & Format(Xxin, 0.00) & ( Yxin= & Format(Yxin, 0.00) Exx = Xxin - JiChang / 2 Eyy = Yxin - JiKuan / 2 Me.List4.AddItem (筏基总荷载的偏心矩(m):) Me.List4.AddItem ( Exx=

6、& Format(Exx, 0.00) & ( Eyy= & Format(Eyy, 0.00) '计算基底净反力 ' 平均净反力 Myy = SumF * Exx Mxx = SumF * Eyy Pjing = SumF / (JiChang * JiKuan) Me.List4.AddItem (合力对筏基基底形心之矩(kN.m):) Me.List4.AddItem ( Myy= & Format(Myy, 0.00) & ( Mxx= & Format(Mxx, 0.00) '计算纵向板带内力 '计算板带

7、宽度 For I = 1 To Ny Me.List4.AddItem ( ) Me.List4.AddItem (板带序数: & Format(I, 00) & ( 板带宽度(m): & Format(Byy(I), 0.00) Dim Ptiao(1 To 50) X1 = -JiChang / 2 X2 = JiChang / 2 If I = 1 Then Y1 = -JiKuan / 2 ElseIf I = Ny Then Y1 = JiKuan / 2 Else Y1 = Yy(I - 1) * Nx + 1) - JiKuan / 2 End If Y2

8、 = Y1 Ptiao(I) = (Pjxy(X1, Y1) + Pjxy(X2, Y2) / 2 Me.List4.AddItem (地基平均净反力(kN/m2): Ptiao(I)= & Format(Ptiao(I), 0.00) '基底总反力 Dim Pjzong(1 To 50) Pjzong(I) = Ptiao(I) * Byy(I) * JiChang Me.List4.AddItem (基底总反力反力(kN): Pjzong(I)= & Format(Pjzong(I), 0.00) '基底总反力与柱荷载的平均值 SumFzhu = 0# Fo

9、r j = 1 To Nx SumFzhu = SumFzhu + Fxy(j + (I - 1) * Nx) Next j Fzhu(I) = SumFzhu Fzping(I) = (Fzhu(I) + Pjzong(I) / 2 Me.List4.AddItem (基底总反力与柱荷载的平均值(kN): Fzping(I)= & Format(Fzping(I), 0.00) '柱荷载修正系数 Alfa(I) = Fzping(I) / Fzhu(I) Me.List4.AddItem (柱荷载修正系数 Alfa(I)= & Format(Alfa(I), 0.00

10、) '修正后的基底平均净反力 Pjxiu(I) = Fzping(I) / (JiChang * Byy(I) Me.List4.AddItem (修正后的基底平均净反力(kN/m2): Pjxiu(I)= & Format(Pjxiu(I), 0.00) '修正后单位长度基底平均净反力 Pjxiu(I) = Pjxiu(I) * Byy(I) Me.List4.AddItem (修正后的基底平均净反力(kN/m): Pjxiu(I)= & Format(Pjxiu(I), 0.00) '荷载修正为 For j = 1 To Nx L = j + (I

11、- 1) * Nx Fxiu(L) = Alfa(I) * Fxy(L) Me.List4.AddItem ( I= & Format(L, 00) & ( 修正后的荷载(kN): Fxiu(l)= & Format(Fxiu(L), 0.00) Next j Next I tuichu = 1 Exit Sub tch: MsgBox 数据输入有误,不能得出结果, vbExclamation End Sub Public Function Pjxy(X, y) Pjxy = SumF / (JiChang * JiKuan) + Mxx * y / Ixx + Myy

12、 / Iyy * X End Function Private Sub TianJiaHeZai() Dim I As Integer For I = 1 To List1.ListCount List1.ListIndex = List1.ListCount - I Xx(I) = Val(List1.Text) Next For I = 1 To List2.ListCount List2.ListIndex = List2.ListCount - I Yy(I) = Val(List2.Text) Next For I = 1 To List3.ListCount List3.ListI

13、ndex = List3.ListCount - I Fxy(I) = Val(List3.Text) Next For I = 1 To List7.ListCount List7.ListIndex = List7.ListCount - I Byy(I) = Val(List7.Text) Next End Sub Sub TianJiaJiBen() JiChang = Val(Text1(0).Text) JiKuan = Val(Text1(1).Text) Nx = Val(Text1(2).Text) Ny = Val(Text1(3).Text) Lxzuo = Val(Te

14、xt1(4).Text) Lxyou = Val(Text1(5).Text) Lyshang = Val(Text1(6).Text) Lyxia = Val(Text1(7).Text) End Sub Private Sub CmdExit_Click() Unload Me End Sub Private Sub CmdOpen_Click() Dim TheFileName As String, TheTemp As String, AAA As String Dim Wenjianhao As Integer, I As Integer TheFileName = OpenDial

15、og(TypeOfDialog.TypeOpen, 基础计算器备份文件(*.txt)|*.txt) If TheFileName = Then Exit Sub Wenjianhao = OpenFile(TheFileName, OpenType.TypeRead) Do While Wenjianhao = 0 Dim TheResult As Integer TheResult = MsgBox(打开文件发生如下错误: & vbCrLf & Err.Description, vbExclamation + vbRetryCancel) If TheResult = vbC

16、ancel Then Exit Sub Else Wenjianhao = OpenFile(TheFileName, OpenType.TypeRead) End If Loop Call Qingkong TheTemp = InputLine(Wenjianhao) If TheTemp <> 片筏基础内力计算 Then GoTo LOADFINISHED: InputLine Wenjianhao InputLine Wenjianhao For I = 0 To 7 Me.Text1(I).Text = Str(TextToNumber(InputLine(Wenjian

17、hao) '显式的类型转换 Next I InputLine Wenjianhao InputLine Wenjianhao InputLine Wenjianhao Do While True TheTemp = InputLine(Wenjianhao) If TheTemp = Then Exit Do Me.List1.AddItem TheTemp Loop InputLine Wenjianhao Do While True TheTemp = InputLine(Wenjianhao) If TheTemp = Then Exit Do Me.List2.AddItem

18、TheTemp Loop InputLine Wenjianhao Do While True TheTemp = InputLine(Wenjianhao) If TheTemp = Then Exit Do Me.List3.AddItem TheTemp Loop InputLine Wenjianhao Do While True TheTemp = InputLine(Wenjianhao) If TheTemp = Then Exit Do Me.List7.AddItem TheTemp Loop Do While True TheTemp = InputLine(Wenjian

19、hao) If TheTemp = Then Exit Do Me.List4.AddItem TheTemp Loop LOADFINISHED: Close #Wenjianhao End Sub '下面这个子程序将字符串转化为数字 Private Function TextToNumber(ByVal TheText As String) As Double Dim TheTemp As String TheTemp = Do While True If Not IsNumeric(Right(TheText, 1) And Right(TheText, 1) <>

20、. Then Exit Do TheTemp = Right(TheText, 1) & TheTemp TheText = Left(TheText, Len(TheText) - 1) Loop If TheTemp <> Then TextToNumber = Val(TheTemp) End Function Private Sub CmdSave_Click() Baocun End Sub Private Sub CmdStart_Click() Dim TheResult As Integer TheResult = MsgBox(是否保存工程, vbExcl

21、amation + vbYesNoCancel) Select Case TheResult Case vbYes Call Baocun Case vbNo Case vbCancel Exit Sub End Select Call Qingkong End Sub Private Sub Qingkong() For I = 0 To 7 Me.Text1(I).Text = Next I Me.List1.Clear Me.List2.Clear Me.List3.Clear Me.List4.Clear Me.List7.Clear End Sub Private Sub Form_

22、Unload(Cancel As Integer) Dim TheResult As Integer TheResult = MsgBox(是否保存工程, vbExclamation + vbYesNoCancel) Select Case TheResult Case vbYes If Baocun Then '如果保存成功,则推出程序 Cancel = False Else Cancel = True '如果保存不成功,则继续应用程序 Exit Sub End If Case vbNo Cancel = False Case vbCancel Cancel = True E

23、xit Sub End Select End Sub '下面这个子程序将工程导出到文件 Private Function Baocun() As Boolean Dim Wenjianhao As Integer Dim TheFileName As String Dim I As Integer On Error GoTo CUOWUCHULI TheFileName = OpenDialog(TypeOfDialog.TypeSave, 基础计算备份文件(*.txt)|*.txt) If TheFileName = Then Baocun = False Exit Function

24、 End If Wenjianhao = OpenFile(TheFileName, OpenType.TypeWrite) Do While Wenjianhao = 0 Dim TheResult As Integer TheResult = MsgBox(打开文件发生如下错误: & vbCrLf & Err.Description, vbExclamation + vbRetryCancel) If TheResult = vbCancel Then Baocun = False Exit Function Else Wenjianhao = OpenFile(TheFi

25、leName, OpenType.TypeWrite) End If Loop Print #Wenjianhao, 片筏基础内力计算 Print #Wenjianhao, Print #Wenjianhao, 基本参数 Print #Wenjianhao, 基底长度(m) & Me.Text1(0).Text Print #Wenjianhao, 基底宽度(m) & Me.Text1(1).Text Print #Wenjianhao, 基础梁弹性模量(E kN/m3) & Me.Text1(2).Text Print #Wenjianhao, 基床系数k (kN/m

26、3) & Me.Text1(3).Text Print #Wenjianhao, x方向左边伸出长度Lxzuo(m) & Me.Text1(4).Text Print #Wenjianhao, x方向右边伸出长度Lyzuo(m) & Me.Text1(5).Text Print #Wenjianhao, y方向左边伸出长度Lyyou(m) & Me.Text1(6).Text Print #Wenjianhao, y方向右边伸出长度Lyyou(m) & Me.Text1(7).Text Print #Wenjianhao, Print #Wenjianh

27、ao, 荷载信息 Print #Wenjianhao, 荷载坐标x(i) For I = 1 To List1.ListCount List1.ListIndex = I - 1 Print #Wenjianhao, List1.Text Next Print #Wenjianhao, Print #Wenjianhao, 荷载坐标y(i) For I = 1 To List2.ListCount List2.ListIndex = I - 1 Print #Wenjianhao, List2.Text Next Print #Wenjianhao, Print #Wenjianhao, 集中

28、力F(xi,yi) For I = 1 To List3.ListCount List3.ListIndex = I - 1 Print #Wenjianhao, List3.Text Next Print #Wenjianhao, Print #Wenjianhao, Byy(i) For I = 1 To List7.ListCount List7.ListIndex = I - 1 Print #Wenjianhao, List7.Text Next Print #Wenjianhao, For I = 1 To Me.List4.ListCount Me.List4.ListIndex = I - 1 Print #Wenjianhao, List4.Text Next Print #Wenjianhao, SAVEFINISHED: Close #Wenjianhao MsgBox 保存完毕, vbExclamation Baocun = True Exit Function CUOWUCHULI: MsgBox 保存文件发生如下错误: & vbCrLf & Err.Description, vbExclamation Close #Wenjianhao Baocun = False End Function