Keysight E4980A User Manual page 291

Sample Program
Read Measurement Results
vbLf, 0)
0)
ErrorHandler:
End Sub
Keysight E4980A/AL Precision LCR Meter
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:READ? DBUF" +
ErrorCheck viVScanf(AgtE4980A/AL, "%t", Result)
Res = Split(Result, ",")
For i = 0 To (NoofMeas * 4) - 1
j = i Mod 4
k = i \ 4
Cells(k + 24, j + 2).Value = Val(Res(i))
Next i
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:CLE DBUF" + vbLf,
'===================================
' Setup End
'===================================`
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================`
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
291