Chapter 9
105
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
Result = ""
' Open Correction Values
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN1" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Open1 = Val(Res(0))
Open2 = Val(Res(1))
Result = ""
' Short Correction Parameter
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN2:FORMAT?" +
vbLf, 0) ' Read Primary and Secondary Load Types CP and D
ErrorCheck viVScanf(Agte4981a, "%t", Result)
StdShort = Mid(Result, 1, 2)
Result = ""
' Short Correction Values
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN2" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Short1 = Val(Res(0))
Short2 = Val(Res(1))
Result = ""
' Load Correction Parameter
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3:FORMAT?" +
vbLf, 0) ' Read Primary and Secondary Load Types CP and D
ErrorCheck viVScanf(Agte4981a, "%t", Result)
StdLoad = Mid(Result, 1, 3)
Result = ""