aitester.vb

使用研华DAQ和VB.net实现研华数据采集卡的多种功能.包括数据输入输出。内含多个源码

        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(7, 229)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(73, 12)
        Me.Label8.TabIndex = 23
        Me.Label8.Text = "Conv# Num :"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(5, 141)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(82, 16)
        Me.Label7.TabIndex = 16
        Me.Label7.Text = "Transfer mode :"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(7, 25)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(77, 16)
        Me.Label6.TabIndex = 14
        Me.Label6.Text = "Start Channel :"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(7, 208)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(74, 16)
        Me.Label5.TabIndex = 13
        Me.Label5.Text = "Sample Rate :"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(8, 117)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(61, 16)
        Me.Label4.TabIndex = 11
        Me.Label4.Text = "Data Type :"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.BackColor = System.Drawing.SystemColors.Control
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(9, 70)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(70, 16)
        Me.Label3.TabIndex = 9
        Me.Label3.Text = "Input Range :"
        '
        'ScanTimer
        '
        Me.ScanTimer.Interval = 500
        '
        'DAQAI1
        '
        Me.DAQAI1.Enabled = True
        Me.DAQAI1.Location = New System.Drawing.Point(357, 10)
        Me.DAQAI1.Name = "DAQAI1"
        Me.DAQAI1.OcxState = CType(resources.GetObject("DAQAI1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.DAQAI1.Size = New System.Drawing.Size(33, 33)
        Me.DAQAI1.TabIndex = 22
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(424, 425)
        Me.Controls.Add(Me.DAQAI1)
        Me.Controls.Add(Me.chou2121)
        Me.Controls.Add(Me.Frame4)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.Frame1)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "AI Tester"
        Me.Frame4.ResumeLayout(False)
        Me.ErrorFrame.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        Me.chou2121.ResumeLayout(False)
        CType(Me.DAQAI1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub cmdAcquireStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAcquireStop.Click
        If IsInitializing Then
            Exit Sub
        End If
        ' Stop get data
        cmdAcquireStop.Enabled = False
        bRet = DAQAI1.AcquireStop
        If bRet Then
            MsgBox(DAQAI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If
        ErrorTimer.Enabled = False
        ' Close device
        bRet = DAQAI1.CloseDevice
        If bRet Then
            MsgBox(DAQAI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If
        UIControl(True)
        cmdAutoGet.Enabled = False
        cmdSelectDevice.Enabled = True


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Select default device
        Call cmdSelectDevice_Click(cmdSelectDevice, New System.EventArgs)
        ' Setting initial value
        cmbDataType.SelectedIndex = DAQAI1.DataType

        'End Add

        ScanTimer.Enabled = False
        cmdAutoGet.Enabled = False
        cmdStopAutoGet.Enabled = False
        lstReading.ResetText()
    End Sub

    Private Sub cmdSelectDevice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelectDevice.Click
        Dim i As Short
        Dim j As Short
        Dim bRet As Boolean
        Dim strRange As New String("", 30)

        If IsInitializing Then
            Exit Sub
        End If

        ScanTimer.Enabled = False
        ErrorTimer.Enabled = False

        DAQAI1.SelectDevice()

        txtDeviceNum.Text = CStr(DAQAI1.DeviceNumber)
        txtDeviceName.Text = DAQAI1.DeviceName
        DAQAI1.DeviceNumber = DAQAI1.DeviceNumber
        DAQAI1.DeviceName = DAQAI1.DeviceName
        cmbInputRange.Items.Clear()
        ' Open device
        If DAQAI1.OpenDevice Then
            MsgBox(DAQAI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If

        If InStr(DAQAI1.DeviceName, "DEMO") <> 0 Then
            cmbDataType.Enabled = False
            cmbDataType.SelectedIndex = 1
            DAQAI1.DataType = DAQAILib.DATA_TYPE.adReal
            chkFIFOEnabled.Enabled = False
            txtFifoSize.Text = CStr(1)
            txtFifoSize.Enabled = False
            chkOverAllGain.Enabled = False
        Else
            cmbDataType.Enabled = True
            chkFIFOEnabled.Enabled = True
            chkOverAllGain.Enabled = True
            txtFifoSize.Enabled = True

        End If

        ' Get input range list
        DAQAI1.GetFirstInputRange(strRange)
        cmbInputRange.Items.Add(strRange)
        gInputRangeList(0) = strRange
        i = 1
        While (DAQAI1.GetNextInputRange(strRange) = False)
            cmbInputRange.Items.Add(strRange)
            gInputRangeList(i) = strRange
            i += 1
        End While
        cmbInputRange.SelectedIndex = 0

        ' Get Max. channel number
        If DAQAI1.MaxDifferentialChannel > DAQAI1.MaxSingleEndedChannel Then
            i = DAQAI1.MaxDifferentialChannel
        Else
            i = DAQAI1.MaxSingleEndedChannel
        End If

        If i = 0 Then
            MsgBox("Function Not Supported", MsgBoxStyle.OKOnly)
            DAQAI1.CloseDevice()

            Exit Sub
        End If
        'redim the size of gGainCodeList
        ReDim gGainCodeList(i - 1)
        cmbStartChannel.Items.Clear()
        cmbNumofChannels.Items.Clear()

        For j = 0 To i - 1
            cmbStartChannel.Items.Add((Str(j)))
            cmbNumofChannels.Items.Add((Str(j + 1)))
        Next j
        If i <> 0 Then
            cmbStartChannel.SelectedIndex = 0
            cmbNumofChannels.SelectedIndex = 0
        End If

        If DAQAI1.FIFOEnabled Then
            txtFifoSize.Enabled = True
            txtFifoSize.Text = CStr(DAQAI1.FIFOSize)
        Else
            txtFifoSize.Enabled = False
        End If

        cmbStartChannel.SelectedIndex = DAQAI1.StartChannel

        cmbTransferMode.SelectedIndex = DAQAI1.TransferMode


        cmbClockSource.SelectedIndex = DAQAI1.ClockSource

        If DAQAI1.FIFOEnabled Then
            chkFIFOEnabled.CheckState = System.Windows.Forms.CheckState.Checked
            txtFifoSize.Text = CStr(DAQAI1.FIFOSize)
        Else
            chkFIFOEnabled.CheckState = System.Windows.Forms.CheckState.Unchecked
            txtFifoSize.Enabled = False
        End If

        If DAQAI1.EventEnabled Then
            chkEventEnabled.CheckState = System.Windows.Forms.CheckState.Checked
        Else
            chkEventEnabled.CheckState = System.Windows.Forms.CheckState.Unchecked
        End If

        If DAQAI1.CyclicMode Then
            CyclicMode.CheckState = System.Windows.Forms.CheckState.Checked
        Else
            CyclicMode.CheckState = System.Windows.Forms.CheckState.Unchecked
        End If


        If DAQAI1.ExtTrigger = True Then
            cmbTriggerSource.SelectedIndex = 1
        Else