"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> | ||
− | + | 10 ! [[2114H-01.txt]] | |
− | + | 20 CLEAR SCREEN | |
− | + | 30 INTEGER No,Meas_type | |
− | + | 40 GOSUB Filecreate | |
− | + | 50 GOSUB Inst_setting | |
− | + | 60 T0=TIMEDATE | |
− | |||
70 No=0 | 70 No=0 | ||
− | 80 | + | 80 Meas_type=2 ! 1=무조건, 2=무조건+3채널, 3=1초에 한 번씩, |
− | 90 | + | 90 SELECT Meas_type |
− | + | 100 CASE 1 | |
− | + | 110 OUTPUT @File;"No.,Time[s],A Temp['C]" | |
− | + | 120 OUTPUT @Tc;"N01" !CH A | |
− | + | 130 LOOP | |
− | + | 140 No=No+1 | |
− | + | 150 T1=TIMEDATE-T0 | |
− | + | 160 T=PROUND(T1,-2) | |
− | + | 170 OUTPUT @Tc;"E" | |
− | + | 180 ENTER @Tc;Temp1 | |
− | + | 190 PRINT No;", ";T;"s, Temp=";Temp1;"'C" | |
− | + | 200 OUTPUT @File;No,T,Temp1 | |
− | + | 210 END LOOP | |
− | + | 220 CASE 2 | |
− | + | 230 OUTPUT @File;"No.,Time[s],A Temp['C],B Temp['C],A-B Temp['C]" | |
− | + | 240 LOOP | |
− | + | 250 No=No+1 | |
− | + | 260 T1=TIMEDATE-T0 | |
− | + | 270 T=PROUND(T1,-2) | |
− | + | 280 OUTPUT @Tc;"N01" | |
− | + | 290 OUTPUT @Tc;"E" | |
− | + | 300 ENTER @Tc;Temp1 | |
− | + | 310 OUTPUT @Tc;"N02" | |
− | + | 320 OUTPUT @Tc;"E" | |
− | + | 330 ENTER @Tc;Temp2 | |
− | + | 340 OUTPUT @Tc;"N03" | |
− | + | 350 OUTPUT @Tc;"E" | |
− | + | 360 ENTER @Tc;Temp3 | |
+ | 370 PRINT No;", ";T;"s, Temp=";Temp1;",";Temp2;",";Temp3;"'C" | ||
+ | 380 OUTPUT @File;No,T,Temp1,Temp2,Temp3 | ||
+ | 390 END LOOP | ||
+ | 400 CASE 3 | ||
+ | 410 OUTPUT @File;"No.,Time[s],Temp['C]" | ||
+ | 420 OUTPUT @Tc;"N01" !CH A | ||
+ | 430 INTEGER Sec,Sec_pre | ||
+ | 440 Sec_pre=-1 | ||
+ | 450 LOOP | ||
+ | 460 LOOP | ||
+ | 470 T1=TIMEDATE-T0 | ||
+ | 480 T=PROUND(T1,-2) | ||
+ | 490 Sec=INT(T1) | ||
+ | 500 IF Sec<>Sec_pre THEN | ||
+ | 510 No=No+1 | ||
+ | 520 OUTPUT @Tc;"E" | ||
+ | 530 ENTER @Tc;Temp | ||
+ | 540 PRINT No;", ";T;"s, Temp=";Temp;"'C" | ||
+ | 550 OUTPUT @File;No,T,Temp | ||
+ | 560 Sec_pre=Sec | ||
+ | 570 END IF | ||
+ | 580 END LOOP | ||
+ | 590 BEEP | ||
+ | 600 END LOOP | ||
+ | 610 END SELECT | ||
+ | 620 STOP | ||
+ | 630 Inst_setting: ! | ||
+ | 640 ASSIGN @Tc TO 702 | ||
+ | 650 OUTPUT @Tc;"F3" !Func = thermocouple | ||
+ | 660 OUTPUT @Tc;"R3" !TC type = K | ||
+ | 670 OUTPUT @Tc;"M1" !sampling mode = HOLD | ||
+ | 680 ! OUTPUT @Tc;"PR0" !sampling rate = fast | ||
+ | 690 ! OUTPUT @Tc;"PR1" !sampling rate = x2 | ||
+ | 700 ! OUTPUT @Tc;"PR2" !sampling rate = x5 | ||
+ | 710 ! OUTPUT @Tc;"PR3" !sampling rate = x10 | ||
+ | 720 OUTPUT @Tc;"PR4" !sampling rate = X20 | ||
+ | 730 ! OUTPUT @Tc;"PR5" !sampling rate = X50 | ||
+ | 740 ! OUTPUT @Tc;"PR6" !sampling rate = X100 | ||
+ | 750 RETURN | ||
+ | 760 Filecreate: ! | ||
+ | 770 DIM Dhms$[8] | ||
+ | 780 DIM Filename$[20] | ||
+ | 790 T=TIMEDATE | ||
+ | 800 Time$=TIME$(T) !하루 추가 +24*3600 | ||
+ | 810 Date$=DATE$(T) | ||
+ | 820 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] | ||
+ | 830 Filename$=Dhms$&".txt" | ||
+ | 840 CREATE Filename$,1 | ||
+ | 850 ASSIGN @File TO Filename$;FORMAT ON | ||
+ | 860 RETURN | ||
+ | 870 END | ||
</pre> | </pre> |
2024년 5월 8일 (수) 17:05 기준 최신판
10 ! [[2114H-01.txt]] 20 CLEAR SCREEN 30 INTEGER No,Meas_type 40 GOSUB Filecreate 50 GOSUB Inst_setting 60 T0=TIMEDATE 70 No=0 80 Meas_type=2 ! 1=무조건, 2=무조건+3채널, 3=1초에 한 번씩, 90 SELECT Meas_type 100 CASE 1 110 OUTPUT @File;"No.,Time[s],A Temp['C]" 120 OUTPUT @Tc;"N01" !CH A 130 LOOP 140 No=No+1 150 T1=TIMEDATE-T0 160 T=PROUND(T1,-2) 170 OUTPUT @Tc;"E" 180 ENTER @Tc;Temp1 190 PRINT No;", ";T;"s, Temp=";Temp1;"'C" 200 OUTPUT @File;No,T,Temp1 210 END LOOP 220 CASE 2 230 OUTPUT @File;"No.,Time[s],A Temp['C],B Temp['C],A-B Temp['C]" 240 LOOP 250 No=No+1 260 T1=TIMEDATE-T0 270 T=PROUND(T1,-2) 280 OUTPUT @Tc;"N01" 290 OUTPUT @Tc;"E" 300 ENTER @Tc;Temp1 310 OUTPUT @Tc;"N02" 320 OUTPUT @Tc;"E" 330 ENTER @Tc;Temp2 340 OUTPUT @Tc;"N03" 350 OUTPUT @Tc;"E" 360 ENTER @Tc;Temp3 370 PRINT No;", ";T;"s, Temp=";Temp1;",";Temp2;",";Temp3;"'C" 380 OUTPUT @File;No,T,Temp1,Temp2,Temp3 390 END LOOP 400 CASE 3 410 OUTPUT @File;"No.,Time[s],Temp['C]" 420 OUTPUT @Tc;"N01" !CH A 430 INTEGER Sec,Sec_pre 440 Sec_pre=-1 450 LOOP 460 LOOP 470 T1=TIMEDATE-T0 480 T=PROUND(T1,-2) 490 Sec=INT(T1) 500 IF Sec<>Sec_pre THEN 510 No=No+1 520 OUTPUT @Tc;"E" 530 ENTER @Tc;Temp 540 PRINT No;", ";T;"s, Temp=";Temp;"'C" 550 OUTPUT @File;No,T,Temp 560 Sec_pre=Sec 570 END IF 580 END LOOP 590 BEEP 600 END LOOP 610 END SELECT 620 STOP 630 Inst_setting: ! 640 ASSIGN @Tc TO 702 650 OUTPUT @Tc;"F3" !Func = thermocouple 660 OUTPUT @Tc;"R3" !TC type = K 670 OUTPUT @Tc;"M1" !sampling mode = HOLD 680 ! OUTPUT @Tc;"PR0" !sampling rate = fast 690 ! OUTPUT @Tc;"PR1" !sampling rate = x2 700 ! OUTPUT @Tc;"PR2" !sampling rate = x5 710 ! OUTPUT @Tc;"PR3" !sampling rate = x10 720 OUTPUT @Tc;"PR4" !sampling rate = X20 730 ! OUTPUT @Tc;"PR5" !sampling rate = X50 740 ! OUTPUT @Tc;"PR6" !sampling rate = X100 750 RETURN 760 Filecreate: ! 770 DIM Dhms$[8] 780 DIM Filename$[20] 790 T=TIMEDATE 800 Time$=TIME$(T) !하루 추가 +24*3600 810 Date$=DATE$(T) 820 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 830 Filename$=Dhms$&".txt" 840 CREATE Filename$,1 850 ASSIGN @File TO Filename$;FORMAT ON 860 RETURN 870 END