?? frmmain.frm
字號(hào):
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 = "溫度監(jiān)控實(shí)時(shí)曲線(xiàn)"
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 = "請(qǐng)點(diǎn)擊【打開(kāi)串口】按鈕執(zhí)行串口工作"
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 = "現(xiàn)在溫度:"
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 '模擬溫度計(jì)的初始高度和頂端坐標(biāo)
Private h1, tp1 '模擬溫度計(jì)的初始高度和頂端坐標(biāo)
Dim NowX As Integer '現(xiàn)在的X軸位置
Dim MaxPlotNo As Long '最長(zhǎng)的X軸范圍
Dim PreValue As Single '前一個(gè)測(cè)量值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'當(dāng)選擇通信端口的Combo控件被選中后激活此事件
'若用戶(hù)改變通信端口時(shí),關(guān)閉通信端口
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmbCOM_Click()
'若通信端口號(hào)碼和現(xiàn)在的選擇一樣時(shí)就不必理會(huì),直接跳出此子程序
If cmbCOM.ListIndex + 1 = MSComm1.CommPort Then Exit Sub
Timer1.Enabled = False '關(guān)閉定時(shí)器
TimeDelay 100
If MSComm1.PortOpen Then
MSComm1.PortOpen = False '關(guān)閉通信端口
End If
lblMsg.Caption = "系統(tǒng)已停止檢測(cè)并關(guān)閉通訊端口"
cmdOpenCOM.Enabled = True '允許使用【打開(kāi)通信端口】按鈕
Shpled.FillColor = &HFF&
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'單擊【結(jié)束】按鈕后激活此事件
'使用End命令將系統(tǒng)結(jié)束
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdEnd_Click()
End
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'單擊【打開(kāi)通信端口】按鈕后激活此事件
'將MSComm控件的參數(shù)設(shè)置好,并打開(kāi)
'激活【開(kāi)始檢測(cè)】按鈕
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -