Keysight E4980A User Manual page 297

Sample Program
Read Measurement Results
ErrorHandler:
End Sub
Sub Scpi_read_binary_double_array(vi As Long, data() As
Double, Nop As Long)
Keysight E4980A/AL Precision LCR Meter
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
'===================================
' BinaryAry Read
'===================================
Dim dblArray(10000) As Double
Dim paramsArray(3) As Long
Dim err As Long
Dim i As Long
Dim lf_eoi As String * 1
Nop = UBound(dblArray) - LBound(dblArray) + 1
paramsArray(0) = VarPtr(Nop)
297