"Ibw7440-01.txt"의 두 판 사이의 차이
(새 문서: Extech 7440 <pre> 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...) |
잔글 |
||
| 7번째 줄: | 7번째 줄: | ||
50 ASSIGN @With TO 710 | 50 ASSIGN @With TO 710 | ||
60 GOSUB Fileopen | 60 GOSUB Fileopen | ||
| − | 70 OUTPUT @With;"FD" | + | 70 OUTPUT @With;"FD" !DCW function |
| − | 80 OUTPUT @With;"SL 0. | + | 80 OUTPUT @With;"SL 0.5" !ramp time 0.4~999.9 s |
| − | 90 OUTPUT @With;"SM 0 | + | 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. | + | 100 OUTPUT @With;"SK 0.0" !LO-limit 0.0~999.9 uA |
| − | 110 OUTPUT @With;"SJ | + | 110 OUTPUT @With;"SJ 2000" !HI-limit 0 ~3500 uA |
120 WAIT 1 | 120 WAIT 1 | ||
130 OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]" | 130 OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]" | ||
140 Count=0 | 140 Count=0 | ||
| − | 150 Volt_start= | + | 150 Volt_start=3000 |
| − | 160 Volt_stop= | + | 160 Volt_stop=4500 |
170 Volt_step=10 | 170 Volt_step=10 | ||
180 T0=TIMEDATE | 180 T0=TIMEDATE | ||
| 24번째 줄: | 24번째 줄: | ||
220 OUTPUT @With;"SI";Volt_set | 220 OUTPUT @With;"SI";Volt_set | ||
230 OUTPUT @With;"FA" | 230 OUTPUT @With;"FA" | ||
| − | + | 231 WAIT 3 | |
| − | + | 240 OUTPUT @With;"?K" | |
260 ENTER @With;A$ | 260 ENTER @With;A$ | ||
270 A1$=A$[1,20] | 270 A1$=A$[1,20] | ||
280 A2$=A$[21,40] | 280 A2$=A$[21,40] | ||
| − | 290 | + | 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 | ||
</pre> | </pre> | ||
2023년 5월 12일 (금) 11:49 기준 최신판
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