Agilent Technologies InfiniiVision 7000A Series, Руководство программиста

Страница: 882 / 922

882 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
12
Programming Examples
' Read setup string from file.
DataArray = File.ReadAllBytes("c:\scope\config\setup.dat")
Console.WriteLine("Read setup string ({0} bytes) from file.", _
DataArray.Length)
' Restore setup string.
nBytesWritten = oscp.DoCommandIEEEBlock(":SYSTem:SETup", _
DataArray)
Console.WriteLine("Restored setup string ({0} bytes).", _
nBytesWritten)
' IMAGE_TRANSFER - In this example, we query for the screen
' data with the ":DISPLAY:DATA?" query. The .png format
' data is saved to a file in the local file system.
Console.WriteLine("Transferring screen image to " _
+ "c:\scope\data\screen.png")
If File.Exists("c:\scope\data\screen.png") Then
File.Delete("c:\scope\data\screen.png")
End If
' Increase I/O timeout to fifteen seconds.
oscp.SetTimeoutSeconds(15)
' Get the screen data in PNG format.
nLength = _
oscp.DoQueryIEEEBlock(":DISPlay:DATA? PNG, SCReen, COLor", _
ResultsArray)
Console.WriteLine("Read screen image ({0} bytes).", nLength)
' Store the screen data in a file.
File.WriteAllBytes("c:\scope\data\screen.png", ResultsArray)
Console.WriteLine("Wrote screen image ({0} bytes) to file.", _
nLength)
' Return I/O timeout to five seconds.
oscp.SetTimeoutSeconds(5)
' MEASURE - The commands in the MEASURE subsystem are used to
' make measurements on displayed waveforms.
' Set source to measure.
oscp.DoCommand(":MEASure:SOURce CHANnel1")
' Query for frequency.
Dim fResults As Double
fResults = oscp.DoQueryValue(":MEASure:FREQuency?")
Console.WriteLine("The frequency is: {0:F4} kHz", _
fResults / 1000)
' Query for peak to peak voltage.
fResults = oscp.DoQueryValue(":MEASure:VPP?")
Console.WriteLine("The peak to peak voltage is: {0:F2} V", _
fResults)
' WAVEFORM_DATA - Get waveform data from oscilloscope. To
' obtain waveform data, you must specify the WAVEFORM