梁钢筋量计算程序.docxVIP

樑钢筋量计算 主程序： 程序名:“OOBB” 5-P （5弯钩平直长度倍数） 0.025- K （钢筋保护层厚度） 40-Q （钢筋绑扎锚I占I长度） Prog ZZZGANG 子程序 ““ZZZGANG1” 22-*DimZ ?C: ?A:?B :?D :?E （C木跨长度，A左跨梁长度，B右跨梁长度，D右跨支座宽度，E右跨支座宽度，） Libi 0:?W If A1 :TIien Return : Tfend （设置退出程序的条件语句） If W5 :Then Return :Ifend If w=l :Tlicn Goto 1:1 fend If w =2 :Tlien Goto 2:lfend If w =3 :Tlien Goto 3: Ifend If w =4 :Tlien Goto 4: Tfend If w =5 :Tlien Goto 5: T fend Libi 1:“(D)”?F (“(D)”?F是纵筋钢筋直径，“F”输入单位为“mm”) If A=0:Then 15 (F4-1000) +D4-2-1. 67K-*Z[1] :Else 40X (21000) -D4-2+0. 05-*Z[l] : Ifend If B=0 :Then 15 (F4-1000) +EF2-1. 67K-*Z[2] :Else40X (F4-1000) -E4-2+0. 0