Agilent Technologies E5071C - Page 963

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)