水泥砼设计.frm

饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求

        Text2.Text = "30"
        Text3.Text = "95"
        Text4.Text = "1.64"
        Combo2.AddItem "低"
        Combo2.Text = "低"
        Text5.Text = "1.20～1.33"
        Text15.Text = "1.30"    '综合系数
    End If
    
    If Trim(Combo1.Text) = "一级公路" Then
        Text1.Text = "二级"
        Text2.Text = "30"
        Text3.Text = "90"
        Text4.Text = "1.28"
        Combo2.Clear
        Combo2.AddItem "低"
        Combo2.AddItem "中"
        Text5.Text = ""
        Text15.Text = "1.25"    '综合系数
    End If
    
    If Trim(Combo1.Text) = "二级公路" Then
        Text1.Text = "三级"
        Text2.Text = "20"
        Text3.Text = "85"
        Text4.Text = "1.04"
        Combo2.Clear
        Combo2.AddItem "中"
        Combo2.Text = "中"
        Text5.Text = "1.08～1.13"
        Text15.Text = "1.20"    '综合系数
    End If
    
    If Trim(Combo1.Text) = "三级公路" Or Trim(Combo1.Text) = "四级公路" Then
        Text1.Text = "四级"
        Text2.Text = "20"
        Text3.Text = "80"
        Text4.Text = "0.84"
        Combo2.Clear
        Combo2.AddItem "中"
        Combo2.AddItem "高"
        Text5.Text = ""
        Text15.Text = "1.10"    '综合系数
    End If
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Combo2_Click()
'可靠度系数
    
    On Error GoTo handlerror
    
    If Val(Text3.Text) = 95 And Trim(Combo2.Text) = "低" Then
        Text5.Text = "1.20～1.33"
    End If
    
    If Val(Text3.Text) = 95 And Trim(Combo2.Text) = "中" Then
        Text5.Text = "1.33～1.50"
    End If
    
    If Val(Text3.Text) = 90 And Trim(Combo2.Text) = "低" Then
        Text5.Text = "1.09～1.16"
    End If
    
    If Val(Text3.Text) = 90 And Trim(Combo2.Text) = "中" Then
        Text5.Text = "1.16～1.23"
    End If
    
    If Val(Text3.Text) = 90 And Trim(Combo2.Text) = "高" Then
        Text5.Text = "1.23～1.33"
    End If
    
    If Val(Text3.Text) = 85 And Trim(Combo2.Text) = "低" Then
        Text5.Text = "1.04～1.08"
    End If
    
    If Val(Text3.Text) = 85 And Trim(Combo2.Text) = "中" Then
        Text5.Text = "1.08～1.13"
    End If
    
    If Val(Text3.Text) = 85 And Trim(Combo2.Text) = "高" Then
        Text5.Text = "1.13～1.18"
    End If
    
    If Val(Text3.Text) = 80 And Trim(Combo2.Text) = "中" Then
        Text5.Text = "1.04～1.07"
    End If
    
    If Val(Text3.Text) = 80 And Trim(Combo2.Text) = "高" Then
        Text5.Text = "1.07～1.11"
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Combo3_Click()
'点击车道数，确定车道分配系数
    
    On Error GoTo handlerror
    
    If Combo3.Text = "1车道" Then
        Text8.Text = "1.0"
    End If
    If Combo3.Text = "2车道" Then
        Text8.Text = "0.8～1.0"
    End If
    If Combo3.Text = "3车道" Then
        Text8.Text = "0.6～0.8"
    End If
    If Combo3.Text = "4车道" Then
        Text8.Text = "0.5～0.75"
    End If
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Combo4_Click()
'车辆轮迹横向分布系数

    On Error GoTo handlerror
    
    If Combo4.Text = "高速及一级公路" Or Combo4.Text = "收费站" Then
        Text11.Text = "0.17～0.22"
    End If
    If Combo4.Text = "二级及以下车道宽>7m" Then
        Text11.Text = "0.34～0.39"
    End If
    If Combo4.Text = "二级及以下车道宽≤7m" Then
        Text11.Text = "0.54～0.62"
    End If
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Combo5_Click()
'选择纵缝类型

    On Error GoTo handlerror
    
    If Combo5.Text = "拉杆平缝，刚性基层" Then Text13.Text = Trim("0.87")
    If Combo5.Text = "拉杆平缝，半刚性基层" Then Text13.Text = Trim("0.90")
    If Combo5.Text = "拉杆平缝，柔性基层" Then Text13.Text = Trim("0.92")
    If Combo5.Text = "无拉杆平缝" Then Text13.Text = Trim("1.00")
    If Combo5.Text = "拉杆企口缝" Then Text13.Text = Trim("0.76～0.84")
    
    Exit Sub
handlerror:

End Sub

Private Sub Combo6_Click()
'公路自然区划
    
    On Error GoTo handlerror
    
    If Combo6.Text = "Ⅱ" Then
        Text18.Text = "83～88"
        ap = 0.828
        bp = 0.041
        cp = 1.323
    End If
    If Combo6.Text = "Ⅲ" Then
        Text18.Text = "90～95"
        ap = 0.855
        bp = 0.041
        cp = 1.355
    End If
    If Combo6.Text = "Ⅳ" Then
        Text18.Text = "86～92"
        ap = 0.841
        bp = 0.058
        cp = 1.323
    End If
    If Combo6.Text = "Ⅴ" Then
        Text18.Text = "83～88"
        ap = 0.871
        bp = 0.071
        cp = 1.287
    End If
    If Combo6.Text = "Ⅵ" Then
        Text18.Text = "86～92"
        ap = 0.837
        bp = 0.038
        cp = 1.382
    End If
    If Combo6.Text = "Ⅶ" Then
        Text18.Text = "93～98"
        ap = 0.834
        bp = 0.052
        cp = 1.27
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Command1_Click()
'确定
    
    Dim i As Integer, j As Integer
    Dim strwjm As String, bgwjm As String

    On Error GoTo handlerror
    
    If rjsfzc = 88 Then
        If Trim(Text28.Text) <> "不用输入" Or Trim(Text31.Text) <> "不用输入" Or Trim(Text40.Text) <> "不用输入" Then
            strwjm = "    《水泥混凝土路面设计》"
            strwjm = strwjm & vbCrLf & "    －－－－轴载换算－－－－"
            If Option1.Value = True Then
                strwjm = strwjm & vbCrLf & "    轴载分析方法：" + Option1.Caption
                ElseIf Option2.Value = True Then
                    strwjm = strwjm & vbCrLf & "    轴载分析方法：" + Option2.Caption
            End If
            
            For i = 0 To VSFlexGrid1.Rows - 1
                bgwjm = ""
                If Trim(VSFlexGrid1.TextMatrix(i, 1)) <> "" Then
                    For j = 0 To VSFlexGrid1.Cols - 1
                        bgwjm = bgwjm + "    " + VSFlexGrid1.TextMatrix(i, j)
                    Next j
                    strwjm = strwjm & vbCrLf & bgwjm
                End If
            Next i
            
            strwjm = strwjm & vbCrLf & "    作用次数＝" + Text27.Text
            strwjm = strwjm & vbCrLf & "    －－－－设计依据－－－－"
            strwjm = strwjm & vbCrLf & "    " + Label1.Caption + "＝" + Combo1.Text
            strwjm = strwjm & vbCrLf & "    " + Label2.Caption + "＝" + Text1.Text
            strwjm = strwjm & vbCrLf & "    " + Label3.Caption + "＝" + Text2.Text
            strwjm = strwjm & vbCrLf & "    " + Label4.Caption + "＝" + Text3.Text
            strwjm = strwjm & vbCrLf & "    " + Label5.Caption + "＝" + Text4.Text
            strwjm = strwjm & vbCrLf & "    " + Label6.Caption + "＝" + Combo2.Text
            strwjm = strwjm & vbCrLf & "    " + Label7.Caption + "＝" + Text5.Text
            strwjm = strwjm & vbCrLf & "    " + Label11.Caption + "＝" + Text6.Text
            strwjm = strwjm & vbCrLf & "    " + Label8.Caption + "＝" + Text7.Text
            strwjm = strwjm & vbCrLf & "    " + Label9.Caption + "＝" + Combo3.Text
            strwjm = strwjm & vbCrLf & "    " + Label10.Caption + "＝" + Text8.Text
            strwjm = strwjm & vbCrLf & "    " + Label12.Caption + "＝" + Text9.Text
            strwjm = strwjm & vbCrLf & "    " + Label13.Caption + "＝" + Text10.Text
            strwjm = strwjm & vbCrLf & "    " + Label14.Caption + "＝" + Combo4.Text
            strwjm = strwjm & vbCrLf & "    " + Label15.Caption + "＝" + Text11.Text
            strwjm = strwjm & vbCrLf & "    " + Label16.Caption + "＝" + Text12.Text
            strwjm = strwjm & vbCrLf & "    " + Label33.Caption + "＝" + Text28.Text
            strwjm = strwjm & vbCrLf & "    －－－－荷载应力－－－－"
            strwjm = strwjm & vbCrLf & "    " + Label34.Caption + "＝" + Text29.Text
            strwjm = strwjm & vbCrLf & "    " + Label17.Caption + "＝" + Combo5.Text
            strwjm = strwjm & vbCrLf & "    " + Label18.Caption + "＝" + Text13.Text
            strwjm = strwjm & vbCrLf & "    " + Label19.Caption + "＝" + Text14.Text
            strwjm = strwjm & vbCrLf & "    " + Label20.Caption + "＝" + Text15.Text
            strwjm = strwjm & vbCrLf & "    " + Label27.Caption + "＝" + Text16.Text
            strwjm = strwjm & vbCrLf & "    " + Label28.Caption + "＝" + Text17.Text
            strwjm = strwjm & vbCrLf & "    " + Label30.Caption + "＝" + Combo6.Text
            strwjm = strwjm & vbCrLf & "    " + Label31.Caption + " = " + Text18.Text
            If Option3.Value = True Then '新建公路
                strwjm = strwjm & vbCrLf & "    " + Option3.Caption
                strwjm = strwjm & vbCrLf & "    " + Label25.Caption + "＝" + Text19.Text + "    " + Label26.Caption + "＝" + Text20.Text
                strwjm = strwjm & vbCrLf & "    " + Label23.Caption + "＝" + Text21.Text + "    " + Label24.Caption + "＝" + Text22.Text
                strwjm = strwjm & vbCrLf & "    " + Label21.Caption + "＝" + Text23.Text + "    " + Label22.Caption + "＝" + Text24.Text
                strwjm = strwjm & vbCrLf & "    " + Label35.Caption + "＝" + Text30.Text
            End If
            If Option4.Value = True Then
                strwjm = strwjm & vbCrLf & "    " + Option4.Caption
                strwjm = strwjm & vbCrLf & "    " + Label32.Caption + "＝" + Text25.Text
            End If
            strwjm = strwjm & vbCrLf & "    " + Label29.Caption + "＝" + Text26.Text
            strwjm = strwjm & vbCrLf & "    " + Label36.Caption + "＝" + Text31.Text
            
            strwjm = strwjm & vbCrLf & "    －－－－温度应力－－－－"
            strwjm = strwjm & vbCrLf & "    " + Label37.Caption + "＝" + Text32.Text
            strwjm = strwjm & vbCrLf & "    " + Label38.Caption + "＝" + Text33.Text
            strwjm = strwjm & vbCrLf & "    " + Label39.Caption + "＝" + Text34.Text
            strwjm = strwjm & vbCrLf & "    " + Label40.Caption + "＝" + Text35.Text
            strwjm = strwjm & vbCrLf & "    " + Label41.Caption + "＝" + Text36.Text
            strwjm = strwjm & vbCrLf & "    " + Label42.Caption + "＝" + Text37.Text
            strwjm = strwjm & vbCrLf & "    " + Label43.Caption + "＝" + Text38.Text
            strwjm = strwjm & vbCrLf & "    " + Label44.Caption + "＝" + Text39.Text
            strwjm = strwjm & vbCrLf & "    " + Label45.Caption + "＝" + Text40.Text
            
            
            frmMain.Text1 = frmMain.Text1 & vbCrLf & strwjm
            frmMain.Text1 = frmMain.Text1 & vbCrLf & "    --------------------------------------"
        End If
    End If
    
    
    Unload Me
    
    Exit Sub
handlerror:

End Sub

Private Sub Command2_Click()
'Ne轴载次数计算

    On Error GoTo handlerror
    
    SSTab1.TabEnabled(2) = True
    
    '计算ADTT
    fjwb = Trim(Text8.Text)
    
    Call subfjsj
    
    If Val(sj(1)) <> 0 And Val(sj(2)) <> 0 Then
        adtt = (Val(sj(1)) + Val(sj(2))) / 2 * Val(Text7.Text) * Val(Text9.Text)
    End If
    If Val(sj(1)) = 0 Or Val(sj(2)) = 0 Then
        adtt = Val(Text8.Text) * Val(Text7.Text) * Val(Text9.Text)
    End If
    Text10.Text = Trim(Str(Int(adtt * 1000 + 0.5) / 1000))
    
    fjwb = Text11.Text
    Call subfjsj
    If Val(sj(1)) <> 0 And Val(sj(2)) <> 0 Then
        nn = (Val(sj(1)) + Val(sj(2))) / 2
    End If
    If Val(sj(1)) = 0 Or Val(sj(2)) = 0 Then
        nn = Val(Text11.Text)
    End If
    
    gr = Val(Text6.Text) / 100
    t = Val(Text2.Text)
    
    If Val(Text27.Text) <> 0 Then
        nss = Val(Text27.Text)
        Else
            nss = 1
    End If
    
    ns = Val(Text10.Text) * nss
    
    ne = ns * ((1 + gr) ^ t - 1) * 365 * nn / gr
    
    Text12.Text = Trim(Str(Int(ne * 1000 + 0.5) / 1000))
    
    '交通分级计算
    If ne / 10000 > 2000 Then Text28.Text = "特重": Text29.Text = "5.0MPa"
    If ne / 10000 > 100 And ne / 10000 <= 2000 Then Text28.Text = "重": Text29.Text = "5.0MPa"
    If ne / 10000 >= 3 And ne / 10000 <= 100 Then Text28.Text = "中等": Text29.Text = "4.5MPa"
    If ne / 10000 < 3 Then Text28.Text = "轻": Text29.Text = "4.0MPa"
    
    '疲劳应力系数计算
    kf = ne ^ (0.057)
    Text14.Text = Trim(Str(Int(kf * 10000 + 0.5) / 10000))
    
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Command3_Click()
'应力计算

    Dim h1 As Double, h2 As Double, h3 As Double
    Dim e1 As Double, e2 As Double, e3 As Double, e0 As Double, et As Double
    
    On Error GoTo handlerror
    
    SSTab1.TabEnabled(3) = True
    
    '计算新建路面的当量回弹模量
    If Option3.Value = True Then
        h1 = 0: h2 = 0: h3 = 0
        e1 = 0: e2 = 0: e3 = 0: e0 = 0
        
        '基层
        h1 = Val(Text19.Text)
        e1 = Val(Text20.Text)
        '底基层
        h2 = Val(Text21.Text)
        e2 = Val(Text22.Text)
        '垫层
        h3 = Val(Text23.Text)
        e3 = Val(Text24.Text)
        '路床
        e0 = Val(Text30.Text)
        
        '当量计算