浅基础重点项目工程及程序设计丁继辉程序代码.docVIP

2.8 源程序代码 本章扩展基础结构设计计算工程关键包含3个窗体，2个模块。主界面及两个模块程序代码和第一章基础一致，这里关键给出墙下条形基础配筋及柱下独立基础配筋计算关键程序代码。 2.8.1墙下条形基础配筋计算源程序代码 Dim Bwide 基础宽度 Dim Fload 荷载N(kN/m) Dim Mshot 短边方向弯矩值 Dim FcYshj 混凝土轴心抗压强度设计值 Dim FkTshj 混凝抗拉强度设计值 Dim FkyGshj 钢筋抗拉强度设计值 Dim QiangHou 墙厚度 Dim Hbaohc 混凝土保护层厚度（m) Dim Dgangjin 钢筋直径（mm） Private Sub TianJiaPeij() 将文本框输入参数赋于变量 Bwide = Val(Text(0).Text) 基础宽度 Fload = Val(Text(1).Text) 荷载N(kN/m) Mshot = Val(Text(2).Text) 短边方向弯矩值 FcYshj = Val(Text(3).Text) 混凝土轴心抗压强度设计值 FkTshj = Val(Text(4).Text) 混凝抗拉强度设计值 FkyGshj = Val(Text(5).Text) 钢筋抗拉强度设计值 Qiang