234 13
Application Sample Programs
Measurement using scanner
Example 13-6 Measurement with channel switching (scanning)
10 DIM Adapter$[9],Meas_para$[5],Swp_type$[9]
20 DIM Fmt_a$[9],Fmt_b$[9],Start$[9],Stop$[9],Nop$[5],Osc$[9]
30 DIM Bias$[9],Bw$[5],Avg$[5],Header$[9],Buff$[9]
40 INTEGER Max_chan,Point(4),Scode,I,J,Opc
50 CLEAR SCREEN
60 !
70 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
80 ASSIGN @Agt4294a TO 800
90 ASSIGN @Binary TO 800;FORMAT OFF
100 ASSIGN @Agt3499a TO 809
110 Scode=8
120 ELSE
130 ASSIGN @Agt4294a TO 717
140 ASSIGN @Binary TO 717;FORMAT OFF
150 ASSIGN @Agt3499a TO 709
160 Scode=7
170 END IF
180 !
190 ! Start Stop NOP OSC BIAS BW AVG
200 DATA "100KHZ" , "200KHZ" , "21" , "0.5" , "0" , "2" , "1"
210 DATA "100KHZ" , "200KHZ" , "21" , "0.5" , "0" , "2" , "1"
220 DATA "100KHZ" , "500KHZ" , "81" , "0.5" , "0" , "2" , "1"
230 DATA "500KHZ" , "600KHZ" , "21" , "0.5" , "0" , "2" , "1"
240 !
250 Max_chan=3
260 Adapter$="M2"
270 Meas_para$="IMPH"
280 Swp_type$="LIST"
290 Pow_mod$="VOLT"
300 Dc_mod$="VOLT"
310 !
320 ! 3499A Setting
330 !
340 OUTPUT @Agt3499a;"SYSMODE HP3488A"
350 OUTPUT @Agt3499a;"RESET"
360 OUTPUT @Agt3499a;"CPAIR 1,2"
370 OUTPUT @Agt3499a;"CLOSE 100,110"
380 !
390 ! Adapter Setup
400 !
410 CLEAR SCREEN
420 OUTPUT @Agt4294a;"PRES"
430 OUTPUT @Agt4294a;"ESNB 256"
440 OUTPUT @Agt4294a;"*SRE 4"
450 OUTPUT @Agt4294a;"E4TP "&Adapter$
460 PRINT "##### Adapter Setup #####"
470 PRINT "Channel 0 is activated."
480 Result=FNSetup_4tp(@Agt4294a,Scode,"Open")
490 IF Result<>0 THEN Prog_end
500 OUTPUT @Agt4294a;"ECALDON"
510 !
520 ! 4294A Setting
530 !
540 OUTPUT @Agt4294a;"MEAS "&Meas_para$
550 OUTPUT @Agt4294a;"POWMOD "&Pow_mod$
560 OUTPUT @Agt4294a;"DCMOD "&Dc_mod$
To Next Page
Loading...
Need help?
General
