Keysight E4981A - Page 101

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 101
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
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)
Corr_File_Object.WriteLine (StdOpen)
Corr_File_Object.WriteLine (StdShort)
Corr_File_Object.WriteLine (StdLoad)
Corr_File_Object.WriteLine (Cab_Len)
Corr_File_Object.WriteLine (Sys_Fsh)
'===================================
' Setup End
'===================================
Call viClose(defrm)
End Sub