Hi,
using a NI PCIe-6259 DAQ Card on Windows XP, MS Visual Studio 2005, Visual Basic
I want to
-measure continously (into array) from 2 Analog INs (AI0, AI1) RSE at rates around 1kSamples/s up to what's possible. 200kS/s maybe.
-simultaneously process code like processing, visualisation, counting
-simultaneously switch digital outputs (PFI0, PFI1)
Seperate routines work, but my simultaneous routine stops with error:
An unhandled exception of type 'NationalInstruments.DAQmx.DaqException' occurred in NationalInstruments.DAQmx.dll
Additional information: Measurements: Specified operation cannot be performed when there are no devices in the task. Task Name: _unnamedTask<1> Status Code: -200477
I post here the Sub, could you please tell me how to fulfill that task, or what I do wrong, maybe in Task-management,
Thank you in advance,
Ausflug
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'=BUTTON: CONTINOUS MEASUREMENT
Dim anf, ende, n, senso As Integer
anf = CInt(TextBox8.Text)
ende = CInt(TextBox9.Text)
senso = anf
''Try
' Create a new task
myTask = New Task() 'TASK FUER DIE DIE ANALOG EINGAENGE
'Dim digitalWriteTask As Task
'digitalWriteTask = New Task
Dim digitalWriteTask As Task = New Task()
' Initialize local variables
Dim sampleRate As Double = Convert.ToDouble(TextBox6.Text)
Dim samplesPerChan As Int32 = Convert.ToInt32(TextBox7.Text)
' Create an Digital Output channel and name it.
' Write digital port data. WriteDigitalSingChanSingSampPort writes a single sample
' of digital data on demand, so no timeout is necessary.
Dim writer As DigitalSingleChannelWriter = New DigitalSingleChannelWriter(digitalWriteTask.Stream)
'HIER WERDEN DIE INPUTS DEFINIERT UND GESTARTET
' Create a channel
myTask.AIChannels.CreateVoltageChannel("Dev1/ai0,Dev1/ai1", "", NationalInstruments.DAQmx.AITerminalConfiguration.Rse, ainuv, ainov, AIVoltageUnits.Volts)
'myTask1.AIChannels.CreateVoltageChannel("Dev1/ai1", "", NationalInstruments.DAQmx.AITerminalConfiguration.Rse, ainuv, ainov, AIVoltageUnits.Volts)
' Configure timing specs
myTask.Timing.ConfigureSampleClock("", sampleRate, SampleClockActiveEdge.Rising, SampleQuantityMode.FiniteSamples, samplesPerChan)
'myTask1.Timing.ConfigureSampleClock("", sampleRate, SampleClockActiveEdge.Rising, SampleQuantityMode.FiniteSamples, samplesPerChan)
' Verify the task
myTask.Control(TaskAction.Verify)
'myTask1.Control(TaskAction.Verify)
reader = New AnalogMultiChannelReader(myTask.Stream)
'HIER SCHEINT DIE MESSUNG ZU BEGINNEN
'NUN WIRD VOR DEM SCAN DER SENSOR 1 REGULAER SELEKTIERT
TextBox1.Text = "1"
Call select_the_sensor()
Dim appendtext As String
appendtext = ""
For n = anf To ende
senso = n
'TextBox1.Text = CStr(n) 'Sensornummer
'TextBox1.Text = CStr(CInt(TextBox1.Text) + 1)
' CheckBox3.Checked = True 'DIN 1 CLK 0
digcontrolbyte = 1
writer.WriteSingleSamplePort(True, Decimal.ToUInt32(digcontrolbyte))
' CheckBox2.Checked = False 'DIN1 CLK1
digcontrolbyte = 0
writer.WriteSingleSamplePort(True, Decimal.ToUInt32(digcontrolbyte))
digcontrolbyte = 2
writer.WriteSingleSamplePort(True, Decimal.ToUInt32(digcontrolbyte))
digcontrolbyte = 3
writer.WriteSingleSamplePort(True, Decimal.ToUInt32(digcontrolbyte))
digcontrolbyte = 1
writer.WriteSingleSamplePort(True, Decimal.ToUInt32(digcontrolbyte))
' CheckBox3.Checked = True 'DIN1 CLK 0
'digcontrolbyte = 1
' Call measure_them_quick(n) 'Misst und Schreibt in Ausgabefeld
appendtext = appendtext + (Chr(13) + Chr(10) + Format(senso, "0000") + ";" + Format(diffwert(n), "000.00000"))
Next n
' Read the data
Dim data As Double(,) = reader.ReadMultiSample(samplesPerChan)
Call paint_canvas()
TextBox4.AppendText(appendtext)
' dataToDataTable(data, dataTable)
Dim datalen As Integer
Dim kurvy As Double
Dim messanz As Integer
datalen = data.Length
messanz = (data.Length / 2) - 1
'einfach den letzten wert aus der mehrfachmessung nehmen
kurvy = (data(0, messanz) - data(1, messanz))
diffwert(senso) = kurvy
' appendtext = appendtext + Format(data(0, i), "00.00000") + ";" + Format(data(1, i), "00.00000") + ";" + Format(kurvy, "00.00000") + ";"
'TextBox4.AppendText(appendtext)
''Catch ex As DaqException
'' MessageBox.Show(ex.Message)
'Catch ex As System.Exception 'SO WAR DIE BESPIELROUTINE FUER DEN WRITER (DIG) TEIL
'MessageBox.Show(ex.Message)
''Finally
myTask.Dispose()
' digitalWriteTask.Dispose()
System.Windows.Forms.Cursor.Current = Cursors.Default
''End Try
End Sub
