"2114H-01.txt"의 두 판 사이의 차이
잔글 |
잔글 |
(차이 없음)
|
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