"2114H-01.txt"의 두 판 사이의 차이
(새 문서: 2114H-01.txt <pre> 1 ! 2114H-01.txt 10 CLEAR SCREEN 20 INTEGER No,Sec,Sec_pre 30 GOSUB Filecreate 40 OUTPUT @File;"No.,Time[s],Temp['C]" 50 T0=TIMEDAT...) |
잔글 |
||
| 1번째 줄: | 1번째 줄: | ||
| − | [[ | + | [[Advantest TR2114H 디지털 멀티 온도계]] |
<pre> | <pre> | ||
1 ! [[2114H-01.txt]] | 1 ! [[2114H-01.txt]] | ||
2024년 5월 8일 (수) 14:02 판
1 ! [[2114H-01.txt]] 10 CLEAR SCREEN 20 INTEGER No,Sec,Sec_pre 30 GOSUB Filecreate 40 OUTPUT @File;"No.,Time[s],Temp['C]" 50 T0=TIMEDATE 60 Sec_pre=-1 70 No=0 80 LOOP 90 LOOP 100 T=TIMEDATE-T0 110 Sec=INT(T) 120 IF Sec<>Sec_pre THEN 130 No=No+1 140 OUTPUT 702;"E" 150 ENTER 702;Temp 160 PRINT No;", ";Sec;"s, Temp=";Temp;"'C" 170 OUTPUT @File;No,T,Temp 180 Sec_pre=Sec 190 END IF 200 END LOOP 210 BEEP 220 EXIT IF No=1000 230 END LOOP 240 STOP 250 Filecreate: ! 260 DIM Dhms$[8] 270 DIM Filename$[20] 280 T=TIMEDATE 290 Time$=TIME$(T) !하루 추가 +24*3600 300 Date$=DATE$(T) 310 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 320 Filename$=Dhms$&".txt" 330 CREATE Filename$,1 340 ASSIGN @File TO Filename$;FORMAT ON 350 RETURN 360 END