Agilent Technologies 87130A manual Remote Operation, Example Programs

Models: 87130A

1 140
Download 140 pages 20.39 Kb
Page 115
Image 115
Manual background

Remote Operation

Example Programs

650 END

660 SUB Getandsend_bmap(B$)

670! Loads a query response from file and outputs it as a channel list

680 COM @File,@Sw

690DIM Bitmap(7,31),A$[32767]

700ENTER @File;Bitmap(*)

710FOR I=0 TO 7

720A$=””

730FOR J=0 TO 31

740IF Bitmap(I,J) THEN A$=A$&”,”&VAL$(100*(I+1)+J)

750

NEXT J

760

IF

A$[1;1]=”,” THEN A$=A$[2]

770

IF

A$<>”” THEN OUTPUT @Sw;B$&” (@”&A$&”);”

780NEXT I

790SUBEND

800SUB Getandcalc_bmap(B$)

810! Loads a query response from a file and outputs it to set drive/delay time

820 COM @File,@Sw

830DIM Bitmap(7,31),A$[32767]

840ENTER @File;Bitmap(*)

850FOR I=0 TO 7

860FOR J=0 TO 31

870OUTPUT @Sw;B$&””&VAL$(Bitmap(I,J)&”,

 

(@”&VAL$(100*(I+1)+J)&”);”

880

IF Bitmap(I,J) THEN A$=A$&”,”&VAL$(100*(I+1)+J)

890

NEXT J

900

IF A$[1;1]=”,” THEN A$=A$[2]

910NEXT I

920SUBEND

Agilent 87130A Operating and Service Manual 4-73

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