120
Chapter 9
Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
2520
GOTO Compen_meas
2530
END IF
2540
NEXT I
2550
PRINT Standard$&" Data Measurement Complete"
2560
OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2570
RETURN 0
2580
ELSE
2590
PRINT "Program Interruption"
2600
OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2610
RETURN -1
2620
END IF
2630 FNEND
2640
!=============================================
2650
! Data Input Function
2660
!=============================================
2670 SUB Inp_data(Mes$,Inp_val)
2680
DIM Inp_char$[30]
2690
ON ERROR GOTO Inp_start
2700 Inp_start:!
2710
PRINT "Input "&Mes$
2720
INPUT "Value?",Inp_char$
2730
Inp_val=VAL(UPC$(Inp_char$))
2740
PRINT "Input Value: ";Inp_val
2750
INPUT "OK? [Y/N]",Inp_char$
2760
IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2770
OFF ERROR
2780 SUBEND
Summary of Contents for 4288A
Page 18: ...16 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Page 212: ...210 AppendixA Manual Changes Manual Changes ...
Page 248: ...246 AppendixB Information for Replacing 4278A with 4288A Comparison of Interfaces ...
Page 258: ...256 AppendixC Status Reporting System Using the Status Reporting System ...
Page 288: ...286 Index Index ...