Keysight E4980A/AL Precision LCR Meter 305
Sample Program
Read Measurement Results
9-
Call Scpi_read_binary_double_array(AgtE4980A/AL, Res, Nop)
For i = 0 To Nop - 1
j = i Mod 4
k = i \ 4
Cells(k + 24, j + 9).Value = Res(i)
Next i
'===================================
' Setup End
'===================================`
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub