Technical data

Sample Programs 35
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 965
' Get the screen data.
ResultsArray = myScope.DoQueryIEEEBlock_UI1(":DISPlay:DATA? PNG")
nLength = ResultsArray.Length
' Store the screen data to a file.
strPath = "c:\scope\data\screen.png"
Dim fStream As FileStream
fStream = File.Open(strPath, FileMode.Create)
fStream.Write(ResultsArray, 0, nLength)
fStream.Close()
Console.WriteLine("Screen image ({0} bytes) written to {1}", _
nLength, strPath)
' Download waveform data.
' ------------------------------------------------------------
' Get the waveform type.
Console.WriteLine("Waveform type: {0}", _
myScope.DoQueryString(":WAVeform:TYPE?"))
' Get the number of waveform points.
Console.WriteLine("Waveform points: {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:
myScope.DoCommand(":WAVeform:FORMat WORD")
Console.WriteLine("Waveform format: {0}", _
myScope.DoQueryString(":WAVeform:FORMat?"))
' Display the waveform settings from preamble:
Dim dctWavFormat As New Dictionary(Of String, String)
dctWavFormat.Add("0", "ASCii")
dctWavFormat.Add("1", "BYTE")
dctWavFormat.Add("2", "WORD")
dctWavFormat.Add("3", "LONG")
dctWavFormat.Add("4", "LONGLONG")
Dim dctAcqType As New Dictionary(Of String, String)
dctAcqType.Add("1", "RAW")
dctAcqType.Add("2", "AVERage")
dctAcqType.Add("3", "VHIStogram")
dctAcqType.Add("4", "HHIStogram")
dctAcqType.Add("6", "INTerpolate")
dctAcqType.Add("10", "PDETect")
Dim dctAcqMode As New Dictionary(Of String, String)()
dctAcqMode.Add("0", "RTIMe")
dctAcqMode.Add("1", "ETIMe")
dctAcqMode.Add("3", "PDETect")
Dim dctCoupling As New Dictionary(Of String, String)()
dctCoupling.Add("0", "AC")