公路交通噪声预测-《公路建设项目环境影响评价规范》JTG B03-2006

Private Sub Command1_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；P42：林带引起的衰减量随着功能区的不同差异不同，最大不超过10dB，例如，东北地区的林带密度小，衰减量可以适当减小！"

End Sub



Private Sub Command10_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；附录C C1.1-2公式要求，用于计算某种车型的预测车速参数！"

End Sub



Private Sub Command11_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,T为计算等效声级的时间,以1小时！一般不要更改"

End Sub



Private Sub Command12_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Ni为各种车型小时流量！"



End Sub



Private Sub Command13_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Ni为各种车型小时流量！"



End Sub



Private Sub Command14_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Ni为各种车型小时流量！"



End Sub



Private Sub Command15_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Vi为各种车型平均行驶速度！可根据项目直接影响区相似的公路车辆运行状况分析确定车速！"



End Sub



Private Sub Command16_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Vi为各种车型平均行驶速度！可根据项目直接影响区相似的公路车辆运行状况分析确定车速！"



End Sub



Private Sub Command17_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006 公式8.4.2-2中取值规定 ,Vi为各种车型平均行驶速度！可根据项目直接影响区相似的公路车辆运行状况分析确定车速！"

End Sub



Private Sub Command2_Click()

    Dim ratel, ratem, rates, vol, ratezp, width1, lll, llm, lls, speed, laeq33

    Dim laeq123(15)



    '求各个车道的流量

    ratel = Text2.Text '大型车比

    ratem = Text3.Text '中型车比

    rates = Text4.Text '小型车比

    vol = Text1.Text '单车道流量

    ratezp = Text6.Text '纵坡系数

    width1 = Text5.Text '车道宽度

    lll = Text12.Text '大型车流量

    llm = Text8.Text '中型车流量

    lls = Text7.Text '小型车流量

    speed = Text16.Text '设计时速

    angle = Text11.Text '预测测点至有限长公路两端视角

    L13 = Text13.Text '树林衰减量

    L14 = Text14.Text '建筑物衰减量

    speedl = Text15.Text '大型车实际行车速度

    speedm = Text17.Text '中型车实际行车速度

    speeds = Text18.Text '小型车实际行车速度



    '求各型车的当量车数

    On Error Resume Next

    ul = vol (ratel + 0.70957 (1 - ratel))

    um = vol (ratem + 0.8044 (1 - ratem))

    us = vol (rates + 1.2102 (1 - rates))



    '求各型车平均车速



    On Error Resume Next

    vl = -0.0519 ul + 149.39 + 1 / (-0.000014202 ul - 0.70957)

    vm = -0.057537 um + 149.38 + 1 / (-0.00001639 um - 0.8044)

    vs = -0.061748 us + 149.65 + 1 / (-0.000023696 us - 1.2102)



    If speed < 120 Then

        vl = speed / 120 vl

        vm = speed / 120 vm

        vs = speed / 120 vs

    Else

        vl = vl

        vm = vm

        vs = vs

    End If

    '求各型车在7.5米处平均辐射声级

    On Error Resume Next

    '纵坡衰减后的7.5米处的平均辐射声级

    If Option1 = True Then

        If ratezp < 3 Or ratezp = 3 Then

            lol = 22# + 36.32 Log(speedl) / Log(10)

            lom = 8.8 + 40.48 Log(speedm) / Log(10)

            los = 12.6 + 34.73 Log(speeds) / Log(10)

        ElseIf ratezp > 4 And ratezp < 5 Or ratezp = 5 Or ratezp = 4 Then

            lol = 22# + 36.32 Log(speedl) / Log(10) + 1

            lom = 8.8 + 40.48 Log(speedm) / Log(10) + 1

            los = 12.6 + 34.73 Log(speeds) / Log(10)

        ElseIf ratezp > 6 And ratezp < 7 Or ratezp = 6 Then

            lol = 22# + 36.32 Log(speedl) / Log(10) + 3

            lom = 8.8 + 40.48 Log(speedm) / Log(10) + 3

            los = 12.6 + 34.73 Log(speeds) / Log(10)

        ElseIf ratezp > 7 Or ratezp = 7 Then

            lol = 22# + 36.32 Log(speedl) / Log(10) + 5

            lom = 8.8 + 40.48 Log(speedm) / Log(10) + 5

            los = 12.6 + 34.73 Log(speeds) / Log(10)

        Else

            lol = 22# + 36.32 Log(speedl) / Log(10)

            lom = 8.8 + 40.48 Log(speedm) / Log(10)

            los = 12.6 + 34.73 Log(speeds) / Log(10)

        End If



    Else



        If ratezp < 3 Or ratezp = 3 Then

            lol = 22# + 36.32 Log(vl) / Log(10)

            lom = 8.8 + 40.48 Log(vm) / Log(10)

            los = 12.6 + 34.73 Log(vs) / Log(10)

        ElseIf ratezp > 4 And ratezp < 5 Or ratezp = 5 Or ratezp = 4 Then

            lol = 22# + 36.32 Log(vl) / Log(10) + 1

            lom = 8.8 + 40.48 Log(vm) / Log(10) + 1

            los = 12.6 + 34.73 Log(vs) / Log(10)

        ElseIf ratezp > 6 And ratezp < 7 Or ratezp = 6 Then

            lol = 22# + 36.32 Log(vl) / Log(10) + 3

            lom = 8.8 + 40.48 Log(vm) / Log(10) + 3

            los = 12.6 + 34.73 Log(vs) / Log(10)

        ElseIf ratezp > 7 Or ratezp = 7 Then

            lol = 22# + 36.32 Log(vl) / Log(10) + 5

            lom = 8.8 + 40.48 Log(vm) / Log(10) + 5

            los = 12.6 + 34.73 Log(vs) / Log(10)

        Else

            lol = 22# + 36.32 Log(vl) / Log(10)

            lom = 8.8 + 40.48 Log(vm) / Log(10)

            los = 12.6 + 34.73 Log(vs) / Log(10)

        End If



    End If



    'Print "los=", los



    '求等效行车线至接受点的距离



    '双向六车道远近行车线距离

    On Error Resume Next

    For K = 0 To 10 Step 1

        r = 20 K



        If Option8.Value = True Then

            R1 = r + 0.5 width1

            R2 = r + 5.5 width1

        End If



        '双向四车道远近行车线距离

        If Option7.Value = True Then

            R1 = r + 0.5 width1

            R2 = r + 3.5 width1

        End If



        On Error Resume Next



        '等效行车线至接受点的距离

        rp = Sqr(R1 R2)



        '各型车距离衰减量的计算



        If ul < 300 Then

            leql = 10 Log(7.5 / rp) / Log(10)

        Else

            leql = 15 Log(7.5 / rp) / Log(10)

        End If



        If um < 300 Then

            leqm = 10 Log(7.5 / rp) / Log(10)

        Else

            leqm = 15 Log(7.5 / rp) / Log(10)

        End If



        If us < 300 Then

            leqs = 10 Log(7.5 / rp) / Log(10)

        Else

            leqs = 15 Log(7.5 / rp) / Log(10)

        End If



        On Error Resume Next



        If Option1.Value = True Then



            laeql = lol + 10 Log(lll / speedl) / Log(10) + leql - 16

            laeqm = lom + 10 Log(llm / speedm) / Log(10) + leqm - 16

            laeqs = lol + 10 Log(lls / speeds) / Log(10) + leqs - 16



        Else



            laeql = lol + 10 Log(lll / vl) / Log(10) + leql - 16

            laeqm = lom + 10 Log(llm / vm) / Log(10) + leqm - 16

            laeqs = lol + 10 Log(lls / vs) / Log(10) + leqs - 16



        End If



        '路面修正量

        If Option4.Value = True Then

            laeql = lol + 10 Log(lll / vl) / Log(10) + leql - 16

            laeqm = lom + 10 Log(llm / vm) / Log(10) + leqm - 16

            laeqs = lol + 10 Log(lls / vs) / Log(10) + leqs - 16

        Else

            laeql = lol + 10 Log(lll / vl) / Log(10) + leql - 16

            laeqm = lom + 10 Log(llm / vm) / Log(10) + leqm - 16

            laeqs = lol + 10 Log(lls / vs) / Log(10) + leqs - 14

        End If



        '房屋\树林衰减量

        laeql = laeql - L13 - L14

        laeqm = laeqm - L13 - L14

        laeqs = laeqs - L13 - L14



        laeq = 10 Log(10 ^ (0.1 laeql) + 10 ^ (0.1 laeqm) + 10 ^ (0.1 laeqs)) / Log(10)



        '预测点的视角衰减量计算

        L12 = 10 Log(angle / 180)

        laeq = laeq + L12



        laeq123(K) = laeq



        laeq123(K) = Format(laeq123(K), "####.##")

        LEN2 = Len(laeq123(K))

        laeq123(K) = Space(5 - LEN2) & laeq123(K)

        laeq33 = laeq33 & laeq123(K) & "  "



        LEN1 = Len(r)

        r = Space(5 - LEN1) & r

        long1 = long1 & r & "  "



    Next K



    If Option1.Value = True Then

        If speedl = 0 Or speedm = 0 Or speeds = 0 Then

            MsgBox "你选择了手工输入各型车行驶速度，但是各型车的行驶速度中有为0的选项，会导致预测结果不准确！请检查你的车速输入框，重新计算！"

            Text15.SetFocus

        Else

        End If

    End If



    vl = Format(vl, "####.##")

    vm = Format(vm, "####.##")

    vs = Format(vs, "####.##")



    lol = Format(lol, "####.##")

    lom = Format(lom, "####.##")

    los = Format(los, "####.##")



    ul = Format(ul, "####.##")

    um = Format(um, "####.##")

    us = Format(us, "####.##")

    CCCC = Text10.Text & "交通噪声预测结果：" & vbLf & vbLf

    hhhh = Text10.Text & "的参数输入情况：" & "单车道流量为：" & vol & "辆/h；" & "大、中、小型车的比例为：" & ratel & "：" & ratem & "：" & rates & "；" & "大、中、小型车的流量分别为为：" & lll & "辆/h、" & llm & "辆/h、" & lls & "辆/h。" & "车道宽度为：" & width1 & "米；" & "以上参与计算的各参数正确吗?如果不正确，请重新修改对应的参数后，重新计算！" & vbLf & vbLf

    AAAA = "预测点距公路的距离(米)：" & long1 & vbLf

    BBBB = "预测点的预测结果值(dB)：" & laeq33 & vbLf & vbLf

    DDDD = "其它相关的参数预测情况：" & vbLf & vbLf

    'EEEE = "各种型车预测的行车速度：" & "大型车车速：" & vl & "Km/h；" & "中型车车速：" & vm & "Km/h；" & "小型车车速：" & vs & "Km/h；" & vbLf

    FFFF = "各种车型在参照点处平均辐射声级：" & "大型车：" & lol & "dB；" & "中型车：" & lom & "dB；" & "小型车：" & los & "dB；" & vbLf & vbLf



    hhh2 = "公路交通噪声预测模式适用范围：" & vbLf & vbLf



    gggg = "1 公路交通噪声预测模式适用于双向六车道及以下的高速公路、一级公路和二级公路，其他公路可做参考；" & vbLf & "2 预测点在距噪声等效行车线7.5m 以远处；" & vbLf & "3 车辆平均行驶速度在48～140km/h 之间。"



    RichTextBox1.Text = hhhh & CCCC & AAAA & BBBB & DDDD & FFFF & hhh2 & gggg

End Sub



Private Sub Command3_Click()

    Unload Me

End Sub



Private Sub Command4_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；P42：ΔL 建筑物为建筑障碍物引起的等效A声级衰减量，按下述方法取值：当第一排建筑物占预测点与路面中心线间面积的40%~60%时，ΔL2建筑物=3dB； 当第一排建筑物占预测点与路面中心线间面积的70%~90%时，ΔL2建筑物=5dB； 每增加一排建筑物，ΔL2建筑物值增加1.5dB，最多为10dB。"

End Sub



Private Sub Command5_Click()

    MsgBox "车道宽度为单条行车道的宽度！"

End Sub



Private Sub Command6_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；附录C 表C1.1-3 规定：当纵坡系数（%）小于且等于3时，噪声修正直为0；在4-5之间时，修正值为+1dB；在6-7之间时，修正值为+3dB；大于7时，修正值为+5dB；！"

End Sub



Private Sub Command7_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；附录C C1.1-2公式要求，用于计算某种车型的预测车速参数！"

End Sub



Private Sub Command8_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；附录C C1.1-2公式要求，用于计算某种车型的预测车速参数！"

End Sub



Private Sub Command9_Click()

    MsgBox "《公路建设项目环评影响评价规范》 JTG B03-2006；附录C C1.1-2公式要求，用于计算某种车型的预测车速参数！"

End Sub



Private Sub Form_Load()

    Option8.Value = True

    Option4.Value = True

    Option1.Value = True

End Sub



Private Sub Option2_Click()

    Text15.Text = 0

    Text17.Text = 0

    Text18.Text = 0

End Sub