Keysight E4981A - Page 104

104 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Recovering the Correction State
9-
'===================================
' Setup Start
'===================================
File_Path = "C:\E4981A_Corr_Data.txt"
Set FileOpen = Corr_File_Object.OpenTextFile(File_Path)
Do Until FileOpen.AtEndOfStream
Corr_Data(i) = FileOpen.ReadLine
i = i + 1
Loop
Freq = Corr_Data(1)
Open1 = Corr_Data(2)
Open2 = Corr_Data(3)
Short1 = Corr_Data(4)
Short2 = Corr_Data(5)
Load1 = Corr_Data(6)
Load2 = Corr_Data(7)
StdOpen = Corr_Data(8)
StdShort = Corr_Data(9)
StdLoad = Corr_Data(10)
Cab_Len = Corr_Data(11)
Sys_Fsh = Corr_Data(12)
'===================================
' Recover Data
'===================================
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0) ' Preset the
E4981A
ErrorCheck viVPrintf(Agte4981a, "SOUR:FREQ " & Freq + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:DATA STAN3," & CStr(Load1) & "," &
CStr(Load2) + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CAL:CABL " & Cab_Len + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "SYST:FSH " & Sys_Fsh + vbLf, 0)