📄 水泥砼设计.frm

📁 饮羽公路测设（glcs）由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
        If h1 = 0 Or e1 = 0 Or e0 = 0 Then
            xiansh = MsgBox("基层厚度、回弹模量或路床顶面回弹模量不能为0。", vbInformation, "问题提示")
            Exit Sub
        End If
        If h1 <> 0 And h2 = 0 And h3 = 0 Then '只有基层，没有底基层和垫层时
            ex = e1
            dx = e1 * h1 * h1 * h1 / 12
            hx = (12 * dx / ex) ^ (1 / 3)
        End If
        If h1 <> 0 And h2 <> 0 And h3 = 0 Then '只有基层、底基层，没有垫层时
            hh1 = h1
            hh2 = h2
            ee1 = e1
            ee2 = e2
            Call subjcdl
            ex = eex
            dx = ddx
            hx = hhx
        End If
        
        If h1 <> 0 And h2 = 0 And h3 <> 0 Then '只有基层、垫层，没有底基层时
            hh1 = h1
            hh2 = h3
            ee1 = e1
            ee2 = e3
            Call subjcdl
            ex = eex
            dx = ddx
            hx = hhx
        End If
        
        If h1 <> 0 And h2 <> 0 And h3 <> 0 Then '基层、底基层和垫层均有时
            hh1 = h2
            ee1 = e2
            hh2 = h3
            ee2 = e3
            Call subjcdl
            hh1 = h1
            ee1 = e1
            hh2 = hhx
            ee2 = eex
            Call subjcdl
            ex = eex
            dx = ddx
            hx = hhx
        End If
        
        a = 6.22 * (1 - 1.51 * (ex / e0) ^ (-0.45))
        b = 1 - 1.44 * (ex / e0) ^ (-0.55)
        et = a * hx ^ (b) * e0 * (ex / e0) ^ (1 / 3)
    End If
    
    '柔性路面
    If Option4.Value = True Then
        Text26.Text = ""
        et = 0
        If Val(Text25.Text) > 0 Then
            w0 = Val(Text25.Text)
            et = 13739 * w0 ^ (-1.04)
        End If
    End If
    
    Text26.Text = Trim(Str(Int(et * 1000 + 0.5) / 1000))
    
    '荷载疲劳应力计算
    fjwb = Trim(Text13.Text)
    Call subfjsj
    If Val(sj(1)) <> 0 And Val(sj(2)) <> 0 Then
        kr = (Val(sj(1)) + Val(sj(2))) / 2
    End If
    If Val(sj(1)) = 0 Or Val(sj(2)) = 0 Then
        kr = Val(Text13.Text)
    End If
    
    kf = Val(Text14.Text)
    kc = Val(Text15.Text)
    h = Val(Text16.Text)
    ec = Val(Text17.Text)
    
    r = 0.537 * h * (ec / et) ^ (1 / 3)
    bps = 0.077 * r ^ (0.6) * h ^ (-2)
    ppr = kr * kf * kc * bps
    Text31.Text = Trim(Str(Int(ppr * 1000 + 0.5) / 1000))
    
    
    
    Exit Sub
handlerror:
    xiansh = MsgBox("在进行应力计算时出错，请再试试。", vbInformation, "问题提示")

End Sub

Private Sub Command4_Click()
'温度应力计算

    On Error GoTo handlerror
    
    ac = Val(Text32.Text)
    ec = Val(Text17.Text)
    tg = Val(Text18.Text)
    h = Val(Text16.Text)
    bx = Val(Text35.Text)
    fr = Val(Text29.Text)
    
    ptm = ac * ec * h * tg * bx / 2
    Text37.Text = Trim(Str(Int(ptm * 1000 + 0.5) / 1000))
    
    kt = fr / ptm * (ap * (ptm / fr) ^ cp - bp)
    Text36.Text = Trim(Str(Int(kt * 1000 + 0.5) / 1000))
    
    ptr = kt * ptm
    Text38.Text = Trim(Str(Int(ptr * 1000 + 0.5) / 1000))
    
    '可靠度系数
    fjwb = Trim(Text5.Text)
    Call subfjsj
    If Val(sj(1)) <> 0 And Val(sj(2)) <> 0 Then
        rr = (Val(sj(1)) + Val(sj(2))) / 2
    End If
    If Val(sj(1)) = 0 Or Val(sj(2)) = 0 Then
        rr = Val(Text5.Text)
    End If
    
    zhylz = rr * (ptr + ppr)
    Text39.Text = Trim(Str(Int(zhylz * 1000 + 0.5) / 1000))
    
    If zhylz <= fr Then Text40.Text = "通过验算"
    If zhylz > fr Then Text40.Text = "需增加板厚"
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'Esc键退出，VbEscape可以用27代替
    On Error GoTo handlerror

    If KeyAscii = 27 Then
        Unload Me
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_Load()
'启动

    On Error GoTo handlerror
    
    '设计参数
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    
    Combo1.Clear
    Combo1.AddItem "高速公路"
    Combo1.AddItem "一级公路"
    Combo1.AddItem "二级公路"
    Combo1.AddItem "三级公路"
    Combo1.AddItem "四级公路"
    
    Combo2.Clear
    
    '分配系数
    Text6.Text = "5"
    Text7.Text = "0.5"
    Text8.Text = ""
    
    Text9.Text = ""
    Text10.Text = "不用输入"
    Text11.Text = ""
    Text12.Text = "不用输入"
    
    Combo3.Clear
    Combo3.AddItem "1车道"
    Combo3.AddItem "2车道"
    Combo3.AddItem "3车道"
    Combo3.AddItem "4车道"
    
    '车辆轮迹横向分布系数
    Combo4.Clear
    Combo4.AddItem "高速及一级公路"
    Combo4.AddItem "收费站"
    Combo4.AddItem "二级及以下车道宽>7m"
    Combo4.AddItem "二级及以下车道宽≤7m"
    
    '轴载当量换算系数法
    With VSFlexGrid1
        .TextMatrix(0, 0) = "序号"
        .TextMatrix(0, 1) = "轴-轮型"
        .TextMatrix(0, 2) = "Pi轴重(KN)"
        .TextMatrix(0, 3) = "δi轴轮型系数"
        .TextMatrix(0, 4) = "kp,ij系数"
        .TextMatrix(0, 5) = "ni出现次数"
        .TextMatrix(0, 6) = "Pij频率(分数)"
        .TextMatrix(0, 7) = "作用次数"
        
        .ColWidth(0) = 500
        .ColWidth(1) = 1100
        .ColWidth(2) = 1100
        .ColWidth(3) = 0    '1300
        .ColWidth(4) = 0    '1100
        .ColWidth(5) = 1100
        .ColWidth(6) = 1300
        
        For i = 0 To .Cols - 1
            .ColAlignment(i) = flexAlignCenterCenter
        Next i
        For i = 1 To .Rows - 1
            .TextMatrix(i, 0) = i
        Next i
    End With
    
    '轴载当量换算系数法
    With VSFlexGrid2
        .TextMatrix(0, 0) = "序号"
        .TextMatrix(0, 1) = "轴-轮型"
        .TextMatrix(0, 2) = "Pi轴重(KN)"
        .TextMatrix(0, 3) = "δi轴轮型系数"
        .TextMatrix(0, 4) = "kp,ij系数"
        .TextMatrix(0, 5) = "Pij频率(分数)"
        .TextMatrix(0, 6) = "Pk比例(分数)"
        .TextMatrix(0, 7) = "作用次数"
        
        .ColWidth(0) = 500
        .ColWidth(1) = 1100
        .ColWidth(2) = 1000
        .ColWidth(3) = 0    '1300
        .ColWidth(4) = 0    '1100
        .ColWidth(5) = 1300
        .ColWidth(6) = 1200
        
        .ColWidth(8) = 0
        .ColWidth(9) = 0
        
        For i = 0 To .Cols - 1
            .ColAlignment(i) = flexAlignCenterCenter
        Next i
        For i = 1 To .Rows - 1
            .TextMatrix(i, 0) = i
        Next i
    End With
    
    Text27.Text = ""
    Text28.Text = "不用输入"
    
    '应力计算
    Text29.Text = ""
    Combo5.Clear
    Combo5.AddItem "拉杆平缝，刚性基层"
    Combo5.AddItem "拉杆平缝，半刚性基层"
    Combo5.AddItem "拉杆平缝，柔性基层"
    Combo5.AddItem "无拉杆平缝"
    Combo5.AddItem "拉杆企口缝"
    Text13.Text = ""
    Text14.Text = ""
    Text15.Text = ""
    
    Text16.Text = ""
    Text17.Text = ""
    Text18.Text = ""
    
    Combo6.Clear
    Combo6.AddItem "Ⅱ"
    Combo6.AddItem "Ⅲ"
    Combo6.AddItem "Ⅳ"
    Combo6.AddItem "Ⅴ"
    Combo6.AddItem "Ⅵ"
    Combo6.AddItem "Ⅶ"
    
    
    '垫层、底基层、基层（厚度、回弹模量）
    Text19.Text = ""
    Text20.Text = ""
    Text21.Text = ""
    Text22.Text = ""
    Text23.Text = ""
    Text24.Text = ""
    Text25.Text = ""
    Text26.Text = "不用输入"
    '路床顶面
    Text30.Text = ""
    Label32.Visible = False
    Text25.Visible = False
        
    Text31.Text = "不用输入"
    
    '计算按钮
    Command2.Visible = False
    Command3.Visible = False
    Command4.Visible = False
    
    '温度应力
    Text32.Text = ""
    Text33.Text = ""
    Text34.Text = ""
    Text35.Text = ""
    Text36.Text = "不用输入"
    Text37.Text = "不用输入"
    Text38.Text = "不用输入"
    Text39.Text = "不用输入"
    Text40.Text = "不用输入"
    
    Text32.Text = "0.00001"
    
    SSTab1.Tab = 0
    
    SSTab1.TabEnabled(2) = False
    SSTab1.TabEnabled(3) = False
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Option1_Click()
'显示轴载或车辆

    On Error GoTo handlerror
    
    If Option1.Value = True Then
        Frame3.Visible = True
        Frame4.Visible = False
        Else
            Frame3.Visible = False
            Frame4.Visible = True
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Option2_Click()
'显示轴载或车辆

    On Error GoTo handlerror
    
    If Option2.Value = True Then
        Frame4.Visible = True
        Frame3.Visible = False
        Else
            Frame4.Visible = False
            Frame3.Visible = True
    End If
    
    Exit Sub
handlerror:

End Sub


Private Sub Option3_Click()
'新建公路

    On Error GoTo handlerror
    
    Label32.Visible = False
    Text25.Visible = False
    
    Label21.Visible = True
    Label22.Visible = True
    Label23.Visible = True
    Label24.Visible = True
    Label25.Visible = True
    Label26.Visible = True
    Label35.Visible = True
    Text19.Visible = True
    Text20.Visible = True
    Text21.Visible = True
    Text22.Visible = True
    Text23.Visible = True
    Text24.Visible = True
    Text30.Visible = True
    
    
    Exit Sub
handlerror:

End Sub

Private Sub Option4_Click()
'旧柔性路面

    On Er
上一页 1 2 3 45
⌨️ 快捷键说明

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