📄 贝克曼梁测弯沉.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 + -