Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1143

Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
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
myScope.SCPI.WAVeform.YORigin.Query(fYorigin)
' Get the waveform data.
myScope.SCPI.WAVeform.STReaming.Command(False)
Dim WordDataArray As Short()
' Results array.
myScope.SCPI.WAVeform.DATA.QueryBlockInt16(DBNull.Value, _
DBNull.Value, WordDataArray)
nLength = WordDataArray.Length
Console.WriteLine("Number of data values: {0}", nLength)
' Set up output file:
strPath = "c:\scope\data\waveform_data.csv"
If File.Exists(strPath) Then
File.Delete(strPath)
End If
' Open file for output.
Dim writer As StreamWriter = File.CreateText(strPath)
' Output waveform data in CSV format.
For i As Integer = 0 To nLength - 2
writer.WriteLine("{0:f9}, {1:f6}", _
fXorigin + (CSng(i) * fXincrement), _
(CSng(WordDataArray(i)) * fYincrement) + fYorigin)
Next
' Close output file.
writer.Close()
Console.WriteLine("Waveform format WORD data written to {0}", _
strPath)
End Sub
38
Sample Programs
1143