Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1096

38
Sample Programs
1096
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?")
Dim fXorigin As Double
fXorigin = myScope.DoQueryNumber(":WAVeform:XORigin?")
Dim fYincrement As Double
fYincrement = myScope.DoQueryNumber(":WAVeform:YINCrement?")
Dim fYorigin As Double
fYorigin = myScope.DoQueryNumber(":WAVeform:YORigin?")
' Get the waveform data.
myScope.DoCommand(":WAVeform:STReaming OFF")
nLength = myScope.DoQueryIEEEBlock_Words(":WAVeform:DATA?", _
WordResultsArray)
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 index As Integer = 0 To nLength - 1
' Write time value, voltage value.
writer.WriteLine("{0:f9}, {1:f6}", _
fXorigin + (CSng(index) * fXincrement), _
(CSng(WordResultsArray(index)) * fYincrement) + _
fYorigin)
Next
' Close output file.
writer.Close()
Console.WriteLine("Waveform format WORD data written to {0}", _
strPath)
End Sub
End Class
Class VisaInstrument
Private m_nResourceManager As Integer
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference