aitester.vb

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

            cmbTriggerSource.SelectedIndex = 0
        End If

        cmbNumofChannels.SelectedIndex = DAQAI1.NumberOfChannels - 1
        txtSampleRate.Text = CStr(DAQAI1.SampleRate)
        txtNumOfSample.Text = CStr(DAQAI1.NumberOfSamples)


        DAQAI1.CloseDevice()
    End Sub

    Private Sub chkEventEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEventEnabled.CheckedChanged
        If IsInitializing Then
            Exit Sub
        End If

        If chkEventEnabled.CheckState = System.Windows.Forms.CheckState.Checked Then
            DAQAI1.EventEnabled = True
        Else
            DAQAI1.EventEnabled = False
        End If
    End Sub

    Private Sub CyclicMode_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CyclicMode.CheckedChanged
        If IsInitializing Then
            Exit Sub
        End If

        If CyclicMode.Checked Then
            DAQAI1.CyclicMode = True
        Else
            DAQAI1.CyclicMode = False
        End If
    End Sub

    Private Sub chkOverAllGain_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOverAllGain.CheckedChanged
        If IsInitializing Then
            Exit Sub
        End If

        If chkOverAllGain.Checked Then
            cmbInputRange.Enabled = True
            cmdGainList.Enabled = False
            DAQAI1.InputRangeMode = 0
        Else
            cmbInputRange.Enabled = False
            cmdGainList.Enabled = True
            DAQAI1.InputRangeMode = 1
        End If
    End Sub

    Private Sub cmbDataType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDataType.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        DAQAI1.DataType = cmbDataType.SelectedIndex
    End Sub

    Private Sub cmbInputRange_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbInputRange.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        gGainCode = cmbInputRange.SelectedIndex
        DAQAI1.OverallInputRange = gGainCode
    End Sub

    Private Sub cmbNumofChannels_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNumofChannels.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        DAQAI1.NumberOfChannels = cmbNumofChannels.SelectedIndex + 1
    End Sub

    Private Sub cmbStartChannel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStartChannel.SelectedIndexChanged
        Dim index As Short
        Dim i As Short

        If IsInitializing Then
            Exit Sub
        End If
        DAQAI1.StartChannel = cmbStartChannel.SelectedIndex
        cmbNumofChannels.Items.Clear()
        index = cmbStartChannel.Items.Count - cmbStartChannel.SelectedIndex
        For i = 1 To index
            cmbNumofChannels.Items.Add(Str(i))
        Next i
        cmbNumofChannels.SelectedIndex = 0
        DAQAI1.NumberOfChannels = 1
    End Sub

    Private Sub cmbTransferMode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTransferMode.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        DAQAI1.TransferMode = cmbTransferMode.SelectedIndex
    End Sub

    Private Sub cmdAcquireStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAcquireStart.Click
        If IsInitializing Then
            Exit Sub
        End If
        lstReading.Items.Clear()

        If DAQAI1.OpenDevice Then
            MsgBox(DAQAI1.ErrorMessage, vbOKOnly)
            Exit Sub
        End If

        If DAQAI1.InputRangeMode = 1 Then    ' 1 = adDifferentRange
            DAQAI1.InputRangeList = gGainCodeList
        Else
            DAQAI1.OverallInputRange = cmbInputRange.SelectedIndex
            If DAQAI1.OverallInputRange < 0 Then
                DAQAI1.OverallInputRange = 0
            End If
        End If
        DAQAI1.StartChannel = cmbStartChannel.SelectedIndex

        DAQAI1.SampleRate = txtSampleRate.Text
        DAQAI1.NumberOfSamples = txtNumOfSample.Text
        DAQAI1.ClockSource = cmbClockSource.SelectedIndex
        DAQAI1.ExtTrigger = False


        DAQAI1.DataType = cmbDataType.SelectedIndex

        If chkFIFOEnabled.Checked Then
            DAQAI1.FIFOEnabled = True
        Else
            DAQAI1.FIFOEnabled = False
        End If

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

        DAQAI1.CyclicMode = CyclicMode.Checked

        ' Start getting data
        bRet = DAQAI1.AcquireStart
        If bRet Then
            MsgBox(DAQAI1.ErrorMessage, vbOKOnly)
            Exit Sub
        End If
        ErrorTimer.Enabled = True
        cmdAutoGet.Enabled = True

        UIControl(False)
        cmdAutoGet.Enabled = True
        cmdSelectDevice.Enabled = False

    End Sub

    Private Sub cmdAutoGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAutoGet.Click
        If IsInitializing Then
            Exit Sub
        End If
        ScanTimer.Enabled = True
        cmdAcquireStop.Enabled = False
        cmdAutoGet.Enabled = False
        cmdStopAutoGet.Enabled = True
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
        End
    End Sub

    Private Sub cmdGainList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGainList.Click
        Dim fGainList As New Form2     'GainList

        fGainList.Show()

        'fGainList.Show(vbModal, Me)
    End Sub

    Private Sub cmdStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStatus.Click
        If IsInitializing Then
            Exit Sub
        End If
        txtStatus.Text = DAQAI1.AcquireStatus
    End Sub

    Private Sub cmdStopAutoGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStopAutoGet.Click
        If IsInitializing Then
            Exit Sub
        End If
        ScanTimer.Enabled = False
        cmdAutoGet.Enabled = True
        cmdAcquireStop.Enabled = True
        cmdStopAutoGet.Enabled = False
    End Sub

    Private Sub chkFIFOEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFIFOEnabled.CheckedChanged
        If IsInitializing Then
            Exit Sub
        End If

        If chkFIFOEnabled.Checked Then
            DAQAI1.FIFOEnabled = True
            txtFifoSize.Enabled = True
            txtFifoSize.Text = DAQAI1.FIFOSize
        Else
            DAQAI1.FIFOEnabled = False
            txtFifoSize.Enabled = False
        End If
    End Sub
    Private Sub ErrorTimer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ErrorTimer.Tick
        If IsInitializing Then
            Exit Sub
        End If
        txtErrorCode.Text = CStr(DAQAI1.ErrorCode)
        txtErrorMessage.Text = DAQAI1.ErrorMessage
    End Sub

    Private Sub ScanTimer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ScanTimer.Tick
        Dim binReadings(9) As Short
        Dim volReadings(9) As Single
        Dim i As Short
        Dim vaReturn As Object

        lstReading.Items.Clear()
        vaReturn = DAQAI1.GetBufferDataEx(0, 10)
        If DAQAI1.DataType = DAQAILib.DATA_TYPE.adRaw Then
            binReadings = vaReturn
            For i = 0 To 9
                lstReading.Items.Add(Str(binReadings(i)))
            Next i
        Else
            volReadings = vaReturn
            For i = 0 To 9
                lstReading.Items.Add(Str(volReadings(i)))
            Next i
        End If
    End Sub
    Private Sub form1_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
        cmdAcquireStop.Enabled = False
        DAQAI1.AcquireStop()
        ErrorTimer.Enabled = False
        bRet = DAQAI1.CloseDevice
    End Sub

    Private Sub DAQAI1_OnEventRaw1(ByVal sender As Object, ByVal e As AxDAQAILib._DDAQAIEvents_OnEventRawEvent) Handles DAQAI1.OnEventRaw
        Dim i As Long
        Dim j As Long

        lstReading.Items.Clear()

        If e.dataCount > 10 Then
            j = 10
        Else
            j = e.dataCount
        End If

        For i = 0 To j - 1
            lstReading.Items.Add(Hex(e.data(i)))
        Next i
    End Sub

    Private Sub DAQAI1_OnTerminated1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAQAI1.OnTerminated
        Dim binData(10) As Short
        Dim volData(10) As Single
        Dim i As Integer
        Dim vaReturn As Object

        lstReading.Items.Clear()
        vaReturn = DAQAI1.GetBufferDataEx(0, 10)

        If DAQAI1.DataType = DAQAILib.DATA_TYPE.adRaw Then

            bi