Keysight Technologies E4981A, Руководство по программированию

Страница: 111 / 383

Chapter 9 109
Measurement Applications (Sample Programs)
Recovering the Correction State
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
Example 9-3 Recovering the Correction State
Sub Example3()
'===================================
' Configuration
'===================================
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Dim FileS As Object
Dim Result As String * 500
Dim Res As Variant
Dim Nop As Integer, i As Integer
Dim Open1 As Double, Open2 As Double
Dim Short1 As Double, Short2 As Double
Dim Load1, Load2 As Double
Dim StdOpen As String, StdLoad As String, StdShort As String
Dim Freq As String
Dim File_Path As String
Dim FileOpen As Object
Dim Corr_File_Object As New FileSystemObject
Dim Corr_Data(1 To 12) As String
Dim Cab_Len As String
Dim Sys_Fsh As String
Const TimeOutTime = 30000
i = 1
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE,
TimeOutTime)