📄 数据采集系统.frm
字号:
Width = 855
End
Begin VB.Label Label3
Caption = "0通道对应电势显示"
Height = 375
Left = 240
TabIndex = 5
Top = 6120
Width = 855
End
Begin VB.Label Label2
Caption = "末通道"
Height = 255
Left = 3000
TabIndex = 2
Top = 5640
Width = 735
End
Begin VB.Label Label1
Caption = "首通道"
Height = 255
Left = 360
TabIndex = 0
Top = 5520
Width = 735
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 1080
TabIndex = 7
Top = 6720
Width = 1215
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1080
TabIndex = 6
Top = 6120
Width = 1215
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 ChannelCount As Integer '置通道总数
Dim PerHeight As Integer
Dim Channel As Long
Private Sub Command1_Click()
'exApp.Quit
'Set exApp = Nothing
End
End Sub
Private Sub draw_command_Click()
drawpic_form.Show
End Sub
Private Sub DIO_command_Click()
DIO_Form.Show
DIO_command.Enabled = Not DIO_command.Enabled
DIO_Form.start_Command.Enabled = True
DIO_Form.stop_Command.Enabled = False
'DIO_Form.Timer1.Enabled = True
End Sub
Private Sub FirstChannel_Combo_Click()
Dim FirstChannel As Long
FirstChannel = FirstChannel_Combo
If FirstChannel > AD_Module.ADPara.LastChannel Then
MsgBox "首通道不能大于末通道！"
Exit Sub
End If
AD_Module.ADPara.FirstChannel = FirstChannel_Combo
End Sub
Private Sub LastChannel_Combo_Click()
Dim LastChannel As Long
LastChannel = LastChannel_Combo
If LastChannel < AD_Module.ADPara.FirstChannel Then
MsgBox "末通道不能小于首通道！"
Exit Sub
End If
AD_Module.ADPara.LastChannel = LastChannel_Combo
End Sub
Private Sub Form_Load()
Dim i As Integer
'Kn = 1.86
For i = 0 To 1
'AD_Module.flag(i) = False
Label4.Item(i).Enabled = False
Next i
'以下是对硬件参数预置初值
AD_Module.ADPara.FirstChannel = 0 ' 置首通道为0
AD_Module.ADPara.LastChannel = 0 ' 置末通道为0
DAchanne = 0
' 以下是对参数控件预置初值
FirstChannel_Combo = AD_Module.ADPara.FirstChannel
LastChannel_Combo = AD_Module.ADPara.LastChannel
stop_Command.Enabled = False
AD_Module.DeviceID = 0 ' 设当前被操作的USB设备只有一个
AD_Module.hDevice = USB2013_CreateDevice(AD_Module.DeviceID) '创建设备对象
If AD_Module.hDevice = INVALID_HANDLE_VALUE Then
MsgBox "创建设备对象失败...", 0, "error"
End If
Auto_opt.Value = True
Frame3.Caption = ""
P_text.BackColor = &H8000000B '灰色
I_text.BackColor = &H8000000B
D_text.BackColor = &H8000000B
saveopt.Value = True
'drawpic_form.Show
'Set exApp = New Excel.Application
'比例系数查询表
Kp(0, 0) = 1.27: Kp(0, 1) = 1.12: Kp(0, 2) = 0.96: Kp(0, 3) = 0.85: Kp(0, 4) = 0.73: Kp(0, 5) = 0.7: Kp(0, 6) = 0.67: Kp(0, 7) = 0.59: Kp(0, 8) = 0.5: Kp(0, 9) = 0.25: Kp(0, 10) = 0: Kp(0, 11) = -0.2: Kp(0, 12) = -0.39
Kp(1, 0) = 1.27: Kp(1, 1) = 1.12: Kp(1, 2) = 0.96: Kp(1, 3) = 0.8: Kp(1, 4) = 0.64: Kp(1, 5) = 0.61: Kp(1, 6) = 0.59: Kp(1, 7) = 0.5: Kp(1, 8) = 0.42: Kp(1, 9) = 0.25: Kp(1, 10) = 0: Kp(1, 11) = -0.22: Kp(1, 12) = -0.45
Kp(2, 0) = 1.27: Kp(2, 1) = 1.12: Kp(2, 2) = 0.95: Kp(2, 3) = 0.75: Kp(2, 4) = 0.55: Kp(2, 5) = 0.53: Kp(2, 6) = 0.5: Kp(2, 7) = 0.42: Kp(2, 8) = 0.33: Kp(2, 9) = 0.24: Kp(2, 10) = -0.15: Kp(2, 11) = -0.33: Kp(2, 12) = -0.5
Kp(3, 0) = 1.16: Kp(3, 1) = 0.92: Kp(3, 2) = 0.66: Kp(3, 3) = 0.53: Kp(3, 4) = 0.4: Kp(3, 5) = 0.37: Kp(3, 6) = 0.35: Kp(3, 7) = 0.26: Kp(3, 8) = 0.17: Kp(3, 9) = -0.08: Kp(3, 10) = -0.33: Kp(3, 11) = -0.5: Kp(3, 12) = -0.68
Kp(4, 0) = 1.05: Kp(4, 1) = 0.71: Kp(4, 2) = 0.37: Kp(4, 3) = 0.31: Kp(4, 4) = 0.24: Kp(4, 5) = 0.22: Kp(4, 6) = 0.19: Kp(4, 7) = 0.1: Kp(4, 8) = 0: Kp(4, 9) = -0.25: Kp(4, 10) = -0.5: Kp(4, 11) = -0.68: Kp(4, 12) = -0.85
Kp(5, 0) = 1.05: Kp(5, 1) = 0.7: Kp(5, 2) = 0.34: Kp(5, 3) = 0.23: Kp(5, 4) = 0.12: Kp(5, 5) = 0.11: Kp(5, 6) = 0.1: Kp(5, 7) = 0: Kp(5, 8) = -0.1: Kp(5, 9) = -0.34: Kp(5, 10) = -0.59: Kp(5, 11) = -0.76: Kp(5, 12) = -0.93
Kp(6, 0) = 1: Kp(6, 1) = 0.66: Kp(6, 2) = 0.31: Kp(6, 3) = 0.16: Kp(6, 4) = 0: Kp(6, 5) = 0: Kp(6, 6) = 0: Kp(6, 7) = -0.1: Kp(6, 8) = -0.19: Kp(6, 9) = -0.43: Kp(6, 10) = -0.67: Kp(6, 11) = -0.84: Kp(6, 12) = -1
Kp(7, 0) = 0.93: Kp(7, 1) = 0.57: Kp(7, 2) = 0.22: Kp(7, 3) = -0.06: Kp(7, 4) = -0.1: Kp(7, 5) = -0.1: Kp(7, 6) = -0.1: Kp(7, 7) = -0.16: Kp(7, 8) = -0.22: Kp(7, 9) = -0.46: Kp(7, 10) = -0.7: Kp(7, 11) = -0.86: Kp(7, 12) = -1
Kp(8, 0) = 0.85: Kp(8, 1) = 0.49: Kp(8, 2) = 0.12: Kp(8, 3) = -0.04: Kp(8, 4) = -0.19: Kp(8, 5) = -0.19: Kp(8, 6) = -0.19: Kp(8, 7) = -0.22: Kp(8, 8) = -0.24: Kp(8, 9) = -0.49: Kp(8, 10) = -0.73: Kp(8, 11) = -0.89: Kp(8, 12) = -1.05
Kp(9, 0) = 0.7: Kp(9, 1) = 0.34: Kp(9, 2) = -0.03: Kp(9, 3) = -0.18: Kp(9, 4) = -0.32: Kp(9, 5) = -0.32: Kp(9, 6) = -0.32: Kp(9, 7) = -0.35: Kp(9, 8) = -0.37: Kp(9, 9) = -0.61: Kp(9, 10) = -0.85: Kp(9, 11) = -1.01: Kp(9, 12) = -1.16
Kp(10, 0) = 0.55: Kp(10, 1) = 0.19: Kp(10, 2) = -0.18: Kp(10, 3) = -0.32: Kp(10, 4) = -0.45: Kp(10, 5) = -0.45: Kp(10, 6) = -0.45: Kp(10, 7) = -0.48: Kp(10, 8) = -0.5: Kp(10, 9) = -0.73: Kp(10, 10) = -0.96: Kp(10, 11) = -1.12: Kp(10, 12) = -1.27
Kp(11, 0) = 0.51: Kp(11, 1) = 0.12: Kp(11, 2) = -0.27: Kp(11, 3) = -0.39: Kp(11, 4) = -0.51: Kp(11, 5) = -0.51: Kp(11, 6) = -0.51: Kp(11, 7) = -0.53: Kp(11, 8) = -0.56: Kp(11, 9) = -0.76: Kp(11, 10) = -0.95: Kp(11, 11) = -1.12: Kp(11, 12) = -1.29
Kp(12, 0) = 0.46: Kp(12, 1) = 0.06: Kp(12, 2) = -0.35: Kp(12, 3) = -0.46: Kp(12, 4) = -0.56: Kp(12, 5) = -0.56: Kp(12, 6) = -0.56: Kp(12, 7) = -0.6: Kp(12, 8) = -0.63: Kp(12, 9) = -0.79: Kp(12, 10) = -0.95: Kp(12, 11) = -1.13: Kp(12, 12) = -1.31
'积分系数查询表
Ki(0, 0) = -1.31: Ki(0, 1) = -1.29: Ki(0, 2) = -1.27: Ki(0, 3) = -1.16: Ki(0, 4) = -1.05: Ki(0, 5) = -1.03: Ki(0, 6) = -1: Ki(0, 7) = -0.93: Ki(0, 8) = -0.85: Ki(0, 9) = -0.62: Ki(0, 10) = -0.39: Ki(0, 11) = -0.2: Ki(0, 12) = 0
Ki(1, 0) = -1.31: Ki(1, 1) = -1.22: Ki(1, 2) = -1.12: Ki(1, 3) = -1.01: Ki(1, 4) = -0.89: Ki(1, 5) = -0.87: Ki(1, 6) = -0.84: Ki(1, 7) = -0.76: Ki(1, 8) = -0.68: Ki(1, 9) = -0.44: Ki(1, 10) = -0.2: Ki(1, 11) = 0: Ki(1, 12) = 0.2
Ki(2, 0) = -1.31: Ki(2, 1) = -1.14: Ki(2, 2) = -0.96: Ki(2, 3) = -0.85: Ki(2, 4) = -0.73: Ki(2, 5) = -0.7: Ki(2, 6) = -0.67: Ki(2, 7) = -0.59: Ki(2, 8) = -0.5: Ki(2, 9) = -0.25: Ki(2, 10) = 0: Ki(2, 11) = 0.2: Ki(2, 12) = 0.39
Ki(3, 0) = -1.31: Ki(3, 1) = -1.14: Ki(3, 2) = -0.96: Ki(3, 3) = -0.73: Ki(3, 4) = -0.49: Ki(3, 5) = -0.46: Ki(3, 6) = -0.43: Ki(3, 7) = -0.35: Ki(3, 8) = -0.25: Ki(3, 9) = 0: Ki(3, 10) = 0.25: Ki(3, 11) = 0.44: Ki(3, 12) = 0.62
Ki(4, 0) = -1.31: Ki(4, 1) = -1.14: Ki(4, 2) = -0.96: Ki(4, 3) = -0.6: Ki(4, 4) = -0.24: Ki(4, 5) = -0.22: Ki(4, 6) = -0.19: Ki(4, 7) = -0.1: Ki(4, 8) = 0: Ki(4, 9) = 0.25: Ki(4, 10) = 0.5: Ki(4, 11) = 0.68: Ki(4, 12) = 0.85
Ki(5, 0) = -1.19: Ki(5, 1) = -1.02: Ki(5, 2) = -0.85: Ki(5, 3) = -0.55: Ki(5, 4) = -0.24: Ki(5, 5) = -0.05: Ki(5, 6) = -0.1: Ki(5, 7) = 0.01: Ki(5, 8) = 0.12: Ki(5, 9) = 0.37: Ki(5, 10) = 0.62: Ki(5, 11) = 0.79: Ki(5, 12) = 0.95
Ki(6, 0) = -1.06: Ki(6, 1) = -0.9: Ki(6, 2) = -0.73: Ki(6, 3) = -0.49: Ki(6, 4) = -0.24: Ki(6, 5) = -0.12: Ki(6, 6) = 0: Ki(6, 7) = 0.12: Ki(6, 8) = 0.24: Ki(6, 9) = 0.49: Ki(6, 10) = 0.73: Ki(6, 11) = 0.89: Ki(6, 12) = 1.05
Ki(7, 0) = -1.03: Ki(7, 1) = -0.87: Ki(7, 2) = -0.7: Ki(7, 3) = -0.46: Ki(7, 4) = -0.22: Ki(7, 5) = -0.01: Ki(7, 6) = 0: Ki(7, 7) = 0.12: Ki(7, 8) = 0.24: Ki(7, 9) = 0.55: Ki(7, 10) = 0.85: Ki(7, 11) = 1.01: Ki(7, 12) = 1.16
Ki(8, 0) = -1: Ki(8, 1) = -0.84: Ki(8, 2) = -0.67: Ki(8, 3) = -0.43: Ki(8, 4) = -0.19: Ki(8, 5) = -0.1: Ki(8, 6) = 0: Ki(8, 7) = 0.12: Ki(8, 8) = 0.24: Ki(8, 9) = 0.6: Ki(8, 10) = 0.96: Ki(8, 11) = 1.12: Ki(8, 12) = 1.27
Ki(9, 0) = -0.91: Ki(9, 1) = -0.73: Ki(9, 2) = -0.55: Ki(9, 3) = -0.29: Ki(9, 4) = -0.04: Ki(9, 5) = 0.06: Ki(9, 6) = 0.16: Ki(9, 7) = 0.23: Ki(9, 8) = 0.31: Ki(9, 9) = 0.64: Ki(9, 10) = 0.96: Ki(9, 11) = 1.12: Ki(9, 12) = 1.27
Ki(10, 0) = -0.82: Ki(10, 1) = -0.62: Ki(10, 2) = -0.42: Ki(10, 3) = -0.15: Ki(10, 4) = 0.12: Ki(10, 5) = 0.22: Ki(10, 6) = 0.31: Ki(10, 7) = 0.34: Ki(10, 8) = 0.37: Ki(10, 9) = 0.67: Ki(10, 10) = 0.96: Ki(10, 11) = 1.12: Ki(10, 12) = 1.27
Ki(11, 0) = -0.41: Ki(11, 1) = -0.21: Ki(11, 2) = -0.01: Ki(11, 3) = 0.24: Ki(11, 4) = 0.49: Ki(11, 5) = 0.58: Ki(11, 6) = 0.66: Ki(11, 7) = 0.69: Ki(11, 8) = 0.71: Ki(11, 9) = 0.92: Ki(11, 10) = 1.12: Ki(11, 11) = 1.12: Ki(11, 12) = 1.27
Ki(12, 0) = 0: Ki(12, 1) = 0.2: Ki(12, 2) = 0.39: Ki(12, 3) = 0.62: Ki(12, 4) = 0.85: Ki(12, 5) = 0.93: Ki(12, 6) = 1: Ki(12, 7) = 1.03: Ki(12, 8) = 1.05: Ki(12, 9) = 1.16: Ki(12, 10) = 1.27: Ki(12, 11) = 1.27: Ki(12, 12) = 1.27
'微分系数查询表
Kd(0, 0) = 0.18: Kd(0, 1) = -0.13: Kd(0, 2) = -0.44: Kd(0, 3) = -0.65: Kd(0, 4) = -0.86: Kd(0, 5) = -0.86: Kd(0, 6) = -0.86: Kd(0, 7) = -0.86: Kd(0, 8) = -0.86: Kd(0, 9) = -0.74: Kd(0, 10) = -0.61: Kd(0, 11) = -0.44: Kd(0, 12) = -0.27
Kd(1, 0) = 0.17: Kd(1, 1) = -0.13: Kd(1, 2) = -0.42: Kd(1, 3) = -0.62: Kd(1, 4) = -0.82: Kd(1, 5) = -0.82: Kd(1, 6) = -0.82: Kd(1, 7) = -0.82: Kd(1, 8) = -0.82: Kd(1, 9) = -0.7: Kd(1, 10) = -0.58: Kd(1, 11) = -0.42: Kd(1, 12) = -0.26
Kd(2, 0) = 0.15: Kd(2, 1) = -0.12: Kd(2, 2) = -0.39: Kd(2, 3) = -0.59: Kd(2, 4) = -0.78: Kd(2, 5) = -0.78: Kd(2, 6) = -0.78: Kd(2, 7) = -0.78: Kd(2, 8) = -0.78: Kd(2, 9) = -0.67: Kd(2, 10) = -0.55: Kd(2, 11) = -0.4: Kd(2, 12) = -0.24
Kd(3, 0) = 0.08: Kd(3, 1) = -0.2: Kd(3, 2) = -0.48: Kd(3, 3) = -0.62: Kd(3, 4) = -0.76: Kd(3, 5) = -0.76: Kd(3, 6) = -0.76: Kd(3, 7) = -0.76: Kd(3, 8) = -0.76: Kd(3, 9) = -0.7: Kd(3, 10) = -0.64: Kd(3, 11) = -0.49: Kd(3, 12) = -0.33
Kd(4, 0) = 0: Kd(4, 1) = -0.28: Kd(4, 2) = -0.56: Kd(4, 3) = -0.65: Kd(4, 4) = -0.73: Kd(4, 5) = -0.73: Kd(4, 6) = -0.73: Kd(4, 7) = -0.73: Kd(4, 8) = -0.73: Kd(4, 9) = -0.73: Kd(4, 10) = -0.73: Kd(4, 11) = -0.58: Kd(4, 12) = -0.42
Kd(5, 0) = -0.2: Kd(5, 1) = -0.45: Kd(5, 2) = -0.71: Kd(5, 3) = -0.75: Kd(5, 4) = -0.79: Kd(5, 5) = -0.79: Kd(5, 6) = -0.79: Kd(5, 7) = -0.79: Kd(5, 8) = -0.79: Kd(5, 9) = -0.79: Kd(5, 10) = -0.79: Kd(5, 11) = -0.7: Kd(5, 12) = -0.62
Kd(6, 0) = -0.39: Kd(6, 1) = -0.62: Kd(6, 2) = -0.85: Kd(6, 3) = -0.85: Kd(6, 4) = -0.85: Kd(6, 5) = -0.85: Kd(6, 6) = -0.85: Kd(6, 7) = -0.85: Kd(6, 8) = -0.85: Kd(6, 9) = -0.85: Kd(6, 10) = -0.85: Kd(6, 11) = -0.82: Kd(6, 12) = -0.82
Kd(7, 0) = 0.01: Kd(7, 1) = -0.1: Kd(7, 2) = -0.22: Kd(7, 3) = -0.22: Kd(7, 4) = -0.22: Kd(7, 5) = -0.22: Kd(7, 6) = -0.22: Kd(7, 7) = -0.22: Kd(7, 8) = -0.22: Kd(7, 9) = -0.22: Kd(7, 10) = -0.22: Kd(7, 11) = -0.2: Kd(7, 12) = -0.2
Kd(8, 0) = 0.42: Kd(8, 1) = 0.42: Kd(8, 2) = 0.42: Kd(8, 3) = 0.42: Kd(8, 4) = 0.42: Kd(8, 5) = 0.42: Kd(8, 6) = 0.42: Kd(8, 7) = 0.42: Kd(8, 8) = 0.42: Kd(8, 9) = 0.42: Kd(8, 10) = 0.42: Kd(8, 11) = 0.42: Kd(8, 12) = 0.42
Kd(9, 0) = 0.79: Kd(9, 1) = 0.79: Kd(9, 2) = 0.79: Kd(9, 3) = 0.79: Kd(9, 4) = 0.79: Kd(9, 5) = 0.79: Kd(9, 6) = 0.79: Kd(9, 7) = 0.79: Kd(9, 8) = 0.71: Kd(9, 9) = 0.71: Kd(9, 10) = 0.71: Kd(9, 11) = 0.79: Kd(9, 12) = 0.79
Kd(10, 0) = 1.15: Kd(10, 1) = 1.15: Kd(10, 2) = 1.15: Kd(10, 3) = 1.15: Kd(10, 4) = 1.15: Kd(10, 5) = 1.15: Kd(10, 6) = 1.15: Kd(10, 7) = 1.15: Kd(10, 8) = 1: Kd(10, 9) = 1: Kd(10, 10) = 1: Kd(10, 11) = 1.15: Kd(10, 12) = 1.15
Kd(11, 0) = 1.46: Kd(11, 1) = 1.41: Kd(11, 2) = 1.35: Kd(11, 3) = 1.3: Kd(11, 4) = 1.3: Kd(11, 5) = 1.3: Kd(11, 6) = 1.3: Kd(11, 7) = 1.3: Kd(11, 8) = 1.2: Kd(11, 9) = 1.2: Kd(11, 10) = 1.23: Kd(11, 11) = 1.38: Kd(11, 12) = 1.46
Kd(12, 0) = 1.76: Kd(12, 1) = 1.66: Kd(12, 2) = 1.55: Kd(12, 3) = 1.5: Kd(12, 4) = 1.5: Kd(12, 5) = 1.5: Kd(12, 6) = 1.5: Kd(12, 7) = 1.45: Kd(12, 8) = 1.39: Kd(12, 9) = 1.43: Kd(12, 10) = 1.46: Kd(12, 11) = 1.61: Kd(12, 12) = 1.767
End Sub
Private Sub save_picture_Click()
On Error GoTo deal_error
CommonDialog2.Filter = "图形(*.bmp)|*.bmp"
CommonDialog2.FileName = "烧成曲线.bmp"
CommonDialog2.ShowSave
SavePicture Picture1.Image, CommonDialog2.FileName
deal_error:
Exit Sub
End Sub
Private Sub start_Command_Click()
'Dim bStatus As Boolean
Dim i As Integer
Set exApp = New Excel.Application
Set xlWB = exApp.Workbooks.Add
PerLsbVolt = 10000# / 4096 ' 求出单位Lsb分配的电压值
'初始化
DAshow.Enabled = True
DAshow.Caption = " "
For Channel = AD_Module.ADPara.FirstChannel To AD_Module.ADPara.LastChannel
wendu0.Item(Channel).Enabled = True
wendu0.Item(Channel).Caption = " "
Next Channel
' wendu0.Enabled = True
'wendu0.Caption = " "
Text1.Text = "数据正在采集中.........."
start_Command.Enabled = Not start_Command.Enabled
draw_command.Enabled = False
stop_Command.Enabled = True
DAchanne.Enabled = False
FirstChannel_Combo.Enabled = False
LastChannel_Combo.Enabled = False
FirstChannel_Combo.BackColor = &H8000000F
LastChannel_Combo.BackColor = &H8000000F
DAchanne.BackColor = &H8000000F
For Channel = AD_Module.ADPara.FirstChannel To AD_Module.ADPara.LastChannel
' AD_Module.flag(Channel) = True
Label4.Item(Channel).Enabled = True
Next Channel
ShowTime_lbl.Enabled = True
For i = 0 To 1 '每次重新开始时，置每个通道为空
Label4(i).Caption = " "
Next i
ShowTime_lbl.Caption = " "
Call AD_Module.CollectDataFunction_Initial
Auto_opt.Value = True
Frame2.Caption = "PID参数自动方式显示"
Frame3.Caption = ""
If saveopt.Value = True Then
CommonDialog1.Filter = "Excel 表|*.xls"
CommonDialog1.ShowOpen
If Len(CommonDialog1.FileName) >= 1 Then
exApp.Workbooks.Open CommonDialog1.FileName
exApp.Cells(1, 1) = "采集的温度"
exApp.Cells(1, 2) = "采集热电势"
exApp.Cells(1, 3) = "温差"
exApp.Cells(1, 4) = "温差变化"
exApp.Cells(1, 5) = "P(比例系数)"
exApp.Cells(1, 6) = "I(积分系数)"
exApp.Cells(1, 7) = "D(微分系数)"
exApp.Cells(1, 8) = "控制输出量"
'Range(Cells(1, 4), Cells(1, 4)).Font.Size = 9
exApp.ActiveWorkbook.Save
xlWB.Close False
End If
End If
Emax = Val(Emax_Txt.Text) '最大温差值
ECmax = Val(ECmax_Txt.Text) '最大温差变化值
Timer1.Enabled = True
Timer1.Interval = Val(Period_Txt.Text) * 1000
Sample_period = Val(Period_Txt.Text)
n = 25
j = 0: m = 0: row = 0
E_Present = 0: E_Next = 0: count_time = 0
E_All = 0: Run_time = 0
Max_Output = 30 '初始控制输出量
End Sub
Private Sub stop_Command_Click()
Dim bStatus As Boolean
Dim ReleasehDevic As Long
Timer1.Enabled = False
exApp.Quit
Set xlWB = Nothing
Set exApp = Nothing
DAchanne.Enabled = True
ReleasehDevic = USB2013_CreateDevice(AD_Module.DeviceID)
bStatus = USB2013_ReleaseDeviceAD(ReleasehDevic)
bStatus = USB2013_ReleaseDevice(ReleasehDevic)
Text1.Text = " "
stop_Command.Enabled = Not stop_Command.Enabled
start_Command.Enabled = True
draw_command.Enabled = True
FirstChannel_Combo.Enabled = True
LastChannel_Combo.Enabled = True
FirstChannel_Combo.BackColor = &HFFFFFF
LastChannel_Combo.BackColor = &HFFFFFF
DAchanne.BackColor = &HFFFFFF
For Channel = AD_Module.ADPara.FirstChannel To AD_Module.ADPara.LastChannel
Label4.Item(Channel).Enabled = False
wendu0.Item(Channel).Enabled = False
Next Channel
ShowTime_lbl.Enabled = False
'wendu0(0).Enabled = False
DAshow.Enabled = False
'Auto_opt.Value = False
'Man_opt.Value = False
P_text.BackColor = &H8000000B '灰色
I_text.BackColor = &H8000000B
D_text.BackColor = &H8000000B
End Sub
Private Sub Period_Txt_Change()
'Timer1.Enabled = False
'MsgBox (Val(Text2.Text))
Timer1.Interval = Val(Period_Txt.Text) * 1000 '采样频率
End Sub
Private Sub Timer1_Timer()
'Timer1.Enabled = False
'Timer2.Enabled = True
'Timer2.Interval = Val(Period_Txt.Text) * 1000
j = (j + Sample_period)
'MsgBox (j)
X_time = j / 60
Sample_period = Val(Period_Txt.Text)
row = row + 1
'MsgBox (row)
errorlabel.Visible = False
Call AD_Module.CollectDataFunction
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = Val(Period_Txt.Text) * 1000
j = (j + Sample_period)
'MsgBox ("j=" & j)
X_time = j / 60
Sample_period = Val(Period_Txt.Text)
row = row + 1
'MsgBox ("row=" & row)
errorlabel.Visible = False
Call AD_Module.CollectDataFunction
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -