梁钢筋量计算程序汇编.docVIP

樑钢筋量计算 主程序： 程序名: “OOBB” 5→P (5弯钩平直长度倍数) 0.025→K （钢筋保护层厚度） 40→Q (钢筋绑扎锚固长度) Prog “ ZZZGANG” 子程序 ““ ZZZGANG1” 22→DimZ ?C: ?A:?B :?D :?E (C本跨长度，A左跨梁长度，B右跨梁长度，D右跨支座宽度，E右跨支座宽度，) LIb1 0: ?W If A＜1 :Then Return :Ifend （设置退出程序的条件语句） If W＞5 :Then Return :Ifend If w=1 :Then Goto 1:Ifend If w =2 :Then Goto 2:Ifend If w =3 :Then Goto 3:Ifend If w =4 :Then Goto 4:Ifend If w =5 :Then Goto 5:Ifend LIb1 1: “(D)”?F (“(D)”?F 是纵筋钢筋直径, “F”输入单位为“mm”) If A=0 :Then 15（F÷1000）+D÷2-1.67K→Z[1]:Else 40×（F÷1000）hen 15（F÷1000）+E÷2-1.67K→Z[2]:Else40×（F÷1000）hen Int((Z[3]÷12))×Q×(F÷1000) →Z[3]:Ifend (使用钢筋长度大于12米，加驳接长度) If A=0 And B≠0 Then 1→T: Ifend （A等于零，A支座弯七字勾。） If B=0 And A≠0 Then 1→T: Ifend （B等于零，B支座弯七字勾。） If A≠0 And B≠0:Then 0→T :Ifend （A不等于零，B不等于零,钢筋样品是直线型没有弯钩。） If A=0 And B=0 :Then 2→T:Ifend （A等于零，B等于零,A支座弯七字勾,B支座弯七字勾。） “A-B=”:Z[3]⊿ （平直总长度） “Z[3]-15F”: Z[3] -15T（F÷1000） (直线长度，不包含弯钩长度，用T智能选着并控制计算结果) If A=0 or B=0:Then “15F”:15(F÷1000)⊿:Ifend （弯钩长度）(当A,B,如果其中有一个等于零，或两个等于零时显示) Goto 0 LIb1 2:?F : “1,2”?G : “1A-2,B”?H （ F:是负筋的直径，G选择 1 计算1层，G选择 2 计算2层，“A,B”?H 选择左端或有端。7号端负筋计算 “(D)”?F If H=1:Then D→Z[4]:Else E→Z[4] :Ifend : If G=1:Then 3→Z[5]:Else 4→Z[5] :Ifend 15(F÷1000)+Z[4]÷2+C÷Z[5] →Z[6] If G=1:Then Z[6]－1.76K→Z[6]:Else Z[6]-0.075→Z[6] :Ifend “BA-15F=”: Z[6]-15（F÷1000） （7号筋平直段长度） “√(15)=”: 15（F÷1000）⊿ (7号筋弯钩) “√(A)- √(B)”: Z[6] ⊿ (7号筋总长度) Goto 0 LIb13: ?F: “1,2”?G : “1A－2,B”?H （ G选择 1 计算1层的负筋，G选择 2 计算2层负筋，“A,B”?H 选择1左端或2右端。） If H=1:Then A→Z[7]: D→Z[8]:Else B→Z[7] : E→Z[8]：Ifend If G=1:Then 3→Z[9]:Else 4→Z[9] :Ifend Z[7]÷Z[9]+Z[8]+C÷Z[9] →Z[10] “DAJN=”:Z[10]⊿ （支座负筋总长度） Goto 0 LIb14: “(D)”?F （ (“(D)”?F 钢筋直径)） If D－50＞XF :Then D-0.05→Z[11] : Else 15F+D÷2→Z[11] : Ifend If E－50＞XF :Then D-0.05→Z[12] : Else 15F+D÷2→Z[12] : Ifend Z[11]+Z[12]+C→Z[13] “ Z[13]=”: Z[13] ⊿ （底纵筋总长度）以上部分在实际施工中很少遇到，暂时不用。） Goto 0 LIb1 4: “8－10”?F : ?U: ?Z 100→X (100,加密箍筋间距) 200→Y （200正常箍筋