aoform.vb

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

        Me.ToolTip1.SetToolTip(Me.cmbDataType, "Device Data ype")
        '
        'cmbTransferMode
        '
        Me.cmbTransferMode.BackColor = System.Drawing.SystemColors.Window
        Me.cmbTransferMode.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbTransferMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbTransferMode.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbTransferMode.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbTransferMode.Items.AddRange(New Object() {"Software Trigger", "Interrupt Transfer", "DMA Transfer"})
        Me.cmbTransferMode.Location = New System.Drawing.Point(96, 88)
        Me.cmbTransferMode.Name = "cmbTransferMode"
        Me.cmbTransferMode.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbTransferMode.Size = New System.Drawing.Size(131, 22)
        Me.cmbTransferMode.TabIndex = 8
        Me.ToolTip1.SetToolTip(Me.cmbTransferMode, "Data transfer mode")
        '
        'Line1
        '
        Me.Line1.BackColor = System.Drawing.SystemColors.WindowText
        Me.Line1.Location = New System.Drawing.Point(8, 208)
        Me.Line1.Name = "Line1"
        Me.Line1.Size = New System.Drawing.Size(232, 1)
        Me.Line1.TabIndex = 29
        '
        'Label11
        '
        Me.Label11.BackColor = System.Drawing.SystemColors.Control
        Me.Label11.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label11.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label11.Location = New System.Drawing.Point(168, 120)
        Me.Label11.Name = "Label11"
        Me.Label11.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label11.Size = New System.Drawing.Size(25, 17)
        Me.Label11.TabIndex = 27
        Me.Label11.Text = "Hz"
        '
        'Label8
        '
        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(8, 216)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(81, 17)
        Me.Label8.TabIndex = 17
        Me.Label8.Text = "Output Range:"
        '
        'Label6
        '
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(8, 24)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(49, 17)
        Me.Label6.TabIndex = 15
        Me.Label6.Text = "Channel:"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        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(8, 120)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(69, 16)
        Me.Label5.TabIndex = 14
        Me.Label5.Text = "Output Rate :"
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.Control
        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, 152)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(88, 17)
        Me.Label3.TabIndex = 12
        Me.Label3.Text = "Output Numbers:"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(8, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(61, 16)
        Me.Label4.TabIndex = 11
        Me.Label4.Text = "Data Type :"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(8, 88)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(82, 16)
        Me.Label7.TabIndex = 10
        Me.Label7.Text = "Transfer mode :"
        '
        'Frame4
        '
        Me.Frame4.BackColor = System.Drawing.SystemColors.Control
        Me.Frame4.Controls.Add(Me.Frame3)
        Me.Frame4.Controls.Add(Me.txtStatus)
        Me.Frame4.Controls.Add(Me.cmdStatus)
        Me.Frame4.Controls.Add(Me.cmdOutputStop)
        Me.Frame4.Controls.Add(Me.cmdOutputStart)
        Me.Frame4.Controls.Add(Me.lstWritting)
        Me.Frame4.Controls.Add(Me.chkEventEnabled)
        Me.Frame4.Controls.Add(Me.Label10)
        Me.Frame4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame4.Location = New System.Drawing.Point(268, 97)
        Me.Frame4.Name = "Frame4"
        Me.Frame4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame4.Size = New System.Drawing.Size(257, 283)
        Me.Frame4.TabIndex = 23
        Me.Frame4.TabStop = False
        Me.Frame4.Text = "Output:"
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.Add(Me.txtErrorMessage)
        Me.Frame3.Controls.Add(Me.txtErrorCode)
        Me.Frame3.Controls.Add(Me.Label13)
        Me.Frame3.Controls.Add(Me.Label12)
        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(8, 200)
        Me.Frame3.Name = "Frame3"
        Me.Frame3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame3.Size = New System.Drawing.Size(241, 73)
        Me.Frame3.TabIndex = 31
        Me.Frame3.TabStop = False
        Me.Frame3.Text = "Error Message"
        '
        'txtErrorMessage
        '
        Me.txtErrorMessage.AcceptsReturn = True
        Me.txtErrorMessage.AutoSize = False
        Me.txtErrorMessage.BackColor = System.Drawing.SystemColors.Window
        Me.txtErrorMessage.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtErrorMessage.Enabled = False
        Me.txtErrorMessage.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtErrorMessage.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtErrorMessage.Location = New System.Drawing.Point(80, 48)
        Me.txtErrorMessage.MaxLength = 0
        Me.txtErrorMessage.Name = "txtErrorMessage"
        Me.txtErrorMessage.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtErrorMessage.Size = New System.Drawing.Size(144, 19)
        Me.txtErrorMessage.TabIndex = 35
        Me.txtErrorMessage.Text = ""
        '
        'txtErrorCode
        '
        Me.txtErrorCode.AcceptsReturn = True
        Me.txtErrorCode.AutoSize = False
        Me.txtErrorCode.BackColor = System.Drawing.SystemColors.Window
        Me.txtErrorCode.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtErrorCode.Enabled = False
        Me.txtErrorCode.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtErrorCode.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtErrorCode.Location = New System.Drawing.Point(80, 24)
        Me.txtErrorCode.MaxLength = 0
        Me.txtErrorCode.Name = "txtErrorCode"
        Me.txtErrorCode.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtErrorCode.Size = New System.Drawing.Size(144, 19)
        Me.txtErrorCode.TabIndex = 34
        Me.txtErrorCode.Text = ""
        '
        'Label13
        '
        Me.Label13.BackColor = System.Drawing.SystemColors.Control
        Me.Label13.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label13.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label13.Location = New System.Drawing.Point(16, 48)
        Me.Label13.Name = "Label13"
        Me.Label13.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label13.Size = New System.Drawing.Size(57, 17)
        Me.Label13.TabIndex = 33
        Me.Label13.Text = "Message:"
        '
        'Label12
        '
        Me.Label12.BackColor = System.Drawing.SystemColors.Control
        Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label12.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label12.Location = New System.Drawing.Point(16, 24)
        Me.Label12.Name = "Label12"
        Me.Label12.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label12.Size = New System.Drawing.Size(64, 17)
        Me.Label12.TabIndex = 32
        Me.Label12.Text = "Error Code:"
        '
        'txtStatus
        '
        Me.txtStatus.AcceptsReturn = True
        Me.txtStatus.AutoSize = False
        Me.txtStatus.BackColor = System.Drawing.SystemColors.Window
        Me.txtStatus.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtStatus.Enabled = False
        Me.txtStatus.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtStatus.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtStatus.Location = New System.Drawing.Point(16, 168)
        Me.txtStatus.MaxLength = 0
        Me.txtStatus.Name = "txtStatus"
        Me.txtStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtStatus.Size = New System.Drawing.Size(65, 19)
        Me.txtStatus.TabIndex = 30
        Me.txtStatus.Text = ""
        '
        'cmdStatus
        '
        Me.cmdStatus.BackColor = System.Drawing.SystemColors.Control
        Me.cmdStatus.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdStatus.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdStatus.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdStatus.Location = New System.Drawing.Point(16, 128)
        Me.cmdStatus.Name = "cmdStatus"
        Me.cmdStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdStatus.Size = New System.Drawing.Size(65, 25)
        Me.cmdStatus.TabIndex = 29
        Me.cmdStatus.Text = "Status"
        '
        'cmdOutputStop
        '
        Me.cmdOutputStop.BackColor = System.Drawing.SystemColors.Control
        Me.cmdOutputStop.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdOutputStop.Enabled = False
        Me.cmdOutputStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdOutputStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdOutputStop.Location = New System.Drawing.Point(8, 64)
        Me.cmdOutputStop.Name = "cmdOutputStop"
        Me.cmdOutputStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdOutputStop.Size = New System.Drawing.Size(73, 25)
        Me.cmdOutputStop.TabIndex = 23
        Me.cmdOutputStop.Text = "St&op"
        Me.ToolTip1.SetToolTip(Me.cmdOutputStop, "Stop Auto Scan")
        '
        'cmdOutputStart
        '
        Me.cmdOutputStart.BackColor = System.Drawing.SystemColors.Control