doform.vb

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

        '
        'cmdByteOut
        '
        Me.cmdByteOut.BackColor = System.Drawing.SystemColors.Control
        Me.cmdByteOut.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdByteOut.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdByteOut.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdByteOut.Location = New System.Drawing.Point(432, 168)
        Me.cmdByteOut.Name = "cmdByteOut"
        Me.cmdByteOut.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdByteOut.Size = New System.Drawing.Size(80, 25)
        Me.cmdByteOut.TabIndex = 47
        Me.cmdByteOut.Text = "&Byte Out"
        '
        'cmdReadBack
        '
        Me.cmdReadBack.BackColor = System.Drawing.SystemColors.Control
        Me.cmdReadBack.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdReadBack.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdReadBack.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdReadBack.Location = New System.Drawing.Point(432, 200)
        Me.cmdReadBack.Name = "cmdReadBack"
        Me.cmdReadBack.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdReadBack.Size = New System.Drawing.Size(80, 25)
        Me.cmdReadBack.TabIndex = 46
        Me.cmdReadBack.Text = "&Read Back"
        '
        'framChannel
        '
        Me.framChannel.BackColor = System.Drawing.SystemColors.Control
        Me.framChannel.Controls.Add(Me.ChkMask1)
        Me.framChannel.Controls.Add(Me.ChkMask7)
        Me.framChannel.Controls.Add(Me.ChkMask6)
        Me.framChannel.Controls.Add(Me.ChkMask5)
        Me.framChannel.Controls.Add(Me.ChkMask4)
        Me.framChannel.Controls.Add(Me.ChkMask3)
        Me.framChannel.Controls.Add(Me.ChkMask2)
        Me.framChannel.Controls.Add(Me.ChkMask0)
        Me.framChannel.Controls.Add(Me.cmdChannel0)
        Me.framChannel.Controls.Add(Me.cmdChannel7)
        Me.framChannel.Controls.Add(Me.cmdChannel6)
        Me.framChannel.Controls.Add(Me.cmdChannel5)
        Me.framChannel.Controls.Add(Me.cmdChannel4)
        Me.framChannel.Controls.Add(Me.cmdChannel3)
        Me.framChannel.Controls.Add(Me.cmdChannel2)
        Me.framChannel.Controls.Add(Me.cmdChannel1)
        Me.framChannel.Controls.Add(Me.Label5)
        Me.framChannel.Controls.Add(Me.Label4)
        Me.framChannel.Controls.Add(Me.Label3)
        Me.framChannel.Controls.Add(Me._labBit_7)
        Me.framChannel.Controls.Add(Me._labBit_6)
        Me.framChannel.Controls.Add(Me._labBit_5)
        Me.framChannel.Controls.Add(Me._labBit_4)
        Me.framChannel.Controls.Add(Me._labBit_3)
        Me.framChannel.Controls.Add(Me._labBit_2)
        Me.framChannel.Controls.Add(Me._labBit_1)
        Me.framChannel.Controls.Add(Me._labBit_0)
        Me.framChannel.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.framChannel.ForeColor = System.Drawing.SystemColors.ControlText
        Me.framChannel.Location = New System.Drawing.Point(8, 104)
        Me.framChannel.Name = "framChannel"
        Me.framChannel.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.framChannel.Size = New System.Drawing.Size(335, 128)
        Me.framChannel.TabIndex = 45
        Me.framChannel.TabStop = False
        Me.framChannel.Text = "Bit Setting"
        '
        'ChkMask1
        '
        Me.ChkMask1.Location = New System.Drawing.Point(256, 32)
        Me.ChkMask1.Name = "ChkMask1"
        Me.ChkMask1.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask1.TabIndex = 49
        '
        'ChkMask7
        '
        Me.ChkMask7.Location = New System.Drawing.Point(71, 32)
        Me.ChkMask7.Name = "ChkMask7"
        Me.ChkMask7.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask7.TabIndex = 48
        '
        'ChkMask6
        '
        Me.ChkMask6.Location = New System.Drawing.Point(101, 32)
        Me.ChkMask6.Name = "ChkMask6"
        Me.ChkMask6.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask6.TabIndex = 47
        '
        'ChkMask5
        '
        Me.ChkMask5.Location = New System.Drawing.Point(132, 32)
        Me.ChkMask5.Name = "ChkMask5"
        Me.ChkMask5.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask5.TabIndex = 46
        '
        'ChkMask4
        '
        Me.ChkMask4.Location = New System.Drawing.Point(162, 32)
        Me.ChkMask4.Name = "ChkMask4"
        Me.ChkMask4.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask4.TabIndex = 45
        '
        'ChkMask3
        '
        Me.ChkMask3.Location = New System.Drawing.Point(193, 32)
        Me.ChkMask3.Name = "ChkMask3"
        Me.ChkMask3.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask3.TabIndex = 44
        '
        'ChkMask2
        '
        Me.ChkMask2.Location = New System.Drawing.Point(225, 32)
        Me.ChkMask2.Name = "ChkMask2"
        Me.ChkMask2.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask2.TabIndex = 43
        '
        'ChkMask0
        '
        Me.ChkMask0.Location = New System.Drawing.Point(288, 32)
        Me.ChkMask0.Name = "ChkMask0"
        Me.ChkMask0.Size = New System.Drawing.Size(16, 16)
        Me.ChkMask0.TabIndex = 42
        '
        'cmdChannel0
        '
        Me.cmdChannel0.BackColor = System.Drawing.Color.Red
        Me.cmdChannel0.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel0.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel0.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel0.Location = New System.Drawing.Point(281, 56)
        Me.cmdChannel0.Name = "cmdChannel0"
        Me.cmdChannel0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel0.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel0.TabIndex = 23
        Me.cmdChannel0.TabStop = False
        '
        'cmdChannel7
        '
        Me.cmdChannel7.BackColor = System.Drawing.Color.Red
        Me.cmdChannel7.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel7.Location = New System.Drawing.Point(64, 56)
        Me.cmdChannel7.Name = "cmdChannel7"
        Me.cmdChannel7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel7.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel7.TabIndex = 21
        Me.cmdChannel7.TabStop = False
        '
        'cmdChannel6
        '
        Me.cmdChannel6.BackColor = System.Drawing.Color.Red
        Me.cmdChannel6.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel6.Location = New System.Drawing.Point(95, 56)
        Me.cmdChannel6.Name = "cmdChannel6"
        Me.cmdChannel6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel6.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel6.TabIndex = 20
        Me.cmdChannel6.TabStop = False
        '
        'cmdChannel5
        '
        Me.cmdChannel5.BackColor = System.Drawing.Color.Red
        Me.cmdChannel5.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel5.Location = New System.Drawing.Point(126, 56)
        Me.cmdChannel5.Name = "cmdChannel5"
        Me.cmdChannel5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel5.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel5.TabIndex = 19
        Me.cmdChannel5.TabStop = False
        '
        'cmdChannel4
        '
        Me.cmdChannel4.BackColor = System.Drawing.Color.Red
        Me.cmdChannel4.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel4.Location = New System.Drawing.Point(157, 56)
        Me.cmdChannel4.Name = "cmdChannel4"
        Me.cmdChannel4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel4.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel4.TabIndex = 18
        Me.cmdChannel4.TabStop = False
        '
        'cmdChannel3
        '
        Me.cmdChannel3.BackColor = System.Drawing.Color.Red
        Me.cmdChannel3.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel3.Location = New System.Drawing.Point(188, 56)
        Me.cmdChannel3.Name = "cmdChannel3"
        Me.cmdChannel3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel3.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel3.TabIndex = 17
        Me.cmdChannel3.TabStop = False
        '
        'cmdChannel2
        '
        Me.cmdChannel2.BackColor = System.Drawing.Color.Red
        Me.cmdChannel2.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel2.Location = New System.Drawing.Point(219, 56)
        Me.cmdChannel2.Name = "cmdChannel2"
        Me.cmdChannel2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel2.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel2.TabIndex = 16
        Me.cmdChannel2.TabStop = False
        '
        'cmdChannel1
        '
        Me.cmdChannel1.BackColor = System.Drawing.Color.Red
        Me.cmdChannel1.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdChannel1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdChannel1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdChannel1.Location = New System.Drawing.Point(250, 56)
        Me.cmdChannel1.Name = "cmdChannel1"
        Me.cmdChannel1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdChannel1.Size = New System.Drawing.Size(25, 25)
        Me.cmdChannel1.TabIndex = 15
        Me.cmdChannel1.TabStop = False
        '
        '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(24, 104)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(297, 17)
        Me.Label5.TabIndex = 41
        Me.Label5.Text = "Note : Mask value would not affect BitOutput method."
        '
        '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(8, 63)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(37, 14)
        Me.Label4.TabIndex = 35
        Me.Label4.Text = "Status :"
        '
        '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(9, 31)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(32, 14)
        Me.Label3.TabIndex = 34
        Me.Label3.Text = "Mask :"
        '
        '_labBit_7
        '
        Me._labBit_7.BackColor = System.Drawing.SystemColors.ActiveBorder
        Me._labBit_7.Cursor = System.Windows.Forms.Cursors.Default
        Me._labBit_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._labBit_7.ForeColor = System.Drawing.SystemColors.WindowText
        Me._labBit_7.Location = New System.Drawing.Point(65, 80)
        Me._labBit_7.Name = "_labBit_7"
        Me._labBit_7.RightToLeft = System.Windows.Forms.RightToLeft.No