Keysight E4980A User Manual page 309

Sample Program
Read/Write correction data at specified frequency points.
Manager
Para As Integer, j As Integer, k As Integer
StdLoad As Integer = 2
TimeOutTime)
vbLf, 0)
Keysight E4980A/AL Precision LCR Meter
Dim defrm As Long
Dim AgtE4980A/AL As Long
Dim Res1 As Variant
Dim Result As String * 50000
Dim SendCorr As String
Dim i As Integer, FreqPoint As Integer, Std As Integer,
Dim Spot_Lop As Integer, Spot_Freq(10) As String
Dim CalData(200, 2, 1) As Variant
Const StdOpen As Integer = 0, StdShort As Integer = 1,
Const PriPara As Integer = 0, SecondPara As Integer = 1
Dim err As Long
Const TimeOutTime = 30000
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call selectLCR(defrm, AgtE4980A/AL)
ErrorCheck viSetAttribute(AgtE4980A/AL, VI_ATTR_TMO_VALUE,
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, "*RST;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "DISP:PAGE CSET" +
'Session to Default Resource
'Session to instrument
309