E-8 Example Programs Models 2510 and 2510-AT User’s Manual
Program 2: Setpoint tolerance temperature sweep
' The program uses setpoint tolerance to generate a temperature sweep.
' 2510 primary address = 15.
OPEN "IEEE" FOR OUTPUT AS #1 ' Open IEEE-488 output path.
OPEN "IEEE" FOR INPUT AS #2 ' Open IEEE-488 input path.
PRINT #1, "INTERM CRLF" ' Set input terminator.
PRINT #1, "OUTTERM LF" ' Set output terminator.
PRINT #1, "REMOTE 15" ' Put 2510 in remote.
PRINT #1, "OUTPUT 15;*RST" ' Restore GPIB defaults.
PRINT #1, "OUTPUT 15;:STAT:MEAS:ENAB 4096;*SRE 1" ' Enable SRQ on SPT.
PRINT #1, "OUTPUT 15;:SOUR:STOL 1" ' 1% setpoint tolerance.
PRINT #1, "OUTPUT 15;:SOUR:STOL:COUN 10" ' 10 reading tolerance window.
PRINT #1, "OUTPUT 15;:SOUR:TEMP:PROT 90" ' Upper temp. limit = 90 deg.
PRINT #1, "OUTPUT 15;:OUTP ON" ' Turn on output.
CLS
FOR Setpoint = 40 TO 80 STEP 10 ' Loop for 40 to 80 deg. setpoints.
PRINT #1, "OUTPUT 15;:SOUR:TEMP" ; Setpoint ' Program temp. setpoint.
PRINT "Waiting for"; Setpoint; "degree setpoint to stabilize..."
DO: PRINT #1, "SRQ?" ' Request SRQ status.
INPUT #2, S ' Input SRQ status byte.
LOOP UNTIL S ' Wait for setpoint tolerance.
PRINT #1, "OUTPUT 15;:*CLS" ' Clear SPT.
PRINT #1, "SPOLL 15" ' Serial poll unit to clear SRQ.
INPUT #2, S
PRINT #1, "OUTPUT 15;:MEAS:POW?" ' Query TEC power reading.
PRINT #1, "ENTER 15"
INPUT #2, Power
PRINT "TEC power at"; Setpoint; "degree setpoint:"; Power
NEXT Setpoint
PRINT #1, "OUTPUT 15;:OUTP OFF" ' Turn off output.
PRINT "Done."
END
To Next Page
Loading...
Need help?
General
