110
Chapter 9
Measurement Applications (Sample Programs)
Recovering the Correction State
'===================================
' 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