302                 Keysight E4980A/AL Precision LCR Meter 
Sample Program
Read Measurement Results
9-
Read measurement data in BINARY format (List sweep)
This application program performs a list sweep and reads the measured value 
and limit judgment at each measurement point in BINARY format.
The program of Example 9-8 is described below.
Configuration  Assigns variables and enables error handling by the 
subroutine named ErrorHandler.
Open Instrument  Assigns a USB address or GPIB address to the I/O bus. Also 
sets the time for timeout.
Setup Start   Sets the trigger, list sweep, and data format.
List Read   Reads the measurement data and displays the returned 
BINARY format array data individually.
Setup End   Closes the I/O bus.
ErrorProc   Displays an error number when an error occurs.
Example 9-8  Read measurement results (BINARY format, list sweep)
Sub Example_3_6()
    '===================================
    ' Configuration
    '===================================
 
    Dim defrm As Long             'Session to Default Resource 
Manager
    Dim AgtE4980A/AL As Long         'Session to instrument
    Dim Res() As Double
    Dim Nop As Long, i As Integer, j As Integer, k As Integer
    Dim outEventType As Long, outEventContext As Long
    Const TimeOutTime = 30000
 
    On Error GoTo ErrorHandler
 
    '===================================
    ' Open Instrument
    '===================================
 
    ErrorCheck viOpenDefaultRM(defrm)