aitester.vb

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

        Me.cmdAutoGet.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdAutoGet.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdAutoGet.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdAutoGet.Location = New System.Drawing.Point(107, 15)
        Me.cmdAutoGet.Name = "cmdAutoGet"
        Me.cmdAutoGet.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdAutoGet.Size = New System.Drawing.Size(77, 23)
        Me.cmdAutoGet.TabIndex = 31
        Me.cmdAutoGet.Text = "Get Buffer"
        '
        '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(107, 74)
        Me.txtStatus.MaxLength = 0
        Me.txtStatus.Name = "txtStatus"
        Me.txtStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtStatus.Size = New System.Drawing.Size(77, 23)
        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(13, 74)
        Me.cmdStatus.Name = "cmdStatus"
        Me.cmdStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdStatus.Size = New System.Drawing.Size(74, 23)
        Me.cmdStatus.TabIndex = 29
        Me.cmdStatus.Text = "Status"
        '
        'lstReading
        '
        Me.lstReading.BackColor = System.Drawing.SystemColors.Window
        Me.lstReading.Cursor = System.Windows.Forms.Cursors.Default
        Me.lstReading.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lstReading.ForeColor = System.Drawing.SystemColors.WindowText
        Me.lstReading.ItemHeight = 14
        Me.lstReading.Location = New System.Drawing.Point(13, 115)
        Me.lstReading.Name = "lstReading"
        Me.lstReading.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.lstReading.Size = New System.Drawing.Size(171, 144)
        Me.lstReading.TabIndex = 21
        '
        'cmdAcquireStart
        '
        Me.cmdAcquireStart.BackColor = System.Drawing.SystemColors.Control
        Me.cmdAcquireStart.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdAcquireStart.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdAcquireStart.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdAcquireStart.Location = New System.Drawing.Point(13, 15)
        Me.cmdAcquireStart.Name = "cmdAcquireStart"
        Me.cmdAcquireStart.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdAcquireStart.Size = New System.Drawing.Size(74, 23)
        Me.cmdAcquireStart.TabIndex = 19
        Me.cmdAcquireStart.Text = "St&art"
        Me.ToolTip1.SetToolTip(Me.cmdAcquireStart, "Start Auto Scan")
        '
        'cmdAcquireStop
        '
        Me.cmdAcquireStop.BackColor = System.Drawing.SystemColors.Control
        Me.cmdAcquireStop.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdAcquireStop.Enabled = False
        Me.cmdAcquireStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdAcquireStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdAcquireStop.Location = New System.Drawing.Point(13, 45)
        Me.cmdAcquireStop.Name = "cmdAcquireStop"
        Me.cmdAcquireStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdAcquireStop.Size = New System.Drawing.Size(74, 23)
        Me.cmdAcquireStop.TabIndex = 18
        Me.cmdAcquireStop.Text = "St&op"
        Me.ToolTip1.SetToolTip(Me.cmdAcquireStop, "Stop Auto Scan")
        '
        'Label10
        '
        Me.Label10.BackColor = System.Drawing.SystemColors.Control
        Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label10.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label10.Location = New System.Drawing.Point(13, 100)
        Me.Label10.Name = "Label10"
        Me.Label10.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label10.Size = New System.Drawing.Size(67, 16)
        Me.Label10.TabIndex = 28
        Me.Label10.Text = "Reading :"
        '
        '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(338, 53)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdExit.Size = New System.Drawing.Size(67, 23)
        Me.cmdExit.TabIndex = 19
        Me.cmdExit.Text = "&Close"
        Me.ToolTip1.SetToolTip(Me.cmdExit, "Close application")
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.Add(Me.cmdSelectDevice)
        Me.Frame1.Controls.Add(Me.txtDeviceName)
        Me.Frame1.Controls.Add(Me.txtDeviceNum)
        Me.Frame1.Controls.Add(Me.Label2)
        Me.Frame1.Controls.Add(Me.Label1)
        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(9, 8)
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(314, 74)
        Me.Frame1.TabIndex = 18
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "Select Device :"
        '
        'cmdSelectDevice
        '
        Me.cmdSelectDevice.BackColor = System.Drawing.SystemColors.Control
        Me.cmdSelectDevice.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdSelectDevice.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdSelectDevice.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdSelectDevice.Location = New System.Drawing.Point(201, 15)
        Me.cmdSelectDevice.Name = "cmdSelectDevice"
        Me.cmdSelectDevice.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdSelectDevice.Size = New System.Drawing.Size(100, 25)
        Me.cmdSelectDevice.TabIndex = 5
        Me.cmdSelectDevice.Text = "&Select Device"
        Me.ToolTip1.SetToolTip(Me.cmdSelectDevice, "Selecting device to operation")
        '
        'txtDeviceName
        '
        Me.txtDeviceName.AcceptsReturn = True
        Me.txtDeviceName.AutoSize = False
        Me.txtDeviceName.BackColor = System.Drawing.SystemColors.Window
        Me.txtDeviceName.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtDeviceName.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtDeviceName.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtDeviceName.Location = New System.Drawing.Point(87, 45)
        Me.txtDeviceName.MaxLength = 0
        Me.txtDeviceName.Name = "txtDeviceName"
        Me.txtDeviceName.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtDeviceName.Size = New System.Drawing.Size(214, 17)
        Me.txtDeviceName.TabIndex = 4
        Me.txtDeviceName.Text = "AdvanTech"
        Me.ToolTip1.SetToolTip(Me.txtDeviceName, "Device Name")
        '
        'txtDeviceNum
        '
        Me.txtDeviceNum.AcceptsReturn = True
        Me.txtDeviceNum.AutoSize = False
        Me.txtDeviceNum.BackColor = System.Drawing.SystemColors.Window
        Me.txtDeviceNum.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtDeviceNum.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtDeviceNum.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtDeviceNum.Location = New System.Drawing.Point(87, 15)
        Me.txtDeviceNum.MaxLength = 0
        Me.txtDeviceNum.Name = "txtDeviceNum"
        Me.txtDeviceNum.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtDeviceNum.Size = New System.Drawing.Size(47, 17)
        Me.txtDeviceNum.TabIndex = 1
        Me.txtDeviceNum.Text = "-100"
        Me.ToolTip1.SetToolTip(Me.txtDeviceNum, "Device Number")
        '
        '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(13, 47)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(76, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Device Name :"
        '
        '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(13, 18)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(64, 16)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Device No. :"
        '
        'chou2121
        '
        Me.chou2121.BackColor = System.Drawing.SystemColors.Control
        Me.chou2121.Controls.Add(Me.cmbNumofChannels)
        Me.chou2121.Controls.Add(Me.txtFifoSize)
        Me.chou2121.Controls.Add(Me.CyclicMode)
        Me.chou2121.Controls.Add(Me.cmbClockSource)
        Me.chou2121.Controls.Add(Me.cmbTriggerSource)
        Me.chou2121.Controls.Add(Me.chkEventEnabled)
        Me.chou2121.Controls.Add(Me.chkOverAllGain)
        Me.chou2121.Controls.Add(Me.cmdGainList)
        Me.chou2121.Controls.Add(Me.txtNumOfSample)
        Me.chou2121.Controls.Add(Me.chkFIFOEnabled)
        Me.chou2121.Controls.Add(Me.cmbStartChannel)
        Me.chou2121.Controls.Add(Me.cmbTransferMode)
        Me.chou2121.Controls.Add(Me.txtSampleRate)
        Me.chou2121.Controls.Add(Me.cmbDataType)
        Me.chou2121.Controls.Add(Me.cmbInputRange)
        Me.chou2121.Controls.Add(Me.Label12)
        Me.chou2121.Controls.Add(Me.Label11)
        Me.chou2121.Controls.Add(Me.Label9)
        Me.chou2121.Controls.Add(Me.Label24)
        Me.chou2121.Controls.Add(Me.Label19)
        Me.chou2121.Controls.Add(Me.Label16)
        Me.chou2121.Controls.Add(Me.Label8)
        Me.chou2121.Controls.Add(Me.Label7)
        Me.chou2121.Controls.Add(Me.Label6)
        Me.chou2121.Controls.Add(Me.Label5)
        Me.chou2121.Controls.Add(Me.Label4)
        Me.chou2121.Controls.Add(Me.Label3)
        Me.chou2121.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chou2121.ForeColor = System.Drawing.SystemColors.ControlText
        Me.chou2121.Location = New System.Drawing.Point(9, 84)
        Me.chou2121.Name = "chou2121"
        Me.chou2121.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.chou2121.Size = New System.Drawing.Size(199, 335)
        Me.chou2121.TabIndex = 20
        Me.chou2121.TabStop = False
        Me.chou2121.Text = "Property Settings:"
        '
        'cmbNumofChannels
        '
        Me.cmbNumofChannels.BackColor = System.Drawing.SystemColors.Window
        Me.cmbNumofChannels.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmbNumofChannels.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbNumofChannels.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbNumofChannels.ForeColor = System.Drawing.SystemColors.WindowText
        Me.cmbNumofChannels.Location = New System.Drawing.Point(88, 45)
        Me.cmbNumofChannels.Name = "cmbNumofChannels"
        Me.cmbNumofChannels.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbNumofChannels.Size = New System.Drawing.Size(95, 22)
        Me.cmbNumofChannels.TabIndex = 48
        '
        'txtFifoSize
        '
        Me.txtFifoSize.AcceptsReturn = True
        Me.txtFifoSize.AutoSize = False
        Me.txtFifoSize.BackColor = System.Drawing.SystemColors.Window
        Me.txtFifoSize.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtFifoSize.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtFifoSize.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFifoSize.Location = New System.Drawing.Point(87, 275)
        Me.txtFifoSize.MaxLength = 0
        Me.txtFifoSize.Name = "txtFifoSize"
        Me.txtFifoSize.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtFifoSize.Size = New System.Drawing.Size(95, 17)
        Me.txtFifoSize.TabIndex = 46
        Me.txtFifoSize.Text = ""
        '
        'CyclicMode