Extech 7440
10 CLEAR SCREEN
20 DIM A$[40],A1$[20],A2$[20]
30 INTEGER Count
40 INTEGER Volt_start,Volt_stop,Volt_step,Volt_set
50 ASSIGN @With TO 710
60 GOSUB Fileopen
70 OUTPUT @With;"FD" !DCW function
80 OUTPUT @With;"SL 0.5" !ramp time 0.4~999.9 s
90 OUTPUT @With;"SM 2.0" !dwell time 0, 0.3~999.9 s
100 OUTPUT @With;"SK 0.0" !LO-limit 0.0~999.9 uA
110 OUTPUT @With;"SJ 2000" !HI-limit 0 ~3500 uA
120 WAIT 1
130 OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]"
140 Count=0
150 Volt_start=3000
160 Volt_stop=4500
170 Volt_step=10
180 T0=TIMEDATE
190 LOOP
200 Count=Count+1
210 Volt_set=Volt_start+(Count-1)*Volt_step
220 OUTPUT @With;"SI";Volt_set
230 OUTPUT @With;"FA"
231 WAIT 3
240 OUTPUT @With;"?K"
260 ENTER @With;A$
270 A1$=A$[1,20]
280 A2$=A$[21,40]
290 Volt_unit$=A2$[11,12] !kV
300 Volt_str$=A2$[7,10] !x.xx
310 Curr_unit$=A2$[19,20] !uV
320 Curr_str$=A2$[14,18] ! xxxx
330 Volt=VAL(Volt_str$) !kV
340 Curr=VAL(Curr_str$) !uA
350 ! NUM(A$[39,39])=230 !그리스문자 micro로 나온다.
360 T=TIMEDATE-T0
370 OUTPUT @File;Count,T,Volt,Curr
380 PRINT "No.=";Count;" ,V=";Volt;"kV, I=";Curr;"uA"
390 EXIT IF Volt_set=Volt_stop
400 END LOOP
410 GOSUB Fileclose
420 STOP
430 Fileopen: !
440 DIM Filename$[20],Dhms$[8]
450 Time$=TIME$(TIMEDATE)
460 Date$=DATE$(TIMEDATE)
470 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
480 Filename$=Dhms$&".txt"
490 CREATE Filename$,1
500 ASSIGN @File TO Filename$;FORMAT ON
510 RETURN
520 Fileclose: !
530 ASSIGN @File TO *
540 RETURN
550 END