📄 ad_form.frm
字号:
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 5
Left = 1320
TabIndex = 43
Top = 4440
Width = 975
End
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 4
Left = 1320
TabIndex = 42
Top = 3840
Width = 975
End
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 3
Left = 1320
TabIndex = 41
Top = 3240
Width = 975
End
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 2
Left = 1320
TabIndex = 40
Top = 2640
Width = 975
End
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 1
Left = 1320
TabIndex = 39
Top = 2040
Width = 975
End
Begin VB.Label DstChannelText
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 375
Index = 0
Left = 1320
TabIndex = 38
Top = 1440
Width = 975
End
Begin VB.Label Label5
Caption = "3通道"
Height = 375
Left = 600
TabIndex = 37
Top = 3360
Width = 855
End
Begin VB.Label Label9
Caption = "7通道"
Height = 255
Left = 600
TabIndex = 36
Top = 5760
Width = 855
End
Begin VB.Label Label33
Caption = "11通道"
Height = 375
Left = 3120
TabIndex = 35
Top = 3360
Width = 975
End
Begin VB.Label Label38
Caption = "15通道"
Height = 375
Left = 3120
TabIndex = 28
Top = 5760
Width = 735
End
Begin VB.Label Label37
Caption = "Label37"
Height = 255
Left = 4920
TabIndex = 27
Top = 6840
Width = 15
End
Begin VB.Label Label36
Caption = "14通道"
Height = 375
Left = 3120
TabIndex = 26
Top = 5160
Width = 855
End
Begin VB.Label Label35
Caption = "13通道"
Height = 375
Left = 3120
TabIndex = 25
Top = 4560
Width = 855
End
Begin VB.Label Label34
Caption = "12通道"
Height = 375
Left = 3120
TabIndex = 24
Top = 3960
Width = 735
End
Begin VB.Label Label32
Caption = "10通道"
Height = 255
Left = 3120
TabIndex = 23
Top = 2760
Width = 855
End
Begin VB.Label Label31
Caption = "9通道"
Height = 375
Left = 3240
TabIndex = 22
Top = 2160
Width = 615
End
Begin VB.Label Label10
Caption = "8通道"
Height = 255
Left = 3240
TabIndex = 21
Top = 1560
Width = 615
End
Begin VB.Label Label8
Caption = "6通道"
Height = 255
Left = 600
TabIndex = 20
Top = 5160
Width = 615
End
Begin VB.Label Label7
Caption = "5通道"
Height = 255
Left = 600
TabIndex = 19
Top = 4560
Width = 615
End
Begin VB.Label Label6
Caption = "4通道"
Height = 255
Left = 600
TabIndex = 18
Top = 3960
Width = 735
End
Begin VB.Label Label4
Caption = "2通道"
Height = 255
Left = 600
TabIndex = 17
Top = 2760
Width = 615
End
Begin VB.Label Label3
Caption = "1通道"
Height = 255
Left = 600
TabIndex = 16
Top = 2160
Width = 735
End
Begin VB.Label Label2
Caption = "0通道"
Height = 255
Left = 600
TabIndex = 15
Top = 1560
Width = 615
End
Begin VB.Label Label12
Caption = "末通道"
Height = 255
Left = 2880
TabIndex = 4
Top = 480
Width = 855
End
Begin VB.Label Label11
Caption = "首通道"
Height = 255
Left = 1200
TabIndex = 2
Top = 480
Width = 735
End
Begin VB.Menu file
Caption = "文件操作"
Begin VB.Menu newbuild
Caption = "新建数据文件 "
End
Begin VB.Menu open
Caption = "打开数据文件"
End
Begin VB.Menu closefile
Caption = "关闭当前文件"
End
Begin VB.Menu 去
Caption = "------------"
Enabled = 0 'False
End
Begin VB.Menu DAoutput
Caption = "DA输出检测"
End
Begin VB.Menu CheckDIO
Caption = "检测开关量IO"
End
Begin VB.Menu Counter
Caption = "计数器操作"
End
Begin VB.Menu 广泛
Caption = "-----------"
Enabled = 0 'False
End
Begin VB.Menu closecollect
Caption = "关闭数采系统"
End
Begin VB.Menu exit
Caption = "退出应用程序"
End
End
Begin VB.Menu device
Caption = "设备管理"
Begin VB.Menu begincollect
Caption = "开始数据采集"
End
Begin VB.Menu stopcollect
Caption = "停止数据采集"
End
Begin VB.Menu listdevice
Caption = "列表该类设备"
End
End
Begin VB.Menu digitprocess
Caption = "数据处理"
Begin VB.Menu digitshow
Caption = "数字方式显示"
End
Begin VB.Menu waveshow
Caption = "图形方式显示"
End
Begin VB.Menu savedigit
Caption = "数据存盘处理"
End
End
Begin VB.Menu WindowsList
Caption = "窗口列表"
WindowList = -1 'True
End
Begin VB.Menu help
Caption = "系统帮助"
Begin VB.Menu sys
Caption = "关于sys"
End
End
End
Attribute VB_Name = "AD_Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hCollectThread As Long
Dim hProcessThread As Long
Dim x, OldY, NewY As Integer
Dim middle1 As Double
Dim ChannelCount As Integer '置通道总数
Dim PerHeight As Integer
Dim Channel As Long
Dim Index As Long
Dim Original As Long '置原点位置
Dim PerLsbVolt As Double '根据设备的Bit位数，用于确定每个Lsb分配的电压值
Dim WriteIndex As Long
Dim DiskFreeWords As Long
Dim WroteDiskWords As Long
Dim nFileID As Long
Dim Pwidth As Integer
Dim bWriteFile As Boolean
Dim DataShowSytle As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private CollectDataThread As ThreadObject
Private ProcessDataThread As ThreadObject
Private Sub begincollect_Click()
Call Start_Command_Click
End Sub
Private Sub Counter_Click()
Counter_Form.Show
End Sub
Private Sub DAOutput_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -