钢筋面积计算软件说明书.docx

钢筋面积计算软件说明书.docx

《钢筋面积计算软件说明书.docx》由会员分享，可在线阅读，更多相关《钢筋面积计算软件说明书.docx（13页珍藏版）》请在冰点文库上搜索。

钢筋面积计算软件说明书

矩形截面钢筋砼梁钢筋面积计算小软件使用说明

矩形截面钢筋砼钢筋面积计算小软件是是基于VB6.0软件实现的，软件主要能实现在已知梁截面h、b及钢筋型号、混凝土编号的情况下，计算要求在Mmax下的配筋，程序编写思路主要是按教材194解题步骤进行的。

程序中除钢筋面积查询小程序是调用现有的软件，其他软件界面设计和程序代码都是本人所写。

基本功能可以实现，但限于时间和我个人能力，软件还有许多可以改进的地方。

击

软件图标，打开软件，界面如下。

说明：

软件主要是跟据教材194页例4.3进行编写的，因此为方便调试，把基本参数的材料参数设为默认，这些数据在实际应用中可根据具体情况来改。

下面进行简单使用介绍。

1、如下图界面所示，原始数据已就绪，点击

，过程量h0、αs、γs，结果量As显示如下；

2、单击

，调出梁板钢筋面积查询表，如下：

选择603；面积合计显示：

。

3、在首界面中输入实际As及查询结果，如下所示。

4、单击

，调出检验界面Form2,如下所示。

5、单击

，检验结果如下所示。

6、单击

，钢筋排数检验结果如下所示。

适用条件和钢筋排数检验均满足，钢筋面积计算结束。

7、当Mmax=100KN.m时，检验过程如下：

1、计算As

2、面积查询

3、输入查询结果

4、适用条件及钢筋排数检验

一排检验时条件不满足，重新按两排验算…

5、修改a=60mm,计算结果如下

6、面积查询结果

7、输入查询结查进行适用检验

8、适用条件和钢筋排数检验均满足，结果如下

9、钢筋面积计算过程结束。

下面软件简单说明：

帮助界面

特别声明：

面积查询软件为下载的现成软件，仅学习交流使用，不作他用。

下面为程序源代码：

Form1

PrivateSubCommand1_Click（）

Dimh,b,a,h0,mAsInteger

Dimalph1,Area,alphs,gamas,fc,fyAsSingle

h=Text18.Text

b=Text2.Text

Area=Text10.Text

h0=Text6.Text

alph1=Text3.Text

alphs=Text9.Text

gamas=Text8.Text

fc=Text14.Text

fy=Text7.Text

m=Text11.Text

a=Text4.Text

h0=Text18.Text-a

alphs=m*1000000/（alph1*fc*b*h0*h0）

gamas=（1+Sqr（1-2*alphs））/2

Area=m*1000000/（fy*h0*gamas）

Text6.Text=Format（h0,"0"）

Text9.Text=Format（alphs,"0.000"）

Text8.Text=Format（gamas,"0.000"）

Text10.Text=Format（Area,"0.0"）

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubCommand3_Click（）

Text10.Text=""

Text6.Text=""

Text9.Text=""

Text8.Text=""

Text17.Text=""

EndSub

PrivateSubCommand4_Click（）

'Shell"liangbangangjin.exe"

'X=Shell（"C:

\WINDOWS/NOTEPAD.EXE",1）

'DimRetVal

'RetVal=Shell（"C:

\WINDOWS\CALC.EXE",1）

Shell"F:

\练习\VB\矩形截面钢筋面积计算\liangbangangjin.exe",1

'Shell"\liangbangangjin.exe",1

EndSub

PrivateSubCommand5_Click（）

Form2.Show

EndSub

PrivateSubCommand6_Click（）

Form3.Show

Form3.Text1.Text="该软件用于矩形截面梁钢筋面积计算.第一个界面为主要参数输入及相关过程量计算.在使用时要先输入梁、钢筋、水泥等的参数，'点击计算As',可得到过程量的结果及As的值，如果输入错误，还可点击‘重新输入’以修正。

面积查询是一个外置小软件，这个软件是下载的，这里仅调用一下，非本人所作。

把查询结果输入到相应的文本框中，进入适用检验界面，先作超筋、少筋检验，然后检验钢筋排数，如不满足，可返回重新计算。

这个小软件思路主要是按教材194页例题完成，对本题中的过程可完全正确验算。

因为个人能力、时间等有限，做的还不是很完善，后面会继续修改。

"

EndSub

Form2

PrivateSubCommand1_Click（）

DimpjmaxAsDouble

pjmax=Form1.Text16.Text*Form1.Text14.Text*Form1.Text3.Text/Form1.Text7.Text*100

Text1.Text=Format（pjmax,"0.00"）'最大配筋

Text2.Text=45*Form1.Text15.Text/Form1.Text7.Text'最小配筋

IfText2.Text<0.2ThenText2.Text=Format（0.2,"0.00"）

Text3.Text=Format（Form1.Text17/Form1.Text2/Form1.Text6*100,"0.00"）'实际配筋

IfText1.Text>=Text3.TextAndText2.Text<=Text3.TextThenLabel4.Caption="条件均满足!

"

IfText1.Text

"

IfText2.Text>Text3.TextThenLabel4.Caption="少筋了,请重新计算!

"

EndSub

PrivateSubCommand2_Click（）

Text4.Text=Form1.Text1.Text

Text5.Text=2*25+2*10+Form1.Text1.Text*16+（Form1.Text1.Text-1）*25

Text6.Text=Form1.Text20.Text

IfText5.Text<=Form1.Text2.TextThenLabel7.Caption="条件满足..."

IfText5.Text>Form1.Text2.TextThenLabel7.Caption="条件不满足,请重新计算..."

EndSub

PrivateSubCommand3_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Label7.Caption=""

Label4.Caption=""

Form2.Hide

EndSub

PrivateSubCommand4_Click（）

Text4.Text=Form1.Text1.Text

Text5.Text=2*25+2*10+（Form1.Text1.Text/2+1）*16+（Form1.Text1.Text/2）*25

Text6.Text=Form1.Text20.Text

IfText5.Text<=Form1.Text2.TextThenLabel7.Caption="条件满足..."

IfText5.Text>Form1.Text2.TextThenLabel7.Caption="条件不满足,请重新计算..."

EndSub

PrivateSubForm_Load（）

EndSub