Technical data

1296 Agilent Infiniium 9000 Series Oscilloscopes Programmer's Reference
38 Sample Programs
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))
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
myScope.SCPI.WAVeform.XINCrement.Query(fXincrement)
Dim fXorigin As Double
myScope.SCPI.WAVeform.XORigin.Query(fXorigin)
Dim fYincrement As Double
myScope.SCPI.WAVeform.YINCrement.Query(fYincrement)
Dim fYorigin As Double