?? 貝克曼梁測彎沉.frm
字號:
VERSION 5.00
Object = "{D76D7130-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7D.OCX"
Begin VB.Form frmbklcwc
BorderStyle = 1 'Fixed Single
Caption = "貝克曼梁測彎沉"
ClientHeight = 6105
ClientLeft = 45
ClientTop = 330
ClientWidth = 9960
Icon = "貝克曼梁測彎沉.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6105
ScaleWidth = 9960
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "關閉"
Height = 375
Left = 9000
TabIndex = 25
Top = 5640
Width = 975
End
Begin VB.Frame Frame2
Caption = "計算結果"
Height = 2415
Left = 120
TabIndex = 18
Top = 3600
Width = 6855
Begin VB.ListBox List1
Height = 2040
Left = 120
TabIndex = 19
Top = 240
Width = 6615
End
End
Begin VB.CommandButton Command3
Caption = "刪除"
Height = 375
Left = 8040
TabIndex = 17
Top = 5640
Width = 975
End
Begin VB.CommandButton Command2
Caption = "計算"
Height = 375
Left = 7080
TabIndex = 14
Top = 5640
Width = 975
End
Begin VB.Frame Frame1
Caption = "其他數據"
Height = 3735
Left = 7080
TabIndex = 1
Top = 0
Width = 2775
Begin VB.TextBox Text6
Alignment = 2 'Center
Height = 270
Left = 1560
TabIndex = 16
Text = "Text6"
Top = 2760
Width = 1095
End
Begin VB.ComboBox Combo1
Height = 300
Left = 960
TabIndex = 13
Text = "Combo1"
Top = 3240
Width = 1695
End
Begin VB.TextBox Text5
Alignment = 2 'Center
Height = 270
Left = 1560
TabIndex = 11
Text = "Text5"
Top = 2280
Width = 1095
End
Begin VB.TextBox Text4
Alignment = 2 'Center
Height = 270
Left = 1560
Locked = -1 'True
TabIndex = 9
Text = "Text4"
Top = 1800
Width = 1095
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Height = 270
Left = 1560
TabIndex = 7
Text = "Text3"
Top = 1320
Width = 1095
End
Begin VB.TextBox Text2
Alignment = 2 'Center
Height = 270
Left = 1560
TabIndex = 5
Text = "Text2"
Top = 840
Width = 1095
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 270
Left = 1560
TabIndex = 3
Text = "Text1"
Top = 340
Width = 1095
End
Begin VB.Label Label7
Caption = "季節影響系數K2＝"
Height = 255
Left = 120
TabIndex = 15
Top = 2760
Width = 1455
End
Begin VB.Label Label6
Caption = "公路等級"
Height = 255
Left = 120
TabIndex = 12
Top = 3240
Width = 855
End
Begin VB.Label Label5
Caption = "平均溫度T ＝"
Height = 255
Left = 120
TabIndex = 10
Top = 1800
Width = 1575
End
Begin VB.Label Label4
Caption = "溫度系數K1 ＝"
Height = 255
Left = 120
TabIndex = 8
Top = 2280
Width = 1455
End
Begin VB.Label Label3
Caption = "瀝青底面溫度Te＝"
Height = 255
Left = 120
TabIndex = 6
Top = 1320
Width = 1815
End
Begin VB.Label Label2
Caption = "瀝青中間溫度Tm＝"
Height = 255
Left = 120
TabIndex = 4
Top = 840
Width = 1695
End
Begin VB.Label Label1
Caption = "25以下溫度T25 ＝"
Height = 255
Left = 120
TabIndex = 2
Top = 360
Width = 1575
End
End
Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1
Height = 3495
Left = 120
TabIndex = 0
Top = 0
Width = 6855
_cx = 12091
_cy = 6165
_ConvInfo = 1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = 14737632
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 3
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 3
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 3
Cols = 6
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 2
ShowComboButton = -1 'True
WordWrap = -1 'True
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 3
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
Begin VB.Frame Frame3
Caption = "計算公式："
Height = 1695
Left = 7080
TabIndex = 20
Top = 3840
Width = 2775
Begin VB.Label Label12
Caption = "L20＝LT×K"
Height = 255
Left = 120
TabIndex = 24
Top = 1005
Width = 1095
End
Begin VB.Label Label9
Caption = "LT＝(L1-L2)×2+(L3-L4)×6"
Height = 255
Left = 120
TabIndex = 23
Top = 360
Width = 2535
End
Begin VB.Label Label10
Caption = "T ＝(T25+Tm+Te)/3"
Height = 255
Left = 120
TabIndex = 22
Top = 675
Width = 1815
End
Begin VB.Label Label11
Caption = "Lr＝(Lp+Za×S)×K1×K2"
Height = 255
Left = 120
TabIndex = 21
Top = 1320
Width = 2415
End
End
End
Attribute VB_Name = "frmbklcwc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim za As Double 'za為與保證率有關的系數
Dim lp As Double 'lp為各測點的平均彎沉值
Dim lr As Double 'lr為代表彎沉值
Dim lt As Double 'lt為回彈完成
Dim t25 As Double, tm As Double, te As Double, t As Double, l20 As Double '為各種溫度
Dim k1 As Double, k2 As Double '為各種系數
Dim sgm As Double
Dim num As Integer
Private Sub Combo1_Click()
'選擇公路等級
On Error GoTo handlerror
If Combo1.Text = "1、高速公路" Then za = 2#
If Combo1.Text = "2、一級公路" Then za = 2
If Combo1.Text = "3、二級公路" Then za = 1.645
If Combo1.Text = "4、三級公路" Then za = 1.5
If Combo1.Text = "5、四級公路" Then za = 1.5
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -