114
Chapter 9
Measurement Applications (Sample Programs)
Executing Multi Correction
For i = 0 To 3
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) +
vbLf, 0) ' Select Channel No. i
MsgBox "OPEN correction for Channel: " & i
Corr_Result = FnComp("OPEN", 0.00002, Freq)
Next i
For i = 0 To 3
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) +
vbLf, 0) ' Select Channel No. i
MsgBox "SHORT correction for Channel: " & i
Corr_Result = FnComp("SHORT", 20, Freq)
Next i
For i = 0 To 3
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) +
vbLf, 0) ' Select Channel No. i
MsgBox "LOAD correction for Channel: " & i
Corr_Result = FnComp("LOAD", 0.2, Freq)
Next i
'===================================
' Setup End
'===================================
Call viClose(defrm)
End