frmaitime.vb

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

        Me.txtReturnData.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtReturnData.Size = New System.Drawing.Size(73, 19)
        Me.txtReturnData.TabIndex = 13
        Me.txtReturnData.Text = "0"
        Me.txtReturnData.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.ToolTip1.SetToolTip(Me.txtReturnData, "Data Reading")
        '
        'Frame2
        '
        Me.Frame2.BackColor = System.Drawing.SystemColors.Control
        Me.Frame2.Controls.Add(Me.cmbChannel)
        Me.Frame2.Controls.Add(Me.cmbDataType)
        Me.Frame2.Controls.Add(Me.cmbInputRange)
        Me.Frame2.Controls.Add(Me.Label5)
        Me.Frame2.Controls.Add(Me.Label4)
        Me.Frame2.Controls.Add(Me.Label3)
        Me.Frame2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame2.Location = New System.Drawing.Point(11, 92)
        Me.Frame2.Name = "Frame2"
        Me.Frame2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame2.Size = New System.Drawing.Size(176, 112)
        Me.Frame2.TabIndex = 15
        Me.Frame2.TabStop = False
        Me.Frame2.Text = "Property Settings:"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(9, 83)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(53, 16)
        Me.Label5.TabIndex = 21
        Me.Label5.Text = "Channel :"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(9, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(62, 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.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(10, 28)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(72, 16)
        Me.Label3.TabIndex = 9
        Me.Label3.Text = "Input Range :"
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.Add(Me.cmdStop)
        Me.Frame3.Controls.Add(Me.cmdStart)
        Me.Frame3.Controls.Add(Me.txtScanTime)
        Me.Frame3.Controls.Add(Me.cmdRead)
        Me.Frame3.Controls.Add(Me.txtReturnData)
        Me.Frame3.Controls.Add(Me.Label9)
        Me.Frame3.Controls.Add(Me.Label8)
        Me.Frame3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame3.Location = New System.Drawing.Point(200, 92)
        Me.Frame3.Name = "Frame3"
        Me.Frame3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame3.Size = New System.Drawing.Size(241, 113)
        Me.Frame3.TabIndex = 16
        Me.Frame3.TabStop = False
        Me.Frame3.Text = "Single Read"
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.BackColor = System.Drawing.SystemColors.Control
        Me.Label9.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label9.Location = New System.Drawing.Point(5, 58)
        Me.Label9.Name = "Label9"
        Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label9.Size = New System.Drawing.Size(139, 16)
        Me.Label9.TabIndex = 17
        Me.Label9.Text = " Scan Time :                  mS"
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(8, 25)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(71, 16)
        Me.Label8.TabIndex = 14
        Me.Label8.Text = "Return Data :"
        '
        'ScanTimer
        '
        Me.ScanTimer.Interval = 1000
        '
        'DAQAI1
        '
        Me.DAQAI1.Enabled = True
        Me.DAQAI1.Location = New System.Drawing.Point(392, 16)
        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 = 17
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(453, 213)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.Frame2)
        Me.Controls.Add(Me.Frame3)
        Me.Controls.Add(Me.Frame1)
        Me.Controls.Add(Me.DAQAI1)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "AI TIMER test"
        Me.Frame1.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame3.ResumeLayout(False)
        CType(Me.DAQAI1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

   Private Sub cmbDataType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDataType.SelectedIndexChanged
        daqai1.DataType = cmbDataType.SelectedIndex
   End Sub

   Private Sub cmbInputRange_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbInputRange.SelectedIndexChanged
        daqai1.OverallInputRange = cmbInputRange.SelectedIndex
   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 cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click
      Dim bReading As Integer
      Dim vReading As Single
      Dim uChannel As Integer

      If daqai1.OpenDevice Then
         MsgBox(daqai1.ErrorMessage, vbOKOnly)
         Exit Sub
      End If
        uChannel = cmbChannel.SelectedIndex
        daqai1.OverallInputRange = cmbInputRange.SelectedIndex
        Select Case (cmbDataType.SelectedIndex)
            Case 0
                bReading = daqai1.RawInput(uChannel)
                txtReturnData.Text = bReading
            Case 1
                vReading = daqai1.RealInput(uChannel)
                txtReturnData.Text = vReading
        End Select
        daqai1.CloseDevice()
   End Sub

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

      daqai1.SelectDevice()
      txtDeviceNum.Text = daqai1.DeviceNumber
      txtDeviceName.Text = daqai1.DeviceName
      daqai1.DeviceNumber = daqai1.DeviceNumber
      daqai1.DeviceName = daqai1.DeviceName
        cmbInputRange.ResetText()
      ' Open Device
      If daqai1.OpenDevice Then
         MsgBox(daqai1.ErrorMessage, vbOKOnly)
         Exit Sub
      End If
 
        cmbInputRange.Items.Clear()
        DAQAI1.GetFirstInputRange(strRange)
        cmbInputRange.Items.Add(strRange)
        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", vbOKOnly)
            DAQAI1.CloseDevice()
            Exit Sub
        End If

        cmbChannel.Items.Clear()
        For j = 0 To i - 1
            cmbChannel.Items.Add(Str(j))
        Next j
        If i <> 0 Then
            cmbChannel.SelectedIndex = 0
        End If
        DAQAI1.CloseDevice()
   End Sub

   Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
      If daqai1.OpenDevice Then
         MsgBox(daqai1.ErrorMessage, vbOKOnly)
         Exit Sub
      End If

      cmdExit.Enabled = False
      cmdRead.Enabled = False
      cmdStart.Enabled = False
        cmdStop.Enabled = True
        cmdSelectDevice.Enabled = False
        daqai1.OverallInputRange = cmbInputRange.SelectedIndex
      ScanTimer.Enabled = True
   End Sub

   Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
      daqai1.CloseDevice()

      cmdExit.Enabled = True
      cmdRead.Enabled = True
      cmdStart.Enabled = True
      cmdStop.Enabled = False
        ScanTimer.Enabled = False
        cmdSelectDevice.Enabled = True
   End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To 11
            gInputRangeList(i) = New String("")
        Next
        Call cmdSelectDevice_Click(cmdSelectDevice, New System.EventArgs)
        txtDeviceNum.Text = DAQAI1.DeviceNumber
        txtDeviceName.Text = DAQAI1.DeviceName
        cmbDataType.SelectedIndex = DAQAI1.DataType
    End Sub

    Private Sub ScanTimer_Timer()
        Dim bReading As Integer
        Dim vReading As Single

        Select Case (cmbDataType.SelectedIndex)
            Case 0
                bReading = DAQAI1.RawInput(cmbChannel.SelectedIndex)
                txtReturnData.Text = bReading
            Case 1
                vReading = DAQAI1.RealInput(cmbChannel.SelectedIndex)
                txtReturnData.Text = vReading
        End Select
    End Sub

    Private Sub txtScanTime_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtScanTime.TextChanged
        ScanTimer.Interval = Val(txtScanTime.Text)
    End Sub
    Private Sub ScanTimer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ScanTimer.Tick
        Dim bReading As Short
        Dim vReading As Single

        Select Case (cmbDataType.SelectedIndex)
            Case 0
                bReading = DAQAI1.RawInput(cmbChannel.SelectedIndex)
                txtReturnData.Text = CStr(bReading)
            Case 1
                vReading = DAQAI1.RealInput(cmbChannel.SelectedIndex)
                txtReturnData.Text = CStr(vReading)
        End Select
    End Sub

End Class