Agilent Technologies Infiniium 90000 Q-Series, Programmer'S Manual

Page: 1142 / 1186

1142 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
38
Sample Programs
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)()
dctUnits.Add("0", "UNKNOWN")
dctUnits.Add("1", "VOLT")
dctUnits.Add("2", "SECOND")
dctUnits.Add("3", "CONSTANT")
dctUnits.Add("4", "AMP")
dctUnits.Add("5", "DECIBEL")
Dim strPreamble As String
Dim strsPreamble As String()
myScope.SCPI.WAVeform.PREamble.Query(strPreamble)
strsPreamble = strPreamble.Split(","c)
Console.WriteLine("Waveform format: {0}", _
dctWavFormat(strsPreamble(0)))
Console.WriteLine("Acquire type: {0}", _
dctAcqType(strsPreamble(1)))
Console.WriteLine("Waveform points: {0}", strsPreamble(2))
Console.WriteLine("Waveform average count: {0}", strsPreamble(3))
Console.WriteLine("Waveform X increment: {0}", strsPreamble(4))
Console.WriteLine("Waveform X origin: {0}", strsPreamble(5))
Console.WriteLine("Waveform X reference: {0}", strsPreamble(6))
Console.WriteLine("Waveform Y increment: {0}", strsPreamble(7))
Console.WriteLine("Waveform Y origin: {0}", strsPreamble(8))
Console.WriteLine("Waveform Y reference: {0}", strsPreamble(9))
Console.WriteLine("Coupling: {0}", dctCoupling(strsPreamble(10)))
Console.WriteLine("Waveform X display range: {0}", _
strsPreamble(11))
Console.WriteLine("Waveform X display origin: {0}", _
strsPreamble(12))