⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 水泥砼路面配比.frm

📁 饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    If Check1.Value = 1 Then '有抗冻要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.42"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.44"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.46"
        End If
    End If
    
    If Check1.Value = 0 And Check2.Value = 0 Then '无抗冻、无抗盐要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.44"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.46"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.48"
        End If
    End If
    
    If Check1.Value = 0 And Check2.Value = 1 Then '无抗冻、有抗盐要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.40"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.42"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.44"
        End If
    End If
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Check2_Click()
'是否有抗盐要求
    
    On Error GoTo handlerror
    
    If Check2.Value = 1 Then '有抗盐要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.40"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.42"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.44"
        End If
    End If
    
    If Check1.Value = 0 And Check2.Value = 0 Then '无抗冻、抗盐要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.44"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.46"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.48"
        End If
    End If
    
    If Check1.Value = 1 And Check2.Value = 0 Then ' 有抗冻、无抗盐要求
        If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
            Text8.Text = "0.42"
        End If
        If Combo1.Text = "二级公路" Then
            Text8.Text = "0.44"
        End If
        If Combo1.Text = "三、四级公路" Then
            Text8.Text = "0.46"
        End If
    End If
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo1_Click()
'公路技术等级

    On Error GoTo handlerror
    
    If Combo1.Text = "高速公路" Then
        Combo3.Clear
        Combo3.Text = "低 0.05～0.10"
        Text8.Text = "0.44" '水灰比
    End If
    
    If Combo1.Text = "一级公路" Then
        Combo3.Clear
        Combo3.AddItem "低 0.05～0.10"
        Combo3.AddItem "中 0.10～0.15"
        Combo3.Text = "低 0.05～0.10"
        Text8.Text = "0.44" '水灰比
    End If
    
    If Combo1.Text = "二级公路" Then
        Combo3.Clear
        Combo3.Text = "中 0.10～0.15"
        Text8.Text = "0.46" '水灰比
    End If
    
    If Combo1.Text = "三、四级公路" Then
        Combo3.Clear
        Combo3.AddItem "中 0.10～0.15"
        Combo3.AddItem "高 0.15～0.20"
        Combo3.Text = "高 0.15～0.20"
        Text8.Text = "0.48" '水灰比
    End If
    
    Check1.Value = 0
    Check2.Value = 0
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo2_Click()
'样本数

    On Error GoTo handlerror
    
    If Combo1.Text = "" Then
        xiansh = MsgBox("请先选择公路技术等级，然后再选择样本数。", vbInformation, "问题提示")
        Combo2.Text = ""
        Exit Sub
    End If
    
    If Combo1.Text = "高速公路" Then
        If Combo2.Text = "3   组" Then
            t = 1.36
            ElseIf Combo2.Text = "6   组" Then
                t = 0.79
                ElseIf Combo2.Text = "9   组" Then
                    t = 0.61
                    ElseIf Combo2.Text = "15  组" Then
                        t = 0.45
                        ElseIf Combo2.Text = "20  组" Then
                            t = 0.39
        End If
    End If
    
    If Combo1.Text = "一级公路" Then
        If Combo2.Text = "3   组" Then
            t = 0.95
            ElseIf Combo2.Text = "6   组" Then
                t = 0.59
                ElseIf Combo2.Text = "9   组" Then
                    t = 0.46
                    ElseIf Combo2.Text = "15  组" Then
                        t = 0.35
                        ElseIf Combo2.Text = "20  组" Then
                            t = 0.3
        End If
    End If
    
    If Combo1.Text = "二级公路" Then
        If Combo2.Text = "3   组" Then
            t = 0.72
            ElseIf Combo2.Text = "6   组" Then
                t = 0.46
                ElseIf Combo2.Text = "9   组" Then
                    t = 0.37
                    ElseIf Combo2.Text = "15  组" Then
                        t = 0.28
                        ElseIf Combo2.Text = "20  组" Then
                            t = 0.24
        End If
    End If
    
    If Combo1.Text = "三、四级公路" Then
        If Combo2.Text = "3   组" Then
            t = 0.56
            ElseIf Combo2.Text = "6   组" Then
                t = 0.37
                ElseIf Combo2.Text = "9   组" Then
                    t = 0.29
                    ElseIf Combo2.Text = "15  组" Then
                        t = 0.22
                        ElseIf Combo2.Text = "20  组" Then
                            t = 0.19
        End If
    End If
    
    Text1.Text = Trim(Str(t))
    
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo4_Click()
'选择交通等级

    On Error GoTo handlerror
    
    If Combo4.Text = "1、特重" Then
        Text4.Text = Trim(Str(5#)) + "  MPa"
    End If
    If Combo4.Text = "2、重" Then
        Text4.Text = Trim(Str(5#)) + "  MPa"
    End If
    If Combo4.Text = "3、中等" Then
        Text4.Text = Trim(Str(4.5)) + "  MPa"
    End If
    If Combo4.Text = "4、轻" Then
        Text4.Text = Trim(Str(4#)) + "  MPa"
    End If
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo5_Click()
'选择粗集料

    On Error GoTo handlerror
    
    Combo6.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo6_Click()
'施工方法

    On Error GoTo handlerror
    
    If Combo5.Text = "" Then
        xiansh = MsgBox("请先选择粗集料类型，然后再选择施工方法。", vbInformation, "问题提示")
        Combo6.Text = ""
        Exit Sub
    End If
    
    If Combo6.Text = "1、滑模摊铺机" Then
        Label11.Caption = "最佳坍落度SL(mm)"
        Label12.Caption = "波动坍落度SL(mm)"
        If Combo5.Text = "1、碎石" Then
            Text5.Text = "25～50"
            Text6.Text = "10～65"
            Text7.Text = "160"
        End If
        If Combo5.Text = "2、卵石" Then
            Text5.Text = "20～40"
            Text6.Text = "5～55"
            Text7.Text = "155"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text5.Text = "20～40"
            Text6.Text = "5～55"
            Text7.Text = "158"
        End If
    End If
    If Combo6.Text = "2、轨道摊铺机" Then
        Label11.Caption = "出机坍落度SL(mm)"
        Label12.Caption = "摊铺坍落度SL(mm)"
        If Combo5.Text = "1、碎石" Then
            Text5.Text = "40～60"
            Text6.Text = "20～40"
            Text7.Text = "156"
        End If
        If Combo5.Text = "2、卵石" Then
            Text5.Text = "40～60"
            Text6.Text = "20～40"
            Text7.Text = "153"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text5.Text = "40～60"
            Text6.Text = "20～40"
            Text7.Text = "155"
        End If
    End If
    If Combo6.Text = "3、三辊轴机组" Then
        Label11.Caption = "出机坍落度SL(mm)"
        Label12.Caption = "摊铺坍落度SL(mm)"
        If Combo5.Text = "1、碎石" Then
            Text5.Text = "30～50"
            Text6.Text = "10～30"
            Text7.Text = "153"
        End If
        If Combo5.Text = "2、卵石" Then
            Text5.Text = "30～50"
            Text6.Text = "10～30"
            Text7.Text = "148"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text5.Text = "30～50"
            Text6.Text = "10～30"
            Text7.Text = "152"
        End If
    End If
    If Combo6.Text = "4、小型机具" Then
        Label11.Caption = "出机坍落度SL(mm)"
        Label12.Caption = "摊铺坍落度SL(mm)"
        If Combo5.Text = "1、碎石" Then
            Text5.Text = "10～40"
            Text6.Text = "0～20"
            Text7.Text = "150"
        End If
        If Combo5.Text = "2、卵石" Then
            Text5.Text = "10～40"
            Text6.Text = "0～20"
            Text7.Text = "145"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text5.Text = "10～40"
            Text6.Text = "0～20"
            Text7.Text = "148"
        End If
    End If
    
    Exit Sub
handlerror:
    xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")

End Sub

Private Sub Combo7_Click()
'砂的细度模数

    On Error GoTo handlerror
    
    If Combo7.Text = "2.2～2.5" Then
        If Combo5.Text = "1、碎石" Then
            Text9.Text = "30～34"
        End If
        If Combo5.Text = "2、卵石" Then
            Text9.Text = "28～32"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text9.Text = "29～33"
        End If
    End If
    If Combo7.Text = "2.5～2.8" Then
        If Combo5.Text = "1、碎石" Then
            Text9.Text = "32～36"
        End If
        If Combo5.Text = "2、卵石" Then
            Text9.Text = "30～34"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text9.Text = "31～35"
        End If
    End If
    If Combo7.Text = "2.8～3.1" Then
        If Combo5.Text = "1、碎石" Then
            Text9.Text = "34～38"
        End If
        If Combo5.Text = "2、卵石" Then
            Text9.Text = "32～36"
        End If
        If Combo5.Text = "3、碎卵石" Then
            Text9.Text = "33～37"
        End If
    End If
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -