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
To Next Page
Loading...
Need help?
General
