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