Agilent Technologies Infiniium 90000 Series Programmer's Manual page 816

31
System Commands
' Get setup from the oscilloscope.
Dim varSeup As Variant
myScope.WriteString ":SYSTem:HEADer OFF"
myScope.WriteString ":SYSTem:SETup?"
varSetup = myScope.ReadIEEEBlock(BinaryType_UI1)
' Output setup string to a file:
Dim strPath As String
strPath = "c:\scope\config\setup.dat"
Dim hFile As Long
hFile = FreeFile
Open strPath For Binary Access Write Lock Write As hFile
Put hFile, , varSetup
Close hFile
Debug.Print "Setup bytes saved: " + CStr(LenB(varSetup))
:SYSTem:SETup Can Operate Just Like *LRN?
N O T E
When headers and LONGform are on, the :SYSTem:SETup? query operates the same as the
*LRN? query in the common commands. Otherwise, *LRN? and :SYSTem:SETup are not
interchangeable.
816
' Write data.
' Close file.
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
' Response headers off.