Keysight E4980A User Manual page 278

Sample Program
Set Up Measurement Conditions and LCD Display
Example 9-1 Setting measurement conditions and screen display
Sub Example_1()
Manager
vbLf, 0)
Example""" + vbLf, 0)
0)
278
'===================================
' Configuration
'===================================
Dim defrm As Long
Dim AgtE4980A/AL As Long
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call selectLCR(defrm, AgtE4980A/AL)
'===================================
' Setup Start
'===================================
Cells(12, 2).Value = "Start to set configuration."
ErrorCheck viVPrintf(AgtE4980A/AL, "DISP:PAGE MSET" +
ErrorCheck viVPrintf(AgtE4980A/AL, "DISP:LINE ""Control
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:IMP ZTD" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "FREQ 1E6" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "VOLT 1" + vbLf, 0)
'Session to Default Resource
'Session to instrument
Keysight E4980A/AL Precision LCR Meter