PicoScope 7 Software
Available on Windows, Mac and Linux
acquire rapid block
acquire rapid block
I'm trying to use the a rapid block acquisition with a vb code (see later) to catch a series of traces (stored in the array of arrays called "values" - I got this part of the code from the c# example in the SDK). The problem is that all the traces are identical, which I'm sure they shouldn't be. Can you please help me on this issue.
vb code:
Public Sub AquireRapidBlock()
Dim nCaptures As Integer = numScansRequired
Dim nSegments As Integer = numScansRequired
Dim nMaxSamples As Integer
Dim timeIndisposed As Int32
status = MemorySegments(picoHandle, nSegments, nMaxSamples)
status = SetNoOfRapidCaptures(picoHandle, nCaptures)
Dim ps5000aBlockCallback As ps5000aBlockReady = New ps5000aBlockReady(AddressOf BlockCallback)
Dim t0 As Date = Now
deviceReady = False
status = RunBlock(picoHandle, 0, numPoints, timebase, timeIndisposed, 0, ps5000aBlockCallback, vbNull)
Do Until deviceReady
Application.DoEvents()
Loop
Dim numCompletedCaptures As Integer
status = GetNoCaptures(picoHandle, numCompletedCaptures)
status = StopPico(picoHandle)
Dim values()()() = New Short(numCompletedCaptures - 1)()() {}
Dim pinned As PinnedArray(Of Short)(,) = New PinnedArray(Of Short)(numCompletedCaptures - 1, 1) {}
For i As Integer = 0 To numCompletedCaptures - 1
values(i) = New Short(1)() {}
For Channel As Integer = 0 To 1
values(i)(Channel) = New Short(numPoints) {}
pinned(i, Channel) = New PinnedArray(Of Short)(values(i).Count)
For j As Integer = 0 To numCompletedCaptures - 1
status = SetDataBuffer(picoHandle, 0, values(i)(0), numPoints, i, RatioMode.None)
Next
Next
Next
ScanList.Clear()
Dim overflow() As Short
status = GetValuesRapid(picoHandle, numPoints, 0, nSegments - 1, 0, DownSamplingMode.None, overflow)
For i As Integer = 0 To numCompletedCaptures - 1
Dim scanLine(numPoints) As Double
Dim buf1() As Short = values(numCompletedCaptures - 1)(0)
For j As Integer = 0 To numPoints - 1
scanLine(j) = adcToMv(buf1(j), Range.Range_2V)
Next
ScanList.Add(scanLine)
Next
For Each p As PinnedArray(Of Short) In pinned
If p IsNot Nothing Then
p.Dispose()
End If
Next
overflow = Nothing
GetMinMaxScanValues()
End Sub
regards
Mikkel
vb code:
Public Sub AquireRapidBlock()
Dim nCaptures As Integer = numScansRequired
Dim nSegments As Integer = numScansRequired
Dim nMaxSamples As Integer
Dim timeIndisposed As Int32
status = MemorySegments(picoHandle, nSegments, nMaxSamples)
status = SetNoOfRapidCaptures(picoHandle, nCaptures)
Dim ps5000aBlockCallback As ps5000aBlockReady = New ps5000aBlockReady(AddressOf BlockCallback)
Dim t0 As Date = Now
deviceReady = False
status = RunBlock(picoHandle, 0, numPoints, timebase, timeIndisposed, 0, ps5000aBlockCallback, vbNull)
Do Until deviceReady
Application.DoEvents()
Loop
Dim numCompletedCaptures As Integer
status = GetNoCaptures(picoHandle, numCompletedCaptures)
status = StopPico(picoHandle)
Dim values()()() = New Short(numCompletedCaptures - 1)()() {}
Dim pinned As PinnedArray(Of Short)(,) = New PinnedArray(Of Short)(numCompletedCaptures - 1, 1) {}
For i As Integer = 0 To numCompletedCaptures - 1
values(i) = New Short(1)() {}
For Channel As Integer = 0 To 1
values(i)(Channel) = New Short(numPoints) {}
pinned(i, Channel) = New PinnedArray(Of Short)(values(i).Count)
For j As Integer = 0 To numCompletedCaptures - 1
status = SetDataBuffer(picoHandle, 0, values(i)(0), numPoints, i, RatioMode.None)
Next
Next
Next
ScanList.Clear()
Dim overflow() As Short
status = GetValuesRapid(picoHandle, numPoints, 0, nSegments - 1, 0, DownSamplingMode.None, overflow)
For i As Integer = 0 To numCompletedCaptures - 1
Dim scanLine(numPoints) As Double
Dim buf1() As Short = values(numCompletedCaptures - 1)(0)
For j As Integer = 0 To numPoints - 1
scanLine(j) = adcToMv(buf1(j), Range.Range_2V)
Next
ScanList.Add(scanLine)
Next
For Each p As PinnedArray(Of Short) In pinned
If p IsNot Nothing Then
p.Dispose()
End If
Next
overflow = Nothing
GetMinMaxScanValues()
End Sub
regards
Mikkel
Re: acquire rapid block
Sorry, my bad. The line:
Dim buf1() As Short = values(numCompletedCaptures - 1)(0)
should instead be:
Dim buf1() As Short = values(i)(0)
Dim buf1() As Short = values(numCompletedCaptures - 1)(0)
should instead be:
Dim buf1() As Short = values(i)(0)