98
Chapter 9
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
'===================================
' Measurement
'===================================
Corr_Result = FnComp("OPEN", 0.00002, Freq)
If Corr_Result <> 0 Then
MsgBox "OPEN compensation is not successful."
'End
End If
Corr_Result = FnComp("SHORT", 20, Freq)
If Corr_Result <> 0 Then
MsgBox "SHORT compensation is not successful."
'End
End If
Corr_Result = FnComp("LOAD", 0.2, Freq)
If Corr_Result <> 0 Then
MsgBox "LOAD compensation is not successful."
'End
End If
Corr_File_Name = "C:\E4981A_Corr_Data.txt"
' Save Data
Call Save_Corr_File(Corr_File_Name, Freq)
MsgBox "Correction data stored at " & Corr_File_Name