![Keysight Technologies E4981A Programming Manual Download Page 108](http://html1.mh-extra.com/html/keysight-technologies/e4981a/e4981a_programming-manual_1961965108.webp)
106
Chapter 9
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN3" + vbLf,
0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Load1 = Val(Res(0))
Load2 = Val(Res(1))
Result = ""
Result = ""
' Cable Length
ErrorCheck viVPrintf(Agte4981a, "CAL:CABL?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Cab_Len = Val(Result)
Result = ""
' Frequency Shift
ErrorCheck viVPrintf(Agte4981a, "SYST:FSH?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Sys_Fsh = Val(Result)
Set FileS = CreateObject("Scripting.FileSystemObject")
Set Corr_File_Object = FileS.CreateTextFile(FileName, True)
Corr_File_Object.WriteLine (Freq)
Corr_File_Object.WriteLine (Open1)
Corr_File_Object.WriteLine (Open2)
Corr_File_Object.WriteLine (Short1)
Corr_File_Object.WriteLine (Short2)
Corr_File_Object.WriteLine (Load1)
Corr_File_Object.WriteLine (Load2)