各种系数表格.bas

钢筋混凝土框架结构设计计算源程序

Attribute VB_Name = "Module13"
Option Explicit
'参见混凝土结构上册370页附表6
Sub 钢筋强度标准值表(grade As String, fyk As Integer)
    Select Case grade
        Case "Ⅰ"
            fyk = 235               'N/mm2
        Case "Ⅱ"
            fyk = 335
        Case "Ⅲ"
            fyk = 370
        Case "Ⅳ"
            fyk = 540
    End Select
End Sub
'参见混凝土结构上册371页附表8
Sub 钢筋强度设计值表(grade As String, fy As Single)
    Select Case grade
        Case "Ⅰ"
            fy = 210               'N/mm2
        Case "Ⅱ"
            fy = 310
        Case "Ⅲ"
            fy = 340
        Case "Ⅳ"
            fy = 500
    End Select
End Sub
'参见混凝土结构上册369页附表1
Sub 弯曲抗压及轴心抗压强度标准值表(ci As String, fcmk As Single, Fek As Single)
    Select Case ci
        Case "C10"
            fcmk = 7.5              'N/mm2
            Fek = 6.7
        Case "C15"
            fcmk = 11
            Fek = 10
        Case "C20"
            fcmk = 15
            Fek = 13.5
        Case "C25"
            fcmk = 18.5
            Fek = 17
        Case "C30"
            fcmk = 22
            Fek = 20
        Case "C35"
            fcmk = 26
            Fek = 23.5
        Case "C40"
            fcmk = 29.5
            Fek = 27
        Case "C45"
            fcmk = 32.5
            Fek = 29.5
        Case "C50"
            fcmk = 35
            Fek = 32
        Case "C55"
            fcmk = 37.5
            Fek = 34
        Case "C60"
            fcmk = 39.5
            Fek = 36
    End Select
End Sub
'参见混凝土结构上册369页附表2
Sub 弯曲抗压及轴心抗压强度设计值表(ci As String, fcm As Single, fc As Single)
    Select Case ci
        Case "C10"
            fcm = 5.5              'N/mm2
            fc = 5
        Case "C15"
            fcm = 8.5
            fc = 7.5
        Case "C20"
            fcm = 11
            fc = 10
        Case "C25"
            fcm = 13.5
            fc = 12.5
        Case "C30"
            fcm = 16.5
            fc = 15
        Case "C35"
            fcm = 19
            fc = 17.5
        Case "C40"
            fcm = 21.5
            fc = 19.5
        Case "C45"
            fcm = 23.5
            fc = 21.5
        Case "C50"
            fcm = 26
            fc = 23.5
        Case "C55"
            fcm = 27.5
            fc = 25
        Case "C60"
            fcm = 20
            fc = 26.5
    End Select
End Sub
'参见多建筑抗震设计规范GB50011-2001,42页表6.1.2
Function 求抗震等级()
    Dim i As Integer
    Dim 抗震等级 As String
    Select Case 抗震设防烈度
        Case 6
            If Cengtot <= 30 Then
                抗震等级 = "四"
            Else: 抗震等级 = "三"
            End If
        Case 7
            If Cengtot <= 30 Then
                抗震等级 = "三"
            Else: 抗震等级 = " 二"
            End If
        Case 8
            If Cengtot <= 30 Then
                抗震等级 = "二"
            Else: 抗震等级 = " 一"
            End If
        Case Else
            If Cengtot <= 25 Then
                抗震等级 = "一"
            Else: 抗震等级 = "一"
            End If
    End Select
    求抗震等级 = 抗震等级
End Function
'参见多建筑抗震设计规范GB50011-2001,28页表5.1.4-1
Sub 水平地震影响系数最大值表(设防烈度 As Single, 地震类型 As String, αmax As Single)
    If 地震类型 = "多遇" Then
        Select Case 设防烈度
            Case 6
                αmax = 0.04
            Case 7
                αmax = 0.08
            Case 8
                αmax = 0.16
            Case 9
                αmax = 0.32
        End Select
    Else
        Select Case 设防烈度
            Case 7
                αmax = 0.5
            Case 8
                αmax = 0.9
            Case 6
                αmax = 1.4
        End Select
    End If
End Sub
'参见多建筑抗震设计规范GB50011-2001,28页表5.1.4-2
Sub 特征周期值表(设计地震分组 As String, 场地类别 As String, Tg As Single)
    If 设计地震分组 = "第一组" Then
        Select Case 场地类别
            Case "Ⅰ"
                 Tg = 0.25
            Case "Ⅱ"
                 Tg = 0.35
            Case "Ⅲ"
                 Tg = 0.45
            Case "Ⅳ"
                 Tg = 0.65
        End Select
    ElseIf 设计地震分组 = "第二组" Then
        Select Case 场地类别
            Case "Ⅰ"
                 Tg = 0.3
            Case "Ⅱ"
                 Tg = 0.4
            Case "Ⅲ"
                 Tg = 0.55
            Case "Ⅳ"
                 Tg = 0.75
        End Select
    Else: Select Case 场地类别
            Case "Ⅰ"
                 Tg = 0.35
            Case "Ⅱ"
                 Tg = 0.45
            Case "Ⅲ"
                 Tg = 0.65
            Case "Ⅳ"
                 Tg = 0.9
        End Select
    End If
End Sub
'参见多建筑抗震设计规范GB50011-2001,31页表5.2.1
Sub 顶点附加作用系数δn表(T1 As Single, Tg As Single, δn As Single)
    If T1 <= 1.4 * Tg Then
        δn = 0
    Else
        If Tg <= 0.35 Then
            δn = 0.08 * T1 + 0.07
        ElseIf 0.35 < Tg <= 0.55 Then
            δn = 0.08 * T1 + 0.01
        ElseIf Tg > 0.55 Then
            δn = 0.08 * T1 - 0.02
        End If
    End If
    If δn > 0.15 Then δn = 0.15
End Sub
'参见多高层结构设计146页表8-1
Function 求ρmin(梁中位置 As String, 抗震等级)
    Dim ρmin As Single
    If 梁中位置 = "支座" Then
        Select Case 抗震等级
            Case "Ⅰ"
                 ρmin = 0.004
            Case "Ⅱ"
                 ρmin = 0.003
            Case "Ⅲ"
                 ρmin = 0.0025
        End Select
    Else
        Select Case 抗震等级
            Case "Ⅰ"
                 ρmin = 0.003
            Case "Ⅱ"
                 ρmin = 0.0025
            Case "Ⅲ"
                 ρmin = 0.002
        End Select
    End If
    求ρmin = ρmin
End Function
Sub 梁中箍筋最大间距(temp As Single, Vb As Single, Smax As Integer, 单元号 As Integer)
    If temp < Vb Then
        If BH(单元号, 2) > 800 Then
            Smax = 300
        ElseIf BH(单元号, 2) > 500 Then
            Smax = 250
        ElseIf BH(单元号, 2) > 300 Then
            Smax = 200
        ElseIf BH(单元号, 2) > 150 Then
            Smax = 150
        End If
    ElseIf temp >= Vb Then
        If BH(单元号, 2) > 800 Then
            Smax = 500
        ElseIf BH(单元号, 2) > 500 Then
            Smax = 350
        ElseIf BH(单元号, 2) > 300 Then
            Smax = 300
        ElseIf BH(单元号, 2) > 150 Then
            Smax = 200
        End If
   End If
End Sub
Function Elast(ci As String)           '混凝土弹性模量表
    Select Case ci
        Case "C10"
            Elast = 17500               'N/mm2
        Case "C15"
            Elast = 22000
        Case "C20"
            Elast = 25500
        Case "C25"
            Elast = 28000
        Case "C30"
            Elast = 30000
        Case "C35"
            Elast = 31500
        Case "C40"
            Elast = 32500
        Case "C45"
            Elast = 33500
        Case "C50"
            Elast = 34500
        Case "C55"
            Elast = 35500
        Case "C60"
            Elast = 36000
    End Select
    Elast = Elast
End Function
Function Length(Ne As Integer)
    Dim X1, Y1, x2, y2, xx, yy
    X1 = XY(Abs(NGN(Ne, 1)), 1)
    Y1 = XY(Abs(NGN(Ne, 1)), 2)
    x2 = XY(Abs(NGN(Ne, 2)), 1)
    y2 = XY(Abs(NGN(Ne, 2)), 2)
    xx = x2 - X1
    yy = y2 - Y1
    Length = Sqr(xx ^ 2 + yy ^ 2)
End Function
Function 保护层厚度(ci As String) As Integer
     Select Case ci
        Case "C10", "C15", "C20"
            保护层厚度 = 30               'N/mm2
        Case Else
            保护层厚度 = 25
    End Select
End Function