'几何条件                                       荷载条件
'   已知条件:                                       已知条件:
'       L 雨篷跳出长度                                  F 雨篷端集中荷载 [1.35(恒+活)]
'       L1 墙体厚度                                     Q1 雨篷上线荷载 [1.35(恒+活)]
'       A  雨篷梁搁置长度                               Q2 雨篷上楼板线荷载 [恒]
'       L4 雨篷上门窗洞口宽度                           R  雨篷上墙体重度
'       ln 雨篷下门窗洞口宽度
'       H 雨篷梁高度
'       H1 雨篷上墙体高度
'       H2 雨篷至楼板高度
'       H4 雨篷上门窗洞口高度
'       H6 雨篷上窗台高度
'------------------------------------------------------------------------------------------------------------
'   计算几何尺寸
'       L3=Ln/2
'       L2=L1/2
'       X0=if[(L1>=2.2H;L1<2.2H),(0.3H&<=0.13L1;0.13L1)]
'       L0=Ln+2A+2L3
'   检验数据
'       L4< L0
'       H>=120
'       L1>=120'
'------------------------------------------------------------------------------------------------------------
'计算过程
'   计算几何尺寸和校验数据
'   计算墙体传递线荷载
'   计算倾覆力矩
'   计算抗倾覆力矩
'   验证是否满足要求
'       不满足，退出重新输入数据
'       满足，按照过梁计算配筋面积
'------------------------------------------------------------------------------------------------------------

Function ZHYP(L As Long, _
                L1 As Long, _
                A As Long, _
                L4 As Long, _
                Ln As Long, _
                H As Long, _
                H1 As Long, _
                H2 As Long, _
                H4 As Long, _
                H6 As Long, _
                F As Double, _
                Q1 As Double, _
                Q2 As Double, _
                R As Double)
    Dim L3 As Long
    Dim L2 As Long
    Dim X0 As Double
    Dim L0 As Double
    
    L3 = Ln / 2
    L2 = L1 / 2
    L0 = Ln + 2 * A + 2 * L3
    If L1 > 2.2 * H Then
        If 0.3 * H > 0.13 * L1 Then
            X0 = 0.13 * L1
        Else
            X0 = 0.3 * H
        End If
    Else
        X0 = 0.13 * L1
    End If
   
    If H < 120 Then MsgBox "梁高要求不小于120mm.": Exit Function
    If L1 < 120 Then MsgBox "墙宽要求不小于120mm.": Exit Function
    If L4 >= L0 Then MsgBox "雨篷上洞口宽度超过墙体长度.": Exit Function
    
    '计算墙体线荷载
    Dim S As Double
    S = L0 * (H1 - L3) + (L0 + Ln + 2 * A) * L3 / 2 - L4 * H4 '墙体面积(一块正方形墙体+一块梯形墙体-洞口)
    Dim G As Double
    G = S * (L1 / 1000 + R * 0.04 * 25) '墙体包括粉刷产生的荷载
    Dim Q3 As Double
    Q3 = G / L0 '转化成线荷载
    '计算倾覆弯矩
    Dim Mv As Double
    Mv = Q1 * L * (L / 2 + X0) + F * (L + X0)
    '计算抗倾覆弯矩
    Dim Mr As Double
    Mr = 0.8 * ((Q1 + Q3) * L0 / 1000 + L1 * H * 25 * (Ln + 2 * A) / 10 ^ 6) * (L1 / 2 - X0)
    
    If Mv > Mr Then
        MsgBox "验算不满足要求,倾覆弯矩大于抗倾覆弯矩"
    Else
        MsgBox "验算满足要求."
    End If
End Function