Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1046

38
Sample Programs
1046
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()
strPreamble = myScope.DoQueryString(":WAVeform:PREamble?")
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))
Console.WriteLine("Waveform Y display range: {0}", _
strsPreamble(13))
Console.WriteLine("Waveform Y display origin: {0}", _
strsPreamble(14))
Console.WriteLine("Date: {0}", strsPreamble(15))
Console.WriteLine("Time: {0}", strsPreamble(16))
Console.WriteLine("Frame model: {0}", strsPreamble(17))
Console.WriteLine("Acquire mode: {0}", _
dctAcqMode(strsPreamble(18)))
Console.WriteLine("Completion pct: {0}", strsPreamble(19))
Console.WriteLine("Waveform X inits: {0}", _
dctUnits(strsPreamble(20)))
Console.WriteLine("Waveform Y units: {0}", _
dctUnits(strsPreamble(21)))
Console.WriteLine("Max BW limit: {0}", strsPreamble(22))
Console.WriteLine("Min BW limit: {0}", strsPreamble(23))
' Get numeric values for later calculations.
Dim fXincrement As Double
fXincrement = myScope.DoQueryNumber(":WAVeform:XINCrement?")
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference