Programming Examples
86
Agilent
8169A
Polarization Controller, Second Edition
Example 1 - Checking Communication
Function
This program sends a query, and displays the reply.
Listing
Table 14
10
20
30
40
50
60
70
80
90
100
!------------------------------------------------
!
!Agilent 8169A Programming Example 1
!
!A Simple Communication Check
!
!------------------------------------------------
!
!Definitions and initialization
!
110
Pol=724
This statement sets the address of the polarisation controller. The first 7 is to access the
GPIB card in the controller; the 24 is it’s GPIB address
120
130
150
160
170
180
190
200
210
220
230
DIM String$ [50]
!
PRINT TABXY (5, 10); “Programming Example 1, Simple Communications”
!
! Send an IDN and get the Identification
!
OUTPUT Pol; “*IDN?”
ENTER Pol;:String$
PRINT TABXY (10, 12); “Identification : “;String$
!
END