Agilent Technologies E5071C Manual page 1078

X = 2 ^ (i - 1)
Data_Dec = Data_Dec + X
End If
Next i
Call viVPrintf(vi, ":SENS:MULT:OUTP " & CStr(Data_Dec) & vbLf, 0)
Call viVPrintf(vi, ":SENS:MULT:DISP ON" & vbLf, 0)
display.
Call viVPrintf(vi, ":SENS:MULT:STAT ON" & vbLf, 0)
E5091A.
Call ErrorCheck(vi)
Call viClose(vi)
Call viClose(defrm)
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)
ErrNo = Split(err, ",")
If Val(ErrNo(0)) <> 0 Then
Response = MsgBox(CStr(ErrNo(1)), vbOKOnly)
End If
End Sub
Sample Program in HT Basic (e5091ctr_2.htb)
10 DIM Port1$[3],Port2$[3],Port3$[3],Port4$[3],Data_bin$[9]
20 DIM Line1$[3],Line2$[3],Line3$[3],Line4$[3]
30 DIM Line5$[3],Line6$[3],Line7$[3],Line8$[3]
40 DIM Model$[8]
50 INTEGER Data_dec
60 !
70 ASSIGN @Agte507x TO 717
80 !
'Sets the control line.
'Turns on the E5091A property
'Turns on the control of the
'Checking the error.
'Closes the resource manager session.
'Breaks the communication and terminates
'End
'Reads error message.
'Gets the error code.
'Display the message box.
Programming
1305