Ibw7440-01.txt
Togotech (토론 | 기여)님의 2023년 5월 11일 (목) 14:20 판 (새 문서: 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...)
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.1" !ramp time min=0.1 90 OUTPUT @With;"SM 0.4" !dwell time min=0.4 100 OUTPUT @With;"SK 0.0" !LO-limit 0.0~999.9uA 110 OUTPUT @With;"SJ 2" !HI-limit 0 ~3500 uA 120 WAIT 1 130 OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]" 140 Count=0 150 Volt_start=1000 160 Volt_stop=6000 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" 240 WAIT 1 250 OUTPUT @With;"?K" 260 ENTER @With;A$ 270 A1$=A$[1,20] 280 A2$=A$[21,40] 290 Volt=VAL(A2$[7,10]) !kV 300 Curr=VAL(A2$[13,18]) !uA 310 ! NUM(A$[39,39])=230 =u 320 T=TIMEDATE-T0 330 OUTPUT @File;Count,T,Volt,Curr 340 PRINT Count,Volt,Curr 350 EXIT IF Volt_set=Volt_stop 360 END LOOP 370 GOSUB Fileclose 380 STOP 390 Fileopen: ! 400 DIM Filename$[20],Dhms$[8] 410 Time$=TIME$(TIMEDATE) 420 Date$=DATE$(TIMEDATE) 430 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 440 Filename$=Dhms$&".txt" 450 CREATE Filename$,1 460 ASSIGN @File TO Filename$;FORMAT ON 470 RETURN 480 Fileclose: ! 490 ASSIGN @File TO * 500 RETURN 510 END