Keysight E4980A - Page 309

Keysight E4980A/AL Precision LCR Meter 309
Sample Program
Read/Write correction data at specified frequency points.
Dim defrm As Long 'Session to Default Resource
Manager
Dim AgtE4980A/AL As Long 'Session to instrument
Dim Res1 As Variant
Dim Result As String * 50000
Dim SendCorr As String
Dim i As Integer, FreqPoint As Integer, Std As Integer,
Para As Integer, j As Integer, k 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,
StdLoad As Integer = 2
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,
TimeOutTime)
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, "*RST;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "DISP:PAGE CSET" +
vbLf, 0)