Programming Guide – 42
PRINT #1, "RESET"
PRINT #1, "GPIBEOS IN LF" ' setting terminating characters to LF
PRINT #1, "GPIBEOS OUT LF"
DIM ATTEN AS SINGLE
DIM WAV AS INTEGER
PRINT #1, "OUTPUT 05;:INP:OFFS 10"
ATTEN = 30.0
WAV = 1550
PRINT #1, "OUTPUT 05;:INP:ATT";STR$(ATTEN);";WAV";STR$(WAV);"NM"
END
Querying Status
This example queries and displays the current attenuation setting:
OPEN "GPIB0" FOR OUTPUT AS #1
OPEN "GPIB0" FOR INPUT AS #2
PRINT #1, "ABORT"
PRINT#1, "GPIBEOS IN CR LF"
PRINT#1, "GPIBEOS OUT CR LF"
PRINT #1, "OUTPUT 05;ATT?"
PRINT #1, "ENTER 05"
INPUT #2, A
PRINT A
END
Serial Polling the Status Register
This example changes the attenuation setting and reads the status register continuously until
the output has settled:
OPEN "GPIB0" FOR OUTPUT AS #1
OPEN "GPIB0" FOR INPUT AS #2
PRINT #1, "ABORT"
PRINT#1, "GPIBEOS IN CR LF"
PRINT#1, "GPIBEOS OUT CR LF"
PRINT #1, "OUTPUT 05;CSB" ' clearing the status byte clears the settling bit
PRINT #1, "OUTPUT 05;ATT 0.3456e2" ' change the attenuation to 34.56 dB
sr = 0 ' initialize sr variable to enter the while loop
DO ' loop until settled bit is true
PRINT #1, "SPOLL 05" ' serial poll the attenuator
INPUT #2, sr
LOOP UNTIL (SR AND 4 = 4)
PRINT sr ' print final value of sr
END
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...