Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1141

Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
' Use direct command/query when commands not in command set.
myScope.Transport.Command.Invoke(":MEASure:VAMPlitude CHANnel1")
myScope.Transport.Query.Invoke(":MEASure:VAMPlitude? CHANnel1", _
strResults)
Console.WriteLine("Vertical amplitude: {0} V", strResults)
' Download the screen image.
' -----------------------------------------------------------
' Get the screen data.
Dim byteResultsArray As Byte()
' Results array.
myScope.SCPI.DISPlay.DATA.Query("PNG", DBNull.Value, _
DBNull.Value, DBNull.Value, byteResultsArray)
Dim nLength As Integer
' Number of bytes returned from instrument.
nLength = byteResultsArray.Length
' Store the screen data to a file.
Dim strPath As String
strPath = "c:\scope\data\screen.png"
Dim fStream As FileStream = File.Open(strPath, FileMode.Create)
fStream.Write(byteResultsArray, 0, nLength)
fStream.Close()
Console.WriteLine("Screen image ({0} bytes) written to {1}", _
nLength, strPath)
' Download waveform data.
' -----------------------------------------------------------
' Get the waveform points mode.
myScope.SCPI.WAVeform.TYPE.Query(strResults)
Console.WriteLine("Waveform points mode: {0}", strResults)
' Get the number of waveform points.
Dim nPointsAvail As Integer
myScope.SCPI.WAVeform.POINts.Query(nPointsAvail)
Console.WriteLine("Waveform points: {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:
myScope.SCPI.WAVeform.FORMat.Command("WORD")
myScope.SCPI.WAVeform.FORMat.Query(strResults)
Console.WriteLine("Waveform format: {0}", strResults)
myScope.SCPI.WAVeform.BYTeorder.Command("LSBFirst")
myScope.SCPI.WAVeform.BYTeorder.Query(strResults)
Console.WriteLine("Waveform byte order: {0}", strResults)
' Display the waveform settings from preamble:
Dim dctWavFormat As New Dictionary(Of String, String)
dctWavFormat.Add("0", "ASCii")
38
Sample Programs
1141