Hi,
I try to scan three channels (ai0-2) with a PCIe-6361 card on a Windows XP SP3 PC with Visual Studio 2010 Prof and .Net-Framework 4.The exception occurs when I call the line:
data = reader.ReadWaveform(Anzahl_Werte_per_Chan)
It is the same, when I try to scan only one channel, so it looks like a general thing.
Any idea? Any help? Thanks a lot!
Axel
error message says:
"The type initializer for 'NationalInstruments.PrecisionWaveformTiming' threw an exception."
Code is:
sampleRate = 300000
Kanal1 = "Dev1/ai0"
Kanal2 = "Dev1/ai1"
Kanal3 = "Dev1/ai2"
Anzahl_Werte_per_Chan = 100000
Sub Sample_3_Channels(Soll_SampleRate As Double, ByRef Ist_Samplerate As Double, Kanal1 As Integer, Kanal2 As Integer, Kanal3 As Integer, Anzahl_Werte_per_Chan As Int32, ByRef Messwertfeld_1() As Double, ByRef Messwertfeld_2() As Double, ByRef Messwertfeld_3() As Double, ByRef Errnum As Integer)
Dim Device_String As String
Errnum = 0
If gOhne_NI = True Then Exit Sub
Try
' Create a new task
myTask = New Task()
Device_String = ""
Device_String = "Dev" & Format(gNI_Device, "0") & "/ai" & Format(Kanal1) & ","
Device_String = Device_String & "Dev" & Format(gNI_Device, "0") & "/ai" & Format(Kanal2) & ","
Device_String = Device_String & "Dev" & Format(gNI_Device, "0") & "/ai" & Format(Kanal3) & ","
' Create a channel
myTask.AIChannels.CreateVoltageChannel(Device_String, "", AITerminalConfiguration.Rse, -10, 10, AIVoltageUnits.Volts)
' Configure timing specs
myTask.Timing.ConfigureSampleClock("", Soll_SampleRate, SampleClockActiveEdge.Rising, SampleQuantityMode.FiniteSamples, Anzahl_Werte_per_Chan)
' Verify the task
myTask.Control(TaskAction.Verify)
Ist_Samplerate = myTask.Timing.AIConvertRate / 3.0
reader = New AnalogMultiChannelReader(myTask.Stream)
' Read the data
Dim data() As AnalogWaveform(Of Double)
data = reader.ReadWaveform(Anzahl_Werte_per_Chan)
'For Each waveform As AnalogWaveform(Of Double) In data
Dim dataCount As Integer = 0
dataCount = data(0).Samples.Count
ReDim Messwertfeld_1(0 To (dataCount - 1))
For sample As Integer = 0 To (dataCount - 1)
Messwertfeld_1(sample) = (data(0).Samples(sample).Value * g_AI(Kanal1).Gain - g_AI(Kanal1).offset)
Next
dataCount = data(1).Samples.Count
ReDim Messwertfeld_2(0 To (dataCount - 1))
For sample As Integer = 0 To (dataCount - 1)
Messwertfeld_2(sample) = (data(1).Samples(sample).Value * g_AI(Kanal2).Gain - g_AI(Kanal2).offset)
Next
dataCount = data(2).Samples.Count
ReDim Messwertfeld_3(0 To (dataCount - 1))
For sample As Integer = 0 To (dataCount - 1)
Messwertfeld_3(sample) = (data(2).Samples(sample).Value * g_AI(Kanal3).Gain - g_AI(Kanal3).offset)
Next
Catch dex As DaqException
FehlerLog(True, dex)
Errnum = -1
Catch ex As Exception
FehlerLog(True, ex)
Errnum = -1
Finally
myTask.Dispose()
End Try
