diform.vb

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

        Me.cmdEventStop.Enabled = False
        Me.cmdEventStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdEventStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdEventStop.Location = New System.Drawing.Point(96, 120)
        Me.cmdEventStop.Name = "cmdEventStop"
        Me.cmdEventStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdEventStop.Size = New System.Drawing.Size(72, 25)
        Me.cmdEventStop.TabIndex = 77
        Me.cmdEventStop.Text = "Event Stop"
        '
        'txtScanTime
        '
        Me.txtScanTime.AcceptsReturn = True
        Me.txtScanTime.AutoSize = False
        Me.txtScanTime.BackColor = System.Drawing.SystemColors.Window
        Me.txtScanTime.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtScanTime.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtScanTime.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtScanTime.Location = New System.Drawing.Point(80, 24)
        Me.txtScanTime.MaxLength = 0
        Me.txtScanTime.Name = "txtScanTime"
        Me.txtScanTime.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtScanTime.Size = New System.Drawing.Size(49, 19)
        Me.txtScanTime.TabIndex = 23
        Me.txtScanTime.Text = ""
        '
        'cmdBitStop
        '
        Me.cmdBitStop.BackColor = System.Drawing.SystemColors.Control
        Me.cmdBitStop.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdBitStop.Enabled = False
        Me.cmdBitStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdBitStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdBitStop.Location = New System.Drawing.Point(96, 88)
        Me.cmdBitStop.Name = "cmdBitStop"
        Me.cmdBitStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdBitStop.Size = New System.Drawing.Size(72, 25)
        Me.cmdBitStop.TabIndex = 21
        Me.cmdBitStop.Text = "Bit Stop"
        '
        'cmdBitScan
        '
        Me.cmdBitScan.BackColor = System.Drawing.SystemColors.Control
        Me.cmdBitScan.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdBitScan.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdBitScan.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdBitScan.Location = New System.Drawing.Point(16, 88)
        Me.cmdBitScan.Name = "cmdBitScan"
        Me.cmdBitScan.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdBitScan.Size = New System.Drawing.Size(72, 25)
        Me.cmdBitScan.TabIndex = 20
        Me.cmdBitScan.Text = "Bit Scan"
        '
        'cmdByteStop
        '
        Me.cmdByteStop.BackColor = System.Drawing.SystemColors.Control
        Me.cmdByteStop.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdByteStop.Enabled = False
        Me.cmdByteStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdByteStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdByteStop.Location = New System.Drawing.Point(96, 56)
        Me.cmdByteStop.Name = "cmdByteStop"
        Me.cmdByteStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdByteStop.Size = New System.Drawing.Size(72, 25)
        Me.cmdByteStop.TabIndex = 19
        Me.cmdByteStop.Text = "Byte Stop"
        '
        'cmdByteScan
        '
        Me.cmdByteScan.BackColor = System.Drawing.SystemColors.Control
        Me.cmdByteScan.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdByteScan.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdByteScan.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdByteScan.Location = New System.Drawing.Point(16, 56)
        Me.cmdByteScan.Name = "cmdByteScan"
        Me.cmdByteScan.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdByteScan.Size = New System.Drawing.Size(72, 25)
        Me.cmdByteScan.TabIndex = 18
        Me.cmdByteScan.Text = "Byte Scan"
        '
        '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(136, 24)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(24, 17)
        Me.Label6.TabIndex = 24
        Me.Label6.Text = "ms"
        '
        '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(16, 24)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(64, 17)
        Me.Label5.TabIndex = 22
        Me.Label5.Text = "Scan Time :"
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.Add(Me.txtDeviceNum)
        Me.Frame1.Controls.Add(Me.txtDeviceName)
        Me.Frame1.Controls.Add(Me.cmdSelectDevice)
        Me.Frame1.Controls.Add(Me.Label1)
        Me.Frame1.Controls.Add(Me.Label2)
        Me.Frame1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.Location = New System.Drawing.Point(8, 8)
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(328, 80)
        Me.Frame1.TabIndex = 26
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "Select Device :"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Location = New System.Drawing.Point(8, 28)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(27, 16)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "No. :"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(8, 52)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(39, 16)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Name :"
        '
        '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, 56)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdExit.Size = New System.Drawing.Size(81, 25)
        Me.cmdExit.TabIndex = 28
        Me.cmdExit.Text = "Close"
        '
        'Frame2
        '
        Me.Frame2.BackColor = System.Drawing.SystemColors.Control
        Me.Frame2.Controls.Add(Me.cmbBit)
        Me.Frame2.Controls.Add(Me.cmbPort)
        Me.Frame2.Controls.Add(Me.Label4)
        Me.Frame2.Controls.Add(Me.Label3)
        Me.Frame2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame2.Location = New System.Drawing.Point(8, 96)
        Me.Frame2.Name = "Frame2"
        Me.Frame2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame2.Size = New System.Drawing.Size(137, 89)
        Me.Frame2.TabIndex = 27
        Me.Frame2.TabStop = False
        Me.Frame2.Text = "Port , Bit Settings"
        '
        'cmbBit
        '
        Me.cmbBit.BackColor = System.Drawing.SystemColors.Window
        Me.cmbBit.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbBit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbBit.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbBit.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbBit.Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5", "6", "7"})
        Me.cmbBit.Location = New System.Drawing.Point(56, 56)
        Me.cmbBit.Name = "cmbBit"
        Me.cmbBit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbBit.Size = New System.Drawing.Size(73, 22)
        Me.cmbBit.TabIndex = 16
        '
        'cmbPort
        '
        Me.cmbPort.BackColor = System.Drawing.SystemColors.Window
        Me.cmbPort.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbPort.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbPort.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbPort.Items.AddRange(New Object() {"0", "1", "2", "3"})
        Me.cmbPort.Location = New System.Drawing.Point(56, 24)
        Me.cmbPort.Name = "cmbPort"
        Me.cmbPort.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbPort.Size = New System.Drawing.Size(73, 22)
        Me.cmbPort.TabIndex = 12
        '
        'Label4
        '
        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(16, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(33, 17)
        Me.Label4.TabIndex = 8
        Me.Label4.Text = "Bit :"
        '
        '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(16, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(33, 17)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "Port :"
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.Add(Me.txtMatchNum)
        Me.Frame3.Controls.Add(Me.txtEventNum)
        Me.Frame3.Controls.Add(Me.txtDIData)
        Me.Frame3.Controls.Add(Me.Label8)
        Me.Fr