Advantest TR2114H 디지털 멀티 온도계
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