📄 frmmain.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "水温监控及水位越限报警系统"
ClientHeight = 7365
ClientLeft = 45
ClientTop = 105
ClientWidth = 12315
FillColor = &H8000000D&
BeginProperty Font
Name = "楷体_GB2312"
Size = 7.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 30.688
ScaleMode = 4 'Character
ScaleWidth = 102.625
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command4
Caption = "清除曲线"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 10440
TabIndex = 49
Top = 3960
Width = 1335
End
Begin VB.PictureBox picVoltage
AutoRedraw = -1 'True
BackColor = &H00FFFF80&
DrawWidth = 2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0FF&
Height = 3135
Left = 480
Picture = "frmMain.frx":0000
ScaleHeight = 2971.014
ScaleMode = 0 'User
ScaleWidth = 7335
TabIndex = 48
Top = 2640
Width = 7395
Begin VB.Line Line11
BorderColor = &H00C0C000&
X1 = 740
X2 = 740
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line12
BorderColor = &H00C0C000&
X1 = 1480
X2 = 1480
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line13
BorderColor = &H00C0C000&
X1 = 2220
X2 = 2220
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line14
BorderColor = &H00C0C000&
X1 = 2950
X2 = 2950
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line15
BorderColor = &H00C0C000&
X1 = 3690
X2 = 3690
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line16
BorderColor = &H00C0C000&
X1 = 4415
X2 = 4415
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line17
BorderColor = &H00C0C000&
X1 = 5140
X2 = 5140
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line18
BorderColor = &H00C0C000&
X1 = 5870
X2 = 5870
Y1 = 0
Y2 = 3014.492
End
Begin VB.Line Line19
BorderColor = &H00C0C000&
X1 = 6600
X2 = 6600
Y1 = 0
Y2 = 3014.492
End
End
Begin VB.CommandButton Command3
Caption = "保存曲线"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 8760
TabIndex = 47
Top = 3960
Width = 1335
End
Begin VB.Frame Frame1
Caption = "信号指示"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 672
Left = 6960
TabIndex = 34
Top = 120
Width = 948
Begin VB.Shape Shpled
BackColor = &H00E0E0E0&
BorderColor = &H00FFFFFF&
BorderStyle = 0 'Transparent
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 255
Left = 360
Shape = 3 'Circle
Top = 240
Width = 255
End
End
Begin VB.CommandButton Command2
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8520
TabIndex = 33
Top = 3360
Width = 855
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8616
TabIndex = 12
Top = 2760
Width = 747
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10560
TabIndex = 11
Top = 2760
Width = 747
End
Begin VB.CommandButton Command1
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10440
TabIndex = 10
Top = 3360
Width = 855
End
Begin VB.CommandButton cmdStart
Caption = "开始测温"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 8640
TabIndex = 4
Top = 6480
Width = 1455
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 600
Top = 2040
End
Begin VB.CommandButton cmdOpenCOM
Caption = "打开串口"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 10440
TabIndex = 3
Top = 4920
Width = 1335
End
Begin VB.ComboBox cmbCOM
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 405
Left = 8640
TabIndex = 2
Text = "Combo1"
Top = 4920
Width = 1605
End
Begin VB.CommandButton cmdEnd
Caption = "结束"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 10440
TabIndex = 0
Top = 6480
Width = 1455
End
Begin MSCommLib.MSComm MSComm1
Left = 1320
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Frame Frame2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 7455
Left = 8280
TabIndex = 41
Top = -120
Width = 3975
Begin VB.CommandButton Command6
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
TabIndex = 58
Top = 3480
Width = 615
End
Begin VB.TextBox Text4
Alignment = 2 'Center
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
TabIndex = 57
Top = 2880
Width = 495
End
Begin VB.CommandButton Command5
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -