adform.frm

基于数据采集卡的测试程序

         Left            =   840
         TabIndex        =   5
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label16 
         Caption         =   "CH16:"
         Height          =   240
         Left            =   2160
         TabIndex        =   36
         Top             =   3720
         Width           =   585
      End
      Begin VB.Label Label15 
         Caption         =   "CH15:"
         Height          =   240
         Left            =   2160
         TabIndex        =   35
         Top             =   3252
         Width           =   585
      End
      Begin VB.Label Label14 
         Caption         =   "CH14:"
         Height          =   240
         Left            =   2160
         TabIndex        =   34
         Top             =   2790
         Width           =   585
      End
      Begin VB.Label Label13 
         Caption         =   "CH13:"
         Height          =   240
         Left            =   2160
         TabIndex        =   33
         Top             =   2328
         Width           =   585
      End
      Begin VB.Label Label12 
         Caption         =   "CH12:"
         Height          =   240
         Left            =   2160
         TabIndex        =   32
         Top             =   1866
         Width           =   585
      End
      Begin VB.Label Label11 
         Caption         =   "CH11:"
         Height          =   240
         Left            =   2160
         TabIndex        =   31
         Top             =   1404
         Width           =   585
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "CH10:"
         Height          =   240
         Left            =   2160
         TabIndex        =   30
         Top             =   942
         Width           =   585
      End
      Begin VB.Label Label9 
         Caption         =   "CH09:"
         Height          =   240
         Left            =   2160
         TabIndex        =   29
         Top             =   480
         Width           =   585
      End
      Begin VB.Label Label8 
         Caption         =   "CH08:"
         Height          =   240
         Left            =   120
         TabIndex        =   21
         Top             =   3720
         Width           =   585
      End
      Begin VB.Label Label7 
         Caption         =   "CH07:"
         Height          =   240
         Left            =   120
         TabIndex        =   20
         Top             =   3252
         Width           =   585
      End
      Begin VB.Label Label6 
         Caption         =   "CH06:"
         Height          =   240
         Left            =   120
         TabIndex        =   19
         Top             =   2790
         Width           =   585
      End
      Begin VB.Label Label5 
         Caption         =   "CH05:"
         Height          =   240
         Left            =   120
         TabIndex        =   18
         Top             =   2328
         Width           =   585
      End
      Begin VB.Label Label4 
         Caption         =   "CH04:"
         Height          =   240
         Left            =   120
         TabIndex        =   17
         Top             =   1866
         Width           =   585
      End
      Begin VB.Label Label3 
         Caption         =   "CH03:"
         Height          =   240
         Left            =   120
         TabIndex        =   16
         Top             =   1404
         Width           =   585
      End
      Begin VB.Label Label2 
         Caption         =   "CH02:"
         Height          =   240
         Left            =   120
         TabIndex        =   15
         Top             =   942
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "CH01:"
         Height          =   240
         Left            =   120
         TabIndex        =   14
         Top             =   480
         Width           =   585
      End
   End
End
Attribute VB_Name = "AdForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'允许AD采样函数
Private Sub AdCom_Click()
'判断AdCom.Caption，以确定是否采样
If AdCom.Caption = "开始采样" Then
'开始采样
   AdTimer.Enabled = True
    hplx = 0
    hplx = pci7483check(0, 0, False, 1)
   AdCom.Caption = "停止采样"
Else
'停止采样
   AdTimer.Enabled = False
   hplx = pci7483close(hplx)
   AdCom.Caption = "开始采样"
End If
End Sub

'AD采样定时程序
Private Sub AdTimer_Timer()
 Dim add(16)
 Dim number(20, 16)
  'b为AD转换参数
 'AD量程判断
 
 If Ncxz(0) = True Then
   b = 10# / 4096#       '0--10v
   c = 0#
 End If

 If Ncxz(1) = True Then
   b = 10# / 4096#       '-5 --5v
   c = 5#
 End If
 
 If Ncxz(3) = True Then
   b = 5# / 4096#      '0--5v
   c = 0#
 End If

 If Ncxz(2) = True Then
   b = 5# / 4096#      '-2.5--2.5v
   c = 2.5
 End If
 
If Ncxz(5) = True Then
   b = 20# / 4096#       '-10--10v
   c = 10#
 End If

 If Ncxz(4) = True Then
   b = 16# / 4096#       '4 --20mA
   c = -4#
 End If
 
 If fs(0).Value = True Then
    For i = 0 To 7
      ch(i + 8) = True
    Next i
  Else
    For i = 0 To 7
      ch(i + 8) = False
    Next i
 End If
 
 'AD采样20遍
 For i = 0 To 15
 add(i) = 0
 Next i
 For i = 0 To 15
 'AD转换函数
 add(i) = pci7483ad(hplx, False, i) * b - c
   Next i
  ' Next k
'显示AD采样数据
For i = 0 To 15
 '判断通道是否显示
 If ch(i) = True Then
Addata(i) = add(i)
 End If
Next i
End Sub
'通道选择函数
Private Sub ChCom_Click()
 '以模态方式显示通道选择界面
 ChForm.Show vbModal, Me
 If fs(0) Then
    For i = 0 To 7
    ch(i + 8) = True
    Next i
    ChForm.DCh1 = 1
     Else
    For i = 0 To 7
    ch(i + 8) = False
    Next i
 End If
 ChForm.DCh1 = 0
End Sub

Private Sub Exit_Click()
If hplx <> 1 Then
hplx = pci7483close(hplx)
End If
Unload AdForm
End Sub

'AD初始化函数
Private Sub Form_Load()
Dim number(20, 16)
 For i = 0 To 15
  ch(i) = True
  Addata(i) = 0
 Next i
  hplx = 1
End Sub

Private Sub fs_Click(Index As Integer)
       
    If fs(0) = True Then
       For i = 0 To 7
           ch(i + 8) = True
           Addata(i + 8).Enabled = True
       Next i
    Else
       For i = 0 To 7
           ch(i + 8) = False
           Addata(i + 8).Enabled = False
           Addata(i + 8) = "无效"
       Next i
    End If
    
End Sub