📄 ai&do.frm
字号:
VERSION 5.00
Object = "{624EC978-8E3A-11D2-A9C9-002018650913}#1.1#0"; "Adain.ocx"
Object = "{DD19B926-A6A4-11D2-AA04-002018650913}#1.1#0"; "Addout.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form DAQForm
BorderStyle = 3 'Fixed Dialog
Caption = "ActiveDAQ综合测控"
ClientHeight = 6180
ClientLeft = 870
ClientTop = 945
ClientWidth = 9330
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6180
ScaleWidth = 9330
ShowInTaskbar = 0 'False
Begin VB.CommandButton Cmddraw2
Caption = "绘散点图"
Height = 375
Left = 7980
TabIndex = 26
Top = 1260
Width = 1140
End
Begin MSComDlg.CommonDialog CDsave
Left = 8595
Top = 4950
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
FilterIndex = 1
MaxFileSize = 520
End
Begin MSComDlg.CommonDialog CDopen
Left = 7965
Top = 4950
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.CommandButton Cmdopen
Caption = "打开文件"
Height = 375
Left = 7980
TabIndex = 23
Top = 2970
Width = 1140
End
Begin VB.CommandButton Cmdsave
Caption = "保存数据"
Height = 375
Left = 7980
TabIndex = 22
Top = 2115
Width = 1140
End
Begin VB.CommandButton Cmddraw1
Caption = "绘曲线图"
Height = 375
Left = 7980
TabIndex = 21
Top = 405
Width = 1140
End
Begin VB.Frame Frame2
Caption = "报警指示"
Height = 2655
Left = 2835
TabIndex = 18
Top = 3480
Width = 2760
Begin VB.TextBox Tmax
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 495
TabIndex = 25
Top = 2115
Width = 765
End
Begin VB.TextBox Tmin
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 495
TabIndex = 24
Top = 1080
Width = 765
End
Begin VB.Shape alarm2
BackColor = &H00FFFFFF&
BorderColor = &H00404040&
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 615
Left = 1710
Shape = 2 'Oval
Top = 1560
Width = 615
End
Begin VB.Shape alarm1
BackColor = &H00FFFFFF&
BorderColor = &H00404040&
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 615
Left = 1665
Shape = 2 'Oval
Top = 450
Width = 615
End
Begin VB.Label Label10
Caption = "上限指示灯："
Height = 255
Left = 360
TabIndex = 20
Top = 1800
Width = 1215
End
Begin VB.Label Label9
Caption = "下限指示灯："
Height = 255
Left = 360
TabIndex = 19
Top = 705
Width = 1095
End
End
Begin MSFlexGridLib.MSFlexGrid Grid
Height = 6135
Left = 5715
TabIndex = 13
Top = 45
Width = 2010
_ExtentX = 3545
_ExtentY = 10821
_Version = 327680
Rows = 200
End
Begin VB.CommandButton Cmdquit
Caption = "关闭程序"
Height = 375
Left = 7980
TabIndex = 9
Top = 3825
Width = 1140
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 8325
Top = 4410
End
Begin DAQDOLib.DAQDO DAQDO1
Height = 495
Left = 8010
TabIndex = 8
Top = 5580
Width = 495
_Version = 65537
_ExtentX = 864
_ExtentY = 864
_StockProps = 0
MaxPortNumber = 0
End
Begin DAQAILib.DAQAI DAQAI1
Height = 495
Left = 8595
TabIndex = 7
Top = 5580
Width = 495
_Version = 65537
_ExtentX = 864
_ExtentY = 864
_StockProps = 0
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 3315
Left = 45
ScaleHeight = 3255
ScaleWidth = 5505
TabIndex = 0
Top = 45
Width = 5565
End
Begin VB.Frame Frame1
Caption = "统计计算"
Height = 2655
Left = 45
TabIndex = 1
Top = 3480
Width = 2730
Begin VB.TextBox AverText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1065
TabIndex = 11
Top = 920
Width = 1110
End
Begin VB.TextBox MaxText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1065
TabIndex = 5
Top = 2040
Width = 1110
End
Begin VB.TextBox MinText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1065
TabIndex = 3
Top = 1480
Width = 1110
End
Begin VB.TextBox TempText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1065
TabIndex = 2
Top = 360
Width = 1110
End
Begin VB.Label Label7
Caption = "℃"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2280
TabIndex = 17
Top = 2160
Width = 240
End
Begin VB.Label Label6
Caption = "℃"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -