EasyManuals Logo

Agilent Technologies E5071C User Manual

Agilent Technologies E5071C
2685 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #963 background imageLoading...
Page #963 background image
E5071C
1190
Call viVPrintf(vi, "*CLS" + vbLf, 0)
Stat = MsgBox("Set the power sensor connected to the port 1 in the ENA, then press [OK] key.",
vbOKOnly)
'
' Performing power calibration measurement
Call viVPrintf(vi, ":SOUR1:POW:PORT1:CORR:COLL:AVER " & NumOfAve & vbLf, 0)
Call viVPrintf(vi, ":SOUR1:POW:PORT1:CORR:COLL ASEN" + vbLf, 0)
Call viVPrintf(vi, "*OPC?" + vbLf, 0)
Call viVScanf(vi, "%t", OpcRes)
'
' Error hnadling at power meter measurement
Call viVQueryf(vi, ":SYST:ERR?" & vbLf, "%t", err)
ErrNo = Split(err, ",")
'
If Val(ErrNo(0)) = 0 Then
ReDim CorrData(Nop)
Call viVPrintf(vi, ":FORM:DATA ASC" + vbLf, 0)
Call viVPrintf(vi, ":SOUR1:POW:PORT1:CORR:DATA?" + vbLf, 0)
Call viVScanf(vi, "%t", Result)
Res = Split(Result, ",")
If fnLim(vi, Nop, Limit, Res) Then
MsgBox "Power meter calibration measurement is complete.", vbOKOnly
For i = 1 To Nop
Cells(i + 5, 2) = i
Cells(i + 5, 3) = Res(i - 1)
Next i
Else
GoTo ReCalibration
End If
Else
MsgBox "Error", vbOKOnly
GoTo ReCalibration
End If
ProgEnd:
Call viClose(vi)

Table of Contents

Other manuals for Agilent Technologies E5071C

Questions and Answers:

Question and Answer IconNeed help?

Do you have a question about the Agilent Technologies E5071C and is the answer not in the manual?

Agilent Technologies E5071C Specifications

General IconGeneral
BrandAgilent Technologies
ModelE5071C
CategoryMeasuring Instruments
LanguageEnglish

Related product manuals