Agilent Technologies E5071C Manual page 1042

Call ErrorCheck(vi) 'Checking the error.
Call viVPrintf(vi, ":CALC1:FSIM:BAL:DZC:BPOR1:Z0 " & Z0_diff & vbLf, 0) 'Sets the differential port
impedance of balance port 1.
Call viVPrintf(vi, ":CALC1:FSIM:BAL:DZC:STAT ON" & vbLf, 0) 'Turns on differential port impedance
conversion.
Call viVPrintf(vi, ":CALC1:FSIM:STAT ON" & vbLf, 0) 'Turns on the fixture simulator.
Call ErrorCheck(vi) 'Checking the error.
Call viClose(vi) 'Closes the resource manager session.
Call viClose(defrm) 'Breaks the communication and terminates the VISA system.
End
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
End Sub
Sample Program in HT Basic (fixture.htb)
10 DIM Dev_type$[9],Para$[9]
20 REAL Dmc_c,Dmc_g,Dmc_l,Dmc_r,Z0_se,Z0_diff
30 INTEGER Port(1:3)
40 !
50 ASSIGN @Agte507x TO 717
60 !
70 Dev_type$="SBAL" ! Device Type : SE-Bal
80 Port(1)=1 ! Port1(SE) : 1
90 Port(2)=2 ! Port2(Bal) : 2,3
100 Port(3)=3 !
110 Para$="SDS21" ! Meas. Parameter : Sds21
120 Dmc_c=1.E-12 ! Diff. C: 1 pF
Programming
1269