Agilent Technologies InfiniiVision 2000 X-Series, Programmer'S Manual, Page: 867 / 930

Programming Examples
38
Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 867
' ------------------------------------------------------------
' Set the waveform points mode.
myScope.DoCommand(":WAVeform:POINts:MODE RAW")
Console.WriteLine("Waveform points mode: {0}", _
myScope.DoQueryString(":WAVeform:POINts:MODE?"))
' Get the number of waveform points available.
myScope.DoCommand(":WAVeform:POINts 10240")
Console.WriteLine("Waveform points available: {0}", _
myScope.DoQueryString(":WAVeform:POINts?"))
' Set the waveform source.
myScope.DoCommand(":WAVeform:SOURce CHANnel1")
Console.WriteLine("Waveform source: {0}", _
myScope.DoQueryString(":WAVeform:SOURce?"))
' Choose the format of the data returned (WORD, BYTE, ASCII):
myScope.DoCommand(":WAVeform:FORMat BYTE")
Console.WriteLine("Waveform format: {0}", _
myScope.DoQueryString(":WAVeform:FORMat?"))
' Display the waveform settings:
Dim fResultsArray As Double()
fResultsArray = myScope.DoQueryNumbers(":WAVeform:PREamble?")
Dim fFormat As Double = fResultsArray(0)
If fFormat = 0 Then
Console.WriteLine("Waveform format: BYTE")
ElseIf fFormat = 1 Then
Console.WriteLine("Waveform format: WORD")
ElseIf fFormat = 2 Then
Console.WriteLine("Waveform format: ASCii")
End If
Dim fType As Double = fResultsArray(1)
If fType = 0 Then
Console.WriteLine("Acquire type: NORMal")
ElseIf fType = 1 Then
Console.WriteLine("Acquire type: PEAK")
ElseIf fType = 2 Then
Console.WriteLine("Acquire type: AVERage")
ElseIf fType = 3 Then
Console.WriteLine("Acquire type: HRESolution")
End If
Dim fPoints As Double = fResultsArray(2)
Console.WriteLine("Waveform points: {0:e}", fPoints)
Dim fCount As Double = fResultsArray(3)
Console.WriteLine("Waveform average count: {0:e}", fCount)
Dim fXincrement As Double = fResultsArray(4)
Console.WriteLine("Waveform X increment: {0:e}", fXincrement)
Dim fXorigin As Double = fResultsArray(5)
Console.WriteLine("Waveform X origin: {0:e}", fXorigin)