Technical data

Sample Programs 38
Agilent Infiniium 9000 Series Oscilloscopes Programmer's Reference 1295
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")
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")
dctCoupling.Add("1", "DC")
dctCoupling.Add("2", "DCFIFTY")
dctCoupling.Add("3", "LFREJECT")
Dim dctUnits As New Dictionary(Of String, String)()