Keysight E4980A - Page 310

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