📄 frmmain.frm
字号:
EndProperty
Height = 240
Index = 12
Left = 225
TabIndex = 22
Top = 5340
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "20"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 11
Left = 225
TabIndex = 21
Top = 5040
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "30"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 10
Left = 225
TabIndex = 20
Top = 4725
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "40"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 9
Left = 225
TabIndex = 19
Top = 4410
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "50"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 8
Left = 225
TabIndex = 18
Top = 4110
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "60"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 7
Left = 225
TabIndex = 17
Top = 3795
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "70"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 6
Left = 225
TabIndex = 16
Top = 3480
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "80"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = 225
TabIndex = 15
Top = 3165
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "90"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 4
Left = 225
TabIndex = 14
Top = 2850
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "温度监控实时曲线"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2640
TabIndex = 13
Top = 2160
Width = 3135
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H008080FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4200
TabIndex = 9
Top = 6840
Width = 3645
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "100"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 105
TabIndex = 8
Top = 2520
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 270
TabIndex = 7
Top = 5880
Width = 150
End
Begin VB.Label lblMsg
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "请点击【打开串口】按钮执行串口工作"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 465
Left = 480
TabIndex = 6
Top = 6240
Width = 7380
End
Begin VB.Label lblValue
AutoSize = -1 'True
BackColor = &H00FF8080&
BeginProperty Font
Name = "Arial Black"
Size = 18
Charset = 0
Weight = 900
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 510
Left = 1560
TabIndex = 5
Top = 240
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "现在温度："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 240
TabIndex = 1
Top = 360
Width = 1305
End
Begin VB.Shape Shape1
BackColor = &H00FFC0C0&
BorderColor = &H00C0C0C0&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 1095
Left = 4200
Shape = 4 'Rounded Rectangle
Top = 600
Width = 135
End
Begin VB.Shape Shape2
BackColor = &H00FF0000&
BorderColor = &H00C0C0C0&
FillColor = &H00FFFF00&
FillStyle = 0 'Solid
Height = 1395
Left = 6000
Shape = 4 'Rounded Rectangle
Top = 600
Width = 255
End
Begin VB.Shape Shape4
BackColor = &H00FFC0C0&
BorderColor = &H00C0C0C0&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 1455
Left = 6000
Shape = 4 'Rounded Rectangle
Top = 600
Width = 255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim pic_count As Long
Dim Data1 As Single
Dim Data11 As Single
Dim Data111 As Single
Dim Data5 As Single
Dim Data51 As Single
Dim Data6 As Single
Dim Data61 As Single
Dim Data2 As Single
Dim Data21 As Single
Dim Data22 As Single
Dim ValueStr As Single
Dim ValueStr1 As Single
Dim ValueStr2 As Single
Dim ValueStr3 As Single
Dim ValueStr4 As Single
Private h, tp '模拟温度计的初始高度和顶端坐标
Private h1, tp1 '模拟温度计的初始高度和顶端坐标
Dim NowX As Integer '现在的X轴位置
Dim MaxPlotNo As Long '最长的X轴范围
Dim PreValue As Single '前一个测量值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'当选择通信端口的Combo控件被选中后激活此事件
'若用户改变通信端口时，关闭通信端口
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmbCOM_Click()
'若通信端口号码和现在的选择一样时就不必理会，直接跳出此子程序
If cmbCOM.ListIndex + 1 = MSComm1.CommPort Then Exit Sub
Timer1.Enabled = False '关闭定时器
TimeDelay 100
If MSComm1.PortOpen Then
MSComm1.PortOpen = False '关闭通信端口
End If
lblMsg.Caption = "系统已停止检测并关闭通讯端口"
cmdOpenCOM.Enabled = True '允许使用【打开通信端口】按钮
Shpled.FillColor = &HFF&
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'单击【结束】按钮后激活此事件
'使用End命令将系统结束
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdEnd_Click()
End
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'单击【打开通信端口】按钮后激活此事件
'将MSComm控件的参数设置好，并打开
'激活【开始检测】按钮
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -