Agilent Technologies 4294A Service Manual download pdf (Page 117)

100

101

Chapter 8 117

Saving/Recalling a Measurement Result/Measurement Setup

Sample Program for Save/Recall

1. Chapter Title

2. Chapter Title

4. Chapter Title

5. Chpter Title

8. Saving/Recalling a

Measurement Result/

Measurement Set up

Example 8-1 Save/recall

10 DIM File$[9],Inp_char$[30],Err_mes$[50],Extension$[9],Command$[9]

20 INTEGER Content,Err_no

30 CLEAR SCREEN

40 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN

50 ASSIGN @Hp4294a TO 800

60 ELSE

70 ASSIGN @Hp4294a TO 717

80 END IF

90 !

100 OUTPUT @Hp4294a;"STOD FLASH"

110 CALL Inp_file_name(File$)

120 !

130 ON ERROR GOTO Data_select

140 Data_select: !

150 PRINT "Select Saved Content"

160 PRINT " 1: State and Data"

170 PRINT " 2: Data (Binary file)"

180 PRINT " 3: Data (ASCII file)"

190 PRINT " 4: LCD Image"

200 INPUT "Input 1 to 4",Inp_char$

210 Content=IVAL(Inp_char$,10)

220 IF Content<1 OR Content>4 THEN Inp_start

230 OFF ERROR

240 !

250 SELECT Content

260 CASE 1

270 Extension$=".STA"

280 Command$="SAVDSTA"

290 CASE 2

300 PRINT "Select Data Content"

310 Select_array(@Hp4294a,"DATA TRACE","SAVDTRC")

320 Select_array(@Hp4294a,"MEMORY TRACE","SAVMTRC")

330 Select_array(@Hp4294a,"DATA","SAVDAT")

340 Select_array(@Hp4294a,"MEMORY","SAVMEM")

350 Select_array(@Hp4294a,"CAL & COMP DATA","SAVCAL")

360 Extension$=".DAT"

370 Command$="SAVDDAT"

380 CASE 3

390 PRINT "Select Data Content"

400 Select_array(@Hp4294a,"DATA TRACE","SAVDTRC")

410 Select_array(@Hp4294a,"MEMORY TRACE","SAVMTRC")

420 Select_array(@Hp4294a,"DATA","SAVDAT")

430 Select_array(@Hp4294a,"MEMORY","SAVMEM")

440 Select_array(@Hp4294a,"CAL & COMP DATA","SAVCAL")

450 Extension$=".TXT"

460 Command$="SAVDASC"

470 CASE 4

480 Extension$=".TIF"

490 Command$="SAVDTIF"

500 END SELECT

510 !

520 Save_file: !

530 OUTPUT @Hp4294a;"*CLS"

540 OUTPUT @Hp4294a;Command$&" """&File$&""""

550 OUTPUT @Hp4294a;"OUTPERRO?"

560 ENTER @Hp4294a;Err_no,Err_mes$

570 IF Err_no=(-257) THEN

580 PRINT "Error: "&Err_mes$

590 PRINT "[C]hange File Name / [P]urge File / [E]nd"

600 INPUT "Input C or P or E",Inp_char$

610 IF UPC$(Inp_char$)="C" THEN

1 2 ... 112 113 114 115 116 117 118 119 120 121 122 ... 517 518

Comments to this Manuals

No comments

Agilent Technologies 4294A Service Manual Page 117

Comments to this Manuals

Related products and manuals for Multimeters Agilent Technologies 4294A