![Keysight Technologies E4981A Скачать руководство пользователя страница 95](http://html1.mh-extra.com/html/keysight-technologies/e4981a/e4981a_programming-manual_1961965095.webp)
Chapter 9
93
Measurement Applications (Sample Programs)
Setting Up Measurement Conditions and LCD Display
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
Example 9-1
Setting measurement conditions and screen display
Sub Example1()
'===================================
' Configuration
'===================================
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Dim Result As String * 500
Dim Res As Variant
Dim Nop As Integer, i As Integer
Const TimeOutTime = 30000
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE,
TimeOutTime)
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CALC1:FORM CS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CALC2:FORM Q" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "SOUR:FREQ 1E3" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "SOUR:VOLT 0.5" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "RANG:AUTO ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "APER:TIME 1" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CAL:CABL 0" + vbLf, 0)
Содержание E4981A
Страница 2: ......
Страница 20: ...18 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Страница 60: ...58 Chapter4 Preparation for Accurate Measurement Executing Correction Using the Cable Correction Function ...
Страница 88: ...86 Chapter7 Sorting Based on Measured Result Comparator Function Sample Program ...
Страница 162: ...160 Chapter9 Measurement Applications Sample Programs Detecting Error Occurrence using SRQ HT Basic ...
Страница 376: ...374 AppendixE Error Messages Warning Messages WARNING ...
Страница 382: ......
Страница 383: ...This information is subject to change without notice Keysight Technologies 2008 2014 Edition 2 August 2014 E4981 90001 ...