混凝土大偏压配筋VB程序.doc

混凝土结构设计原理课程上机实验报告专 业 勘查技术与工程 班级学号 勘查0802 21姓 名 朱斌指导教师 徐德良学 期 2010-2011 第一学期南京工业大学交通学院二0一0年 十二月目录一 概述二 大偏压一般情况和对称配筋程序三 计算例题及结果截图四 总结1 概述钢筋混凝土基本构件配筋计算”程序，深化本课程所学习的有关钢筋混凝土基本构件设计的内容，同时增强学生计算机的应用能力。本组成员 朱斌、金昭。二 大偏压一般情况和对称配筋情况下的主要程序Private Sub Command1_Click()Static m As Single, n As SingleDim b As Single, h As Single, fc As Single, fy As SingleDim eo As Single, e As Single, ea As Single, x As Single, ei As Single, lo As Double, x1 As Single, x2 As Single, y As Double, a As Single, h1 As SingleDim as1 As Single, as2 As SingleDim eb As Single, rs As Single, Y1 As Single, y2 As Singlem = Val(Text1)n = Text2b = Text3: h = Text4a = Text5eb = Text12: rs = Text13lo = Text11 * 1000fc = Text6fy = Text8y2 = Val(Text10)h1 = h - ax = h / 30as1 = eb * (1 - 0.5 * eb)If x 20 Then ea = xElse ea = 20End Ifeo = (m * 10 6) / (n * 10 3)ei = eo + eaIf lo / h 5 Then x1 = 0.5 * fc * b * h / (n * 1000) x2 = 1.15 - 0.01 * lo / h If x1 1 Then x1 = 1 End If If x2 1 Then x2 = 1 End If y = 1 + (lo / h) 2) * x1 * x2 / (1400 * ei / (h - a)Else y = 1End IfIf y * ei 0.32 * (h - a) Then If Check1.Value = 0 Then If y2 = 0 Then e = y * ei + h / 2 - a y2 = (n * 1000 * e - rs * fc * b * h1 * h1 * eb * (1 - 0.5 * eb) / (fy * (h1 - a) If y2 0.002 * b * h Then y2 = 0.002 * b * h End If Y1 = (rs * fc * b * h1 * eb + fy * y2 - n * 1000) / fy Text14 = Y1 Text7 = y2 Exit Sub End If If y2 0 Then e = y * ei + h / 2 - a as2 = (n * 1000 * e - y2 * fy * (h1 - a) / (rs * fc * b * h1 * h1) If as2 2 * a / h1 Then eb = 1 - Sqr(1 - 2 * as2) Y1 = (rs * fc * b * eb * h1 + fy * y2 - n * 1000) / fy If Y1 as1 Then e = y * ei + h / 2 - a y2 = (n * 1000 * e - rs * fc * b * h1 * h1 * eb * (1 - 0.5 * eb) / (fy * (h1 - a) If y2 0.002 * b * h Then y2 = 0.002 * b * h End If Y1 = (rs * fc * b * h1 * eb + fy * y2 - n * 1000) / fy Text14 = Y1 Text7 = y2 Exit Sub End If If (1 - Sqr(1 - 2 * as2) * h1) 2 * a Then Y1 = n * (y * ei - h / 2 + a) / (fy * (h1 - a) If Y1 0.002 * b * h Then Y1 = 0.002 * b * h End If Text14 = Y1 Text7 = y2 Exit Sub End If End If End If If Check1.Value = 1 Then x = n * 1000 / (rs * fc * b) If x = 2 * a Then e = y * ei - h / 2 + a Y1 = (n * 1000 * e) / (fy * (h1 - a) y2 = Y1 Text14 = Y1 Text7 = y2 Exit Sub End If e = y * ei + h / 2 - a Y1 = (n * 1000 * e - rs * fc * b * x * (h1 - 0.5 * x) / (fy * (h1 - a) y2 = Y1 Text14 = Y1 Text7 = y2 Exit Sub End If End If End Sub 三 计算例题及结果截图1. 不对称配筋截面的设计 （1）某框架结构柱，截面尺寸b=300mm,h=500mm,层高4.5m，计算长度l0=1.25H，轴力设计值N=1500KN,弯矩设计值M=300KN.m，采用C30级混凝土，纵筋采用HRB400级钢筋。求所需配置的As和As。2. 基本数据同上，As=2945m。计算需要配置的受拉钢筋As。2.对称配筋某框架结构柱，截面尺寸b=300mm,h=500mm,层高4.5m，计算长度l0=1.25H，轴力设计值N=1500KN,弯矩设计值M=300KN.m，采用C30级混凝土，纵筋采用HRB400级钢筋。求所需配置的As和As。四总结 通过这次用我们所学过的VB编程，我们有一些独特的感想，这是以前所没有的。下面来简单的说说：1. 学以致用，觉得是件非常开心的事情，以前学VB，学了以后就扔在脑后了，这次能用它来编程序，觉得以前的东西没白学。2. 相互合作，这次变成我们两个人一起商量，怎么编这个程序，才能编到最全面，我们这个程序涵盖了大偏压全部的情况，有点小成就感，以后做工程，也是要相互合作的，单靠哪个人是做不好的。3. 持之以恒，不断改进。一开始这