Agilent Technologies InfiniiVision 4000 X-Series, Programmer'S Manual

Page: 1329 / 1352

Programming Examples
41
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide 1329
Console.WriteLine("Screen image ({0} bytes) written to {1}", _
nLength, strPath)
' Download waveform data.
' -----------------------------------------------------------
' Set the waveform points mode.
myScope.SCPI.WAVeform.POINts.MODE.Command("RAW")
myScope.SCPI.WAVeform.POINts.MODE.Query(strResults)
Console.WriteLine("Waveform points mode: {0}", strResults)
' Get the number of waveform points available.
myScope.SCPI.WAVeform.POINts.CommandPoints(10240)
Dim nPointsAvail As Integer
myScope.SCPI.WAVeform.POINts.Query1(nPointsAvail)
Console.WriteLine("Waveform points available: {0}", nPointsAvail)
' Set the waveform source.
myScope.SCPI.WAVeform.SOURce.Command("CHANnel1")
myScope.SCPI.WAVeform.SOURce.Query(strResults)
Console.WriteLine("Waveform source: {0}", strResults)
' Choose the format of the data returned (WORD, BYTE, ASCII):
myScope.SCPI.WAVeform.FORMat.Command("BYTE")
myScope.SCPI.WAVeform.FORMat.Query(strResults)
Console.WriteLine("Waveform format: {0}", strResults)
' Display the waveform settings:
Dim nFormat As Integer, nType As Integer, nPoints As Integer, _
nCount As Integer, nXreference As Integer, _
nYreference As Integer
Dim dblXincrement As Double, dblXorigin As Double, _
dblYincrement As Double, dblYorigin As Double
myScope.SCPI.WAVeform.PREamble.Query(nFormat, nType, nPoints, _
nCount, dblXincrement, dblXorigin, nXreference, _
dblYincrement, dblYorigin, nYreference)
If nFormat = 0 Then
Console.WriteLine("Waveform format: BYTE")
ElseIf nFormat = 1 Then
Console.WriteLine("Waveform format: WORD")
ElseIf nFormat = 2 Then
Console.WriteLine("Waveform format: ASCii")
End If
If nType = 0 Then
Console.WriteLine("Acquire type: NORMal")
ElseIf nType = 1 Then
Console.WriteLine("Acquire type: PEAK")
ElseIf nType = 2 Then
Console.WriteLine("Acquire type: AVERage")
ElseIf nType = 3 Then
Console.WriteLine("Acquire type: HRESolution")
End If
Console.WriteLine("Waveform points: {0:e}", nPoints)
Console.WriteLine("Waveform average count: {0:e}", nCount)