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

Page: 1093 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1093
Console.WriteLine("Channel 1 vertical scale: {0}", _
myScope.DoQueryString(":CHANnel1:SCALe?"))
myScope.DoCommand(":CHANnel1:OFFSet 0.0")
Console.WriteLine("Channel 1 vertical offset: {0}", _
myScope.DoQueryString(":CHANnel1:OFFSet?"))
' Set horizontal scale and position.
myScope.DoCommand(":TIMebase:SCALe 0.0002")
Console.WriteLine("Timebase scale: {0}", _
myScope.DoQueryString(":TIMebase:SCALe?"))
myScope.DoCommand(":TIMebase:POSition 0.0")
Console.WriteLine("Timebase position: {0}", _
myScope.DoQueryString(":TIMebase:POSition?"))
' Set the acquisition mode.
myScope.DoCommand(":ACQuire:MODE RTIMe")
Console.WriteLine("Acquire mode: {0}", _
myScope.DoQueryString(":ACQuire:MODE?"))
' Or, set up by loading a previously saved setup.
Dim DataArray As Byte()
Dim nBytesWritten As Integer
' Read setup string from file.
strPath = "c:\scope\config\setup.stp"
DataArray = File.ReadAllBytes(strPath)
' Restore setup string.
nBytesWritten = myScope.DoCommandIEEEBlock(":SYSTem:SETup", _
DataArray)
Console.WriteLine("Setup bytes restored: {0}", nBytesWritten)
' Set the desired number of waveform points,
' and capture an acquisition.
myScope.DoCommand(":ACQuire:POINts 32000")
myScope.DoCommand(":DIGitize")
End Sub
'
' Analyze the captured waveform.
' --------------------------------------------------------------
Private Shared Sub Analyze()
Dim fResult As Double
Dim ResultsArray As Byte() ' Results array.
Dim WordResultsArray As Short() ' Results array for WORD data.
Dim nLength As Integer ' Number of bytes returned from inst.
Dim strPath As String
' Make measurements.
' ------------------------------------------------------------
myScope.DoCommand(":MEASure:SOURce CHANnel1")
Console.WriteLine("Measure source: {0}", _