aitester.vb

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

        '
        Me.CyclicMode.BackColor = System.Drawing.SystemColors.Control
        Me.CyclicMode.Cursor = System.Windows.Forms.Cursors.Default
        Me.CyclicMode.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CyclicMode.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CyclicMode.Location = New System.Drawing.Point(104, 300)
        Me.CyclicMode.Name = "CyclicMode"
        Me.CyclicMode.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CyclicMode.Size = New System.Drawing.Size(88, 15)
        Me.CyclicMode.TabIndex = 44
        Me.CyclicMode.Text = "CyclicMode"
        '
        'cmbClockSource
        '
        Me.cmbClockSource.BackColor = System.Drawing.SystemColors.Window
        Me.cmbClockSource.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbClockSource.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbClockSource.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbClockSource.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbClockSource.Items.AddRange(New Object() {"Internal", "External"})
        Me.cmbClockSource.Location = New System.Drawing.Point(88, 182)
        Me.cmbClockSource.Name = "cmbClockSource"
        Me.cmbClockSource.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbClockSource.Size = New System.Drawing.Size(95, 22)
        Me.cmbClockSource.TabIndex = 42
        Me.ToolTip1.SetToolTip(Me.cmbClockSource, "Data transfer mode")
        '
        'cmbTriggerSource
        '
        Me.cmbTriggerSource.BackColor = System.Drawing.SystemColors.Window
        Me.cmbTriggerSource.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbTriggerSource.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbTriggerSource.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbTriggerSource.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbTriggerSource.Items.AddRange(New Object() {"Internal", "External"})
        Me.cmbTriggerSource.Location = New System.Drawing.Point(88, 159)
        Me.cmbTriggerSource.Name = "cmbTriggerSource"
        Me.cmbTriggerSource.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbTriggerSource.Size = New System.Drawing.Size(95, 22)
        Me.cmbTriggerSource.TabIndex = 40
        Me.ToolTip1.SetToolTip(Me.cmbTriggerSource, "Data transfer mode")
        '
        'chkEventEnabled
        '
        Me.chkEventEnabled.BackColor = System.Drawing.SystemColors.Control
        Me.chkEventEnabled.Cursor = System.Windows.Forms.Cursors.Default
        Me.chkEventEnabled.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chkEventEnabled.ForeColor = System.Drawing.SystemColors.ControlText
        Me.chkEventEnabled.Location = New System.Drawing.Point(13, 300)
        Me.chkEventEnabled.Name = "chkEventEnabled"
        Me.chkEventEnabled.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.chkEventEnabled.Size = New System.Drawing.Size(91, 15)
        Me.chkEventEnabled.TabIndex = 38
        Me.chkEventEnabled.Text = "Event Enabled"
        '
        'chkOverAllGain
        '
        Me.chkOverAllGain.BackColor = System.Drawing.SystemColors.Control
        Me.chkOverAllGain.Checked = True
        Me.chkOverAllGain.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkOverAllGain.Cursor = System.Windows.Forms.Cursors.Default
        Me.chkOverAllGain.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chkOverAllGain.ForeColor = System.Drawing.SystemColors.ControlText
        Me.chkOverAllGain.Location = New System.Drawing.Point(88, 90)
        Me.chkOverAllGain.Name = "chkOverAllGain"
        Me.chkOverAllGain.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.chkOverAllGain.Size = New System.Drawing.Size(84, 17)
        Me.chkOverAllGain.TabIndex = 27
        Me.chkOverAllGain.Text = "Overall Gain"
        '
        'cmdGainList
        '
        Me.cmdGainList.BackColor = System.Drawing.SystemColors.Control
        Me.cmdGainList.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdGainList.Enabled = False
        Me.cmdGainList.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdGainList.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdGainList.Location = New System.Drawing.Point(161, 70)
        Me.cmdGainList.Name = "cmdGainList"
        Me.cmdGainList.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdGainList.Size = New System.Drawing.Size(21, 19)
        Me.cmdGainList.TabIndex = 26
        Me.cmdGainList.Text = "..."
        '
        'txtNumOfSample
        '
        Me.txtNumOfSample.AcceptsReturn = True
        Me.txtNumOfSample.AutoSize = False
        Me.txtNumOfSample.BackColor = System.Drawing.SystemColors.Window
        Me.txtNumOfSample.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtNumOfSample.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNumOfSample.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtNumOfSample.Location = New System.Drawing.Point(87, 226)
        Me.txtNumOfSample.MaxLength = 0
        Me.txtNumOfSample.Name = "txtNumOfSample"
        Me.txtNumOfSample.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtNumOfSample.Size = New System.Drawing.Size(95, 19)
        Me.txtNumOfSample.TabIndex = 24
        Me.txtNumOfSample.Text = "4096"
        Me.txtNumOfSample.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'chkFIFOEnabled
        '
        Me.chkFIFOEnabled.BackColor = System.Drawing.SystemColors.Control
        Me.chkFIFOEnabled.Cursor = System.Windows.Forms.Cursors.Default
        Me.chkFIFOEnabled.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chkFIFOEnabled.ForeColor = System.Drawing.SystemColors.ControlText
        Me.chkFIFOEnabled.Location = New System.Drawing.Point(87, 253)
        Me.chkFIFOEnabled.Name = "chkFIFOEnabled"
        Me.chkFIFOEnabled.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.chkFIFOEnabled.Size = New System.Drawing.Size(95, 20)
        Me.chkFIFOEnabled.TabIndex = 22
        Me.chkFIFOEnabled.Text = "FIFO Enabled"
        '
        'cmbStartChannel
        '
        Me.cmbStartChannel.BackColor = System.Drawing.SystemColors.Window
        Me.cmbStartChannel.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbStartChannel.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbStartChannel.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbStartChannel.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbStartChannel.Location = New System.Drawing.Point(88, 22)
        Me.cmbStartChannel.Name = "cmbStartChannel"
        Me.cmbStartChannel.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbStartChannel.Size = New System.Drawing.Size(95, 22)
        Me.cmbStartChannel.TabIndex = 20
        '
        '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(88, 136)
        Me.cmbTransferMode.Name = "cmbTransferMode"
        Me.cmbTransferMode.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbTransferMode.Size = New System.Drawing.Size(95, 22)
        Me.cmbTransferMode.TabIndex = 15
        Me.ToolTip1.SetToolTip(Me.cmbTransferMode, "Data transfer mode")
        '
        'txtSampleRate
        '
        Me.txtSampleRate.AcceptsReturn = True
        Me.txtSampleRate.AutoSize = False
        Me.txtSampleRate.BackColor = System.Drawing.SystemColors.Window
        Me.txtSampleRate.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtSampleRate.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtSampleRate.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtSampleRate.Location = New System.Drawing.Point(88, 205)
        Me.txtSampleRate.MaxLength = 0
        Me.txtSampleRate.Name = "txtSampleRate"
        Me.txtSampleRate.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtSampleRate.Size = New System.Drawing.Size(79, 20)
        Me.txtSampleRate.TabIndex = 12
        Me.txtSampleRate.Text = "10000"
        Me.txtSampleRate.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.ToolTip1.SetToolTip(Me.txtSampleRate, "Sample rate")
        '
        'cmbDataType
        '
        Me.cmbDataType.BackColor = System.Drawing.SystemColors.Window
        Me.cmbDataType.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbDataType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbDataType.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbDataType.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbDataType.Items.AddRange(New Object() {"Raw Data", "Real Data"})
        Me.cmbDataType.Location = New System.Drawing.Point(88, 112)
        Me.cmbDataType.Name = "cmbDataType"
        Me.cmbDataType.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbDataType.Size = New System.Drawing.Size(95, 22)
        Me.cmbDataType.TabIndex = 10
        Me.ToolTip1.SetToolTip(Me.cmbDataType, "Device Data ype")
        '
        'cmbInputRange
        '
        Me.cmbInputRange.BackColor = System.Drawing.SystemColors.Window
        Me.cmbInputRange.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbInputRange.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbInputRange.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbInputRange.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbInputRange.Location = New System.Drawing.Point(88, 69)
        Me.cmbInputRange.Name = "cmbInputRange"
        Me.cmbInputRange.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbInputRange.Size = New System.Drawing.Size(74, 22)
        Me.cmbInputRange.TabIndex = 8
        Me.ToolTip1.SetToolTip(Me.cmbInputRange, "Input voltage range")
        '
        '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(167, 208)
        Me.Label12.Name = "Label12"
        Me.Label12.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label12.Size = New System.Drawing.Size(24, 16)
        Me.Label12.TabIndex = 49
        Me.Label12.Text = "Hz"
        '
        '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(147, 230)
        Me.Label11.Name = "Label11"
        Me.Label11.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label11.Size = New System.Drawing.Size(14, 16)
        Me.Label11.TabIndex = 47
        Me.Label11.Text = "Hz"
        '
        'Label9
        '
        Me.Label9.BackColor = System.Drawing.SystemColors.Control
        Me.Label9.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label9.Location = New System.Drawing.Point(13, 275)
        Me.Label9.Name = "Label9"
        Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label9.Size = New System.Drawing.Size(67, 15)
        Me.Label9.TabIndex = 25
        Me.Label9.Text = "FIFO Size :"
        '
        'Label24
        '
        Me.Label24.AutoSize = True
        Me.Label24.BackColor = System.Drawing.SystemColors.Control
        Me.Label24.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label24.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label24.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label24.Location = New System.Drawing.Point(7, 47)
        Me.Label24.Name = "Label24"
        Me.Label24.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label24.Size = New System.Drawing.Size(88, 16)
        Me.Label24.TabIndex = 43
        Me.Label24.Text = "Num of Chan(s) :"
        '
        'Label19
        '
        Me.Label19.BackColor = System.Drawing.SystemColors.Control
        Me.Label19.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label19.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label19.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label19.Location = New System.Drawing.Point(7, 186)
        Me.Label19.Name = "Label19"
        Me.Label19.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label19.Size = New System.Drawing.Size(81, 15)
        Me.Label19.TabIndex = 41
        Me.Label19.Text = "Clock Source:"
        '
        'Label16
        '
        Me.Label16.BackColor = System.Drawing.SystemColors.Control
        Me.Label16.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label16.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label16.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label16.Location = New System.Drawing.Point(7, 163)
        Me.Label16.Name = "Label16"
        Me.Label16.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label16.Size = New System.Drawing.Size(73, 16)
        Me.Label16.TabIndex = 39
        Me.Label16.Text = "Trig. Source:"
        '
        '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))