To Next Page

To Previous Page

E5071C

1202

MsgBox ("Set Short to Port " & Port(i) & ". then click [OK] button") 'Display the message box.

Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:SHORT " & Port(i) & vbLf, 0) 'Measurement the

SHORT calibration.

Call viVQueryf(vi, "*OPC?" & vbLf, "%t", Dummy) 'Reads the *OPC? result.

MsgBox ("Set Load to Port " & Port(i) & ". then click [OK] button") 'Display the message box.

Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:LOAD " & Port(i) & vbLf, 0) 'Measurement the

LOAD calibration.

Call viVQueryf(vi, "*OPC?" & vbLf, "%t", Dummy) 'Reads the *OPC? result.

Next i

'Transmission

For i = 1 To NumPort - 1

For j = i + 1 To NumPort

MsgBox ("Set Thru to Port " & Port(i) & "&" & Port(j) & ". then click [OK] button") 'Display the

message box.

Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:THRU " & Port(i) & "," & Port(j) & vbLf, 0)

'Measurement the THRU calibration.

Call viVQueryf(vi, "*OPC?" & vbLf, "%t", Dummy) 'Reads the *OPC? result.

Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:THRU " & Port(j) & "," & Port(i) & vbLf, 0)

'Measurement the THRU calibration.

Call viVQueryf(vi, "*OPC?" & vbLf, "%t", Dummy) 'Reads the *OPC? result.

Next j

Next i

Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:SAVE" & vbLf, 0) 'Calculating the calibration

coefficients.

Call ErrorCheck(vi) 'Checking the error.

End Sub

Sub ErrorCheck(vi As Long)

Dim err As String * 50, ErrNo As Variant, Response

Call viVQueryf(vi, ":SYST:ERR?" & vbLf, "%t", err) 'Reads error message.

ErrNo = Split(err, ",") 'Gets the error code.

If Val(ErrNo(0)) <> 0 Then

Response = MsgBox(CStr(ErrNo(1)), vbOKOnly) 'Display the message box.

End If

Agilent Technologies E5071C User Manual

Other manuals for Agilent Technologies E5071C