《混凝土结构设计原理》课程上机实验报告 专 业 勘查技术与工程 班级学号 勘查0802 21 姓 名 朱斌 指导教师 徐德良 学 期 2010-2011 第一学期南京工业大学交通学院二0一0年 十二月目录一 概述二 大偏压一般情况和对称配筋程序三 计算例题及结果截图四 总结一． 概述钢筋混凝土基本构件配筋计算”程序，深化本课程所学习的有关钢筋混凝土基本构件设计的内容，同时增强学生计算机的应用能力本组成员 朱斌、金昭二 大偏压一般情况和对称配筋情况下的主要程序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 a = MsgBox("请确认您输入的数据是否为小偏压！", 3 + 48 + 0, "数据检查") Exit SubEnd 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 Or y2 > 0 Then e = y * ei + h / 2 - a as2 = (n * 1000 * e - y2 * fy * (h1 - a)) / (rs * fc * b * h1 * h1) If as2 < as1 And as2 > 2 * a / h1 Then eb = 1 - Sqr(1 - 2 * as2) Y1 = (rs * fc * b * eb * h1 + fy * y2 - n * 1000) / fy If Y1 < 0.002 * b * h Then Y1 = 0.002 * b * h End If Text14 = Y1 Text7 = y2 Exit Sub End If If as2 > 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’和As2. 基本数据同上，As'=2945m㎡计算需要配置的受拉钢筋As2.对称配筋某框架结构柱，截面尺寸b=300mm,h=500mm,层高4.5m，计算长度l0=1.25H，轴力设计值N=1500KN,弯矩设计值M=300KN.m，采用C30级混凝土，纵筋采用HRB400级钢筋求所需配置的As’和As四．总结 通过这次用我们所学过的VB编程，我们有一些独特的感想，这是以前所没有的下面来简单的说说：1. 学以致用，觉得是件非常开心的事情，以前学VB，学了以后就扔在脑后了，这次能用它来编程序，觉得以前的东西没白学2. 相互合作，这次变成我们两个人一起商量，怎么编这个程序，才能编到最全面，我们这个程序涵盖了大偏压全部的情况，有点小成就感，以后做工程，也是要相互合作的，单靠哪个人是做不好的3. 持之以恒，不断改进一开始这个程序不全面，经过不懈的努力终于蛮好了，以后做事做人都要有耐心，这样才能把事做好4. 要学会思考，遇到问题就要思考，这样才能解决问题，比如一开始编程复杂的语言忘了，然后我们就用最简单的语言来代替，反正办法都是想出来的 我们最后要感谢这一年来老师对我们的关照，祝老师在新的一年里工作顺利，合家欢乐！。