Keysight E4980A User Manual page 310

Sample Program
Read/Write correction data at specified frequency points.
vbLf, 0)
0)
vbLf, 0)
Trim(Str(Spot_Lop)) & ":FREQ " & Spot_Freq(Spot_Lop) + vbLf,
0)
Trim(Str(Spot_Lop)) & ":STAT ON" + vbLf, 0)
Trim(Str(Spot_Lop)) & ":OPEN" + vbLf, 0)
"%t", Result)
Trim(Str(Spot_Lop)) & ":SHOR" + vbLf, 0)
"%t", Result)
310
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:LOAD:TYPE RX" +
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:METH SING" +
'===================================
' Exec Correction
'===================================
Spot_Freq(1) = "1E3"
Spot_Freq(2) = "2E3"
Spot_Freq(3) = "5E3"
MsgBox ("Connect Open Termination.")
For Spot_Lop = 1 To 3
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf,
Next Spot_Lop
MsgBox ("Connect Short Termination.")
For Spot_Lop = 1 To 3
ErrorCheck viVPrintf(AgtE4980A/AL, "CORR:SPOT" &
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf,
Next Spot_Lop
MsgBox ("Connect Load Standard.")
For Spot_Lop = 1 To 3
Keysight E4980A/AL Precision LCR Meter