Agilent Technologies E5071C User Manual

E5071C
1174
End Sub
Sub Cal_RespThru(vi As Long, Ch As String, CalType As String, Port1 As String, Port2 As String)
Dim Dummy As Variant 'Variant to receive the result.
If Port1 <> Port2 Then
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:METH:" & CalType & " " & Port1 & "," & Port2 &
vbLf, 0) 'Sets the calibration type
MsgBox ("Set " & CalType & " to Port " & Port1 & "&" & Port2 & ". then click [OK] button") 'Display
the message box.
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:" & CalType & " " & Port1 & "," & Port2 & vbLf, 0)
'Measurement the calibration data.
Call viVQueryf(vi, "*OPC?" & vbLf, "%t", Dummy) 'Reads the *OPC? result.
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:SAVE" & vbLf, 0) 'Calculating the calibration
coefficients.
Call ErrorCheck(vi) 'Checking the error.
Else
MsgBox ("Thru calibration select port error!") 'Displaying the error message when selected same
ports.
Exit Sub
End If
End Sub
Sub Cal_Slot(vi As Long, Ch As String, NumPort As String, Port() As String)
Dim Dummy
Dim i As Integer, j As Integer
Select Case NumPort
Case 1
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:METH:SOLT" & NumPort & " " & Port(1) & vbLf,
0) 'Set the 1-port calibration type.
Case 2
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COLL:METH:SOLT" & NumPort & " " & Port(1) & "," &
Port(2) & vbLf, 0) 'Set the full 2-port calibration type.
Case 3

Agilent Technologies E5071C Specifications

General

Brand	Agilent Technologies
Model	E5071C
Category	Measuring Instruments
Language	English