OPERATING MANUAL 603xA FAMILY AUTORANGING SYSTEM DC POWER SUPPLIES 6030A, 6031A, 6032A, 6035A, 6033A, 60380A 6010A, 6011A, 6012B, 6015A, 6023A, 6028A

Programming the Agilent 603xA Power Supplies Using Basic
117
120 !
130 DEF FNSettled(OPTIONAL Band, Rdgs.Timelimit)
140 ! BAND=SETTLING BAND IN VOLTS
150 ! RDGS=READINGS WITHIN BAND
160 ! TIMELIMIT=SETTLING TIME ALLOWED, SECONDS
170 COM /Ps/ @Ps
180 OUTPUT @Ps:”VSET?”
190 ENTER @Ps;Vset
200 SET TIMEDATE 2.1E+11
210 !
220 Band_p=.01
230 Rdgs_p=2
240 Timelimit_p=5
250 Counter=0
260 !
270 IF NPAR>0 THEN Band_p=Band
280 IF NPAR>l THEN Rdgs_p=Rdgs
290 IF NPAR>2 THEN Timelimit_p=Timelimit
300 !
310 WHILE FNElapsed_time<Timelimit_p
320 IF ABS(FNVout-Vset)<Band_p THEN
330 Counter=Counter+l
340 IF Counter>=Rdgs p THEN RETURN l
350 ELSE
360 Counter=0
370 END IF
380 END WHILE
390 !
400 RETURN 0
410 FNEND
420 !
430 !
440 DEF FNVout
450 COM /Ps/ @Ps
460 OUTPUT @Ps; “VOUT?”
470 ENTER @Ps;Vout
480 RETURN Vout
490 FNEND
500 !
510 !
520 DEF FNElapsed_time
530 RETURN TIMEDATE-2.1E+11
540 FNEND
Explanation:
10: Assign I/O path name for power supply
20: Declare common block for I/O path name
30: Clear power supply, set voltage to 20 Volts, current limit to 2 Amps
50: Downprogram power supply to 100 mV
60: Format statement for display
70,90: If P.S. output has settled to within 20 mV of programmed value (for 5 consecutive readings) print message
130: Define FN settled. (optional parameters described in lines 140-160)
170: Bring in common block for I/O path name
180,190: Read set value for voltage into VSET
200: Initialize real time clock in computer
220-250: Assign default values to variables corresponding to elements in parameter list. (Cannot
reference optional parameters in context if not passed in parameter list.)
270-290: If parameters are passed, assign values to corresponding subprogram variables
310-380: Repeat 320-370 until time limit is reached
320-330: If absolute value of output voltage (-Set voltage is within settling band) increment counter
340: If counter=Desired number of readings within band, return 1
360: If voltage left setting band, reset counter
400: If time has elapsed, return 0
440-490: Function reads and returns output voltage
520-540: Function returns time elapsed since real time clock was initialized on line 200