?? 道路中樁計算.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMain
Caption = "道路中樁計算"
ClientHeight = 4305
ClientLeft = 60
ClientTop = 450
ClientWidth = 5400
LinkTopic = "Form1"
Moveable = 0 'False
ScaleHeight = 4305
ScaleWidth = 5400
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame3
Caption = "道路中樁"
Height = 2775
Left = 120
TabIndex = 14
Top = 1440
Width = 5175
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2415
Left = 120
TabIndex = 15
Top = 240
Width = 4935
_ExtentX = 8705
_ExtentY = 4260
_Version = 393216
End
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 495
Left = 3960
TabIndex = 13
Top = 840
Width = 1335
End
Begin VB.CommandButton cmdCalc
Caption = "計算"
Height = 495
Left = 3960
TabIndex = 12
Top = 120
Width = 1335
End
Begin VB.Frame Frame2
Caption = "緩和曲線起算數據"
Enabled = 0 'False
Height = 900
Left = 2160
TabIndex = 8
Top = 480
Width = 1695
Begin VB.TextBox txtV
Enabled = 0 'False
Height = 270
Left = 240
TabIndex = 10
Text = "120"
Top = 530
Width = 855
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "km/h"
Enabled = 0 'False
Height = 180
Left = 1200
TabIndex = 11
Top = 570
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "設計車行速度"
Enabled = 0 'False
Height = 180
Left = 120
TabIndex = 9
Top = 300
Width = 1080
End
End
Begin VB.CheckBox Check1
Caption = "帶緩和曲線"
Height = 255
Left = 2280
TabIndex = 7
Top = 120
Width = 1215
End
Begin VB.Frame Frame1
Caption = "圓曲線起算數據"
Height = 1260
Left = 120
TabIndex = 0
Top = 120
Width = 1935
Begin VB.TextBox txtJD
Height = 270
Left = 840
TabIndex = 6
Text = "k3+182.76"
Top = 900
Width = 975
End
Begin VB.TextBox txtR
Height = 270
Left = 480
TabIndex = 4
Text = "1200"
Top = 600
Width = 1335
End
Begin VB.TextBox txtA
Height = 270
Left = 480
TabIndex = 2
Text = "25.48"
Top = 315
Width = 1335
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "交點里程"
Height = 180
Left = 120
TabIndex = 5
Top = 945
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "半徑"
Height = 180
Left = 120
TabIndex = 3
Top = 645
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "轉角"
Height = 180
Left = 120
TabIndex = 1
Top = 360
Width = 360
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const PI = 3.1415926535893
Dim xZY#(), yZY#(), fZY#(), lZY#(), xYZ#(), yYZ#(), fYZ#(), lYZ#(), iZY%, iYZ% '定義直圓段和圓直段的樁號數組及其大小
Dim xZH#(), yZH#(), fZH#(), lZH#(), xHY#(), yHY#(), fHY#(), lHY#(), iZH%, iHY% '直緩段數組及其大小
Dim xYH#(), yYH#(), fYH#(), lYH#(), xHZ#(), yHZ#(), fHZ#(), lHZ#(), iYH%, iHZ% '直緩段數組及其大小
Private Sub Check1_Click()
If Check1.Value = 1 Then
Frame2.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
txtV.Enabled = True
ElseIf Check1.Value = 0 Then
Frame2.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
txtV.Enabled = False
End If
End Sub
Private Sub cmdCalc_Click()
Dim dblA#, dblR#, dblJD#, s As String
Dim dblT#, dblL#, dblE#, dblD#
Dim dblZY#, dblQZ#, dblYZ#
Dim i%, fab#
'緩和曲線變量
Dim ls#, V#, bet0#, p#, q#
Dim Th#, Lh#, Ly#, Eh#, Dh#
Dim dblZH#, dblHY#, dblYH#, dblHZ#
dblA = DoToHu(Val(txtA.Text))
dblR = Val(txtR.Text)
dblJD = ZToS(txtJD.Text)
If Check1.Value = 0 Then '無緩和曲線
'圓曲線測設元素的計算
dblT = dblR * Tan(dblA / 2)
dblL = dblR * dblA
dblE = dblR * (1 / Cos(dblA) - 1)
dblD = 2 * dblT - dblL
'主點里程計算
dblZY = dblJD - dblT
dblYZ = dblZY + dblL
dblQZ = dblYZ - dblL / 2
If Abs(dblJD - (dblQZ + dblD / 2)) > 0.000001 Then MsgBox "主點里程檢核不合格！"
'詳細測設
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -