Commands by Subsystem 3
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference 165
Return Format <display data><NL>
<display data> ::= binary block data in IEEE-488.2 # format.
See Also •"Introduction to :DISPlay Commands" on page 161
•":DISPlay:SOURce" on page 169
•":HARDcopy:INKSaver" on page 199
•":MERGe" on page 104
•":PRINt" on page 115
•"*RCL (Recall)" on page 74
•"*SAV (Save)" on page 78
•":VIEW" on page 122
Example Code ' IMAGE_TRANSFER - In this example, we will query for the image data
' with ":DISPLAY:DATA?", read the data, and then save it to a file.
Dim byteData() As Byte
myScope.IO.Timeout = 15000
myScope.WriteString ":DISPLAY:DATA? BMP, SCREEN, COLOR"
byteData = myScope.ReadIEEEBlock(BinaryType_UI1)
' Output display data to a file:
strPath = "c:\scope\data\screen.bmp"
' Remove file if it exists.
If Len(Dir(strPath)) Then
Kill strPath
End If
Close #1 ' If #1 is open, close it.
Open strPath For Binary Access Write Lock Write As #1 ' Open file f
or output.
Put #1, , byteData ' Write data.
Close #1 ' Close file.
myScope.IO.Timeout = 5000
Example program from the start: "VISA COM Example in Visual Basic" on
page 578
NOTE If the format is TIFF, the only valid value area parameter is GRATicule, and the only valid
palette parameter is MONOchrome.
If the format is something other than TIFF, the only valid area parameter is SCReen, and the
only valid values for palette are GRAYscale or COLor.