freqform.vb

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

      Me.GroupBox2.TabStop = False
      Me.GroupBox2.Text = "Property Settings:"
      '
      'Label11
      '
      Me.Label11.Location = New System.Drawing.Point(160, 48)
      Me.Label11.Name = "Label11"
      Me.Label11.Size = New System.Drawing.Size(96, 16)
      Me.Label11.TabIndex = 10
      Me.Label11.Text = "(only for PCL830)"
      '
      'Label10
      '
      Me.Label10.Location = New System.Drawing.Point(144, 72)
      Me.Label10.Name = "Label10"
      Me.Label10.Size = New System.Drawing.Size(112, 16)
      Me.Label10.TabIndex = 9
      Me.Label10.Text = "ms (only for PCL830)"
      '
      'Label9
      '
      Me.Label9.Location = New System.Drawing.Point(8, 70)
      Me.Label9.Name = "Label9"
      Me.Label9.Size = New System.Drawing.Size(72, 16)
      Me.Label9.TabIndex = 8
      Me.Label9.Text = "Gate Period:"
      '
      'txtGatePeriod
      '
      Me.txtGatePeriod.Location = New System.Drawing.Point(82, 72)
      Me.txtGatePeriod.Name = "txtGatePeriod"
      Me.txtGatePeriod.Size = New System.Drawing.Size(56, 20)
      Me.txtGatePeriod.TabIndex = 7
      Me.txtGatePeriod.Text = "0"
      '
      'Label6
      '
      Me.Label6.Location = New System.Drawing.Point(136, 96)
      Me.Label6.Name = "Label6"
      Me.Label6.Size = New System.Drawing.Size(24, 16)
      Me.Label6.TabIndex = 6
      Me.Label6.Text = "ms"
      '
      'Label5
      '
      Me.Label5.Location = New System.Drawing.Point(8, 93)
      Me.Label5.Name = "Label5"
      Me.Label5.Size = New System.Drawing.Size(64, 16)
      Me.Label5.TabIndex = 5
      Me.Label5.Text = "Scan Time: "
      '
      'Label4
      '
      Me.Label4.Location = New System.Drawing.Point(8, 47)
      Me.Label4.Name = "Label4"
      Me.Label4.Size = New System.Drawing.Size(64, 16)
      Me.Label4.TabIndex = 4
      Me.Label4.Text = "Gate Mode:"
      '
      'Label3
      '
      Me.Label3.Location = New System.Drawing.Point(8, 24)
      Me.Label3.Name = "Label3"
      Me.Label3.Size = New System.Drawing.Size(64, 16)
      Me.Label3.TabIndex = 3
      Me.Label3.Text = "Channel:"
      '
      'txtScanTime
      '
      Me.txtScanTime.Location = New System.Drawing.Point(82, 96)
      Me.txtScanTime.Name = "txtScanTime"
      Me.txtScanTime.Size = New System.Drawing.Size(56, 20)
      Me.txtScanTime.TabIndex = 2
      Me.txtScanTime.Text = "1000"
      '
      'cmbGateMode
      '
      Me.cmbGateMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
      Me.cmbGateMode.Items.AddRange(New Object() {"no gating", "high level", "low level", "rising edge", "falling edge"})
      Me.cmbGateMode.Location = New System.Drawing.Point(82, 48)
      Me.cmbGateMode.Name = "cmbGateMode"
      Me.cmbGateMode.Size = New System.Drawing.Size(80, 21)
      Me.cmbGateMode.TabIndex = 1
      '
      'cmbChannel
      '
      Me.cmbChannel.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
      Me.cmbChannel.Location = New System.Drawing.Point(82, 24)
      Me.cmbChannel.Name = "cmbChannel"
      Me.cmbChannel.Size = New System.Drawing.Size(80, 21)
      Me.cmbChannel.TabIndex = 0
      '
      '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 = 9
      '
      'frmFreq
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(496, 237)
      Me.Controls.Add(Me.DAQCounter1)
      Me.Controls.Add(Me.GroupBox3)
      Me.Controls.Add(Me.GroupBox1)
      Me.Controls.Add(Me.GroupBox2)
      Me.Controls.Add(Me.cmdExit)
      Me.MaximizeBox = False
      Me.Name = "frmFreq"
      Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
      Me.Text = "Frequency Tester"
      Me.GroupBox3.ResumeLayout(False)
      Me.GroupBox1.ResumeLayout(False)
      Me.GroupBox2.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)
            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
        txtGatePeriod.Text = DAQCounter1.GatePeriod
        cmbGateMode.SelectedIndex = DAQCounter1.GateMode




    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)
        ScanTimer.Enabled = False

    End Sub

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

        DAQCounter1.Channel = cmbChannel.SelectedIndex
        DAQCounter1.GateMode = cmbGateMode.SelectedIndex
        DAQCounter1.GatePeriod = txtGatePeriod.Text
        cmdScanStart.Enabled = False
        cmdScanStop.Enabled = True
        cmdExit.Enabled = False
        cmdSelectDevice.Enabled = False

        DAQCounter1.EnableFrequency(True)
        ScanTimer.Interval = txtScanTime.Text
        ScanTimer.Enabled = True

    End Sub

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

    Private Sub txtCounter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFreq.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 cmdScanStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdScanStop.Click
        Dim j As Integer
        DAQCounter1.EnableFrequency(False)
        cmdSelectDevice.Enabled = True
        ScanTimer.Enabled = False
        cmdScanStart.Enabled = True
        cmdScanStop.Enabled = False
        cmdExit.Enabled = True

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


    End Sub


    Private Sub txtScanTime_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtScanTime.TextChanged
        ScanTimer.Interval = txtScanTime.Text
    End Sub

    Private Sub txtDeviceNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDeviceNum.TextChanged
        Dim i As Integer
        'may fire when form is initialized
        If (isInitializing) Then
            Exit Sub
        End If
        DAQCounter1.DeviceNumber = Val(txtDeviceNum.Text)
        txtDeviceName.Text = DAQCounter1.DeviceName

    End Sub

    Private Sub cmbChannel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbChannel.SelectedIndexChanged

        DAQCounter1.Channel = cmbChannel.SelectedIndex

    End Sub

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