| Buildings |
| Building000.bas |
| Function |
| IsCanopyStructure(StructuralForm As Integer) As Boolean |
| IsEnclosedBuildingStructure(StructuralForm As Integer) As Boolean |
| IsRoof(BuildingSurface As Integer) As Boolean |
| IsWall(BuildingSurface As Integer) As Boolean |
| IsWindWard(BuildingSurface As Integer, theta As Double) As Boolean |
| SurfaceStr(Surface As Integer) As String |
| Building001.bas |
| Function |
| IsAttachedCanopy(StructType As String) As Boolean |
| IsCanopy(StructType As String) As Boolean |
| IsDomestic(StructClass As String) As Boolean |
| IsGable(RoofType As String) As Boolean |
| IsHipped(RoofType As String) As Boolean |
| IsIndustrial(StructClass As String) As Boolean |
| IsRural(StructClass As String) As Boolean |
| IsShed(StructType As String) As Boolean |
| IsSkillion(RoofType As String) As Boolean |
| IsTroughed(RoofType As String) As Boolean |
| Design Actions |
| LimitStateConstants.bas |
| Sub |
| SetLimitStateTables() |
| LoadActions001.bas |
| Function |
| CalcLiveLoad(a As Double) As Double |
| MagnifyLoad(a As Double, k1 As Double, k2 As Double, k3 As Double, k4 As Double) As Double |
| StructuralLoading001.bas |
| Function |
| DistributedLoad(AreaLoad As Double, loadwidth As Double) As Double |
| TotalLoad(AreaLoad As Double, _ |
| StructureLoads.bas |
| Sub |
| TStructureLoads_Init(xLoad As TStructureLoads) |
| Files |
| fmFileMngt.bas |
| Function |
| FileExists(SearchSpec As String) As Boolean |
| FirstFileFound(SearchSpec As String, fattr As Integer, foundname As String) As Boolean |
| NextFileFound(foundname As String) As Boolean |
| fmOpenFilesTEXT.bas |
| Function |
| fopen(fname As String, fmode As String) As Integer |
| Sub |
| fopenTXT(fp As Integer, fname As String, fmode As String) |
| Geometry |
| Geom3D03.bas |
| Sub |
| SetCoord(pt As TCoord, x1 As Double, y1 As Double, z1 As Double) |
| WriteCoord(fp As Integer, pt As TCoord) |
| Geom3D05.bas |
| Sub |
| SetDescr(node As TNode, descr1 As String) |
| SetNode(node As TNode, descr1 As String, x1 As Double, y1 As Double, |
| WriteNODE(fp As Integer, node As TNode) |
| Geom3D06.bas |
| Sub |
| SetEdge(n1x As Integer, n2x As Integer) |
| WriteEdge(fp As Integer) |
| Mathematics |
| xMathsAreaProperty.bas |
| Function |
| CircleArea(d As Double) As Double |
| RectangleArea(b As Double, h As Double) As Double |
| TriangleArea(b As Double, h As Double) As Double |
| xMathsExponentials.bas |
| Function |
| Log10(x As Double) As Double |
| LogN(x As Double, n As Double) As Double |
| Power(a As Double, x As Double) As Double |
| xMathsInterpolation.bas |
| Function |
| Calc_X(x1 As Double, y1 As Double, x2 As Double, y2 As Double, y As Double) As Double |
| Calc_Y(x1 As Double, y1 As Double, x2 As Double, y2 As Double, x As Double) As Double |
| Slope_M(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double |
| YIntercept_C(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double |
| xMathsNumbers.bas |
| Function |
| Ceil(x As Double) As Double |
| Floor(x As Double) As Double |
| Frac(x As Double) As Double |
| MaxValue(Recrds() As Double) |
| MinValue(Recrds() As Double) |
| Sub |
| dec(ByRef i As Integer) |
| inc(ByRef i As Integer) |
| MathTest1() |
| xMathsRightTriangle.bas |
| Function |
| Polar_Angle(x As Double, y As Double) As Double |
| Polar_Radius(x As Double, y As Double) As Double |
| RectCoord_x(r As Double, theta As Double) As Double |
| RectCoord_y(r As Double, theta As Double) As Double |
| RightTrig_Adj(Hyp_r As Double, Opp_y As Double) As Double |
| RightTrig_Cos(Hyp_r As Double, Adj_x As Double) As Double |
| RightTrig_Hyp(Adj_x As Double, Opp_y As Double) As Double |
| RightTrig_Opp(Hyp_r As Double, Adj_x As Double) As Double |
| RightTrig_Rise(Adj_x_Run As Double, theta As Double) As Double |
| RightTrig_Run(Opp_y_Rise As Double, theta As Double) As Double |
| RightTrig_Sin(Hyp_r As Double, Opp_y As Double) As Double |
| RightTrig_Tan(Adj_x As Double, Opp_y As Double) As Double |
| xMathsSortingSubs.bas |
| Sub |
| Sort(Recrds() As Double, Index() As Integer, n As Integer) |
| SwapDouble(Arg1 As Double, Arg2 As Double) |
| SwapInt(Arg1 As Integer, Arg2 As Integer) |
| xMathsTrigonometry.bas |
| Function |
| ArcCos(x As Double) As Double |
| ArcSin(x As Double) As Double |
| From_HMS(h As Double, m As Double, s As Double) As Double |
| From_HMS2(theta As Double) As Double |
| get1stQuadAngle(theta As Double) As Double |
| getRationalAngle(theta As Double) As Double |
| pi() As Double |
| To_HMS(theta As Double) As String |
| To_HMS2(theta As Double) As String |
| ToDegrees(x As Double) As Double |
| ToRadians(x As Double) As Double |
| Mechanics |
| BeamBM.bas |
| Function |
| BeamBM1(BM1 As Double, r1 As Double, w As Double, x As Double) |
| BeamCantilevers.bas |
| Function |
| BM_Cant1(w As Double, x As Double, L As Double) As Double |
| BeamFF1.bas |
| Function |
| BM_FF1(w As Double, x As Double, L As Double) As Double |
| def_FF1(w As Double, x As Double, L As Double, EI As Double) As Double |
| defMax_FF1(w As Double, L As Double, EI As Double) As Double |
| FEM_FF1(w As Double, L As Double) As Double |
| Ra_FF1(w As Double, L As Double) As Double |
| Rb_FF1(w As Double, L As Double) As Double |
| BeamFF2.bas |
| Function |
| BM_FF2(w As Double, x As Double, a As Double, b As Double, L As Double) As Double |
| FF2_Ra(w As Double, a As Double, b As Double, L As Double) As Double |
| FF2_Rb(w As Double, a As Double, b As Double, L As Double) As Double |
| Sub |
| TestFF2() |
| BeamOverHang.bas |
| Function |
| BM_Ohang(P As Double, x As Double, a As Double, b As Double) As Double |
| def_Ohang(P As Double, x1 As Double, a As Double, b As Double, EI As Double) As Double |
| BeamSS.bas |
| Function |
| eq_udl1(n As Integer, w() As Double, a() As Double, _ |
| SS_Beam_BM(w As Double, L As Double, _ |
| SS_Beam_BM2(w As Double, L As Double, _ |
| SS_Beam_RA(w As Double, L As Double, _ |
| SS_Beam_RA2(w As Double, L As Double, _ |
| SS_Beam_RB(w As Double, L As Double, _ |
| Sub |
| Beam3() |
| BeamSS1.bas |
| Function |
| BM_ss1(w As Double, x As Double, L As Double) As Double |
| def_ss1(w As Double, x As Double, L As Double, EI As Double) As Double |
| defMax_SS1(w As Double, L As Double, EI As Double) As Double |
| Ra_SS1(w As Double, L As Double) As Double |
| udl_ss1(BM As Double, L As Double) As Double |
| BeamSS2.bas |
| Function |
| BM_ss2(w As Double, x As Double, a As Double, b As Double, L As Double) As Double |
| BM_ss2c(w As Double, x As Double, a As Double, b As Double, c As Double) As Double |
| defMax_ss2(w As Double, _ |
| R_ss2(w As Double, a As Double, b As Double, L As Double, ReactionNode As String) As Double |
| Sub |
| ss2(w As Double, a As Double, b As Double, L As Double, _ |
| ss2c(w As Double, a As Double, b As Double, c As Double, _ |
| BeamSS3.bas |
| Function |
| BM_ss3(w As Double, x As Double, L As Double, a As Double) As Double |
| def_ss3(w As Double, x As Double, a As Double, L As Double, EI As Double) As Double |
| Ra_SS3(w As Double, L As Double, a As Double) As Double |
| Rb_SS3(w As Double, L As Double, a As Double) As Double |
| Sub |
| ss3(w As Double, L As Double, a As Double, _ |
| BeamSS9.bas |
| Function |
| BM_ss9(P As Double, x As Double, a As Double, L As Double) As Double |
| def_ss9(P As Double, x As Double, a As Double, L As Double, EI As Double) As Double |
| R_ss9(P As Double, a As Double, b As Double, L As Double, ReactionNode As String) As Double |
| BoltProp.bas |
| Function |
| AS4100_BoltShear(fuf As Double, kr As Double, _ |
| AS4100_BoltTension(fuf As Double, A_s As Double) As Double |
| AS4100_BoltTension2(d As Double, P As Double, fuf As Double) As Double |
| MeanDiam(d As Double, P As Double) As Double |
| MeanDiam2(d As Double, P As Double) As Double |
| MinorDiam(d As Double, P As Double) As Double |
| PitchDiam(d As Double, P As Double) As Double |
| TensileArea(d As Double, P As Double) As Double |
| ENVMySystem.bas |
| Sub |
| SetMachine(ByRef fpathMtrl As String) |
| Mechanics1.bas |
| Function |
| getMomentCapacity(f As Double, z As Double) As Double |
| getRequiredSectionModulus(f As Double, BM As Double) As Double |
| RadiusGyration(i As Double, Area As Double) |
| SimpleStress(Force As Double, Area As Double) As Double |
| MechDesign010.bas |
| Function |
| DesignResistance(phi As Double, Kmod As Double, fo As Double, GeomSectProp As Double) As Double |
| FlexuralResistance(phi As Double, Kmod As Double, fy As Double, Ze As Double) As Double |
| KResultant(k() As Double) As Double |
| TensileResistance(phi As Double, Kmod As Double, fy As Double, Area As Double) As Double |
| Sub |
| TestMechDesign1() |
| MechDesign090.bas |
| Function |
| getFx(f As Double, theta As Double) As Double |
| getFy(f As Double, theta As Double) As Double |
| Resolve_Fx(Axial As Double, Shear As Double, beta As Double) As Double |
| Resolve_Fy(Axial As Double, Shear As Double, beta As Double) As Double |
| ProppedCantilevers.bas |
| Function |
| BM_PC1(w As Double, x As Double, L As Double) As Double |
| SectionProperties.bas |
| Function |
| Ixx_plate(b As Double, h As Double) As Double |
| Steel |
| SteelSection5.bas |
| Function |
| AS4100_get_bfo(Tf As Double, fy As Double) As Double |
| AS4100_get_Zc(z As Double, s As Double) As Double |
| AS4100_get_Ze(z As Double, s As Double, _ |
| AS4100_get_Zn(z As Double, s As Double, lambda_s As Double, _ |
| AS4100_get_Zs(z As Double, s As Double, _ |
| AS4100_getAlpha_d(dp As Double, fy As Double, s As Double, _ |
| AS4100_getAlpha_f(bfo As Double, Tf As Double, tw As Double, d1 As Double) As Double |
| AS4100_getAlpha_m(Mmax As Double, m2 As Double, M3 As Double, M4 As Double) As Double |
| AS4100_getAlpha_s(Ms As Double, Moa As Double) As Double |
| AS4100_getAlpha_v(tw As Double, dp As Double, fy As Double, s As Double, _ |
| AS4100_getLambda_e(b As Double, t As Double, fy As Double, isCHS As Boolean) As Double |
| AS4100_getLambda_s(lambda_e1 As Double, lambda_e2 As Double, ByRef elem As Integer) As Double |
| AS4100_getLe(kt As Double, kl As Double, kr As Double, L As Double) As Double |
| AS4100_getMo(E As Double, G As Double, Iy As Double, J As Double, _ |
| AS4100_getMs(fy As Double, Ze As Double) As Double |
| AS4100_getphiMb(phi As Double, alpha_m As Double, alpha_s As Double, Ms As Double) As Double |
| AS4100_getphiMs(phi As Double, fy As Double, Ze As Double) As Double |
| AS4100_getphiVv(phi As Double, Vv As Double) As Double |
| AS4100_getUnSymMo(E As Double, G As Double, Iy As Double, J As Double, _ |
| AS4100_getVvm(Vv As Double, m As Double, phiMb As Double) As Double |
| SteelCFAllSections.bas |
| Function |
| get_Ae_AS4600(d As Double, Bf As Double, t As Double, _ |
| get_Zex_AS4600(d As Double, Bf As Double, t As Double, _ |
| SteelCFBoxSectionProp.bas |
| Function |
| get_BOX_Ae(d As Double, Bf As Double, t As Double, _ |
| get_BOX_J(a As Double, b As Double, t1 As Double, t2 As Double) As Double |
| get_BOX_Zex(d As Double, Bf As Double, t As Double, _ |
| Sub |
| BOX_checkWeb(d As Double, d1 As Double, ri As Double, t As Double, _ |
| BOX_CompressionFlange(Bf As Double, ri As Double, t As Double, _ |
| BOX_CornerFillet(d As Double, ri As Double, t As Double) |
| BOX_FullyEffective_Web(d As Double, ri As Double, t As Double, d1 As |
| BOX_TensionFlange(Bf As Double, d As Double, ri As Double, t As Doub |
| BOX_test() |
| BOXSection_Prop(d As Double, Bf As Double, t As Double, _ |
| Calc_BOX_Zex(ns As Integer, t As Double, ycg As Double, Ixx As Doubl |
| SteelCFCSectionProp.bas |
| Function |
| get_Ae(d As Double, Bf As Double, t As Double, _ |
| get_Zex(d As Double, Bf As Double, t As Double, _ |
| Sub |
| AS4100_getVw(fy As Double, Ae As Double, isCHS As Boolean) As Double |
| AS4100_HasFullLateralRestraint(L As Double, Beta_m As Double, _ |
| GetSlenderElement(lambda_e1 As Double, lambda_e2 As Double) As Integer |
| IsCompact(lambda_s As Double, lambda_sp As Double) As Boolean |
| IsNonCompact(lambda_s As Double, lambda_sp As Double, lambda_sy) As Boolean |
| IsSlender(lambda_s As Double, lambda_sy) As Boolean |
| IsTransverseStiffenedWebOk(t As Double, s As Double, d1 As Double, fy As Double) As Boolean |
| IsUnstiffenedWebOk(t As Double, d1 As Double, fy As Double) As Boolean |
| SteelSection6.bas |
| Function |
| AS4100_get_be(b As Double, lambda_ey As Double, lambda_e As Double, ElementType As Integer) As Double |
| AS4100_get_kf(Ae As Double, Ag As Double) As Double |
| AS4100_get_lambda_e(b As Double, t As Double, fy As Double, ElementType As Integer) As Double |
| AS4100_get_Le(ke As Double, L As Double) As Double |
| AS4100_get_Nc(alpha_c As Double, ns As Double) |
| AS4100_get_Ns(kf As Double, An As Double, fy As Double) |
| SteelSection633.bas |
| Function |
| AS4100_get_Alpha_a(lambda_n As Double) As Double |
| AS4100_get_Alpha_c(xi As Double, lambda As Double) As Double |
| AS4100_get_eta(lambda As Double) As Double |
| AS4100_get_lambda(lambda_n As Double, alpha_a As Double, alpha_b As Double) As Double |
| AS4100_get_lambda_n(le As Double, r As Double, kf As Double, fy As Double) As Double |
| AS4100_get_xi(lambda As Double, eta As Double) As Double |
| SteelSection7AxialTension.bas |
| Function |
| AS4100_getNt(Ag As Double, An As Double, _ |
| SteelStructSections.bas |
| Function |
| ElementEffectiveWidth(SectionType As Integer, b As Double, _ |
| getElasticityLimit(PlateElementType As Integer, _ |
| getNumberOfEdgesSupported(SectElement As Integer, _ |
| getPlasticityLimit(PlateElementType As Integer, _ |
| getPlateElementType(SectionType As Integer) As Integer |
| getSectionDescrCode(code As Integer) As String |
| getSectionType(section As String) |
| getStressGradientState(SectElement As Integer, SectionType As Integer, axis As String) As Integer |
| isSectionCHS(section As String) As Boolean |
| isSectionRHS(section As String) As Boolean |
| isSectionSHS(section As String) As Boolean |
| isSectionUB(section As String) As Boolean |
| isSectionUC(section As String) As Boolean |
| Sub |
| LoadSectionCodes() |
| Strings |
| xstring.bas |
| Function |
| FmtAcadPath(fPath As String) As String |
| fnDir(fPath As String) As String |
| fnDrv(fPath As String) As String |
| fnExt(fPath As String) As String |
| fnmerge(fPath As String, drv As String, fdir As String, fname As String, fext As String) As String |
| fnName(fPath As String) As String |
| fnName2(fPath As String) As String |
| strchr(s As String, c As String) As Integer |
| StrLen(s As String) As Integer |
| StrLPad(s As String, lStr As Integer) As String |
| StrLPadc(s As String, lStr As Integer, c As String) As String |
| strlwr(s As String) As String |
| StrNset(s As String, ch As String, n As Integer) As String |
| StrRChr(s As String, c As String) As Integer |
| StrRPad(s As String, lStr As Integer) As String |
| StrRPadc(s As String, lStr As Integer, c As String) As String |
| strupr(s As String) As String |
| substr(s As String, sp As Integer, L As Integer) As String |
| Sub |
| fnsplit(fPath As String, drv As String, fdir As String, fname As Str |
| fnsplit2(fPath As String, drv As String, fdir As String, fname As St |
| xStrLib.bas |
| Function |
| isAlnum(ch As String) As Boolean |
| isAlpha(ch As String) As Boolean |
| isCntrl(ch As String) As Boolean |
| isDigit(ch As String) As Boolean |
| isLower(ch As String) As Boolean |
| isPrint(ch As String) As Boolean |
| isPunct(ch As String) As Boolean |
| isSpace(ch As String) As Boolean |
| isUpper(ch As String) As Boolean |
| xStrLib2.bas |
| Function |
| isNumber(s As String) As Boolean |
| Structure |
| Structure11.bas |
| Sub |
| ConnectMtrlDB(ByRef dbs As Database, ByRef tbl As Recordset) |
| DisplayMaterial(m As TStructMATERIAL) |
| DisplaySectProp(s As String) |
| DisplaySectProp2(m As TStructMEMBER) |
| getSectProp(tbl As Recordset, ByRef m As TStructMEMBER, s As String) |
| MyTest() |
| Timber |
| TimberDesign001.bas |
| Function |
| Get_G_41(lb As Double, Sc As Double, Eb As Double, Ec As Double, Ib As Double, Ic As Double) As Double |
| Get_G_42(lb As Double, Sc As Double, Eb As Double, Ec As Double, Ib As Double, Ic As Double) As Double |
| Get_G_43(lb As Double, Sc As Double, Eb As Double, Ec As Double, Ib As Double, Ic As Double) As Double |
| Flex_Capacity(fb As Double, Zx As Double) As Double |
| Get_Axial_FLR(db As Double) As Double |
| Get_Axial_k12(beff As Double, bact As Double, length As Double, Leff As Double, g13 As Double, rhoc As Double) As Double |
| Get_Flex_FLR(db As Double, bb As Double, rhob As Double) As Double |
| Get_Flex_k12(db As Double, bb As Double, Lay As Double, rhob As Double, resflng As String) As Double |
| Get_Iy_comp(Iy As Double, Aspar As Double, hz As Double) As Double |
| Get_k11(db As Double) As Double |
| Get_SpacedColumn_k12(g13 As Double, g28 As Double, Ac As Double, Ic As Double, Lc As Double, rhoc As Double) As Double |
| S1_Compression(db As Double, bb As Double, Lay As Double) As Double |
| S1_Continuous(db As Double, bb As Double, Lay As Double, resflng As String) As Double |
| S1_Tension(db As Double, bb As Double, Lay As Double) As Double |
| S1_TorsRest(db As Double, bb As Double, Lar As Double) As Double |
| 5_SpacedColumn(g13 As Double, g28 As Double, Ac As Double, Ic As Double, Lc As Double) As Double |
| Strut_Capacity(fc As Double, ax As Double) As Double |
| Tie_Capacity(ft As Double, At As Double) As Double |
| TimberDesign002.bas |
| Function |
| Slenderness_S1(d As Double, b As Double, La As Double, _ |
| Slenderness_S2(d As Double, b As Double, Lay As Double, DesignCase As Integer) As Double |
| Slenderness_S3(d As Double, _ |
| Slenderness_S4(d As Double, b As Double, _ |
| Stability_k12(rho_b As Double, s1 As Double) As Double |
| Stability_k12C(rho_c As Double, s As Double) As Double |
| Timber_Bearing(phi As Double, k1 As Double, k4 As Double, k6 As Double, _ |
| Timber_k11(d As Double, DesignCase As Integer, V As Double) As Double |
| Timber_phiM(phi As Double, k1 As Double, _ |
| Timber_phiNc(phi As Double, k1 As Double, k4 As Double, k6 As Double, _ |
| Timber_phiNt(phi As Double, k1 As Double, k4 As Double, k6 As Double, _ |
| Timber_phiV(phi As Double, k1 As Double, k4 As Double, k6 As Double, _ |
| Timber_rho_b(E As Double, fb As Double, r As Double, _ |
| Timber_rho_c(E As Double, fc As Double, r As Double, _ |
| TimberDesign003.bas |
| Function |
| NailedJoint_phiMj(phi As Double, k1 As Double, k13 As Double, _ |
| NailedJoint_phiNj(phi As Double, k1 As Double, k13 As Double, _ |
| NailedJoint_phiNjaxial(phi As Double, k13 As Double, _ |
| TimberDesign004.bas |
| Function |
| ScrewedJoint_phiNj(phi As Double, k1 As Double, k13 As Double, _ |
| ScrewedJoint_phiNjaxial(phi As Double, k13 As Double, _ |
| TimberDesign005.bas |
| Function |
| BoltedJoint_phiNj(phi As Double, k1 As Double, _ |
| BoltedJoint_phiNjaxial(phi As Double, _ |
| get_Qkl(fcj As Double, t As Double, d As Double, JointGroup As String) As Double |
| get_Qkp(fpj As Double, t As Double, d As Double, JointGroup As String) As Double |
| Hankinson_Qsk(Qskl As Double, Qskp As Double, theta As Double) As Double |
| Timber_beff(t1 As Double, t2 As Double, DesignCase As Integer) As Double |
| TimberDesign006.bas |
| Function |
| Timber_k17(Nrows As Double, isSeasoned As Boolean) As Double |
| Timber_k17Bolts(Nrows As Double, isSeasoned As Boolean, _ |
| Wind Actions |
| Fabric1.bas |
| Function |
| eqLCp(k As Double, Cpe As Double, Cpi As Double, L As Double, b As Double, _ |
| LoadActionsWind001.bas |
| Function |
| FindHght(HghtTbl As Variant, MinHght As Double, MaxHght As Double, hght As Double) As Integer |
| FindTC(TCat As Double) As Integer |
| get_b(theta As Double, BldSpan As Double, BldLen As Double) As Double |
| get_d(theta As Double, BldSpan As Double, BldLen As Double) As Double |
| Get_Dist_a(ht As Double, BldSpan As Double, BldLen As Double) As Double |
| get_h(theta As Double, alpha As Double, He As Double, ht As Double) As Double |
| Get_Ka(Trib_Area As Double) As Double |
| get_Qz(V As Double) As Double |
| get_Vp(Rgn As String) As Double |
| get_Vs(Rgn As String) As Double |
| get_Vu(Rgn As String) As Double |
| get_Vz(V As Double, Mzcat As Double, Ms As Double, Mt As Double, Mi As Double, Md As Double, state As Integer) As Double |
| getDistToLoad(dwe As Double, h As Double) As Double |
| getMzcat(ByVal WindRegion As String, ByVal hght As Double, ByVal TCat As Double, ByVal Interpolate As Boolean) As Double |
| getPressureLimit(Limit As Integer) As String |
| getRgnMzCat(MzcatTbl As Variant, HghtTbl As Variant, MinHght As Double, MaxHght As Double, hght As Double, TCat As Double, Interpolate As Boolean) As Double |
| LmtState_ndx(LmtState As String) As Integer |
| Region_ndx(Rgn As String) As Integer |
| TCatStr(TCat As Double) As String |
| TCatVal(TCatStr As String) As Double |
| LoadActionsWind002.bas |
| Function |
| getMaxInSector(dataList As Range, sectorStart As Double, sectorEnd As Double, row_index_num As Integer, alternateValue As Double) As Double |
| LoadActionsWindBuilding.bas |
| Function |
| getBuildingCpe(theta As Double, alpha As Double, He As Double, ht As Double, _ |
| getBuildingKa(theta As Double, TAreaRafter As Double, TAreaColumn As Double, IsWall As Boolean) As Double |
| getRoofCpe(theta1 As Double, alpha As Double, He As Double, ht As Double, _ |
| getWallCpe(theta1 As Double, alpha As Double, He As Double, ht As Double, _ |
| LoadActionsWindBuilding000.bas |
| Function |
| Find_HDRatio(h As Double, d As Double, Limit As Integer) As Integer |
| FindAlpha(alpha As Double, Limit As Integer) As Integer |
| FindAlpha2(alpha As Double) As Integer |
| Get_Cpe_D(theta As Double, alpha As Double, He As Double, _ |
| Get_Cpe_L(theta As Double, alpha As Double, He As Double, ht As Double, BldSpan As Double, BldLen As Double) As Double |
| Get_Cpe_S(theta As Double, alpha As Double, He As Double, ht As Double, dwe As Double) As Double |
| Get_Cpe_U(theta1 As Double, alpha As Double, He As Double, ht As Double, _ |
| Get_Cpe_UD(theta As Double, alpha As Double, He As Double, ht As Double, _ |
| Get_Cpe_W(h As Double) As Double |
| LoadActionsWindBuilding1.bas |
| Function |
| BuildingCpeRoof(theta As Double, alpha As Double, _ |
| LoadActionsWindCanopies000.bas |
| Function |
| CanopyCp(theta As Double, alpha As Double, h As Double, d As Double, _ |
| LoadActionsWindCanopies001.bas |
| Function |
| get_Cpl(theta As Double, alpha As Double, h As Double, d As Double, _ |
| get_Cpn3(theta As Double, alpha As Double, h As Double, d As Double, _ |
| get_Cpw(theta As Double, alpha As Double, h As Double, d As Double, _ |
| getCanopy_Cpn(theta As Double, alpha As Double, h As Double, d As Double, _ |
| LoadActionsWindCanopies002.bas |
| Function |
| get_Cpn(theta As Double, h As Double, hc As Double, wc As Double, Limit As Integer) As Double |
| get_Cpn1(theta As Double, h As Double, hc As Double, wc As Double, Limit As Integer) As Double |
| get_Cpn2(theta As Double, h As Double, hc As Double, wc As Double, Limit As Integer) As Double |
| LoadActionsWindCanopies003.bas |
| Function |
| get_Cpl2(theta As Double, alpha As Double, h As Double, d As Double, state As Integer, Limit As Integer) As Double |
| get_Cpw2(theta As Double, alpha As Double, h As Double, d As Double, state As Integer, Limit As Integer) As Double |
| getPitchedCanopy_Cp(theta As Double, alpha As Double, h As Double, d As Double, _ |
| LoadActionsWindDistributedLoads.bas |
| Sub |
| DisplayUDLtable(ndx() As Integer, dwe() As Double, Cp() As Double, a |
| InitialiseUDL(ndx() As Integer, w() As Double, a() As Double, b() As |
| SetDwe(He As Double, halfwdth As Double, BldSpan As Double, dwe() As |
| LoadActionsWindDistribution2.bas |
| Sub |
| SteppedLoadst0(alpha As Double, He As Double, _ |
| Calc_Zex(ns As Integer, t As Double, ycg As Double, Ixx As Double, Z |
| checkWeb(d As Double, d1 As Double, ri As Double, t As Double, _ |
| CompressionFlange(Bf As Double, ri As Double, t As Double, _ |
| CompressionLip(dL As Double, ri As Double, t As Double, _ |
| CornerFillet(d As Double, ri As Double, t As Double) |
| CSection_Prop(d As Double, Bf As Double, t As Double, _ |
| FullyEffective_Web(d As Double, ri As Double, t As Double, d1 As Dou |
| ReducedCompressionLip(ri As Double, t As Double, ds As Double) |
| TensionFlange(Bf As Double, d As Double, ri As Double, t As Double) |
| TensionLip(d As Double, dL As Double, ri As Double, t As Double) |
| test() |
| SteelCFDesign.bas |
| Function |
| AS4600_Msxf(SectionName As String, _ |
| AS4600_Ne(E As Double, SectionName As String, _ |
| AS4600_phiMb(E As Double, G As Double, SectionName As String, _ |
| AS4600_phiMs(E As Double, SectionName As String, _ |
| AS4600_phiNc(E As Double, G As Double, SectionName As String, _ |
| AS4600_phiNs(E As Double, G As Double, SectionName As String, _ |
| AS4600_phiNt(SectionName As String, phi As Double, _ |
| Sub |
| getBuiltUpSectProp(tbl As Recordset, ByRef m As TStructMEMBER, s As |
| LoadActionsWindDrag.bas |
| Function |
| Drag_Cfig(L As Double, b As Double, Kar As Double, _ |
| getWind_Kar(L As Double, b As Double) As Double |
| LoadActionsWindEquivUDL.bas |
| Function |
| equivUDL0(alpha As Double, He As Double, _ |
| equivUDL0m(alpha As Double, He As Double, _ |
| LoadActionsWindEquivWind1.bas |
| Function |
| EquivUDL90(alpha As Double, He As Double, ht As Double, _ |
| getDistToLoad(dwe As Double, h As Double) As Double |
| Sub |
| EquivUDL90test() |
| LoadActionsWindSkillion.bas |
| Function |
| equivUDL0m2(theta As Double, alpha As Double, He As Double, _ |
| LoadActionsWindTable00.bas |
| Sub |
| SetWindTables00() |
| LoadActionsWindTable01.bas |
| Sub |
| SetWindSpeedTables() |
| LoadActionsWindTable02.bas |
| Sub |
| SetWindDirectionTables() |
| LoadActionsWindTable03.bas |
| Function |
| CalcV_SiteBeta(Vr As Double, Mzcat As Double, Ms As Double, _ |
| get_Md(Rgn As String, directn As String) As Double |
| get_Vregional(Rgn As String, ReturnPeriod As Double) As Double |
| getDirectnIndex(directn As String) As Integer |
| getReturnPeriod(LimitState As Integer, ImportanceLevel As Integer) As Double |
| getRgnIndex(Rgn As String) As Integer |
| getV_theta(theta As Double) |
| HlookupG(WrkBk As String, Sht As String, DtaLst As String, _ |
| Sub |
| set_Md() |
| LoadActionsWindTable04.bas |
| Sub |
| LoadTable2() |
| LoadTables1() |
| WriteTable2() |
| Function |
| IsMemberStableEnough() As Boolean |
| IsMemberStrongEnough() As Boolean |
| IsSectionStableEnough() As Boolean |
| IsSectionStrongEnough(N_star As Double, phiNc As Double) As Boolean |
| Cold-Formed Steel |
| SteelCFDesign3.bas |
| Function |
| getDesignSection(BM As Double, Lex As Double, Ley As Double, Lez As Double, _ |
| SteelCFLippedIBeam.bas |
| Function |
| get_LippedIBeam_Iw(Iy As Double, a As Double, _ |
| SteelCFSect2.bas |
| Function |
| AS4600_ka(dL As Double, b As Double) As Double |
| effectiveWidth(b As Double, rho As Double, chi As Double, _ |
| get_be(b As Double, lambda As Double, rho As Double) As Double |
| get_C2(I_s As Double, Ia As Double) As Double |
| get_ds(dse As Double, C2 As Double) As Double |
| get_Ia(b As Double, t As Double, ku As Double, s As Double) As Double |
| get_k_EdgeStiffened(b As Double, t As Double, s As Double, ka As Double, C2 As Double) As Double |
| get_k_unStiffened(chi As Double) As Double |
| get_lambda(k As Double, b As Double, t As Double, f As Double, E As Double) As Double |
| get_Rho(lambda As Double) As Double |
| get_S(E As Double, f As Double) As Double |
| PlateBucklingCoeff_k(b As Double, chi As Double, _ |
| Sub |
| EdgeStiffenedElement(b As Double, t As Double, dL As Double, _ |
| SteelCFSect3.bas |
| Function |
| get_Fo(E As Double, le As Double, r As Double) As Double |
| get_Foz(E As Double, G As Double, J As Double, Iw As Double, Lez As Double, a As Double, r01 As Double) As Double |
| get_Le(L As Double, ke As Double) As Double |
| get_ro1(rx As Double, ry As Double, xo As Double, yo As Double) As Double |
| get_SR(le As Double, k As Double) As Double |
| SteelCFSect3AxialCompression.bas |
| Function |
| Euler_Pcr(c As Double, E As Double, i As Double, L As Double) As Double |
| get_Beta(xo As Double, r01 As Double) As Double |
| get_fc(Mc As Double, Zx As Double) As Double |
| get_fn(lambda_c As Double, fy As Double) As Double |
| get_foc(E As Double, le As Double, r As Double) As Double |
| get_foc2(foz As Double, fox As Double) As Double |
| get_foc3(beta As Double, foz As Double, fox As Double) As Double |
| get_lambda_c(fy As Double, foc As Double) As Double |
| get_MINfoc(fox As Double, foy As Double, foc3 As Double) As Double |
| get_Nc(Ae As Double, fn As Double) As Double |
| get_Ns(Ae As Double, fy As Double) As Double |
| get_phiNc(E As Double, G As Double, fy As Double, _ |
| get_phiNd(phi As Double, ns As Double, nc As Double) As Double |
| get_phiNs(E As Double, G As Double, fy As Double, _ |
| SteelCFSect3AxialTension.bas |
| Function |
| get_Nt(Ag As Double, fy As Double, fu As Double, An As Double, kt As Double) As Double |
| SteelCFSect3Bending.bas |
| Function |
| get_Cb(Mmax As Double, M3 As Double, M4 As Double, M5 As Double) As Double |
| get_Cm(m1 As Double, m2 As Double) As Double |
| get_lambda_b(My As Double, Mo As Double) As Double |
| get_Mb(Zc As Double, Mc As Double, Zf As Double) As Double |
| get_Mc(lambda_b As Double, My As Double) As Double |
| get_Mc_CZ(lambda_b As Double, My As Double) As Double |
| get_Mo(cb As Double, a As Double, r01 As Double, foy As Double, foz As Double) As Double |
| get_Mo_for_CZ(E As Double, Cm As Double, Iy As Double, Iw As Double, L As Double) As Double |
| get_Mo_for_psZs(E As Double, cb As Double, d As Double, Iyc As Double, L As Double) As Double |
| get_Mo1(Cs As Double, Cm As Double, a As Double, r01 As Double, Beta_y As Double, fox As Double, foz As Double) As Double |
| get_Ms(Ze As Double, fy As Double) As Double |
| get_My(Zf As Double, fy As Double) As Double |
| get_phiMb(E As Double, G As Double, fy As Double, _ |
| get_phiMs(d As Double, Bf As Double, t As Double, _ |
| getMb( _ |
| SteelCFSect3Combined.bas |
| Function |
| get_alpha_nx(n As Double, Ne As Double) As Double |
| SteelCFSect3Webs.bas |
| Function |
| getBearing(fy As Double, d1 As Double, tw As Double, ri As Double, _ |
| getC2(ri As Double, tw As Double) As Double |
| getC4(ri As Double, t As Double) As Double |
| getC5(k As Double) As Double |
| getC7(d1 As Double, tw As Double) As Double |
| getC8(d1 As Double, tw As Double, k As Double) As Double |
| getShear(E As Double, fy As Double, d1 As Double, tw As Double, a As Double) As Double |
| IsBendingShearOk(m As Double, Mcap As Double, V As Double, Vcap As Double, AsTransverseStiffeners As Boolean) As Boolean |
| SteelCFSect5Connections1.bas |
| Function |
| AS4600_BoltBearing(fy As Double, fu As Double, df As Double, _ |
| AS4600_BoltTearOut(fy As Double, fu As Double, _ |
| AS4600_NetSectionTension(fy As Double, fu As Double, df As Double, _ |
| getEdgeDist(edgeDist As Double, df As Double, isForHoles As Boolean) |
| SteelCFSect5Connections2.bas |
| Function |
| AS4600_NetSectionTensionScrews(fy As Double, fu As Double, df As Double, _ |
| AS4600_ScrewTension(fu1 As Double, fu2 As Double, df As Double, dw As Double, _ |
| AS4600_ScrewTiltingBearing(fu1 As Double, fu2 As Double, df As Double, _ |
| SteelCFUnLippedChannel.bas |
| Function |
| get_CHANNEL_Zex(d As Double, Bf As Double, t As Double, _ |
| Database |
| xdbUtility2013.bas |
| Function |
| MtrlDB() |
| Debugging |
| DBGCleaner.bas |
| Sub |
| CleanUP() |
| DBGGeneral.bas |
| Sub |
| DisplayAbout() |
| SayNotYet() |
| DBGLogger.bas |
| Sub |
| CloseLogFile() |
| SetLogFile(fn As String) |
| DBGScreenTracer.bas |
| Sub |
| TraceFunction(s As String, state As Integer, FuncLevel As Integer, i |
| DBGScreenTracer1.bas |
| Sub |
| TraceFunction(s As String, state As Integer, FuncLevel As Integer, i |
| DBGTracer.bas |
| Sub |
| CloseTraceFile() |
| SetMytracer(state As Boolean) |
| SetMyTracerOFF() |
| SetMyTracerON() |
| SetTraceFile() |
| DBGTracerWorkBook.bas |
| Sub |
| IncTracerCol() |
| IncTracerCounters() |
| IncTracerRow() |
| SetTraceWrkBk(TracerNewBook As Boolean) |
| WriteCellTracer(r As Integer, c As Integer, V As Variant) |
| WritelnTracer(V As Variant) |
| WriteVarTracer(s As String, V As Variant) |
| WriteVarUnitsTracer(s As String, V As Variant, u As String) |
NB: Some of the functions replicate those which are available in MS Excel but not available in vba. Since I want my vba code portal between MS Excel and MS Access and any other applications I may use, without having to use the Excel Application object to call worksheet functions, I have written the code in vba. I also recently read a few blogs and forum discussions indicating that calling the Excel worksheet functions in vba may be slower than writing a vba routine: depending on what you intend on doing.
Revised: Slightly improved by bringing data into MS Access, sorting, creating a grouped report then exporting to html. Unfortunately it exported to multiple pages, when I combined all the html file's it got slightly scrambled. I otherwise formatted some of the cells using Visual Studio 2005. {Yeh! I know, I ain't up to date with any software.}
