Agilent Technologies E4356A manual While C O

Programming Some Power supply Functions (continued)

3030	WHILE C< >O
3035	D$=MID$(OUTPUT$,I,C-I)
3040	OUTPUT(X)=VAL(D$)	’Get values
3045	I=C+1
3050	C=INSTR(I,OUTPUT$,";")
3055	X=X+1
3060	WEND
3065	D$=RIGHT$(OUTPUT$,LEN(OUTPUT$)-(I-1))
3070	OUTPUT(X)=VAL(D$)
3076	OUTPUT$=SPACE$(40)	’Clear string
3080	RETURN
****************************************************************************************************
	Controller Using Agilent BASIC
*****************************************************************************************************
1000	!Power supply at stand-alone address = 706
1005	OPTION BASE 1
1010	DIM Codes$[80],Response$[80],Mode$[32]
1015	!
1020	!Program power supply to CV mode with following voltage and current
1026	OUTPUT 706;"VOLTAGE 78;CURRENT 25”
1030	!
1035	!Query power supply outputs and print to screen
1040	OUTPUT 706;"MEASURE:VOLTAGE?;CURRENT?"	!Query output levels
1045	ENTER 706;Vout, Iout
1050	PRINT "The output levels are ";Vout;" Volts and ";Iout" Amps"
1055	!
1060	!Program current triggered level to a value insufficient to maintain
1065	!unit within its CV operating characteristic
1070	OUTPUT 706;"CURR:TRIG 1"
1075	!
1080	!Set operation status mask to detect mode change from CV to CC
1085	OUTPUT 706;"STAT:OPER:ENAB 1280;PTR 1280"
1090	!
1095	!Enable Status Byte OPER summary bit
1100	OUTPUT 706;"*SRE 128"
1105	!
1110	!Arm trigger circuit and send trigger to power supply
1115	OUTPUT 706;"INITIATE;TRIGGER"
1130	!Poll for interrupt caused by change to CC mode and print to screen
1135	Response=SPOLL(706)
1140	IF NOT BIT (Response,7) THEN GOTO 1130	!No OPER event to report
1145	OUTPUT 706;"STAT:OPER:EVEN?"	!Query status operation register
1160	ENTER 706;Oevent	!Read back event bit
1156	IF BIT(Oevent,10) THEN PRINT "Unit switched to CC mode."
1160	!
1165	!Clear status
1170	OUTPUT 706;"*CLS"
1176	!
1180	!Disable output and save present state in location 2
1185	OUTPUT 706;"OUTPUT OFF;*SAV 2”
1190	END

Remote Programming 61