Keysight E4980A - Page 311

Keysight E4980A/AL Precision LCR Meter 311
Sample Program
Read/Write correction data at specified frequency points.
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
Trim(Str(Spot_Lop)) & ":LOAD" + vbLf, 0)
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf,
"%t", Result)
Next Spot_Lop
MsgBox ("Calibration End.")
'===================================
' Read Correction
'===================================
ErrorCheck viVQueryf(AgtE4980A/AL, "CORR:USE:DATA:SING?" +
vbLf, "%t", Result)
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 = ""