Agilent Technologies E5071C Manual page 1077

E5071C
Port3 = "R2"
Port4 = "R2"
Line1 = "1"
Line2 = "0"
Line3 = "1"
Line4 = "0"
Line5 = "0"
Line6 = "0"
Line7 = "0"
Line8 = "0"
Call viOpenDefaultRM(defrm)
Call viOpen(defrm, "GPIB0::17::INSTR", 0, 0, vi)
specified instrument.
Call viSetAttribute(vi, VI_ATTR_TMO_VALUE, TimeOutTime)
for the specified session.
Call viVPrintf(vi, "*RST" & vbLf, 0)
Call viVPrintf(vi, "*CLS" & vbLf, 0)
Call viVPrintf(vi, ":SENS1:MULT1:NAME " & Model & vbLf, 0)
name.
Call viVPrintf(vi, ":SENS:MULT:PORT1 " & Port1 & vbLf, 0)
to A
Call viVPrintf(vi, ":SENS:MULT:PORT2 " & Port2 & vbLf, 0)
to T2
Call viVPrintf(vi, ":SENS:MULT:PORT3 " & Port3 & vbLf, 0)
to R2
Call viVPrintf(vi, ":SENS:MULT:PORT4 " & Port4 & vbLf, 0)
to R2
Call ErrorCheck(vi)
Data_Bin = Line8 & Line7 & Line6 & Line5 & Line4 & Line3 & Line2 & Line1
For i = 1 To Len(Data_Bin)
If Mid(Data_Bin, Len(Data_Bin) - i + 1, 1) = "1" Then
1304
'Port3 = R2
'Port4 = R2
'Line1 = High
'Line2 = Low
'Line3 = High
'Line4 = Low
'Line5 = Low
'Line6 = Low
'Line7 = Low
'Line8 = Low
'Initializes the VISA system.
'Opens the session to the
'Presets the setting state of the ENA.
'Clears the all status register.
'Sets the port assigned to port 1
'Sets the port assigned to port 2
'Sets the port assigned to port 3
'Sets the port assigned to port 4
'Checking the error.
'Creates a decimal setting value.
'The state of an attribute
'Specifies the test set