Agilent Technologies 87130A manual Remote Operation, Example Programs

Models: 87130A

1 140
Download 140 pages 20.39 Kb
Page 114
Image 114
4-72Agilent 87130A Operating and Service Manual

Remote Operation

Example Programs

330 ENTER @File;Pathnames$(*)

340FOR I=0 TO 255 ! send path data

350IF Pathnames$(I)<>”” THEN

360ENTER @File;A$

370OUTPUT@Sw;”ROUT:PATH:DEF”&Pathnames$(I)&”,”&A$&”;”

380END IF

390NEXT I

400FOR I=0 TO 15 ! send group data

410IF Gpnames$(I)<>”” THEN

420OUTPUT

@Sw;”ROUT:GROUP:NAME”&VAL$(I+1)&”,”&Gpnames$(I)&”;”

430 IF Groupauto(I) THEN

440OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:ON “&Gpnames$(I)&”;”

450 ELSE

460OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:OFF” &Gpnames$(I)&”;”

470

END IF

480

IF Gptitles$(I)<>”” THEN OUTPUT

 

@Sw;”ROUT:GROUP:LABEL””&Gpnames$(I)&”,

 

“““&Gptitles$(I)&”””;”

490

J=0

500WHILE Groupdata$(I,J)<>””

510OUTPUT @Sw;”ROUT:GROUP:ADD

 

“&Gpnames$(I)&”,”&””&Groupdata$(I,J)&””&”;”

520

J=J+1

530

END WHILE

540

END IF

550NEXT I590 IF Pathnames$(I)<>”” THEN

560ENTER @File;Pathtitles$(*)

570ENTER @File;Pathval(*)

580FOR I = 0 to 255

590IF Pathnames$(I)<>”” THEN I=0 TO 255

600OUTPUT @Sw;”ROUT:PATH:LAB “&Pathnames$(I)&”,

“““&Pathtitles$(I)&”””;”

610OUTPUT @Sw;”ROUT:PATH:VAL”&Pathnames$(I)&”, “&VAL$(Pathval(I))&”;”

620END IF

630NEXT I

640ASSIGN @File TO *

4-72Agilent 87130A Operating and Service Manual

Page 114
Image 114
Agilent Technologies manual Remote Operation, Example Programs, Agilent 87130A Operating and Service Manual