formcounter.vb

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

        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(80, 16)
        Me.Label8.TabIndex = 5
        Me.Label8.Text = "Error Message"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(80, 16)
        Me.Label7.TabIndex = 4
        Me.Label7.Text = "Counter value:"
        '
        'txtError
        '
        Me.txtError.ForeColor = System.Drawing.SystemColors.HotTrack
        Me.txtError.Location = New System.Drawing.Point(88, 96)
        Me.txtError.Name = "txtError"
        Me.txtError.ReadOnly = True
        Me.txtError.Size = New System.Drawing.Size(88, 20)
        Me.txtError.TabIndex = 3
        Me.txtError.Text = ""
        '
        'txtCounter
        '
        Me.txtCounter.ForeColor = System.Drawing.SystemColors.HotTrack
        Me.txtCounter.Location = New System.Drawing.Point(88, 64)
        Me.txtCounter.Name = "txtCounter"
        Me.txtCounter.ReadOnly = True
        Me.txtCounter.Size = New System.Drawing.Size(88, 20)
        Me.txtCounter.TabIndex = 2
        Me.txtCounter.Text = ""
        '
        'cmdCounterStop
        '
        Me.cmdCounterStop.Location = New System.Drawing.Point(104, 24)
        Me.cmdCounterStop.Name = "cmdCounterStop"
        Me.cmdCounterStop.Size = New System.Drawing.Size(80, 24)
        Me.cmdCounterStop.TabIndex = 1
        Me.cmdCounterStop.Text = "Counter Stop"
        '
        'cmdCounterStart
        '
        Me.cmdCounterStart.Location = New System.Drawing.Point(16, 24)
        Me.cmdCounterStart.Name = "cmdCounterStart"
        Me.cmdCounterStart.Size = New System.Drawing.Size(80, 24)
        Me.cmdCounterStart.TabIndex = 0
        Me.cmdCounterStart.Text = "Counter Start"
        '
        'ScanTimer
        '
        '
        'cmdExit
        '
        Me.cmdExit.Location = New System.Drawing.Point(393, 56)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.Size = New System.Drawing.Size(72, 24)
        Me.cmdExit.TabIndex = 4
        Me.cmdExit.Text = "Close"
        '
        'DAQCounter1
        '
        Me.DAQCounter1.Enabled = True
        Me.DAQCounter1.Location = New System.Drawing.Point(408, 8)
        Me.DAQCounter1.Name = "DAQCounter1"
        Me.DAQCounter1.OcxState = CType(resources.GetObject("DAQCounter1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.DAQCounter1.Size = New System.Drawing.Size(33, 33)
        Me.DAQCounter1.TabIndex = 5
        '
        'frmCounter
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(480, 229)
        Me.Controls.Add(Me.DAQCounter1)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Name = "frmCounter"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Counter"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.DAQCounter1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub cmdSelectDevice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelectDevice.Click
        Dim Ret As Long
        Dim i As Long

        Ret = DAQCounter1.SelectDevice

        txtDeviceNum.Text = DAQCounter1.DeviceNumber
        txtDeviceName.Text = DAQCounter1.DeviceName


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

        cmbChannel.Items.Clear()
        If DAQCounter1.MaxCounterNumber = 0 Then
            MsgBox("Function Not Supported", vbOKOnly)
            DAQCounter1.CloseDevice()
            Exit Sub
        End If

        For i = 0 To DAQCounter1.MaxCounterNumber - 1
            cmbChannel.Items.Add(i.ToString)
        Next


        If DAQCounter1.MaxCounterNumber Then
            cmbChannel.SelectedIndex = DAQCounter1.Channel
        End If
        DAQCounter1.CloseDevice()
    End Sub

    Private Sub frmCounterTester_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Select Default device
        cmdSelectDevice_Click(sender, e)

        cmdCounterStop.Enabled = False
        ScanTimer.Enabled = False
        cmbChannel.SelectedIndex = DAQCounter1.Channel
        cmbGateMode.SelectedIndex = DAQCounter1.GateMode
    End Sub

    Private Sub cmdCounterStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCounterStart.Click
        If DAQCounter1.OpenDevice Then
            MsgBox(DAQCounter1.ErrorMessage, vbOKOnly)
            Exit Sub
        End If

        DAQCounter1.Channel = cmbChannel.SelectedIndex
        DAQCounter1.GateMode = cmbGateMode.SelectedIndex
        cmdCounterStart.Enabled = False
        cmdCounterStop.Enabled = True
        cmdExit.Enabled = False
        cmdSelectDevice.Enabled = False

        DAQCounter1.EnableCounter(True)
        ScanTimer.Interval = txtScanTime.Text
        ScanTimer.Enabled = True
        txtDeviceNum.Enabled = False
    End Sub

    Private Sub ScanTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScanTimer.Tick
        Dim temp As Long
        temp = DAQCounter1.CounterValue
        txtError.Text = DAQCounter1.ErrorMessage
        If DAQCounter1.ErrorCode Then
            ScanTimer.Enabled = False
            MsgBox("Error Message is " & DAQCounter1.ErrorMessage, vbCritical)
            Exit Sub
        End If
        txtCounter.Text = DAQCounter1.CounterValue
    End Sub

    Private Sub txtCounter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCounter.TextChanged

    End Sub

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

    Private Sub cmdCounterStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCounterStop.Click
        Dim j As Integer
        DAQCounter1.EnableCounter(False)
        cmdSelectDevice.Enabled = True
        ScanTimer.Enabled = False
        cmdCounterStart.Enabled = True
        cmdCounterStop.Enabled = False
        cmdExit.Enabled = True
        txtDeviceNum.Enabled = True

        If DAQCounter1.CloseDevice Then
            MsgBox(DAQCounter1.ErrorMessage, vbOKOnly)
            Exit Sub
        End If


    End Sub

    Private Sub txtDeviceNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDeviceNum.TextChanged
        Dim i As Integer

        If IsInitializing Then
            Exit Sub
        End If
        DAQCounter1.DeviceNumber = Val(txtDeviceNum.Text)
        txtDeviceName.Text = DAQCounter1.DeviceName

        If DAQCounter1.OpenDevice Then
            MsgBox(DAQCounter1.ErrorMessage, vbOKOnly)
            Exit Sub
        End If
        cmbChannel.Items.Clear()
        If DAQCounter1.MaxCounterNumber = 0 Then
            MsgBox("Function Not Supported", vbOKOnly)
            Exit Sub
        End If

        For i = 0 To DAQCounter1.MaxCounterNumber - 1
            cmbChannel.Items.Add(i.ToString)
        Next


        If DAQCounter1.MaxCounterNumber Then
            cmbChannel.SelectedIndex = DAQCounter1.Channel
        End If
        DAQCounter1.CloseDevice()

    End Sub

    Private Sub cmbChannel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbChannel.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        DAQCounter1.Channel = cmbChannel.SelectedIndex
    End Sub

    Private Sub cmbGateMode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGateMode.SelectedIndexChanged
        If IsInitializing Then
            Exit Sub
        End If
        DAQCounter1.GateMode = cmbGateMode.SelectedIndex
    End Sub

    Private Sub txtScanTime_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtScanTime.TextChanged
        If IsInitializing Then
            Exit Sub
        End If
        If (txtScanTime.Text.Length <= 0 Or txtScanTime.Text = "0") Then
            txtScanTime.Text = "200"
        End If

        ScanTimer.Interval = txtScanTime.Text
    End Sub

    Private Sub DAQCounter1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAQCounter1.Enter

    End Sub
End Class