diintform.vb

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

        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(8, 30)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(89, 13)
        Me.Label3.TabIndex = 8
        Me.Label3.Text = "EventTrigCount:"
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.Add(Me.txtEventFreq)
        Me.Frame3.Controls.Add(Me.cmdDisableEvent)
        Me.Frame3.Controls.Add(Me.cmdEnableEvent)
        Me.Frame3.Controls.Add(Me.Label5)
        Me.Frame3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame3.Location = New System.Drawing.Point(200, 96)
        Me.Frame3.Name = "Frame3"
        Me.Frame3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame3.Size = New System.Drawing.Size(225, 105)
        Me.Frame3.TabIndex = 16
        Me.Frame3.TabStop = False
        Me.Frame3.Text = "Interrupt Event:"
        '
        'txtEventFreq
        '
        Me.txtEventFreq.AcceptsReturn = True
        Me.txtEventFreq.AutoSize = False
        Me.txtEventFreq.BackColor = System.Drawing.SystemColors.Window
        Me.txtEventFreq.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtEventFreq.Font = New System.Drawing.Font("Arial", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtEventFreq.ForeColor = System.Drawing.Color.Blue
        Me.txtEventFreq.Location = New System.Drawing.Point(56, 64)
        Me.txtEventFreq.MaxLength = 0
        Me.txtEventFreq.Name = "txtEventFreq"
        Me.txtEventFreq.ReadOnly = True
        Me.txtEventFreq.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtEventFreq.Size = New System.Drawing.Size(81, 25)
        Me.txtEventFreq.TabIndex = 15
        Me.txtEventFreq.Text = ""
        '
        'cmdDisableEvent
        '
        Me.cmdDisableEvent.BackColor = System.Drawing.SystemColors.Control
        Me.cmdDisableEvent.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdDisableEvent.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdDisableEvent.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdDisableEvent.Location = New System.Drawing.Point(128, 24)
        Me.cmdDisableEvent.Name = "cmdDisableEvent"
        Me.cmdDisableEvent.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdDisableEvent.Size = New System.Drawing.Size(73, 25)
        Me.cmdDisableEvent.TabIndex = 14
        Me.cmdDisableEvent.Text = "Disable"
        '
        'cmdEnableEvent
        '
        Me.cmdEnableEvent.BackColor = System.Drawing.SystemColors.Control
        Me.cmdEnableEvent.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdEnableEvent.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdEnableEvent.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdEnableEvent.Location = New System.Drawing.Point(16, 24)
        Me.cmdEnableEvent.Name = "cmdEnableEvent"
        Me.cmdEnableEvent.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdEnableEvent.Size = New System.Drawing.Size(81, 25)
        Me.cmdEnableEvent.TabIndex = 13
        Me.cmdEnableEvent.Text = "Enable"
        '
        'Label5
        '
        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(152, 72)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(25, 16)
        Me.Label5.TabIndex = 16
        Me.Label5.Text = "1/S"
        '
        'cmdExit
        '
        Me.cmdExit.BackColor = System.Drawing.SystemColors.Control
        Me.cmdExit.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdExit.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdExit.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdExit.Location = New System.Drawing.Point(344, 61)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdExit.Size = New System.Drawing.Size(81, 24)
        Me.cmdExit.TabIndex = 14
        Me.cmdExit.Text = "Close"
        '
        'WatchTimer
        '
        Me.WatchTimer.Interval = 1
        '
        'DAQDI1
        '
        Me.DAQDI1.Enabled = True
        Me.DAQDI1.Location = New System.Drawing.Point(368, 16)
        Me.DAQDI1.Name = "DAQDI1"
        Me.DAQDI1.OcxState = CType(resources.GetObject("DAQDI1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.DAQDI1.Size = New System.Drawing.Size(33, 33)
        Me.DAQDI1.TabIndex = 17
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(440, 213)
        Me.Controls.Add(Me.DAQDI1)
        Me.Controls.Add(Me.Frame3)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.Frame1)
        Me.Controls.Add(Me.Frame2)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Digital Input with Interrupt"
        Me.Frame1.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame3.ResumeLayout(False)
        CType(Me.DAQDI1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub cmdDisableEvent_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDisableEvent.Click
        'Disable Event
        DAQDI1.EnableEvent(False)

        ' Close device
        DAQDI1.CloseDevice()

        'Disable watch timer
        WatchTimer.Enabled = False

        cmdEnableEvent.Enabled = True
        cmdDisableEvent.Enabled = False
        cmdExit.Enabled = True
        cmdSelectDevice.Enabled = True

    End Sub

    Private Sub cmdEnableEvent_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdEnableEvent.Click
        'Open Device
        If DAQDI1.OpenDevice Then
            MsgBox(DAQDI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If

        'Enable Event
        If (DAQDI1.EnableEvent(True)) Then
            MsgBox(DAQDI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If

        cmdEnableEvent.Enabled = False
        cmdDisableEvent.Enabled = True
        cmdExit.Enabled = False
        'Enable watch timer
        WatchTimer.Enabled = True
        cmdSelectDevice.Enabled = False



    End Sub

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

    Private Sub cmdSelectDevice_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSelectDevice.Click
        Dim i As Short
        Dim Ret As Integer

        ' Select Device from installed list
        Ret = DAQDI1.SelectDevice
        txtDeviceNum.Text = CStr(DAQDI1.DeviceNumber)
        txtDeviceName.Text = DAQDI1.DeviceName
    End Sub

    Private Sub DAQDI1_OnEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DAQDI1.OnEvent
        gEventCount = gEventCount + 1
    End Sub

    Private Sub hscrlCount_Change(ByVal newScrollValue As Integer)
        DAQDI1.EventTrigCount = newScrollValue
    End Sub

    Private Sub txtDeviceNum_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtDeviceNum.TextChanged
        If (IsInitializing = False) Then
            DAQDI1.DeviceNumber = Val(txtDeviceNum.Text)
            txtDeviceName.Text = DAQDI1.DeviceName
        End If

    End Sub
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        ' Select default device
        Call cmdSelectDevice_Click(cmdSelectDevice, New System.EventArgs)
        ' Setting initial value

        'Initialize global value
        gEventCount = 0
        WatchTimer.Enabled = False
        WatchTimer.Interval = 1000
        cmdEnableEvent.Enabled = True
        cmdDisableEvent.Enabled = False

    End Sub

    Private Sub WatchTimer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles WatchTimer.Tick
        txtEventFreq.Text = Str(gEventCount)
        gEventCount = 0
    End Sub
    Private Sub hscrlCount_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles hscrlCount.Scroll
        Select Case eventArgs.Type
            Case System.Windows.Forms.ScrollEventType.EndScroll
                hscrlCount_Change(eventArgs.NewValue)
        End Select
    End Sub



    Private Sub txtEventFreq_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEventFreq.TextChanged

    End Sub
End Class