公路技术标准.frm

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

        VSFlexGrid1.TextMatrix(6, 1) = "400m"
        VSFlexGrid1.TextMatrix(7, 1) = "250m"
        VSFlexGrid1.TextMatrix(8, 1) = "2500～3350m"
        VSFlexGrid1.TextMatrix(4, 3) = "5"
        VSFlexGrid1.TextMatrix(5, 3) = "200m"
        VSFlexGrid1.TextMatrix(6, 3) = "4500m"
        VSFlexGrid1.TextMatrix(7, 3) = "3000m"
        VSFlexGrid1.TextMatrix(8, 3) = "3000m"
        VSFlexGrid1.TextMatrix(9, 3) = "2000m"
        VSFlexGrid1.TextMatrix(10, 3) = "70m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.75m"
        VSFlexGrid1.TextMatrix(9, 1) = "70m"
        VSFlexGrid1.TextMatrix(10, 1) = "140m"
    End If
    If Combo2.Text = "60km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "200m"
        VSFlexGrid1.TextMatrix(7, 1) = "125m"
        VSFlexGrid1.TextMatrix(8, 1) = "1500～1900m"
        VSFlexGrid1.TextMatrix(4, 3) = "6"
        VSFlexGrid1.TextMatrix(5, 3) = "150m"
        VSFlexGrid1.TextMatrix(6, 3) = "2000m"
        VSFlexGrid1.TextMatrix(7, 3) = "1400m"
        VSFlexGrid1.TextMatrix(8, 3) = "1500m"
        VSFlexGrid1.TextMatrix(9, 3) = "1000m"
        VSFlexGrid1.TextMatrix(10, 3) = "50m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.50m"
        VSFlexGrid1.TextMatrix(9, 1) = "50m"
        VSFlexGrid1.TextMatrix(10, 1) = "100m"
    End If
    If Combo2.Text = "40km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "100m"
        VSFlexGrid1.TextMatrix(7, 1) = "60m"
        VSFlexGrid1.TextMatrix(8, 1) = "600～800m"
        VSFlexGrid1.TextMatrix(4, 3) = "7"
        VSFlexGrid1.TextMatrix(5, 3) = "120m"
        VSFlexGrid1.TextMatrix(6, 3) = "700m"
        VSFlexGrid1.TextMatrix(7, 3) = "450m"
        VSFlexGrid1.TextMatrix(8, 3) = "700m"
        VSFlexGrid1.TextMatrix(9, 3) = "450m"
        VSFlexGrid1.TextMatrix(10, 3) = "35m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.50m"
        VSFlexGrid1.TextMatrix(9, 1) = "35m"
        VSFlexGrid1.TextMatrix(10, 1) = "70m"
    End If
    If Combo2.Text = "30km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "65m"
        VSFlexGrid1.TextMatrix(7, 1) = "30m"
        VSFlexGrid1.TextMatrix(8, 1) = "350～450m"
        VSFlexGrid1.TextMatrix(4, 3) = "8"
        VSFlexGrid1.TextMatrix(5, 3) = "100m"
        VSFlexGrid1.TextMatrix(6, 3) = "400m"
        VSFlexGrid1.TextMatrix(7, 3) = "250m"
        VSFlexGrid1.TextMatrix(8, 3) = "400m"
        VSFlexGrid1.TextMatrix(9, 3) = "250m"
        VSFlexGrid1.TextMatrix(10, 3) = "25m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.25m"
        VSFlexGrid1.TextMatrix(9, 1) = "25m"
        VSFlexGrid1.TextMatrix(10, 1) = "50m"
    End If
    If Combo2.Text = "20km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "30m"
        VSFlexGrid1.TextMatrix(7, 1) = "15m"
        VSFlexGrid1.TextMatrix(8, 1) = "150～200m"
        VSFlexGrid1.TextMatrix(4, 3) = "9"
        VSFlexGrid1.TextMatrix(5, 3) = "60m"
        VSFlexGrid1.TextMatrix(6, 3) = "200m"
        VSFlexGrid1.TextMatrix(7, 3) = "100m"
        VSFlexGrid1.TextMatrix(8, 3) = "200m"
        VSFlexGrid1.TextMatrix(9, 3) = "100m"
        VSFlexGrid1.TextMatrix(10, 3) = "20m"
        VSFlexGrid1.TextMatrix(9, 1) = "20m"
        VSFlexGrid1.TextMatrix(10, 1) = "40m"
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Command1_Click()
'关闭

    Dim i As Integer, j As Integer
    Dim wjb As String
    
    On Error GoTo handlerror
    
    If rjsfzc = 88 And Trim(Combo1.Text) <> "" Then
        frmMain.Text1 = frmMain.Text1 & vbCrLf & ""
        frmMain.Text1 = frmMain.Text1 & vbCrLf & "    《公路技术标准计算结果》"
        
        wjb = ""
        For i = 0 To VSFlexGrid1.Rows - 1
            wjb = wjb & vbCrLf & "    " + VSFlexGrid1.TextMatrix(i, 0) + VSFlexGrid1.TextMatrix(i, 1)
        Next i
        For i = 0 To VSFlexGrid1.Rows - 1
            wjb = "    " + wjb & vbCrLf & "    " + VSFlexGrid1.TextMatrix(i, 2) + VSFlexGrid1.TextMatrix(i, 3)
        Next i
        
        frmMain.Text1 = frmMain.Text1 & vbCrLf & wjb
        frmMain.Text1 = frmMain.Text1 & vbCrLf & ""
        frmMain.Text1 = frmMain.Text1 & vbCrLf & "    --------------------------------------"
    End If
    
    Unload Me
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_DblClick()
   xianshi = MsgBox("欢迎你使用本程序，有问题请联系我" & vbCrLf & "电子邮箱：[e-mail]", vbInformation, "提示")
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
    
    Combo1.Clear
    Combo1.AddItem "高速公路"
    Combo1.AddItem "一级公路"
    Combo1.AddItem "二级公路"
    Combo1.AddItem "三级公路"
    Combo1.AddItem "四级公路"
    
    Combo3.Clear
    Combo2.Clear
    
    With VSFlexGrid1
        .Rows = 11
        .RowHeightMin = 330
        .ColWidth(0) = 1900
        .ColWidth(1) = 1150
        .ColWidth(2) = 1900
        .ColWidth(3) = 1150
        
        .ColAlignment(1) = flexAlignCenterCenter
        .ColAlignment(3) = flexAlignCenterCenter
        
        .TextMatrix(0, 0) = "公路等级          ＝"
        .TextMatrix(1, 0) = "计算行车速度      ＝"
        .TextMatrix(2, 0) = "车道数            ＝"
        .TextMatrix(3, 0) = "路基宽度（一般值）＝"
        .TextMatrix(4, 0) = "路基宽度（最小值）＝"
        .TextMatrix(5, 0) = "车道宽度          ＝"
        .TextMatrix(6, 0) = "一般最小半径      ＝"
        .TextMatrix(7, 0) = "极限最小半径      ＝"
        .TextMatrix(8, 0) = "不设超高最小半径  ＝"
        .TextMatrix(9, 0) = "缓和曲线最小长度  ＝"
        .TextMatrix(10, 0) = "平曲线最小长度    ＝"
        
        .TextMatrix(0, 2) = "停车视距          ＝"
        .TextMatrix(1, 2) = "会车视距          ＝"
        .TextMatrix(2, 2) = "超车视线          ＝"
        .TextMatrix(3, 2) = "设计洪水频率      ＝"
        .TextMatrix(4, 2) = "最大纵坡（%）     ＝"
        .TextMatrix(5, 2) = "最小坡长（m）     ＝"
        .TextMatrix(6, 2) = "凸形竖曲线一般半径＝"
        .TextMatrix(7, 2) = "凸形竖曲线最小半径＝"
        .TextMatrix(8, 2) = "凹形竖曲线一般半径＝"
        .TextMatrix(9, 2) = "凹形竖曲线极限半径＝"
        .TextMatrix(10, 2) = "竖曲线最小长度    ＝"
    End With
    
    List1.Visible = False
    List1.Clear
    List1.AddItem "公路等级,高速公路,高速公路,高速公路,高速公路,高速公路,高速公路,高速公路,高速公路,一级公路,一级公路,一级公路,一级公路,一级公路,一级公路,二级公路,二级公路,三级公路,三级公路,四级公路,四级公路"
    List1.AddItem "设计速度 , 120, 120, 120, 100, 100, 100, 80, 80, 100, 100, 100, 80, 80, 60, 80, 60, 40, 30, 20, 20"
    List1.AddItem "公路等级 , 高速公路, 高速公路, 高速公路, 高速公路, 高速公路, 高速公路, 高速公路, 高速公路, 一级公路, 一级公路, 一级公路, 一级公路, 一级公路, 一级公路, 二级公路, 二级公路, 三级公路, 三级公路, 四级公路, 四级公路"
    List1.AddItem "设计速度 , 120, 120, 120, 100, 100, 100, 80, 80, 100, 100, 100, 80, 80, 60, 80, 60, 40, 30, 20, 20"
    List1.AddItem "车道数 , 8, 6, 4, 8, 6, 4, 6, 4, 8, 6, 4, 6, 4, 4, 2, 2, 2, 2, 2, 1"
    List1.AddItem "路基宽度 , 45, 34.5, 28, 44, 33.5, 26, 32, 24.5, 44, 33.5, 26, 32, 24.5, 23, 12, 10, 8.5, 7.5, 6.5, 4.5"
    List1.AddItem "路基宽度（最小值）,42,,26,41,,24.5,,21.5,41,,24.5,,21.5,20,10,8.5,,,,"
    List1.AddItem "车道宽度 , 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.75, 3.5, 3.75, 3.5, 3.5, 3.25, 3, 3.5"
    List1.AddItem "一般最小半径 , 1000, 1000, 1000, 700, 700, 700, 400, 400, 700, 700, 700, 400, 400, 200, 400, 200, 100, 65, 30, 30"
    List1.AddItem "极限最小半径 , 650, 650, 650, 400, 400, 400, 250, 250, 400, 400, 400, 250, 250, 125, 250, 125, 60, 30, 15, 15"
    List1.AddItem "不设超高最小半径,5500～7500,5500～7500,5500～7500,4000～5250,4000～5250,4000～5250,2500～3350,2500～3350,4000～5250,4000～5250,4000～5250,2500～3350,2500～3350,1500～1900,2500～3350,1500～1900,600～800,350～450,150～200,150～200"
    List1.AddItem "缓和曲线最小长度 , 100, 100, 100, 85, 85, 85, 70, 70, 85, 85, 85, 70, 70, 50, 70, 50, 35, 25, 20, 20"
    List1.AddItem "平曲线最小长度 , 200, 200, 200, 170, 170, 170, 140, 140, 170, 170, 170, 140, 140, 100, 140, 100, 70, 50, 40, 40"
    List1.AddItem "停车视距 , 210, 210, 210, 160, 160, 160, 110, 110, 160, 160, 160, 110, 110, 75, 110, 75, 40, 30, 20, 20"
    List1.AddItem "会车视距 , , , , , , , , , , , , , , , 220, 150, 80, 60, 40, 40"
    List1.AddItem "超车视线 , , , , , , , , , , , , , , , 550, 350, 200, 150, 100, 100"
    List1.AddItem "设计洪水频率 , 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 100, 1 / 50, 1 / 50, 1 / 25, 1 / 25, 按具体情况确定, 按具体情况确定"
    List1.AddItem "最大纵坡（%）,3,3,3,4,4,4,5,5,4,4,4,5,5,6,5,6,7,8,9,9"
    List1.AddItem "最小坡长 (m), 300, 300, 300, 250, 250, 250, 200, 200, 250, 250, 250, 200, 200, 150, 200, 150, 120, 100, 60, 60"
    List1.AddItem "凸形竖曲线一般半径 , 17000, 17000, 17000, 10000, 10000, 10000, 4500, 4500, 10000, 10000, 10000, 4500, 4500, 2000, 4500, 2000, 700, 400, 200, 200"
    List1.AddItem "凸形竖曲线最小半径 , 11000, 11000, 11000, 6500, 6500, 6500, 3000, 3000, 6500, 6500, 6500, 3000, 3000, 1400, 3000, 1400, 450, 250, 100, 100"
    List1.AddItem "凹形竖曲线一般半径 , 6000, 6000, 6000, 4500, 4500, 4500, 3000, 3000, 4500, 4500, 4500, 3000, 3000, 1500, 3000, 1500, 700, 400, 200, 200"
    List1.AddItem "凹形竖曲线极限半径 , 4000, 4000, 4000, 3000, 3000, 3000, 2000, 2000, 3000, 3000, 3000, 2000, 2000, 1000, 2000, 1000, 450, 250, 100, 100"
    List1.AddItem "竖曲线最小长度 , 100, 100, 100, 85, 85, 85, 70, 70, 85, 85, 85, 70, 70, 50, 70, 50, 35, 25, 20, 20"
    
    '页面（全部标准）
    With VSFlexGrid2
        .Rows = 24
        .Cols = 23
        
        For i = 0 To .Cols - 1
            .MergeCol(i) = True
            .ColAlignment(i) = flexAlignCenterCenter
            If i > 0 Then .ColWidth(i) = 1200
        Next i
        
        .ColWidth(.Cols - 2) = 0
        .ColWidth(.Cols - 1) = 0
        
        .RowHeightMin = 280
        .ColWidth(0) = 1900
        
        .TextMatrix(0, 0) = "项目分类"
        .TextMatrix(1, 0) = "项目分类"
        .TextMatrix(2, 0) = "公路等级          ＝"
        .TextMatrix(3, 0) = "计算行车速度      ＝"
        .TextMatrix(4, 0) = "车道数            ＝"
        .TextMatrix(5, 0) = "路基宽度（一般值）＝"
        .TextMatrix(6, 0) = "路基宽度（最小值）＝"
        .TextMatrix(7, 0) = "车道宽度          ＝"
        .TextMatrix(8, 0) = "一般最小半径      ＝"
        .TextMatrix(9, 0) = "极限最小半径      ＝"
        .TextMatrix(10, 0) = "不设超高最小半径  ＝"
        .TextMatrix(11, 0) = "缓和曲线最小长度  ＝"
        .TextMatrix(12, 0) = "平曲线最小长度    ＝"
        
        .TextMatrix(13, 0) = "停车视距          ＝"
        .TextMatrix(14, 0) = "会车视距          ＝"
        .TextMatrix(15, 0) = "超车视线          ＝"
        .TextMatrix(16, 0) = "设计洪水频率      ＝"
        .TextMatrix(17, 0) = "最大纵坡（%）     ＝"
        .TextMatrix(18, 0) = "最小坡长（m）     ＝"
        .TextMatrix(19, 0) = "凸形竖曲线一般半径＝"
        .TextMatrix(20, 0) = "凸形竖曲线最小半径＝"
        .TextMatrix(21, 0) = "凹形竖曲线一般半径＝"
        .TextMatrix(22, 0) = "凹形竖曲线极限半径＝"
        .TextMatrix(23, 0) = "竖曲线最小长度    ＝"
        
        Dim j As Integer, k As Integer
        k = 0
        
        For i = 0 To List1.ListCount - 1
            wenben = List1.List(i)
            Call fjwb50
            For j = 1 To .Cols - 1
                If sj(j + 1) <> "," Then .TextMatrix(k, j) = sj(j + 1)
                If sj(j + 1) = "," Then .TextMatrix(k, j) = ""
            Next j
            
            .MergeRow(k) = True
            k = k + 1
        Next i
    End With
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_Resize()
'尺寸

    On Error GoTo handlerror
    
    If Me.Width - 195 > 0 Then SSTab1.Width = Me.Width - 195
    If SSTab1.Width - 270 > 0 Then VSFlexGrid2.Width = SSTab1.Width - 270
    
    If Me.Height - 945 > 0 Then SSTab1.Height = Me.Height - 945
    If SSTab1.Height - 600 > 0 Then VSFlexGrid2.Height = SSTab1.Height - 600
    
    If Me.Width - Command1.Width - 240 > 0 Then Command1.Left = Me.Width - Command1.Width - 240
    If Me.Height - Command1.Height - 440 > 0 Then Command1.Top = Me.Height - Command1.Height - 440
    
    Exit Sub
handlerror:

End Sub