📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 8790
ClientLeft = 3195
ClientTop = 1605
ClientWidth = 8475
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8790
ScaleWidth = 8475
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture1
BackColor = &H00000000&
Height = 5500
Left = 1080
ScaleHeight = 5445
ScaleWidth = 6240
TabIndex = 9
Top = 360
Width = 6300
End
Begin MSCommLib.MSComm MSComm1
Left = 7440
Top = 7920
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.CommandButton Command4
Caption = "开始温度测量"
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 7
Top = 7560
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "结束温度测量"
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 6
Top = 8160
Width = 1575
End
Begin VB.CommandButton commintem
Caption = "设定下限温度"
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3600
TabIndex = 5
Top = 8160
Width = 1575
End
Begin VB.TextBox Texmintem
Height = 375
Left = 5520
TabIndex = 2
Top = 8160
Width = 1335
End
Begin VB.TextBox Texmaxtem
Height = 375
Left = 5520
TabIndex = 1
Top = 7560
Width = 1335
End
Begin VB.CommandButton Commaxtem
Caption = "设定上限温度"
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3600
TabIndex = 0
Top = 7560
Width = 1575
End
Begin VB.Label Label10
Caption = "100"
Height = 255
Index = 3
Left = 760
TabIndex = 25
Top = 285
Width = 300
End
Begin VB.Label Label10
Caption = "80"
Height = 255
Index = 2
Left = 840
TabIndex = 24
Top = 1280
Width = 255
End
Begin VB.Label Label10
Caption = "90"
Height = 255
Index = 1
Left = 840
TabIndex = 23
Top = 780
Width = 255
End
Begin VB.Label Label12
Caption = "50"
Height = 255
Left = 840
TabIndex = 22
Top = 2780
Width = 255
End
Begin VB.Label Label11
Caption = "60"
Height = 255
Left = 840
TabIndex = 21
Top = 2280
Width = 255
End
Begin VB.Label Label9
Caption = "70"
Height = 255
Left = 840
TabIndex = 20
Top = 1780
Width = 255
End
Begin VB.Label Label10
Caption = "40"
Height = 255
Index = 0
Left = 840
TabIndex = 19
Top = 3280
Width = 255
End
Begin VB.Label Label8
Caption = " 0"
Height = 255
Left = 840
TabIndex = 18
Top = 5280
Width = 255
End
Begin VB.Label Label4
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 17
Top = 6120
Width = 1335
End
Begin VB.Label Labalarmmin
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 16
Top = 6960
Width = 855
End
Begin VB.Label labalarmmax
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5280
TabIndex = 15
Top = 6960
Width = 855
End
Begin VB.Label Labmintem
Caption = "下限温度："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6240
TabIndex = 14
Top = 6960
Width = 1215
End
Begin VB.Label Labmaxtem
Caption = "上限温度："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -