Keysight E4980A User Manual page 312

Sample Program
Read/Write correction data at specified frequency points.
SendCorr + vbLf, 0)
Result)
312
i = 0
For FreqPoint = 1 To 201
For Std = StdOpen To StdLoad
For Para = PriPara To SecondPara
j = i Mod 6
k = i \ 6
SendCorr = SendCorr & Cells(k + 13, j + 2).Value
i = i + 1
If i < 1206 Then
SendCorr = SendCorr & ","
End If
Next Para
Next Std
Next FreqPoint
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:USE:DATA:SING " +
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf, "%t",
MsgBox ("Sending correction data completed.")
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
Keysight E4980A/AL Precision LCR Meter