![Keysight Technologies E4981A Programming Manual Download Page 141](http://html1.mh-extra.com/html/keysight-technologies/e4981a/e4981a_programming-manual_1961965141.webp)
Chapter 9
139
Measurement Applications (Sample Programs)
Reading Measurement Results Using Data Buffer
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
Example 9-12
Reading Measurement Results in Ascii Format using Data Buffer
Sub Example12()
'===================================
' Configuration
'===================================
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Dim Result As String * 500
Dim PSData As Variant
Dim Res(5, 5) As Variant
Dim NoofMeas As Integer, i As Integer, j As Integer, k As Integer
Dim outEventType As Long, outEventContext As Long
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
'===================================
NoofMeas = 5
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "FORM ASC" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "DATA:POIN:BUF3 " + CStr(NoofMeas)
+ vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":DATA:FEED:CONT:BUF3 ALW" + vbLf,
0)
ErrorCheck viVPrintf(Agte4981a, "APER:TIME 6" + vbLf, 0)