📄 spo2.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
Caption = "血氧饱和度spO2采集系统"
ClientHeight = 8730
ClientLeft = 165
ClientTop = 780
ClientWidth = 15240
ClipControls = 0 'False
FillStyle = 0 'Solid
LinkTopic = "Form1"
ScaleHeight = 8730
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ProgressBar ProgBar1
Height = 1935
Left = 3960
TabIndex = 69
Top = 2640
Width = 495
_ExtentX = 873
_ExtentY = 3413
_Version = 393216
Appearance = 1
Max = 17
Orientation = 1
End
Begin MSComDlg.CommonDialog savebmp
Left = 3600
Top = 2400
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = ".bmp"
DialogTitle = "保存图片为"
FileName = "untitled"
Filter = " 图片文件(*.bmp)|*.bmp"
End
Begin VB.Frame Frame2
Caption = "状态灯显示"
Height = 1335
Left = 0
TabIndex = 61
Top = 3120
Width = 3375
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 4
Left = 2760
Shape = 3 'Circle
Top = 240
Width = 615
End
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 2040
Shape = 3 'Circle
Top = 240
Width = 615
End
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 1440
Shape = 3 'Circle
Top = 240
Width = 615
End
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 720
Shape = 3 'Circle
Top = 240
Width = 615
End
Begin VB.Label Label21
Caption = "搜索脉搏"
Height = 495
Left = 2880
TabIndex = 66
Top = 720
Width = 375
End
Begin VB.Label Label20
Caption = "导联错误"
Height = 495
Left = 2160
TabIndex = 65
Top = 720
Width = 495
End
Begin VB.Label Label19
Caption = "脉搏声音"
Height = 495
Left = 1560
TabIndex = 64
Top = 720
Width = 375
End
Begin VB.Label Label18
Caption = "血氧饱和度"
Height = 615
Left = 840
TabIndex = 63
Top = 720
Width = 375
End
Begin VB.Label Label17
Caption = "搜索时间"
Height = 375
Left = 240
TabIndex = 62
Top = 720
Width = 495
End
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 120
Shape = 3 'Circle
Top = 240
Width = 495
End
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = "命令控件栏"
Height = 1455
Left = 0
TabIndex = 56
Top = 4560
Width = 3015
Begin VB.CommandButton Command3
Caption = "退出"
Height = 615
Left = 1680
TabIndex = 60
Top = 840
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "清除命令"
Height = 615
Left = 120
TabIndex = 59
Top = 840
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "系统验证"
Height = 615
Left = 1680
TabIndex = 58
Top = 240
Width = 1215
End
Begin VB.CommandButton Command2
BackColor = &H80000011&
Caption = "发送命令"
BeginProperty Font
Name = "新宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 57
Top = 240
Width = 1215
End
End
Begin VB.HScrollBar HScr1
Height = 495
Left = 4200
Max = 200
MouseIcon = "spo2.frx":0000
TabIndex = 51
Top = 7920
Width = 8535
End
Begin MSComDlg.CommonDialog dakai
Left = 3600
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
FileName = "untitled"
Filter = "数据库文件(*.mdb)|*.mdb|数据文件(*.dat)|*.dat|All files(*.*)|*.*"
FilterIndex = 2
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 50
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "open"
Object.ToolTipText = "打开文件"
ImageIndex = 16
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zhongzhi"
Object.ToolTipText = "暂停"
ImageIndex = 34
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "run"
Object.ToolTipText = "运行"
ImageIndex = 22
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exit"
Object.ToolTipText = "退出"
ImageIndex = 27
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 3000
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 39
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2A064
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2AA2F
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2AB77
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2B978
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2C768
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2DE43
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2E8F0
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":2F6EE
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":304DD
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":30D40
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":31B40
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":328F9
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":34E3E
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":356B1
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":359CB
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":35A5E
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":35E08
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3630A
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":366D2
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":36DB6
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3749A
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":378DE
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":37BD0
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":38014
Key = ""
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3E396
Key = ""
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3E7DA
Key = ""
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3E9DE
Key = ""
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3EBE2
Key = ""
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3EDE6
Key = ""
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3EFEA
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3F1EE
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3F540
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":3F826
Key = ""
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":40058
Key = ""
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":4034A
Key = ""
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":4069C
Key = ""
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":409EE
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "spo2.frx":40E32
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 3600
Top = 1800
End
Begin VB.TextBox Text3
Height = 735
Left = 1680
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 46
Text = "spo2.frx":41276
Top = 2400
Width = 1695
End
Begin MSCommLib.MSComm Comm1
Left = 3480
Top = 720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 4096
InputLen = 1
InputMode = 1
End
Begin VB.ComboBox Combo4
Height = 300
Index = 4
Left = 12480
TabIndex = 44
Text = "Combo4"
Top = 7320
Width = 1455
End
Begin VB.ComboBox Combo3
Height = 300
Index = 4
Left = 12480
TabIndex = 42
Text = "Combo3"
Top = 6960
Width = 1455
End
Begin VB.ComboBox Combo2
Height = 300
Index = 4
Left = 12480
TabIndex = 40
Text = "Combo2"
Top = 6600
Width = 1455
End
Begin VB.ComboBox Combo4
Height = 300
Index = 3
Left = 12480
TabIndex = 38
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -