📄 frmtech2001.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmTech2001
BackColor = &H00808000&
BorderStyle = 1 'Fixed Single
Caption = "TECH2001积算器"
ClientHeight = 4080
ClientLeft = 1860
ClientTop = 5865
ClientWidth = 9960
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmTech2001.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4080
ScaleWidth = 9960
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "退出"
Height = 315
Left = 9000
TabIndex = 62
Top = 3660
Width = 795
End
Begin VB.ComboBox cmbPortNo
Height = 330
ItemData = "frmTech2001.frx":0442
Left = 480
List = "frmTech2001.frx":0444
Style = 2 'Dropdown List
TabIndex = 61
Top = 3652
Width = 1635
End
Begin VB.Frame Frame4
Caption = "Frame4"
Height = 660
Left = 5490
TabIndex = 60
Top = 4560
Visible = 0 'False
Width = 1905
Begin VB.Timer tmrCode
Enabled = 0 'False
Interval = 300
Left = 915
Top = -15
End
Begin VB.Timer tmrInit
Enabled = 0 'False
Interval = 1000
Left = 1410
Top = 105
End
Begin MSCommLib.MSComm MSComm2
Left = 150
Top = 60
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RThreshold = 93
InputMode = 1
End
End
Begin VB.Frame Frame5
Caption = "连接prjCang"
Height = 540
Left = 300
TabIndex = 57
Top = 5910
Width = 3660
Begin VB.Timer tmrOnComm2
Enabled = 0 'False
Left = 60
Top = 195
End
Begin VB.CommandButton cmdLink
Caption = "Link"
Height = 240
Left = 675
TabIndex = 58
Top = 255
Width = 735
End
Begin VB.Label lblLed
BackColor = &H000080FF&
Height = 210
Left = 2010
TabIndex = 59
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame3
BackColor = &H00C00000&
Height = 1590
Index = 0
Left = 645
TabIndex = 33
Top = 5235
Width = 10905
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H00C00000&
Caption = "#小码头"
ForeColor = &H8000000E&
Height = 1500
Index = 5
Left = 8865
TabIndex = 53
Top = 0
Width = 1995
Begin VB.Label lblXRTotal
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 405
Index = 5
Left = 105
LinkItem = "lblTotal(2)"
LinkTopic = "prjCang|frmPLC"
TabIndex = 56
ToolTipText = "主累计值"
Top = 195
Width = 1830
End
Begin VB.Label lblXRRate
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 405
Index = 5
Left = 90
LinkItem = "lblRate(2)"
LinkTopic = "prjCang|frmPLC"
TabIndex = 55
ToolTipText = "瞬时流量"
Top = 615
Width = 1830
End
Begin VB.Label lblXRSpeed
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 405
Index = 5
Left = 90
LinkItem = "lblSpeed(2)"
LinkTopic = "prjCang|frmPLC"
TabIndex = 54
ToolTipText = "速度"
Top = 1035
Width = 1830
End
Begin VB.Shape Shape1
BackColor = &H0080FF80&
BackStyle = 1 'Opaque
Height = 225
Index = 9
Left = 840
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H00C00000&
Caption = "#2号码头"
ForeColor = &H8000000E&
Height = 1500
Index = 1
Left = 45
TabIndex = 46
Top = 0
Width = 2760
Begin VB.Label Label2
BackColor = &H00C00000&
Caption = "速 度:"
ForeColor = &H8000000E&
Height = 255
Index = 3
Left = 105
TabIndex = 52
Top = 1095
Width = 735
End
Begin VB.Label lblXRSpeed
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 405
Index = 1
Left = 840
LinkItem = "lblSpeed(2)"
LinkTopic = "prjCang|frmPLC"
TabIndex = 51
ToolTipText = "速度"
Top = 1020
Width = 1830
End
Begin VB.Label lblXRRate
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 405
Index = 1
Left = 840
LinkItem = "lblRate(2)"
LinkTopic = "prjCang|frmPLC"
TabIndex = 50
ToolTipText = "瞬时流量"
Top = 600
Width = 1830
End
Begin VB.Label lblXRTotal
Alignment = 1 'Right Justify
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -