Keysight E4980A User Manual page 311

Sample Program
Read/Write correction data at specified frequency points.
Trim(Str(Spot_Lop)) & ":LOAD" + vbLf, 0)
"%t", Result)
vbLf, "%t", Result)
Keysight E4980A/AL Precision LCR Meter
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf,
Next Spot_Lop
MsgBox ("Calibration End.")
'===================================
' Read Correction
'===================================
ErrorCheck viVQueryf(AgtE4980A/AL, "CORR:USE:DATA:SING?" +
Res1 = Split(Result, ",")
i = 0
For FreqPoint = 1 To 201
For Std = StdOpen To StdLoad
For Para = PriPara To SecondPara
CalData(FreqPoint - 1, Std, Para) = Res1(i)
j = i Mod 6
k = i \ 6
Cells(k + 13, j + 2).Value = Res1(i)
i = i + 1
Next Para
Next Std
Next FreqPoint
MsgBox ("Reading correction data completed.")
'===================================
' Correction data uploading
'===================================
SendCorr = ""
311