Keysight E4980AL - Page 316

316 Keysight E4980A/AL Precision LCR Meter
Sample Program
Read/Write correction data at specified frequency points.
9-
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 " +
SendCorr + vbLf, 0)
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf, "%t",
Result)
MsgBox ("Sending correction data completed.")
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================