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

Page: 1047 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1047
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")
Dim WordDataArray As Short()
WordDataArray = myScope.DoQueryIEEEBlock_I2(":WAVeform:DATA?")
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 index As Integer = 0 To nLength - 1
' Write time value, voltage value.
writer.WriteLine("{0:f9}, {1:f6}", _
fX (CSng(index) * fXincrement), _
(CSng(WordDataArray(index)) * fYincrement) + fYorigin)
Next
' Close output file.
writer.Close()
Console.WriteLine("Waveform format WORD data written to {0}", _
strPath)
End Sub
End Class
Class VisaComInstrument
Private m_ResourceManager As ResourceManagerClass
Private m_IoObject As FormattedIO488Class
Private m_strVisaAddress As String
' Constructor.
Public Sub New(ByVal strVisaAddress As String)
' Save VISA address in member variable.
m_strVisaAddress = strVisaAddress
' Open the default VISA COM IO object.
OpenIo()
' Clear the interface.
m_IoObject.IO.Clear()