Agilent Technologies InfiniiVision 2000 X-Series, Руководство программиста, Страница: 821 / 930

Programming Examples
38
Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 821
' Read setup string from file.
strPath = "c:\scope\config\setup.stp"
DataArray = File.ReadAllBytes(strPath)
nBytesWritten = DataArray.Length
' Restore setup string.
myScope.DoCommandIEEEBlock(":SYSTem:SETup", DataArray)
Console.WriteLine("Setup bytes restored: {0}", nBytesWritten)
' Capture an acquisition using :DIGitize.
myScope.DoCommand(":DIGitize CHANnel1")
End Sub
' Analyze the captured waveform.
' --------------------------------------------------------------
Private Shared Sub Analyze()
Dim fResult As Double
Dim ResultsArray As Byte() ' Results array.
Dim nLength As Integer ' Number of bytes returned from inst.
Dim strPath As String
' Make a couple of measurements.
' ------------------------------------------------------------
myScope.DoCommand(":MEASure:SOURce CHANnel1")
Console.WriteLine("Measure source: {0}", _
myScope.DoQueryString(":MEASure:SOURce?"))
myScope.DoCommand(":MEASure:FREQuency")
fResult = myScope.DoQueryNumber(":MEASure:FREQuency?")
Console.WriteLine("Frequency: {0:F4} kHz", fResult / 1000)
myScope.DoCommand(":MEASure:VAMPlitude")
fResult = myScope.DoQueryNumber(":MEASure:VAMPlitude?")
Console.WriteLine("Vertial amplitude: {0:F2} V", fResult)
' Download the screen image.
' ------------------------------------------------------------
myScope.DoCommand(":HARDcopy:INKSaver OFF")
' Get the screen data.
ResultsArray = myScope.DoQueryIEEEBlock(":DISPlay:DATA? PNG, COLor
")
nLength = ResultsArray.Length
' Store the screen data to a file.
strPath = "c:\scope\data\screen.png"
Dim fStream As FileStream
fStream = File.Open(strPath, FileMode.Create)
fStream.Write(ResultsArray, 0, nLength)
fStream.Close()
Console.WriteLine("Screen image ({0} bytes) written to {1}", _
nLength, strPath)